Antiemoxml

Creditos:
Antiemoxlr
Sebasbe
Nicekid
 
Bom apos Muito tempo temtando fazer Um Aol para red skulls finalmente consegui
 
Bom vamos ao que enteresa
o script e em Creature Scripts
 
Primeiro
 
Va em creatureScripts/xml
e coloque

<event type="preparedeath" name="forever amulet" event="script" value="aol.lua"/>
 
depois va em Creaturescripts/Scripts
 
crie uma pasta chamada Aol
 
e coloque isto

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller) if (getCreatureSkullType(cid) >= 4) then if (getPlayerSlotItem(cid, CONST_SLOT_NECKLACE).itemid == 2196) then doCreatureSetDropLoot(cid, false) end return true end return true end
 
agora va na pasta Login
e adicione isso

registerCreatureEvent(cid, "forever amulet")
 
Obs: Nos items Xml procure o Id 2196 e coloque isto

<attribute key="preventDrop" value="1" />
 
Bom ai esta o Script do aol pra red skull fasa Bom proveito
a Se for posta em algum Lugar numca se esquesa dos creditos

function onCastSpell(cid, var) local sangue = getCreaturePosition(cid) local target = getCreatureTarget(cid) local player = getCreaturePosition(target) local exaust = 1 local time = 0 local mana = -90 if target == isMonster or isCreature then setPlayerStorageValue(cid, storage, os.time()+exaust) doCreatureAddHealth(cid,250, player) doCreatureAddHealth(target,-250, sangue) doPlayerAddMana(cid,mana) end end
eu coloquei o exaust no script por q ele n tinha exasted
 
 
Gostou de +REP

function onCastSpell(cid, var) local sangue = getCreaturePosition(cid) local target = getCreatureTarget(cid) local player = getCreaturePosition(target) local exaust = 1 local time = 0 local mana = -90 if target == isMonster or isCreature then setPlayerStorageValue(cid, storage, os.time()+exaust) doCreatureAddHealth(cid,250, player) doCreatureAddHealth(target,-250, sangue) doPlayerAddMana(cid,mana) end end
eu coloquei o exaust no script por q ele n tinha exasted
 
 
Gostou de +REP

function onCastSpell(cid, var) local sangue = getCreaturePosition(cid) local target = getCreatureTarget(cid) local player = getCreaturePosition(target) local exaust = 1 local time = 0 local mana = -90 if target == isMonster or isCreature then setPlayerStorageValue(cid, storage, os.time()+exaust) doCreatureAddHealth(cid,250, player) doCreatureAddHealth(target,-250, sangue) doPlayerAddMana(cid,mana) end end
eu coloquei o exaust no script por q ele n tinha exasted
 
 
Gostou de +REP

lib/vocations
 
se não funcionar n sei o problema me desculpe mas pelomenos tentei

function onCastSpell(cid, var) local sangue = getCreaturePosition(cid) local target = getCreatureTarget(cid) local player = getCreaturePosition(target) local exaust = 1 local time = 0 local mana = -90 if target == isMonster or isCreature then setPlayerStorageValue(cid, storage, os.time()+exaust) doCreatureAddHealth(cid,250, player) doCreatureAddHealth(target,-250, sangue) doPlayerAddMana(cid,mana) end end
eu coloquei o exaust no script por q ele n tinha exasted
 
 
Gostou de +REP

tenho 1 ideia pra você coloca todos os items exemplo sem cap coloca o maximo de cap 6 so as pokebolas você coloca cap 1 assim vai ter o limite de 6 pokebolas ^^

Este script funciona da seguinte maneira:
Quando o player logar aparecera uma msg em azul no default dele falando quantos chars com o mesmo ip ao dele estão logados, e caso esse numero ultrapasse de 5, o player não conseguira logar esse 6° character ...
 
Vamos começar:
 
Acesse PastaDoServ/Data/CreatureScripts/CreatureScripts.xml
adicione esse linha ->
 
Em seguida entre -> PastaDoServ/Data/CreatureScripts/Scripts
Adicione um arquivo chamado "playercheck.lua", dentro desse arquivo cola o seguinte codigo
 
 
O numero 5 que esta em Vermelho nas duas linhas de codigo representa o numero maximo de player com o mesmo ip que podem estar logados simultaneamente, para alterar a quantidade de player com mesmo ip iguais, mude os 2 numeros em vermelho para valores iguais na quantia desejada...

tenho 1 ideia pra você coloca todos os items exemplo sem cap coloca o maximo de cap 6 so as pokebolas você coloca cap 1 assim vai ter o limite de 6 pokebolas ^^

[8.54] The Forgotten Server 0.3.6pl1 (Crying Damson)


 
http://otland.net/f18/8-54-forgotten-server-0-3-6pl1-crying-damson-59924-print/
 
Abraços

Ta ai como pedido o video do meu cut system =D espero que gostem, desculpa pela qualidade do video é que nao sou muito bom nisso mais no próximo script colocarei melhor =D
Lembrando o item que será cortado é o 2767
Cut system baseado no script de thalia
Primeiro de tudo va em data/actions/script, copie um arquivo lua qualquer e renomeie para cut após isso coloque isso dentro

