Alienbear

Olá pessoa, hoje vim trazer pra vocês um script bem requisitado que inclusive é vendido por alguns scripters. Algumas versões "pioradas" dessse script podem ser encontradas em servidores cópias do Fox World porém nenhum desses scripts chegará aos pés desse daqui que foi arrumado por mim.
Eu não sou o criador do Script, eu peguei qualquer um na internet e só fui arrumando e adicionando coisas que as pessoas reclamavam que não tinha.
O cara que criou a versão que eu editei é esse daqui:

Não vou me prolongar e nem falar mal da versão do Roksas, apenas saibam que eu editei ela praticamente inteira e que agora está 100%.

Aqui tem um pequeno vídeo de como funciona o evento:
 
 

Explicação: Gran Castle é um evento para ser feito sozinho ou com a guild, há um limite configurável no script de membros que podem entrar da mesma guild. Em dias determinados é aberto o evento e os players podem entrar ao falar com o NPC Melkrapo. Uma vez dentro do castelo os players batalharão para subir os andares e chegar até a Gran Tower, um monstro lendário que dará glória para aqueles que o derrotarem. Será que você é capaz? Instale no seu server e descubra! Um evento para redefinir o conceito de PVP e onde o seu maior inimigo serão seus semelhantes.


Sem mais delongas vamos começar  a instalar esse monstrinho.. porque ele é grande pra caralho.
 
 
 


Agora crie um arquivo em creaturescripts\scripts chamado Gran Tower.lua e adicione o seguinte:

em data\lib crie um arquivo chamado 046-Gran Tower.lua e adicione o seguinte dentro dele:
Agora voltando aos creaturescripts crie um arquivo em scripts chamado Gran Aura.lua e adicione:


E um arquivo chamado Barrier.lua na mesma pasta com o seguinte conteúdo:
Agora em globalevents\globalevents.xml adicione a seguinte linha:
<globalevent name="Gran Tower" interval="60" event="script" value="Gran Tower.lua"/> E adicione o script associado em globalevents\scripts com o nome de Gran Tower.lua:
Agora na pasta monster procure o seu monsters.xml e adicione essas duas linhas:
<monster name="Gran Tower" file="8.4/Gran Tower.xml"/> <monster name="Barrier" file="8.4/barrier.xml"/> Feito isso crie os monstros na pasta data\monster\8.4:
O primeiro se chama barrier.xml e deverá conter:


O segundo se chamará Gran Tower.xml e deverá conter:
Agora vamos para NPC, vá em data\npc e crie um arquivo chamado Melkrapo.xml com o seguinte conteúdo:


Agora em npc\scripts crie um arquivo chamado Melkrapo.lua e adicione o seguinte:

 
Agora partindo pra spells vá em data\spells e adicione no spells.xml essas linhas:

Hoje vim trazer à pedidos uma spell do League of Legends que é a chain Lightning do personagem Ryze:

Aqui tem um vídeo explicativo: 


Teoricamente está idêntico porém não tive a chance de testar então vou postar aqui e esperar que vocês me falem sobre os erros que podem dar (apesar de eu achar que não vai dar nenhum)

Crie um arquivo em data\spells\scripts chamado chainlight.lua e coloque isso dentro dele:


E agora no spells.xml:
<instant name="TK" words="chainlight" lvl="8" manapercent="8" maglv="15" prem="0" exhaustion="1500" range="4" needtarget="1" needlearn="0" event="script" value="especiais/chainlight.lua"> </instant> Qualquer duvida postem aí, e se gostou da spell é só clicar em "gostei". Vou dormir agora que faz umas 20 horas to acordado scriptando pro tk auheuha flw pra vcs

EDIT: Troquei o arquivo, a outra versão estava bugada então refiz do 0 e agora está funcionando.

EDIT2: Se você usa a New Lib ela já possui uma função pra essa spell então apenas use esse arquivo aqui:

Hoje vim trazer uma spell que eu considero muito legal que eu tenho no meu servidor ja faz alguns meses e esqueci completamente de postar haha

