Postado Dezembro 15, 2014 10 anos Pessoal da uma olhada! for1.lua -- Annihilator script by GriZzm0 -- Room check and monster removal by Tworn --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. --trash= position to send the demons to when clearing, 1 sqm in middle of nowhere is enough -- starting = Upper left point of the annihilator room area. -- ending = Bottom right point of the annihilator room area. --UniqueIDs used: --5000 = 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 == 7003 then if item.itemid == 1946 then player1pos = {x=32975, y=31721, z=2, stackpos=253} player1 = getThingfromPos(player1pos) player2pos = {x=32974, y=32721, z=2, stackpos=253} player2 = getThingfromPos(player2pos) player3pos = {x=32973, y=32721, z=2, stackpos=253} player3 = getThingfromPos(player3pos) player4pos = {x=32972, y=32721, z=2, 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 = 150 if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level >= questlevel then queststatus1 = getPlayerStorageValue(player1.uid,101) queststatus2 = getPlayerStorageValue(player2.uid,101) queststatus3 = getPlayerStorageValue(player3.uid,101) queststatus4 = getPlayerStorageValue(player4.uid,101) if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 then --if 1==1 then demon1pos = {x=32975, y=31735, z=9} demon2pos = {x=32973, y=31735, z=9} demon3pos = {x=32976, y=31739, z=9} demon4pos = {x=32974, y=31739, z=9} demon5pos = {x=32977, y=31737, z=9} demon6pos = {x=32978, y=31737, z=9} doSummonCreature("Soul Wizard", demon1pos) doSummonCreature("Soul Wizard", demon2pos) doSummonCreature("Soul Wizard", demon3pos) doSummonCreature("Soul Wizard", demon4pos) doSummonCreature("Maze Boss", demon5pos) doSummonCreature("Maze Boss", demon6pos) nplayer1pos = {x=32976, y=31737, z=9} nplayer2pos = {x=32975, y=31737, z=9} nplayer3pos = {x=32974, y=31737, z=9} nplayer4pos = {x=32973, y=31737, z=9} 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,1945) else doPlayerSendCancel(cid,"Sorry, not possible.") end else doPlayerSendCancel(cid,"Sorry, not possible.") end else doPlayerSendCancel(cid,"Sorry, not possible.") end end if item.itemid == 1945 then -- Here is the code start: starting={x=32970, y=31726, z=9, stackpos=253} checking={x=starting.x, y=starting.y, z=starting.z, stackpos=starting.stackpos} ending={x=32995, y=31740, z=9, stackpos=253} players=0 totalmonsters=0 monster = {} repeat creature= getThingfromPos(checking) if creature.itemid > 0 then if getPlayerAccess(creature.uid) == 0 then players=players+1 end if getPlayerAccess(creature.uid) ~= 0 and getPlayerAccess(creature.uid) ~= 3 then totalmonsters=totalmonsters+1 monster[totalmonsters]=creature.uid end end checking.x=checking.x+1 if checking.x>ending.x then checking.x=starting.x checking.y=checking.y+1 end until checking.y>ending.y if players==0 then trash= {x=33002, y=31718, z=9} current=0 repeat current=current+1 doTeleportThing(monster[current],trash) until current>=totalmonsters doTransformItem(item.uid,1946) end -- Here is the end of it end end if item.uid == 5016 then queststatus = getPlayerStorageValue(cid,101) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"You have found a Lavos Armor.") doPlayerAddItem(cid,8877,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end if item.uid == 5017 then queststatus = getPlayerStorageValue(cid,101) if queststatus ~= 1 then doPlayerSendTextMessage(cid,22,"You have found a Divine Plate.") doPlayerAddItem(cid,8885,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end if item.uid == 5018 then queststatus = getPlayerStorageValue(cid,101) if queststatus ~= 1 then doPlayerSendTextMessage(cid,22,"You have found a Crystal Staff.") doPlayerAddItem(cid,7880,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end return 1 end
Postado Dezembro 15, 2014 10 anos Vê se as coordenadas informadas estão corretas. Pq aqui na minha annihi são diferentes. player1pos = {x=32975, y=31721, z=2, stackpos=253} player2pos = {x=32974, y=32721, z=2, stackpos=253} player3pos = {x=32973, y=32721, z=2, stackpos=253} player4pos = {x=32972, y=32721, z=2, stackpos=253} starting={x=32970, y=31726, z=9, stackpos=253} Editado Dezembro 15, 2014 10 anos por danihcv (veja o histórico de edições) Te ajudei?? REP + e ficamos quites... http://www.tibiaking.com/forum/uploads/emoticons/default_happyy.png' alt=';D'> Atenciosamente, Daniel. Abraços! Meus tutoriais: Programação: Resolvendo QUALQUER erro na data base. Scripts (system's, creaturescripts, mod's, NPC's, etc): (Sistema) GOD Ambient Light Full. Adicionando novas mounts ao servidor [NPC] Papai Noel que dá presente todo ano. Web-site: Resolvendo problema de caracteres especiais em PHP Formatando textos em PHP! Mudando a cor, tamanho, fonte, etc. Criando e configurando tabelas para paginas PHP
Postado Dezembro 16, 2014 10 anos Autor Ta siim, é que é uma quest nova oque sera :/ Cabei de dar uma olhada! Editado Dezembro 16, 2014 10 anos por falling (veja o histórico de edições)
Postado Dezembro 18, 2014 10 anos Tenta assim: -- Annihilator script by GriZzm0 -- Room check and monster removal by Tworn --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. --trash= position to send the demons to when clearing, 1 sqm in middle of nowhere is enough -- starting = Upper left point of the annihilator room area. -- ending = Bottom right point of the annihilator room area. --UniqueIDs used: --5000 = 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 == 7003 then if item.itemid == 1946 then player1pos = {x=32975, y=31721, z=2, stackpos=253} player1 = getThingFromPosition(player1pos) player2pos = {x=32974, y=32721, z=2, stackpos=253} player2 = getThingFromPosition(player2pos) player3pos = {x=32973, y=32721, z=2, stackpos=253} player3 = getThingFromPosition(player3pos) player4pos = {x=32972, y=32721, z=2, stackpos=253} player4 = getThingFromPosition(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 = 150 if player1level >= questlevel and player2level >= questlevel and player3level >= questlevel and player4level >= questlevel then queststatus1 = getPlayerStorageValue(player1.uid,101) queststatus2 = getPlayerStorageValue(player2.uid,101) queststatus3 = getPlayerStorageValue(player3.uid,101) queststatus4 = getPlayerStorageValue(player4.uid,101) if queststatus1 == -1 and queststatus2 == -1 and queststatus3 == -1 and queststatus4 == -1 then --if 1==1 then demon1pos = {x=32975, y=31735, z=9} demon2pos = {x=32973, y=31735, z=9} demon3pos = {x=32976, y=31739, z=9} demon4pos = {x=32974, y=31739, z=9} demon5pos = {x=32977, y=31737, z=9} demon6pos = {x=32978, y=31737, z=9} doSummonCreature("Soul Wizard", demon1pos) doSummonCreature("Soul Wizard", demon2pos) doSummonCreature("Soul Wizard", demon3pos) doSummonCreature("Soul Wizard", demon4pos) doSummonCreature("Maze Boss", demon5pos) doSummonCreature("Maze Boss", demon6pos) nplayer1pos = {x=32976, y=31737, z=9} nplayer2pos = {x=32975, y=31737, z=9} nplayer3pos = {x=32974, y=31737, z=9} nplayer4pos = {x=32973, y=31737, z=9} 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,1945) else doPlayerSendCancel(cid,"Sorry, not possible.") end else doPlayerSendCancel(cid,"Sorry, not possible.") end else doPlayerSendCancel(cid,"Sorry, not possible.") end end if item.itemid == 1945 then -- Here is the code start: starting={x=32970, y=31726, z=9, stackpos=253} checking={x=starting.x, y=starting.y, z=starting.z, stackpos=starting.stackpos} ending={x=32995, y=31740, z=9, stackpos=253} players=0 totalmonsters=0 monster = {} repeat creature= getThingFromPosition(checking) if creature.itemid > 0 then if getPlayerAccess(creature.uid) == 0 then players=players+1 end if getPlayerAccess(creature.uid) ~= 0 and getPlayerAccess(creature.uid) ~= 3 then totalmonsters=totalmonsters+1 monster[totalmonsters]=creature.uid end end checking.x=checking.x+1 if checking.x>ending.x then checking.x=starting.x checking.y=checking.y+1 end until checking.y>ending.y if players==0 then trash= {x=33002, y=31718, z=9} current=0 repeat current=current+1 doTeleportThing(monster[current],trash) until current>=totalmonsters doTransformItem(item.uid,1946) end -- Here is the end of it end end if item.uid == 5016 then queststatus = getPlayerStorageValue(cid,101) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"You have found a Lavos Armor.") doPlayerAddItem(cid,8877,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end if item.uid == 5017 then queststatus = getPlayerStorageValue(cid,101) if queststatus ~= 1 then doPlayerSendTextMessage(cid,22,"You have found a Divine Plate.") doPlayerAddItem(cid,8885,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end if item.uid == 5018 then queststatus = getPlayerStorageValue(cid,101) if queststatus ~= 1 then doPlayerSendTextMessage(cid,22,"You have found a Crystal Staff.") doPlayerAddItem(cid,7880,1) setPlayerStorageValue(cid,101,1) else doPlayerSendTextMessage(cid,22,"It is empty.") end end return 1 end Te ajudei?? REP + e ficamos quites... http://www.tibiaking.com/forum/uploads/emoticons/default_happyy.png' alt=';D'> Atenciosamente, Daniel. Abraços! Meus tutoriais: Programação: Resolvendo QUALQUER erro na data base. Scripts (system's, creaturescripts, mod's, NPC's, etc): (Sistema) GOD Ambient Light Full. Adicionando novas mounts ao servidor [NPC] Papai Noel que dá presente todo ano. Web-site: Resolvendo problema de caracteres especiais em PHP Formatando textos em PHP! Mudando a cor, tamanho, fonte, etc. Criando e configurando tabelas para paginas PHP
Participe da conversa
Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.