vinifariia

-------------------------------------------------------------------------------------------- ------------------------------------ Advanced Addon NPC ------------------------------------ -------------------------------- Script made by teh_pwnage --------------------------------- --------------- Special thanks to: mokerhamer, Xidaozu and Jiddo, deaths'life -------------- ------------------------------- Thanks also to everyone else ------------------------------- ------------------------------ NPC based on Evolutions V0.7.7 ------------------------------ -------------------------------------------------------------------------------------------- local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) -- OTServ event handling functions start function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end -- OTServ event handling functions end function creatureSayCallback(cid, type, msg) -- Place all your code in here. Remember that hi, bye and all that stuff is already handled by the npcsystem, so you do not have to take care of that yourself. if(npcHandler.focus ~= cid) then return false end preco = getPlayerLevel(cid)*3 bless = getPlayerBlessing(cid,1) vezes = getResets(cid) rubys = (getPlayerLevel(cid)*4000)*(vezes*30*4)/1000000 if msgcontains(msg, 'aol1') then selfSay('Você Deseja Comprar Uma Aol1 Por 50k?') talk_state = 1 elseif msgcontains(msg, 'aol2') then selfSay('Você Deseja Comprar Uma Aol2 Por 50kk?') talk_state = 2 elseif msgcontains(msg, 'aol3') then selfSay('Você Deseja Comprar Uma Aol3 Por 100kk?') talk_state = 3 elseif msgcontains(msg, 'gdsjghsjg') then selfSay('I can energyze your necklace for 50k, amulet for 100k or your magic amulet for 150k, do you want energyze?') talk_state = 4 elseif msgcontains(msg, 'bless') or msgcontains(msg, 'blessing') then selfSay('Bless a mortal? Hmm... Sure I can bless, but it will not be cheap, what do you say about ' .. preco .. 'k?') talk_state = 5 elseif msgcontains(msg, 'reset') then if vezes == -1 or vezes == 0 then selfSay('Reset a god? Hmm... First time? Ok, i will do it free this time!') talk_state = 6 else selfSay('Reset a god? Hmm... Sure I can, but it will not be cheap, what do you say about ' .. rubys .. ' ruby coins?') talk_state = 6 end elseif msgcontains(msg, 'job') then selfSay('I am a servent of Merlian!') elseif msgcontains(msg, 'offer') then selfSay('I can do an element item or energyze your element item, i only need all "necklace", "amulet" ou "magic" amulet, also can bless a little mortal and reset a god!') elseif msgcontains(msg, 'sell') then selfSay('I am not a merchant!') elseif msgcontains(msg, 'buy') then selfSay('I am not a merchant!') elseif msgcontains(msg, 'quest') then selfSay('Ha! You are only a novice!') elseif msgcontains(msg, 'mission') then selfSay('Ha! You are only a novice!') -- neck elseif talk_state == 1 then if msgcontains(msg, 'yes') then if getPlayerItemCount(cid,2160) >= 5 then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu um Elemental necklace.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,2160,10) doPlayerAddItem(cid,13682,1) talk_state = 0 else selfSay('You dont have this itens!') talk_state = 0 end end -- amulet elseif talk_state == 2 then if msgcontains(msg, 'yes') then if getPlayerItemCount(cid,13685) >= 50 then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu um Spirit Elemental amulet.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,13685,50) doPlayerAddItem(cid,13683,1) talk_state = 0 else selfSay('You dont have this itens!') talk_state = 5 end end elseif talk_state == 3 then if msgcontains(msg, 'yes') then if getPlayerItemCount(cid,13685) >= 100 then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu um Elemental magic amulet.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,13685,100) doPlayerAddItem(cid,13684,1) talk_state = 0 else selfSay('You dont have this itens!') talk_state = 5 end end -- energ elseif talk_state == 4 then if msgcontains(msg, 'yes') and getPlayerItemCount(cid,2197) >= 1 then if pay(cid,50000) then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu Energizou seu Elemental necklace.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,2197,1) doPlayerAddItem(cid,13682,1) talk_state = 0 else selfSay('You dont have this money!') talk_state = 0 end elseif msgcontains(msg, 'yes') and getPlayerItemCount(cid,2173) >= 1 then if pay(cid,100000) then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu Energizou seu Spirit Elemental amulet.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,2173,1) doPlayerAddItem(cid,13683,1) talk_state = 0 else selfSay('You dont have this money!') talk_state = 0 end elseif msgcontains(msg, 'yes') and getPlayerItemCount(cid,2125) >= 1 then if pay(cid,150000) then selfSay('Its all yours!') doPlayerSendTextMessage(cid,22,"Voce recebeu Energizou seu Elemental magic amulet.") doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,2125,1) doPlayerAddItem(cid,13684,1) talk_state = 0 else selfSay('You dont have this money!') talk_state = 0 end elseif msgcontains(msg, 'yes') and getPlayerItemCount(cid,2197) >= 0 and getPlayerItemCount(cid,2125) >= 0 and getPlayerItemCount(cid,2173) >= 0 then selfSay('You dont have this item!') talk_state = 0 end -- bless elseif talk_state == 5 then if msgcontains(msg, 'yes') then if bless then selfSay('You are already blessed my little mortal.') talk_state = 0 else if isPremium(cid) then if pay(cid,preco*1000) then selfSay('Receive this bless mortal, with the gods touch i bless you!') doPlayerSendTextMessage(cid,22,"Voce recebeu a benção de Isolda.") doPlayerAddBlessing(cid, 1) doPlayerAddBlessing(cid, 2) doSendMagicEffect(getPlayerPosition(cid),12) talk_state = 0 else selfSay('Sorry mortal, but you dont have this monney!') talk_state = 0 end else selfSay('Sorry but only can bless a mortal premmy.') talk_state = 0 end end end -- reset elseif talk_state == 6 then --rubys = (getPlayerLevel(cid)*4000)*(vezes*10)/1000000) if msgcontains(msg, 'yes') then if isPremium(cid) then if getPlayerLevel(cid) >= 500 then if getPlayerVocation(cid) >= 9 then --if pay(cid,(getPlayerLevel(cid)*4000)*(vezes*10)) then if getPlayerVocation(cid) == 13 then -- deuses if getPlayerLevel(cid) >= 510 then if getPlayerItemCount(cid,13685) >= rubys then selfSay('Welcome new god!') doPlayerSendTextMessage(cid,22,"Você resetou seu personagem.") health = getPlayerMaxHealth(cid) mana = getPlayerMaxMana(cid) doPlayerAbortExp(cid,getPlayerExperience(cid)) doPlayerIncExp(cid,4200) setPlayerMaxHealth(cid, (health/10)*(vezes+1)) doPlayerAddHealth(cid,(health/10)*(vezes+1)) setPlayerMaxMana(cid, (mana/45)*(vezes+13)) doPlayerAddMana(cid,(mana/45)*(vezes+13)) setPlayerMaxCapacity(cid,360) doPlayerAddMagicLevel(cid,30) doSendMagicEffect(getPlayerPosition(cid),12) doPlayerAddResets(cid,1) doPlayerRemoveItem(cid,13685,rubys) talk_state = 0 else selfSay('Sorry mortal, but you dont have this monney!') talk_state = 0 end else selfSay('Sorry, but only gods level 510 or above can do that!') talk_state = 0 end end if getPlayerVocation(cid) == 14 then if getPlayerLevel(cid) >= 510 then if getPlayerItemCount(cid,13685) >= rubys then selfSay('Welcome new god!') doPlayerSendTextMessage(cid,22,"Você resetou seu personagem.") health = getPlayerMaxHealth(cid) mana = getPlayerMaxMana(cid) doPlayerAbortExp(cid,getPlayerExperience(cid)) doPlayerIncExp(cid,4200) setPlayerMaxHealth(cid, (health/10)*(vezes+1)) doPlayerAddHealth(cid,(health/10)*(vezes+1)) setPlayerMaxMana(cid, (mana/45)*(vezes+13)) doPlayerAddMana(cid,(mana/45)*(vezes+13)) setPlayerMaxCapacity(cid,360) doPlayerAddMagicLevel(cid,30) doSendMagicEffect(getPlayerPosition(cid),12) doPlayerAddResets(cid,1) doPlayerRemoveItem(cid,13685,rubys) talk_state = 0 else selfSay('Sorry mortal, but you dont have this monney!') talk_state = 0 end else selfSay('Sorry, but only gods level 510 or above can do that!') talk_state = 0 end end if getPlayerVocation(cid) == 15 then if getPlayerLevel(cid) >= 510 then if getPlayerItemCount(cid,13685) >= rubys then selfSay('Welcome new god!') doPlayerSendTextMessage(cid,22,"Você resetou seu personagem.") health = getPlayerMaxHealth(cid) mana = getPlayerMaxMana(cid) doPlayerAbortExp(cid,getPlayerExperience(cid)) doPlayerIncExp(cid,4200) setPlayerMaxHealth(cid, (health/20)*(vezes+10)) doPlayerAddHealth(cid,(health/20)*(vezes+10)) setPlayerMaxMana(cid, (mana/25)*(vezes+7)) doPlayerAddMana(cid,(mana/25)*(vezes+7)) setPlayerMaxCapacity(cid,360) doPlayerAddMagicLevel(cid,2) doPlayerAddSkill(cid,4,25) doPlayerAddSkill(cid,5,25) doSendMagicEffect(getPlayerPosition(cid),12) doPlayerAddResets(cid,1) doPlayerRemoveItem(cid,13685,rubys) talk_state = 0 else selfSay('Sorry mortal, but you dont have this monney!') talk_state = 0 end else selfSay('Sorry, but only gods level 510 or above can do that!') talk_state = 0 end end if getPlayerVocation(cid) == 16 then if getPlayerLevel(cid) >= 510 then if getPlayerItemCount(cid,13685) >= rubys then selfSay('Welcome new god!') doPlayerSendTextMessage(cid,22,"Você resetou seu personagem.") health = getPlayerMaxHealth(cid) mana = getPlayerMaxMana(cid) doPlayerAbortExp(cid,getPlayerExperience(cid)) doPlayerIncExp(cid,4200) setPlayerMaxHealth(cid, (health/25)*(vezes+10)) doPlayerAddHealth(cid,(health/25)*(vezes+10)) setPlayerMaxMana(cid, (mana/15)*(vezes+6)) doPlayerAddMana(cid,(mana/15)*(vezes+6)) setPlayerMaxCapacity(cid,360) doPlayerAddSkill(cid,0,25) doPlayerAddSkill(cid,1,25) doPlayerAddSkill(cid,2,25) doPlayerAddSkill(cid,3,25) doPlayerAddSkill(cid,5,25) doPlayerAddMagicLevel(cid,2) doSendMagicEffect(getPlayerPosition(cid),12) doPlayerAddResets(cid,1) doPlayerRemoveItem(cid,13685,rubys) talk_state = 0 else selfSay('Sorry mortal, but you dont have this monney!') talk_state = 0 end else selfSay('Sorry, but only gods level 510 or above can do that!') talk_state = 0 end end if getResets(cid) <= 0 and getPlayerVocation(cid) >= 13 and getPlayerLevel(cid) >= 500 then setPlayerStorageValue(cid,7777,1) end if getPlayerVocation(cid) >= 9 and getPlayerVocation(cid) < 13 then -- semis if getPlayerItemCount(cid,6500) >= 25 then selfSay('Oh! Now you are a god!') if getPlayerVocation(cid) >= 9 and getPlayerVocation(cid) < 11 then doPlayerAddMagicLevel(cid,10) setPlayerMaxCapacity(cid,360) end if getPlayerVocation(cid) == 11 then doPlayerAddMagicLevel(cid,2) doPlayerAddSkill(cid,4,10) doPlayerAddSkill(cid,5,10) setPlayerMaxCapacity(cid,360) end if getPlayerVocation(cid) == 12 then doPlayerAddSkill(cid,0,10) doPlayerAddSkill(cid,1,10) doPlayerAddSkill(cid,2,10) doPlayerAddSkill(cid,3,10) doPlayerAddSkill(cid,5,10) setPlayerMaxCapacity(cid,360) end doPlayerSendTextMessage(cid,22,"Você evoluiu seu espírito a Deus.") doPlayerAbortExp(cid,getPlayerExperience(cid)) doPlayerIncExp(cid,4200) setPlayerMaxHealth(cid,185) doPlayerAddHealth(cid,185) setPlayerMaxMana(cid,35) doPlayerAddMana(cid,35) doPlayerSetVocation(cid, getPlayerVocation(cid)+4) doSendMagicEffect(getPlayerPosition(cid),12) doPlayerRemoveItem(cid,6500,25) talk_state = 0 else selfSay('Sorry, but you dont have the 25 Demoniac Essences!') talk_state = 0 end end else selfSay('Sorry, but only gods i can do that!') talk_state = 0 end else selfSay('Sorry, but only gods level 500 or above can do that!') talk_state = 0 end else selfSay('Sorry but only can reset a god premmy.') talk_state = 0 end end --end ------------------------------------------------ confirm no ------------------------------------------------ elseif msgcontains(msg, 'no') and (talk_state >= 1 and talk_state <= 34) then selfSay('Ok than.') talk_state = 0 end -- Place all your code in here. Remember that hi, bye and all that stuff is already handled by the npcsystem, so you do not have to take care of that yourself. return true end function teste(cid) end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) quero por para cobrar menos a cada reset, alguem sabe arruma isso ? ela ta cobrando muito caro para os reset