Trata-se de nada mais nada menos que uma troca entre dois personagens, eles trocam de posição e de outfit confundindo lindamente os adversários.
Não tenho gif da spell e nem imagem pq to com uma baita preguiça e daqui a 8 minutos eu tenho que ir pra faculdade então testem aí porque é bem legal essa spell. Ps: só funciona em players.

Instalando: Crie um arquivo chamado swap em data\spells\scripts\especiais que seja com extensão .lua e coloque isso dentro dele:




e no spells.xml:
<instant name="Swap" words="swap" lvl="23" mana="25" range="1" needtarget="1" params="1" exhaustion="3000" blockwalls="1" needlearn="0" event="script" value="especiais/swap.lua"> </instant>
Para usá-la basta dizer swap "nome do player e tem que estar à 1 sqm de distancia dele. Você irá trocar de posição com ele e ambos trocarão de outfit, confundindo os outros players.
 

substitui tudo abaixo de function onUseWeapon por isso daqui:
 
function onUseWeapon(cid, var) if getPlayerStorageValue(cid, config.storageativ) >= 1 then doCombat(cid, xCombat, var) end if getPlayerStorageValue(cid, config.storageativ2) >= 1 then doCombat(cid, xCombat2, var) end if getPlayerStorageValue(cid, config.storageativ3) >= 1 then doCombat(cid, xCombat3, var) end if getPlayerStorageValue(cid, config.storageativ4) >= 1 then doCombat(cid, xCombat4, var) end if getPlayerStorageValue(cid, config.storageativ5) >= 1 then doCombat(cid, xCombat5, var) end return true end

Fala galerinha do T.K
 
Pode não ser muito útil oque vim trazer hoje, porem estou trazendo porque algumas pessoas tem duvidas de como criar um script com mais de um IF e um else para cada IF...
 
Aprendi com meu amigão xWHITEWOLF
 
Vamos lá...

 
local lvl = 3300 local moeda = 9971 local stg = 97931 function onUse(cid, item, frompos, item2, topos) if getPlayerLevel(cid) >= lvl then if getPlayerItemCount(cid, moeda) >= 1 then if getPlayerStorageValue(cid, stg) >= 0 then doSendMagicEffect(getCreaturePosition(cid), 39) doCreatureSay(cid, "Você tem level, moeda e storage.", TALKTYPE_ORANGE_1) else doSendMagicEffect(getCreaturePosition(cid), 3) doCreatureSay(cid, "Você não tem STORAGE.", TALKTYPE_ORANGE_1) end else doSendMagicEffect(getCreaturePosition(cid), 3) doCreatureSay(cid, "Você não tem MOEDA.", TALKTYPE_ORANGE_1) end else doSendMagicEffect(getCreaturePosition(cid), 3) doCreatureSay(cid, "Você não tem LEVEL.", TALKTYPE_ORANGE_1) end return TRUE end

 
"IF" representa "SE" "THEN" representa "ENTÃO" "ELSE" representa "SE NÃO ou OUTRO" "END" representa "FIM" explicação: if 1 if 2 if 3 else3 end else2 end else1 end Ou seja... if 3 esta dentro do if 2 e ambos estão dentro do if 1 Logo o primeiro else tem que fechar o if 3, o segundo else fecha o if 2 e o ultimo vai fechar o primeiro if Nessa ordem. Se tiverem mais alguma duvida só perguntar. Se alguém tiver duvidas por favor comente e eu tentarei ajudar. Abraços!

Tenta assim: 
if(param == "skilldistance") then local buff = getCreatureCondition(cid, CONDITION_ATTRIBUTES) if not isPaladin(cid) and not buff and getPlayerSkillLevel(cid, SKILL_DISTANCE) >= 350 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Somente Paladins podem comprar skill de distance.") else if getPlayerItemCount(cid, 9971) >= 1 then local pid = getPlayerGUID(cid) local distance = getPlayerSkillLevel(cid, SKILL_DISTANCE) doPlayerRemoveItem(cid, 9971, 1) setPlayerStorageValue(cid, 11548, os.time()+0) doRemoveCreature(cid) db.executeQuery("UPDATE `player_skills` SET `value` = " .. (distance + 1) .. ", `count` = 0 WHERE `skillid` = 4 and `player_id` = " .. pid .. ";") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não possui a quantidade necessária para comprar.") end end return true end Se não der experimenta trocar isso: local buff = getCreatureCondition(cid, CONDITION_ATTRIBUTES)
por isso  local buff = getCreatureCondition(cid, CONDITION_PARAM_SKILL_DISTANCEPERCENT)