Feito isso va em data actions e coloque isso
<action itemid="2550" event="script" value="cut.lua" allowfaruse="1"/>
Lembrando ele nao funciona junto com o rock smash mais se eu conseguir fazer os dois funcionarem juntos eu posto aki
CRÉDITOS A THALIA E DRAKYLUCAS POR COMEÇAREM COM ISSO
CASO TENHA ERROS ME AVISE COMEÇEI EM SCRIPT FAZ POUCO TEMPO
Gostou? Da +rep =D

seria isso
 
tag

Todos os scripts foram ATUALIZADOS
 
ChangeLog:

Agora voce nao precisara mais configurar em todos os scripts o "pokein e pokeout" somente na lib
Agora o HP nao aparece mais na description e voce pode mudala avontade usando a palavra chave "%pokename" pra representar o nome do pokemon.
Agora a pokebola continua apagada depois que o pokemon morre.
Ageitados pequenos bugs no fly.

Ops, erro bobo
 
tenta:
 

function onSay(cid, words, param) local cfg = {storage = 6666,monster = "Horse",speed = 600,lookType = 327,time = 600 * 6000 * 1000000} local summon = getPlayerStorageValue(cid, cfg.storage) function mosnter(cid) if (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then local m = doCreateMonster(cfg.monster, getCreaturePosition(cid)) doConvinceCreature(cid, m) setPlayerStorageValue(cid, cfg.storage, m) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You Can'Not Summon Your Creature In Pz Zone.") return TRUE end end if param:lower() == "go" then if summon <= 0 then mosnter(cid) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have already summoned a horse.") return TRUE end elseif param:lower() == "mount" then if isCreature(summon) then local outfit = getCreatureOutfit(cid) outfit.lookType = cfg.lookType doRemoveCreature(summon) doChangeSpeed(cid, cfg.speed) doSetCreatureOutfit(cid, outfit, cfg.time) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need to summon a horse.") end elseif param:lower() == "ride" then if summon > 0 then local outfit = getCreatureOutfit(cid) if outfit.lookType ~= cfg.lookType then doPlayerSendCancel(cid, "Sorry!") return TRUE if getTilePzInfo(getCreaturePosition(cid)) == 0 then doRemoveCondition(cid, CONDITION_OUTFIT) doChangeSpeed(cid, -cfg.speed) local m = doCreateMonster(cfg.monster, getCreaturePosition(cid)) doConvinceCreature(cid, m) setPlayerStorageValue(cid, cfg.storage, m) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You Can'Not Summon Your Creature In Pz Zone.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You're not riding a horse.") return TRUE end return TRUE end elseif param:lower() == "back" then if isCreature(summon) then doRemoveCreature(summon) setPlayerStorageValue(cid, cfg.storage, 0) else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You do not summoned a horse.") end else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.") end return TRUE end -- Modificado --

Creditos:
Antiemoxlr
Sebasbe
Nicekid
 
Bom apos Muito tempo temtando fazer Um Aol para red skulls finalmente consegui
 
Bom vamos ao que enteresa
o script e em Creature Scripts
 
Primeiro
 
Va em creatureScripts/xml
e coloque

<event type="preparedeath" name="forever amulet" event="script" value="aol.lua"/>
 
depois va em Creaturescripts/Scripts
 
crie uma pasta chamada Aol
 
e coloque isto

function onPrepareDeath(cid, lastHitKiller, mostDamageKiller) if (getCreatureSkullType(cid) >= 4) then if (getPlayerSlotItem(cid, CONST_SLOT_NECKLACE).itemid == 2196) then doCreatureSetDropLoot(cid, false) end return true end return true end
 
agora va na pasta Login
e adicione isso

registerCreatureEvent(cid, "forever amulet")
 
Obs: Nos items Xml procure o Id 2196 e coloque isto

<attribute key="preventDrop" value="1" />
 
Bom ai esta o Script do aol pra red skull fasa Bom proveito
a Se for posta em algum Lugar numca se esquesa dos creditos

data/xml/vocations.xml
 
Na vocation da second promotion mude:
 

needpremium="0"
 
Para:
 

needpremium="1"
 
O player ser kickado para o templo quando a premium acaba, tem que fazer um script de login na pasta creaturescripts.
 
Não sei fazer scipts, pede para alguém te ajudar.

Precisa de uma spell tipo "exori vis, mort, flam, etc... mas q empurra o player alvo "monstro" se tiver como me ajuda eu agradeço
 
 
Meu msn: Morus.darf@hotmail.com
 
versão 8.40
 
Spell q taca uns 4 sqms longe

Trago a vocês um pacote com magias do global, editada por Mindrage de um forum gringo...
 
Esse pacote contém muitas magias editadas e com efeitos muito bonito por sinal...
 
Screenshot:





 
Video das Magias:


 
 
Download em anexo
 
Link do Scan:
http://www.virustotal.com/pt/analisis/4b36fd1b8ee94655b9ec73d636cd81a8e969a95cc7428539bde701c3e730d8ef-1242489562
TFS spells Enchanted v1.12 (Bugfix).rar

<action actionid="***" script="***.lua"/>

<action actionid="***" script="***.lua"/>

local config = { Summon = "Rat" } doSummonMonster(cid, config.Summon)

Não tem mais nada para inventar...
 
Muito bom mesmo.
+REP