Hero - 2008-06-22 23:39:05

Skrypt Nie Jest Mój!

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).

data/talkactions/scripts/bluetooth.lua

Spoiler:

-- 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

Na Zielono To Odległość W SQM(Kratki)

data/talkactions/talkactions.xml

Spoiler:

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

Mam Nadzieję, Że Się Przyda :p

Xanderus - 2008-06-23 11:02:17

Super skrypt 10/10 i oczywiscie + dla ciebie
BRAWO HERO TAK DALEJ

Dantez - 2008-06-23 11:23:41

Panie UP to nie jego to z czego sie cieszysz to ze zkopiowal to niewielki wyczyn

A ogolnie skypt 10/10

Hero - 2008-06-23 11:51:05

Heh Dzięki, Wiedziałem, Że Się Przyda xD

czesio45p - 2008-06-26 23:40:18

http://forum.tibia.org.pl/showthread.php?t=282645 :) Hero z torga to pewnie masz :d a tak wogule odrazu mowie ze fajny skrypt bo probowalem na moim ots i dzaiala i sie przydaje :D

Hero - 2008-06-27 15:11:32

Po 1.Napisałem, Że Nie Mój, Nie Umiesz Czytać ??
Po 2. To Nie Stąd
Po 3. Nie Odświeżaj Starych Tematów Ok??

www.dirt-bike.pun.pl www.hajtownia.pun.pl www.narutototalgame.pun.pl www.mago1w.pun.pl www.kingdragons.pun.pl