se tem a função getResets é mais fácil ainda: local percent = getPlayerMaxHealth(target)+(getResets*50)/10 -- tira 10% da vida + quantidade de resets *50. Se o cara tiver 10 resets vai ser 10% da vida+ 500.

O do monstros muito que provavelmente é só pelas sources, a menos que você crie magias de ataque que removem % da vida e coloquem os monstros pra só usarem elas :DD;

No caso de uma magia de healing vc pode criar as formulas de min e máximo e colocar pra multiplicar o math random disso por getResets+1 (o +1 serve pra não bugar caso o player tenha 0 resets)

Olá Galerinha do bem beleza?
 
Venho hoje exclusivamente trazer ao TibiaKing um Exelente Website para vocês que pretendem abrir um otserver porem ta sem base de gesior, Eu pessoalmente prefiro a do Victor Fasano, Porem pra quem quem preguiça de editar algumas paginas que já existem nesse gesior eu recomendo, ele atualmente é vendido por 50R$ em um site de vendas de Otserv.
 
 
 
#Informações:
 
- Página donate com mais de 4 formas de pagamento (Visual tibia.com)
- Página de criar account 2 em 1 
- Visual arrojado e atualizado versão 2013, com diversas edições de layout;
- Whoisonline mostrando outfit e addons em tempo real 
- Integração com a rede social Facebook 
- Páginas de ranking e guild (Visual tibia.com) 
- Página de shopping configurada (toda base pronta para você já começar vendendo) 
- Visão de IP (Local na página inicial onde adicionamos o IP) 
- Top level box (Mostra os 5 top exp. ao lado direito do site na página inicial) 
 
Um Exemplo do site é usado nesse ot abaixo \/
 

 
 
 
Download Aqui
 
 
Creditos 
 
Gesior PL
 
Gustavo Ferreira (Compartilhar com Fórum)
 
Favor não poste em outro fórum sem os devidos créditos!

Vá na sua pasta mods e abra customspells.
 
Ache essa linha:
<!-- Custom Spells --> <instant name="Apocalypse" words="exevo mas lux" lvl="40" manapercent="60" exhaustion="2000" needlearn="0" event="script" value="customspells/apocalypse.lua"> <vocation id="1"/> <vocation id="5"/> </instant> E troque por esta:
<!-- Custom Spells <instant name="Apocalypse" words="exevo mas lux" lvl="40" manapercent="60" exhaustion="2000" needlearn="0" event="script" value="customspells/apocalypse.lua"> <vocation id="1"/> <vocation id="5"/> </instant> --> O que foi feito? Só adicionei uma tag de comentário. Em que vai mudar isto? Essa magia da conflito com a magia Ultimate.lua que tem na pasta spells/scripts/attack/ultimate.lua.
 
Faça isso e veja se funciona, comigo funcionou! 

Se eu não me engano, unit_16 é um unsigned integer de 16 bits, cujos valores variam de 0 a 65535. tente trocar para uint_32 ou uint_64.

Na verdade ele fica com "slots extras" de hp/mana. Está tudo normal
 
Creio que para mostrar a quantidade correta de mana/hp somente mexendo no client.

function onUse(cid, item, fromition, itemEx, toPosition) if(param == '') then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nMana atual: " .. getCreatureHealth(cid) .. "\nMana máxima: " .. getCreatureMaxHealth(cid) .. "") return true end   if getPlayerSex(cid) == 51 or getPlayerSex(cid) == 52 then local pid = getPlayerByNameWildcard(param) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O ninja com o nome " .. param .. " não esta online ou não existe.") return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nmana de [ " .. getCreatureName(pid) .. " ] atual: " .. getCreatureHealth(pid) .. "\nmana de [ " .. getCreatureName(pid) .. " ] máxima: " .. getCreatureMaxHealth(pid) .. "") return true else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Apenas ninjas dos clans 51 e 52 podem utilizar este comando para visualizar informações de outros jogadores.") return true end end

