Tudo que lano postou
-
[AJUDA] Criando Ot Com Net Sem Fio ! ! !
É so vc abrir as portas 7171 é 7172 nele em Forwarding>Virtual Servers>add new... o resto ja da pra ver depois
-
[pedido] !spells para cada vocaçao
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
-
[Tutorial]Fazendo Um Tradutor ,wiki,dicionario, etc... no delphi
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!
-
[ERRO EM CASAS] House entry not set for: Forgoten Headquarter
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.
- Fazendo um programa DDos Attack em Delphi
-
Fazendo um programa DDos Attack em Delphi
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
- Lanos Bot Atualizado
- Lanos Bot Atualizado
-
Lanos Bot Atualizado
@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.
- Lanos Bot Atualizado
-
Lanos Bot Atualizado
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 .
-
[PEDIDO] Mais exp para WoE
Acho que vc deveria usar setPlayerExtraExpRate ao inves de vc usa doPlayerSetExperienceRate.
-
[PEDIDO] Como fazer um sqm onde eu use PICK e surja um buraco
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!!!
-
[pedido] Como Criar Spells Novos e aparencia Nova
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
-
Game of Thrones - As Cronicas de Gelo e Fogo
Projeto bem bacana mesmo vai ficar irado doido pra jogar . Reputado +
- (resolvido) [Duvida ou Pedido]Iten que não pode se mexer
-
Dano muito alto!
Estao sim so falta vc ageita a de paladin e royal paladin.
-
Dano muito alto!
ali em distDamage="1.3" na vocasao de paladin vc diminui deixa 1.1 ou 1.0 normal
-
[pedido]Bug acc manager
Amostra ai seu vocation.xml pramin da uma olhada nele.
-
como deixar a luz 100% ?
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
-
Itens iniciais não funcionam
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"/>
-
[Spell] Possuir player ou creatura é controlala por x tempo
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
- The Forgotten Server Erro
-
Erro Sqlite
Eae Fmz? È so vc baixa o sqlitestudio-2.0.26 o mais recente.
-
(resolvido) Servidor pokemon online dúvida
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.