Anihi Com Remoçao Automatica De Demons!

[Visitante xbowaxx]

Código atualizado. O código foi optimizado e agora não é mais necessário especificar cada posição dos demons. O sistema foi modificado para que ele crie suas próprias variáveis e que fique mais fácil checar uma área grande sem muito trabalho.

----------

Este é o script da annihilator do GriZzm0 com um código feito pelo meu irmão, Tworn. Este código checa players e remove demons. Andei vendo os scripts daqui do fórum e o nível está fraco hein, hora de botar a cabeça pra pensar. wink.gif

A parte que foi adicionada está entre comments. Desculpe, mas não vou traduzir as variáveis, quem não entender inglês não sei nem o que faz jogando tibia.

-- 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 == 5000 then

if item.itemid == 1946 then

player1pos = {x=482, y=422, z=10, stackpos=253}

player1 = getThingfromPos(player1pos)

player2pos = {x=481, y=422, z=10, stackpos=253}

player2 = getThingfromPos(player2pos)

player3pos = {x=480, y=422, z=10, stackpos=253}

player3 = getThingfromPos(player3pos)

player4pos = {x=479, y=422, z=10, 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,100)

  queststatus2 = getPlayerStorageValue(player2.uid,100)

  queststatus3 = getPlayerStorageValue(player3.uid,100)

  queststatus4 = getPlayerStorageValue(player4.uid,100)

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

  demon1pos = {x=479, y=412, z=10}

  demon2pos = {x=478, y=408, z=10}

  demon3pos = {x=477, y=412, z=10}

  demon4pos = {x=476, y=408, z=10}

  demon5pos = {x=480, y=410, z=10}

  demon6pos = {x=481, y=410, z=10}

  doSummonCreature("Demon", demon1pos)

  doSummonCreature("Demon", demon2pos)

  doSummonCreature("Demon", demon3pos)

  doSummonCreature("Demon", demon4pos)

  doSummonCreature("Demon", demon5pos)

  doSummonCreature("Demon", demon6pos)

  nplayer1pos = {x=479, y=410, z=10}

  nplayer2pos = {x=478, y=410, z=10}

  nplayer3pos = {x=477, y=410, z=10}

  nplayer4pos = {x=476, y=410, z=10}

  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=474, y=405, z=10, stackpos=253}

checking={x=starting.x, y=starting.y, z=starting.z, stackpos=starting.stackpos}

ending={x=495, y=413, z=10, 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=547, y=407, z=10}

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 == 5001 then

queststatus = getPlayerStorageValue(cid,100)

if queststatus == -1 then

doPlayerSendTextMessage(cid,22,"You have found a demon armor.")

doPlayerAddItem(cid,2494,1)

setPlayerStorageValue(cid,100,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

end

if item.uid == 5002 then

queststatus = getPlayerStorageValue(cid,100)

if queststatus ~= 1 then

doPlayerSendTextMessage(cid,22,"You have found a magic sword.")

doPlayerAddItem(cid,2400,1)

setPlayerStorageValue(cid,100,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

end

if item.uid == 5003 then

queststatus = getPlayerStorageValue(cid,100)

if queststatus ~= 1 then

doPlayerSendTextMessage(cid,22,"You have found a stonecutter axe.")

doPlayerAddItem(cid,2431,1)

setPlayerStorageValue(cid,100,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

end

if item.uid == 5004 then

queststatus = getPlayerStorageValue(cid,100)

if queststatus ~= 1 then

doPlayerSendTextMessage(cid,22,"You have found a present.")

doPlayerAddItem(cid,1990,1)

setPlayerStorageValue(cid,100,1)

else

doPlayerSendTextMessage(cid,22,"It is empty.")

end

end

return 1

end

[CorpsCool 0]

CADE OS CREDITOS

usuarios alertado

suspenço por 1 hora

[Visitante xbowaxx]

ainda nao acho justo oq fez

so porque minha mf rune eh melhor q a sua ;S

[suboras 0]

Muito rox msm~ eh estilo um "invasion script", rox a lot parabens manow....

[colex 8]

Muito rox msm~ eh estilo um "invasion script", rox a lot parabens manow....

 

<{POST_SNAPBACK}>

 

 

tal como vc falou na pinga

essa actions é 0% by xbowaxx, ele só se deu u trabalho de ir nu [Retirado] copiar

nem colocou créditos :getlost:

[Pista 0]

Eh soh coloka isso, muda as cordenaadas e coloka alanvanca e os pisim q sobe e desce q tah prontu a naihi?

[tibiaa4e 86]

mto rox

uso no meu server

script de genio

[Lukituz 3]

Desculpe, mas não vou traduzir as variáveis, quem não entender inglês não sei nem o que faz jogando tibia.

Ui como ele é bom, sabe falar ingles.

[38933893 0]

daora manim... um dia aew se eu pricisa usso vlwss

 

[ArthurFavilla 6]

JaUm~, posts do tipo do seu, sem conteúdo algum, são considerados flood, portanto tome mais cuidado com o que você vai postar da próxima vez.

 

Reportado :button_cancel:

[Henrique Moura 193]

Arthur

Dependendo do caso é considerado flood, o JauM só quis elogiar, e acho, que pela data de registração e a quantidade de posts a inteção dele não foi floodar.

Mesmo assim, aqui fica o aviso JaUm111.

Abraços.

[\Mattheus ~* 7]

Nossa, excelente script nunca tinha visto uma Anihilator desse tipo, acho que melhorou é muito não vai ter mais que se preocupar com cada posição e outras coisas.

 

Excelente trabalho, é obrigado por trazer seu conteúdo ao XTibia.com

 

Abraços.