Ir para conteúdo

SkyLigh

Lorde
  • Total de itens

    2183
  • Registro em

  • Última visita

  • Dias Ganhos

    23

Tudo que SkyLigh postou

  1. duvida sanada reportado Para um superior
  2. SkyLigh

    [Pedido] Script

    Local incorreto reportado Para um superior certo seria em Pedidos e duvidas de scripting .
  3. duvida sanada reportado Para um superior
  4. ja respondi nesse tópico e o mesmo erro . título irregular reportado para um superior
  5. seu templo nao existe. va no seu rme / map / edit towns / e clicke em add e poem o nome da city e dps a pos do templo .
  6. acontece que erro n sai nenhum comando ou sai uma msg no default ?
  7. Oks . http://www.xtibia.com/forum/topic/190384-vip-345-ajudem/page__p__1299738#entry1299738
  8. com cast system . http://www.xtibia.com/forum/topic/196100-global-full-960-cast-system-100-trainer-offline-100/
  9. usa o talkaction assim function onSay(cid, item, position) if getPlayerStorageValue(cid,22451) >= 1 then return doPlayerSendCancel(cid,"Sorry you have vip") end doPlayerRemoveItem(cid,11192,9000) setPlayerStorageValue(cid,22451,1) doPlayerSendTextMessage(cid,27,"You received vip permanente") doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF) return TRUE end local id = 1234 -- id do item if getPlayerItemCount(cid,id) then doPlayerSendTextMessage(cid,27,"Sorry , you no have item") return true end
  10. SkyLigh

    Lol Pic's

    ahuahuahuahuahuahua .. tinha que por em uma pic do piu - piu
  11. Local incorreto reportado Para um superior script . local bless = {1, 2, 3, 4, 5} local cost = 80000 function onSay(cid, words, param) for i = 1, table.maxn(bless) do if(getPlayerBlessing(cid, bless[i])) then doPlayerSendCancel(cid, "Voceja tem todas as bless.") return TRUE end end if(doPlayerRemoveMoney(cid, cost) == TRUE) then for i = 1, table.maxn(bless) do doPlayerAddBlessing(cid, bless[i]) end doCreatureSay(cid, "You are now blessed!" ,19) doSendMagicEffect(getPlayerPosition(cid), 49) else doPlayerSendCancel(cid, "Voce precisa de 80k para a bless.") end return TRUE end
  12. SkyLigh

    Entendendo .lua

    Olá galera do xtibia , hoje estou trazendo um tutorial para vocês que querem entender a linguagem.lua Como quase todos ja viram o topico do @LuckOake que e aprendendo a scriptear Link : http://www.xtibia.com/forum/topic/196714-aprendendo-a-scriptear/page__fromsearch__1 Entendendo A Linguagem.lua Então vamos aprender a linguagem . Abaixo irei amostrar todos os significado do ((if , end , else , elseif , then , and)) traduzido para o português if - Se then - Então end - Fim else - senão elseif - senãose and - e [/code] [size=6][color=#0000cd] Functions Iniciais De Um Script[/color][/size] Agora irei ensina-los qual e as functions certas para iniciar um script function onUse(cid, item, frompos, item2, topos) -- Action function onLogin(cid) -- so se for usa alguma tag no login.lua utilize essa function ela serve para creaturescripts. function onAdvance(cid, skill, oldLevel, newLevel) -- creaturescripts function onSay(cid, words, param) -- talkactions function onStepIn(cid, item, pos) -- movements Funções explicadas : http://www.xtibia.com/forum/topic/99662-pasta-data-funcoes-em-lua/ Funções não explicadas : http://www.xtibia.com/forum/topic/138081-lualista-de-funcoes/ Estudando Sobre If nossa primeira estrutura de controle e o if, como em todas as linguagens de programação, ela e uma estrutura que introduz um desvio condicional ou seja, um desvio de execução natural do programa Em outras palavras, se a condição dada pela expressão for satisfatória, será executado um bloco de comandos, caso a condição não seja satisfatória, o bloco de comando será ignorado. Alem do if temos seu complemento que e chamado de ELSE. Essa expressão complementa o if, fazendo com que seja executado caso a expressão seja a negação da expressão do if. No caso, caso a verificação seja falsa (quando lua não e 1) ele pulará o que tem depois do then mas irá parar no else e executara o que tem depois do else. Diferente do IF, o ELSE não pode ser colocado separado de um IF, ou seja, para usar um ELSE é necessário ter um IF anteriormente, podendo ser junto como um ELSEIF fazendo quem que outra expressão seja executada em caso de um retorno contrário à expressão. os ELSEIF fornecem um métodos mais conveniente para verificar muitas alternativas em uma instrução. Formalmente equivale aos comandos IF-THEN-ELSE-IF-THEN aninhados, mas somente necessita de um END, que serve para fechar o nosso "IF" Créditos Skyligh 90 % ( pela criação e postagem ) MrCarta 10 % ( pelo pedido do tutorial )
  13. Veja esse http://www.xtibia.com/forum/topic/189017-anti-account-manager-mage-bomb-crash/
  14. local FOODS = { ITEM_FOOD_MEAT, ITEM_HAM, ITEM_FOOD_GRAPE, ITEM_FOOD_APLE, ITEM_FOOD_BREAD, ITEM_FOOD_ROOL, ITEM_FOOD_CHEESE } function onCastSpell(cid, var) local size = table.maxn(FOODS) if (doPlayerAddItem(cid, FOODS[math.random(1, size)])) then doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE) doSendMagicEffect(getThingPosition(cid), CONST_ME_POFF) return false end if(math.random(1, 100) > 50) then doPlayerAddItem(cid, FOODS[math.random(1, size)]) end doSendMagicEffect(getThingPosition(cid), CONST_ME_MAGIC_GREEN) return true end
  15. SkyLigh

    Anti Magebomb

    http://www.xtibia.com/forum/topic/145582-anti-mass-login-anti-mage-bomb-860/
  16. use assim. local greatHealthPot = 7591 local greatManaPot = 7590 local strongHealthPot = 7588 local strongManaPot = 7589 local healthPot = 7618 local manaPot = 7620 local greatEmptyPot = 7635 local strongEmptyPot = 7634 local config={ removeOnUse = "no" -- remover quando usar ("yes" or "no") } function onUse(cid, item, frompos, item2, topos) if(item.itemid == healthPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatHealth(0, cid, COMBAT_HEALING, 170, 230, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doTransformItem(item.uid, emptyPot) elseif(item.itemid == manaPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatMana(0, cid, 170, 230, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doTransformItem(item.uid, strongHealthPot) elseif(item.itemid == strongHealthPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatHealth(0, cid, COMBAT_HEALING, 300, 500, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doTransformItem(item.uid, strongEmptyPot) elseif(item.itemid == strongManaPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatMana(0, cid, 300, 500, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doTransformItem(item.uid, greatHealthPot) elseif(item.itemid == greatHealthPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatHealth(0, cid, COMBAT_HEALING, 500, 800, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doTransformItem(item.uid, greatEmptyPot) elseif(item.itemid == greatManaPot) then doSendAnimatedText(getPlayerPosition(cid), "Aaaah...", TEXTCOLOR_ORANGE) if(doTargetCombatMana(0, cid, 500, 800, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end noTransformItem (item.uid, greatEmptyPot) return TRUE end if (config.removeOnUse == "no") then doRemoveItem(item.uid, 1) end end
  17. @CLEBERADM você posto o mesmo script do tópico ! tente assim . local bless = {1, 2, 3, 4, 5} local cost = 80000 function onSay(cid, words, param) for i = 1, table.maxn(bless) do if(getPlayerBlessing(cid, bless[i])) then doPlayerSendCancel(cid, "Voceja tem todas as bless.") return TRUE end end if(doPlayerRemoveMoney(cid, cost) == TRUE) then for i = 1, table.maxn(bless) do doPlayerAddBlessing(cid, bless[i]) end doCreatureSay(cid, "You are now blessed!" ,19) doSendMagicEffect(getPlayerPosition(cid), 49) else doPlayerSendCancel(cid, "Voce precisa de 80k para a bless.") end return TRUE end
  18. va em data / talkactions / scripts / e procure por buypremium.lua
  19. Kamikashi reportado por flood e double post !
  20. SkyLigh

    Npc

    veja este tópico http://www.xtibia.com/forum/topic/190442-npc-guild-master/
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...