[x.x][TalkActions]BlueTooth! HIT!

Zasada działania:
Aby wysłać przedmiot gracz do którego wysyłamy musi być online!
Przedmiot bierzemy w lewą rękę! (wysyła pojedyncze przedmioty i kase)
Piszemy !bluetooth "nick gracza
Gracz o nicku "nick gracza" dostaje przedmiot, który mieliśmy w ręce!
Uwaga! Zasięg maksymalnie 100 kratek (sqm)!
Odległość między graczami jest to suma dwóch różnic (x i y).
Tworzymy plik w data\talkactions\scripts o nazwie bluetooth.lua
a w nim:

Cytuj:

---

-- BlueTooth System By Szymciak (Fast)
local function odleglosc(pos1,pos2)
local ile = {0,0}
if (pos1.x >= pos2.x) then
local ile = {(pos1.x - pos2.x),0}
else
local ile = {(pos2.x - pos1.x),0}
end
if (pos1.y >= pos2.y) then
local ile = {ile[1],(pos1.y - pos2.y)}
else
local ile = {ile[1],(pos2.y - pos1.y)}
end
if ((ile[1] + ile[2]) <= 100) then
return true
else
return false
end
end
function onSay(cid,words,param)
local kto = getPlayerByName(param)
if (isPlayer(kto) == 1) then
local playerpos = getPlayerPosition(cid)
local player2pos = getPlayerPosition(kto)
if (odleglosc(playerpos,player2pos) == true) then
local przedmiot = getPlayerSlotItem(cid, 6)
if (przedmiot.itemid > 1) then
local ile = getPlayerItemCount(cid,przedmiot.itemid)
doPlayerAddItem(kto, przedmiot.itemid, ile)
doPlayerRemoveItem(cid, przedmiot.itemid, ile)
doPlayerSendTextMessage(cid,22,"Transmisja udana!")
doPlayerSendTextMessage(kto,22,"Dostales prezent od gracza "..getPlayerName(cid).."!")
else
doPlayerSendTextMessage(cid,22,"Brak przedmiotu!")
end
else
doPlayerSendTextMessage(cid,22,"Brak zasiegu! (max 100 sqm)")
end
else
doPlayerSendTextMessage(cid,22,"Gracz nie istnieje lub nie jest online!")
end
end

---

Do talkactions.xml dopisujemy:

Cytuj:

---

<talkaction words="!bluetooth" script="bluetooth.lua" />

---