Então amigo, ai está, da uma testada ok? pq nao tenho servidor 7.80.
 
function onUse(cid, item, fromPosition, itemEx, toPosition) if isPlayer(cid) == true then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nMana atual de [" .. getCreatureName(cid) .. "]: " .. getCreatureMana(cid) .. "\nMana máxima de [" .. getCreatureName(cid) .. "]: " .. getCreatureMaxMana(cid) .. "") return true end end

Estou aqui para postar um pouco do meu mapping, entrei a pouco nesta area... Comentem e critiquem... ATT 
 
 

 
 
Agora parei pra mecher mais um pouquinho, por favor comentem.
 

Não chei uma área adequada para postar, então vai aqui mesmo....

Olá King Tibianos



Quanto tempo faz que vocês não jogam um servidor viciante?
Um servidor que desafia suas habilidades;
Um servidor que não é apenas diversão;



Que você tem o compromisso de vencer seus objetivos.



Sim, eu falo daquela época, na qual entravamos em um servidor e não conseguíamos parar.
Em que todo dia, era um novo dia...
Em que as guerras nos faziam chorar de tão lindos os combos;



Onde está esse sentimento, esse vicio, esse poder todo?



AlienBear está se auto construindo para te abduzir a um mundo novo e reencontrar aquele sentimento de entrar na sua conta dia após dia com aquele sorriso no rosto de ter conseguido conquistar tudo oque você sempre desejou.





Então hoje apresento o inovador; conquistador; viciante; elaborado...



Projeto 9.10:








O servidor que vai trazer ao seu reencontro o verdadeiro OTS.



E nesse projeto busco além de incentivar o verdadeiro guerreiro, nunca deixar que se perca na solidão e desamparado na luta contra o mal pois no AlienBear "tudo no fim acaba bem, e se não estiver bem... é porque ainda não é o fim."








Oque há no projeto?




Sistemas: Reset system com look e stages (com vantagens para premmium acc)



Vip system toda por premmium acc (comprada por moedas do site que são points)



Lottery System



Alien event system (parecido com zombie event)



War of Emperium



Shop system = Comandos -> !saldo;!sacar;!depositar (retira premium points do jogador e adiciona moedas do site)



Shop system = Itens -> Todos os atributos, itens, e objetos a venda serão encontrados no teleport shopping. obs: será



desenvolvido com um tempo um npc que venderá os mesmos. (no momento serão comprados por TILES = pisos



especiais obtendo o item nescessario e sua quantidade.)



Skill system = sistema de compra de skills e magic level por vocação (skill: 350 max, magic: 200 max)



Nova vocação chamada = 'Soul' promotion = 'King soul'



Reset pelo site = Incompleto.



Pagseguro automatico = Incompleto.



Sleep monsters = Monstros agora dormem se os jogadores estiverem 5 sqm de distancia (desativado)



Npc name system muda o nome do jogador por moedas do site.



Prison system = Jogadores que não obedecerem e forem power abuser serão enviados automaticamente por 1 hra a



prisão.












Obs: Sistemas foram feitos todos próprios,



baseados na ideia do sistema de reset do RADBR, mais a intenção e diferenciada 100%









Quer participar?



Estou precisando de um mapper bom e responsável.



Um desenvolvedor (programador) em php tem que ser bom. = podemos negociar valores...



Sou scripter porem seria ótimo ter mais um para me ajudar.



E se alguém quiser vaga de idealizador do projeto tem que no minimo ser scripter ou mapper.




Formulário



Nome real:



Apelido de equipe: (pode inventar na hora)



Cargo:



Msn:



Porque quer entrar na equipe?:



obs: mostrar seus trabalhos pelo msn.












Topico criando por lucas severo.