preciso de um comando que reinicia meu servidor sozinho caso ele caia( Auto restart) meu vps é windowns 2003 alguem poderia ajudar ??

tambem preciso disso o meu vps é windowns 2003

me diz que tem um erro: Couldn't stabilish conection with sql database!

Nome Fantasia do Script: Torneio pvp Como ele Vai Funcionar: Um npc cobra um taixa para os players se inscreverem no torneio e entram na sala de espera, ao dar o tempo de começar todos são teleportados para a sala pvp e o ultimo que sobrar ganha um premio. Qual a Finalidade: Testar a força dos players Urgência: Muita OBS: Tibia 7.92 (mapa Dragon SOuls)

quero um script que o play consiga tirar o utamo da outra pessoa ( exana vita) 7.92 o meu ta assim mais n funciona, ele n tira o utamo do play local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_POISON) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat2, COMBAT_PARAM_DISPEL, CONDITION_FIRE) local combat3 = createCombatObject() setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat3, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE) local combat4 = createCombatObject() setCombatParam(combat4, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat4, COMBAT_PARAM_DISPEL, CONDITION_EMO) local combat5 = createCombatObject() setCombatParam(combat5, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat5, COMBAT_PARAM_DISPEL, CONDITION_ENERGY) local combat6 = createCombatObject() setCombatParam(combat6, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat6, COMBAT_PARAM_DISPEL, CONDITION_REGEN) local combat8 = createCombatObject() setCombatParam(combat8, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat8, COMBAT_PARAM_DISPEL, CONDITION_INVISIBLE) local combat9 = createCombatObject() setCombatParam(combat9, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat9, COMBAT_PARAM_DISPEL, CONDITION_LIGHT) local combat10 = createCombatObject() setCombatParam(combat10, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat10, COMBAT_PARAM_DISPEL, CONDITION_FROZZEN) local combat11 = createCombatObject() setCombatParam(combat11, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat11, COMBAT_PARAM_DISPEL, CONDITION_DROWN) local combat12 = createCombatObject() setCombatParam(combat12, COMBAT_PARAM_AGGRESSIVE, 0) setCombatParam(combat12, COMBAT_PARAM_DISPEL, CONDITION_DRUNK) function onTargetCreature(cid, target) if isPlayer(target) == 1 then if getPlayerSlotItem(target, 9).itemid == 2204 or getPlayerSlotItem(target, 10).itemid == 13502 then doSendAnimatedText(getThingPos(target),"Dispel!",215) else doCombat(target, combat10, numberToVariant(target)) doCombat(target, combat6, numberToVariant(target)) doSendAnimatedText(getThingPos(target),"Dispel!",215) end end end setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature") function onCastSpell(cid, var) doCombat(cid, combat2, var) doCombat(cid, combat3, var) doCombat(cid, combat4, var) doCombat(cid, combat5, var) doCombat(cid, combat8, var) doCombat(cid, combat9, var) doCombat(cid, combat11, var) doCombat(cid, combat12, var) return doCombat(cid, combat, var) end

muito bom aonde fica os itens top? "itens vip e mana rune que enche mt ?

aonde fica a sala dos itens que compra com tokens ?

alguem tem mapa frozen hell ? to precisando, queria muito ele e nao consigo achar para baixar

alguem tem esse mapa aindaa ??????? queria muito ele gostaria desse servidor, alguem ainda tem ele ??? por favorrrr rsrs queria por online