Skrypt do aninnhilatora 7.4

Marian

A więc tak, wiem ze duzo osób poszukuje tego skryptu, bo jest on bardzo trudny w wykonaniu i naprawde trudno go dostać, (polega on na tym ze jak staniesz na 4 polach i nacisniesz dzwignie to wszystkich 4 teleportuje [mass teleport]) troszkę się pobawiłem i zrobiłem ten skrypt ;]

--------------------------------------------------------------
--Variables used:
--
-- player?pos = The position of the players before teleport.
-- player? = Get the thing from playerpos.
-- player?level = Get the players levels.
-- questslevel = The level you have to be to do this quest.
-- questtatus? = Get the quest status of the players.
-- demon?pos = The position of the demons.
-- nplayer?pos = The position where the players should be teleported too.
--
-- UniqueIDs used:
--
-- 1946 = The switch.
-- 5001 = Demon Armor chest.
-- 5002 = Magic Sword chest.
-- 5003 = Stonecutter Axe chest.
-- 5004 = Present chest.
--

function onUse(cid, item, frompos, item2, topos)
if item.uid == 196 then
if item.itemid == 1945 then

player1pos = {x=114, y=171, z=1, stackpos=253}
player1 = getThingfromPos(player1pos)

player2pos = {x=113, y=171, z=1, stackpos=253}
player2 = getThingfromPos(player2pos)

player3pos = {x=112, y=171, z=1, stackpos=253}
player3 = getThingfromPos(player3pos)

player4pos = {x=111, y=171, z=1, stackpos=253}
player4 = getThingfromPos(player4pos)

if player1.itemid > 0 and player2.itemid > 0 and player3.itemid > 0 and player4.itemid > 0 then

player1level = getPlayerLevel(player1.uid)
player2level = getPlayerLevel(player2.uid)
player3level = getPlayerLevel(player3.uid)
player4level = getPlayerLevel(player4.uid)

questlevel = 100

if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level >= questlevel then

queststatus1 = getPlayerStorageValue(player1.uid,1946)
queststatus2 = getPlayerStorageValue(player2.uid,1946)
queststatus3 = getPlayerStorageValue(player3.uid,1946)
queststatus4 = getPlayerStorageValue(player4.uid,1946)

if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 then

demon1pos = {x=136, y=169, z=1}
demon2pos = {x=138, y=169, z=1}
demon3pos = {x=137, y=173, z=1}
demon4pos = {x=139, y=173, z=1}
demon5pos = {x=140, y=171, z=1}

doSummonCreature("Demon", demon1pos)
doSummonCreature("Demon", demon2pos)
doSummonCreature("Demon", demon3pos)
doSummonCreature("Demon", demon4pos)
doSummonCreature("Demon", demon5pos)

nplayer1pos = {x=139, y=171, z=1}
nplayer2pos = {x=138, y=171, z=1}
nplayer3pos = {x=137, y=171, z=1}
nplayer4pos = {x=136, y=171, z=1}

doSendMagicEffect(player1pos,2)
doSendMagicEffect(player2pos,2)
doSendMagicEffect(player3pos,2)
doSendMagicEffect(player4pos,2)

doTeleportThing(player1.uid,nplayer1pos)
doTeleportThing(player2.uid,nplayer2pos)
doTeleportThing(player3.uid,nplayer3pos)
doTeleportThing(player4.uid,nplayer4pos)

doSendMagicEffect(nplayer1pos,10)
doSendMagicEffect(nplayer2pos,10)
doSendMagicEffect(nplayer3pos,10)
doSendMagicEffect(nplayer4pos,10)

doTransformItem(item.uid,item.itemid+1)

else
doPlayerSendCancel(cid,"Sorry, not possible.")
end
else
doPlayerSendCancel(cid,"Sorry, not possible.")
end
else
doPlayerSendCancel(cid,"Sorry, not possible.")
end
elseif item.itemid == 1946 then
if getPlayerAccess(cid) == 3 then
doTransformItem(item.uid,item.itemid-1)
else
doPlayerSendCancel(cid,"Sorry, not possible.")
end
end
elseif item.uid == 5001 then
queststatus = getPlayerStorageValue(cid,1946)
if queststatus == -1 then
doPlayerSendTextMessage(cid,22,"You have found a demon armor.")
doPlayerAddItem(cid,2494,1)
setPlayerStorageValue(cid,1946,1)
else
doPlayerSendTextMessage(cid,22,"It is empty.")
end
elseif item.uid == 5002 then
queststatus = getPlayerStorageValue(cid,1946)
if queststatus == -1 then
doPlayerSendTextMessage(cid,22,"You have found a magic sword.")
doPlayerAddItem(cid,2400,1)
setPlayerStorageValue(cid,1946,1)
else
doPlayerSendTextMessage(cid,22,"It is empty.")
end
elseif item.uid == 5003 then
queststatus = getPlayerStorageValue(cid,1946)
if queststatus == -1 then
doPlayerSendTextMessage(cid,22,"You have found a stonecutter axe.")
doPlayerAddItem(cid,2431,1)
setPlayerStorageValue(cid,1946,1)
else
doPlayerSendTextMessage(cid,22,"It is empty.")
end
elseif item.uid == 5004 then
queststatus = getPlayerStorageValue(cid,1946)
if queststatus == -1 then
doPlayerSendTextMessage(cid,22,"You have found a present.")
doPlayerAddItem(cid,1990,1)
setPlayerStorageValue(cid,1946,1)
else
doPlayerSendTextMessage(cid,22,"It is empty.")
end
end
return 1
end

-----------------------------------------------------------------------------

A teraz instrukcja montażu Wink

1) otwieramy folder data/actions/scripts
2) kopiujemy byle jaki plik z tamtad i nazywamy go annihilator
3) kopiujesz ten skrypt i wklejasz go zamiast tego co pisalo wczesniej
4) w pliku actions (otwierasz go notatnkiem) dodajesz takie polecenia:

<action uniqueid="1946" script="annihilator.lua" />
<action uniqueid="5001" script="annihilator.lua" />
<action uniqueid="5002" script="annihilator.lua" />
<action uniqueid="5003" script="annihilator.lua" />
<action uniqueid="5004" script="annihilator.lua" />

Noo troszkę się namęczyłem -.-
Pozdrawiam

Gość

	Forum Tibia Forum Strona Główna -> Skrypty do OTS	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1