Skydangerous

Até que fim em MOD Funcionalidade: O aol nunca some , ou seja forever AOL , muito bom para items vip. <?xml version="1.0" encoding="utf-8"?> <mod name="Red Skull Amulet" version="1.0" author="--" contact="--" enabled="yes"> <description><![CDATA[ Ele protege voce toda hora que morrer. ]]></description> <item id="10719" article="a" name="Forever Aol" override="yes" /> <event type="login" name="RedSkullAmulet_Login" event="buffer"><![CDATA[ registerCreatureEvent(cid, "RedSkullAmulet_Login") ]]></event> <event type="death" name="RedSkullAmulet_Login" event="script"><![CDATA[ function onDeath(cid, corpse, deathList) if (getPlayerSlotItem(cid, CONST_SLOT_NECKLACE).itemid == 10719) then if (getCreatureSkullType(cid) == SKULL_RED) then doCreatureSetDropLoot(cid, false) end end return true end ]]></event> </mod> Legenda: <item id="XXXX" article="a" name="XXX" override="yes" /> XXXX = O ID DO AMULETO OU O ITEM XXX = O NOME QUE VAI SER O ITEM (Pode Colocar Qualquer Coisa)

UHAHU. Esse script eu já li mais de 30x, pra intender cada passo.. é muito útil para criações de novos eventos. Que talvez irei fazer exclusivo

Isso ai, ta dando erro na hora de criptografar as senhas. Erro de php ai, ou algo do tipo..

Ele é feito em mod , ou seja 1000% mais facil de configurar que os demais. <?xml version="1.0" encoding="UTF-8"?> <mod name="Inquisition" version="1.0" author="Tommy" contact="[email protected]" enabled="yes"> <event type="login" name="inquisitionRegister" event="script"><![CDATA[ function onLogin(cid) registerCreatureEvent(cid, "Inquisition") return true end]]></event> <event type="kill" name="Inquisition" event="script"><![CDATA[ local config = { message = "Go into the teleporter in 3 minutes, else it will disappear.", -- Frase que vai aparecer apos matar o bicho timeToRemove = 180, -- Tempo para Remover o Teleporte em segundos teleportId = 1387, -- O ID do teleporte bosses = { -- Nome do Monstro, A posicao do Telporte, Aonde ele teleportara ["Ushuriel"] = { { x=1173, y=1141, z=12}, { x=1097, y=1214, z=12, stackpos=1 } }, ["Annihilon"] = { { x=1244, y=1297, z=12 }, { x=1187, y=1198, z=12, stackpos=1 } }, ["Hellgorak"] = { { x=1067, y=1307, z=13 }, { x=1192, y=1240, z=12, stackpos=1 } }, ["Madareth"] = { { x=1045, y=1130, z=13}, { x=1111, y=1240, z=12, stackpos=1 } }, ["Zugurosh"] = { { x=1126, y=1151, z=12 }, { x=1149, y=1213, z=12, stackpos=1 } }, ["Latrivan"] = { { x=1153, y=1196, z=13}, { x=1147, y=1244, z=12, stackpos=1 } } } } local function removal(position) if getThingfromPos(position).itemid == config.teleportId then doRemoveItem(getThingfromPos(position).uid) end return TRUE end function onKill(cid, target, lastHit) if lastHit == true then local position = getCreaturePosition(target) for name, pos in pairs(config.bosses) do if name == getCreatureName(target) then teleport = doCreateTeleport(config.teleportId, pos[1], pos[2]) doCreatureSay(cid, config.message, TALKTYPE_ORANGE_1) addEvent(removal, config.timeToRemove * 1000, pos[2]) doSendMagicEffect(pos[2], 10) end end end return TRUE end]]></event> <action fromuid="1300" touid="1308" event="script"><![CDATA[ if item.uid == 1300 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found robe of the underworld.") doPlayerAddItem(cid,8890,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1301 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Spellbook of Dark Mysteries.") doPlayerAddItem(cid,8918,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1302 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Fireborn Giant Armor.") doPlayerAddItem(cid,8881,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1303 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Master Archer's Armor.") doPlayerAddItem(cid,8888,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1304 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Royal Crossbow.") doPlayerAddItem(cid,8851,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1305 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found an emerald sword.") doPlayerAddItem(cid,8930,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1306 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a obsidian truncheon.") doPlayerAddItem(cid,8928,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1307 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a hellforged axe.") doPlayerAddItem(cid,8924,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end elseif item.uid == 1308 then queststatus = getPlayerStorageValue(cid,50301) if queststatus == -1 then doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "You have found a Warsinger Bow.") doPlayerAddItem(cid,8854,1) setPlayerStorageValue(cid,50301,1) else doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "It is empty.") end end return TRUE]]></action> </mod> Créditos: Está no script

Venho trazer aqui um sistema muito legal , eu particularmente já coloquei no meu site e ficou muito bonito , no tópico original a pessoa , explica de um jeito que muitos tem dificuldades , por isso vou deixar bem facil pra vocês. Etapa 1: Abra o arquivo characters.php e na linha 253. Está assim: $id = $player->getCustomField("id"); $number_of_quests = 0; $main_content .= '<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%><TR BGCOLOR='.$config['site']['vdarkborder'].'><TD align="left" COLSPAN=2 CLASS=white><B>Quests</B></TD></TD align="right"></TD></TR>'; $quests = $config['site']['quests']; foreach ($quests as $storage => $name) { if(is_int($number_of_quests / 2)) $bgcolor = $config['site']['darkborder']; else $bgcolor = $config['site']['lightborder']; $number_of_quests++; $main_content .= '<TR BGCOLOR="'.$bgcolor.'"><TD WIDTH=95%>'.$storage.'</TD>'; $quest = $SQL->query('SELECT * FROM player_storage WHERE player_id = '.$id.' AND `key` = '.$quests[$storage].';')->fetch(); if($quest == false) { $main_content .= '<TD><img src="images/false.png"/></TD></TR>'; } else { $main_content .= '<TD><img src="images/true.png"/></TD></TR>'; } } $main_content .= '</TABLE></td></tr></table><br />'; $deads = 0; Cole em cima esse código: //New Quest status// $id = $player->getCustomField("id"); $number_of_quests = 0; $main_content .= '<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 WIDTH=100%><TR BGCOLOR='.$config['site']['vdarkborder'].'><TD align="left" COLSPAN=2 CLASS=white><B>Quests</B></TD></TD align="right"></TD></TR>'; $questCount = 0; foreach ($config["site"]["quests"] as $questName => $questData) { $backgroundColor = is_int($questCount / 2) ? $config["site"]["darkborder"] : $config["site"]["lightborder"]; $questCount = $questCount + 1; $questStatus = $SQL->query("SELECT * FROM `player_storage` WHERE `player_id` = ".$id." AND `key` = ".$questData["storageid"].";")->fetch(); $questPercent = (($questStatus["value"] - $questData["startvalue"])/$questData["endvalue"]) * 100; $main_content .= "<tr bgcolor=\"".$backgroundColor."\"><td width=\"55%\">".$questName."</td><td width=\"45%\" style=\"text-align:center;\">".$questPercent."%<div style=\"background-color:white; margin-top:-14px; width: 100%; height: 12px; border: 1px solid #DDD;\"><div style=\"background: green; width: ".$questPercent."%; height: 12px;\"></div></div></td></tr>"; } //New Quest status// 2 Etapa: Abra o config.php que localiza dentro da pasta config. No começo mais ou menos tará assim: $config['site']['quests'] = array('Annihilator' => 5000,'Demon Helmet' => 2645,'Pits of Inferno' => 5550); // list of quests, 'questname' => storage-id, Coloe em cima disso o código: //New Quest status// $config["site"]["maxquests"] = 35; // maximum number of quests in site $config["site"]["quests"] = array( //Example: "Name Quest" => array("storageid" => id, "startvalue" => start value quests(0), "endvalue"=> end value quests(1)),* "Anihilator Quest" => array("storageid" => 5000, "startvalue" => 1, "endvalue" => 1), "Blue Legs Quest" => array("storageid" => 36207, "startvalue" => 1, "endvalue" => 1), "Demon Helmet" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Paradox Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Paradox Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Poi Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Yalahar Quest" => array("storageid" => 102504, "startvalue" => 1, "endvalue" => 1), "Arena Warlord" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Arena Scrapper" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Arena Greenhorn" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Demon oak" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Necromancer Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Banshee Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Demon oak" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Tower Shield" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Dwarven ring" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Knight Axe" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1), "Inquisiton Quest" => array("storageid" => 2645, "startvalue" => 0, "endvalue" => 1 ) ); //New Quest status// 3 Etapa: Pronto , você conclui a instalação: Resultado final: Dúvidas Frequentes: Como deleto as quest que não quero: Segue a tag Resp: "Anihilator Quest" => array("storageid" => 5000, "startvalue" => 1, "endvalue" => 1), Basta você retirar ela inteira ! Como eu adiciono novas quest: "NOME DA MISSAO" => array("storageid" => STORAGE ID, "startvalue" => 1, "endvalue" => 1), Meu , eu apaguei e ta dando erro o que deve ser: Resp: Sempre a ultima tag não pode conter "," no final , se colocar vai dar erro mesmo. Comentem e gostarem rep + Créditos: Szysza - Scripts SkyDangerous - Explicação do tutorial , e duvidas frequentes

Mais um tutorial , muito util , pois muitos não devem saber adicionar as imagens na galeria do gesior. Etapa 1: Localizando a pasta: Resp: Abra a pasta do site do seu server , e clica na pasta chamada "Gallery" e em seguida abra o arquivo "imageslist.xml" Etapa 2: Editando o Arquivo imageslist: Resp: O arquivo tará mais ou menos assim <track> <title>Image name 1</title> <creator>Author name 1</creator> <location>gallery/images/1.jpg</location> <info></info> </track> <track> <title>Image name 2</title> <creator>Author name 2</creator> <location>gallery/images/2.jpg</location> <info></info> </track> <track> <title>Screenshot of the Day</title> <creator>Author name 2</creator> <location>gallery/images/screenshotoftheday.jpg</location> <info></info> </track> Legenda: <title>Screenshot of the Day</title> Resp: Lá é o titulo que ficará a foto , como mostra a imagem a seguir <location>gallery/images/1.jpg</location> Resp: Seria a localização da imagem que ele irá abrir. Etapa 3: Colocando novas fotos: Resp: 1- Copie uma foto de preferência no formato jpg para a pasta "images" da "gallery" 2- Renomei ela para um numero de preferência em ordem para não ficar desorganizado 3- Abra o arquivo novamente "imageslist.xml" 4- Cole essa tag dentro dele <track> <title>Image name 2</title> <creator>Author name 2</creator> <location>gallery/images/nome do seu arquivo.jpg</location> <info></info> </track> 5- Como la em cima já ensinei o que cada faz ,e só voltar lá Etapa 4: Resultado Final: Tutorial desenvolvido por SkyDangerous Se gostou rep+ e comente

ComerBox? Que isso? Resp: É aquela imagem quadrada que fica no canto esquerdo do site. 1 Etapa: Localizando o arquivo: Resp: Vá pasta do seu site , clique na pasta "layouts" , e "tibiacom" se o seu for o layout do tibia. Logo em seguida clique em "layout" Aperta CTRL + F para localizar o conteudo chamado "newcomerbox" Após ter localizado tará mais ou menos na linha 523. <div id="NewcomerBox" class="Themebox" style="background-image:url(<?PHP echo $layout_name; ?>/images/themeboxes/newcomer/newcomerbox.gif);"> <div class="ThemeboxButton" onClick="BigButtonAction('?subtopic=createaccount')" onMouseOver="MouseOverBigButton(this);" onMouseOut="MouseOutBigButton(this);" style="background-image:url(<?PHP echo $layout_name; ?>/images/buttons/sbutton.gif);"><div class="BigButtonOver" style="background-image:url(<?PHP echo $layout_name; ?>/images/buttons/sbutton_over.gif);"></div> <div class="ButtonText" style="background-image:url(<?PHP echo $layout_name; ?>/images/buttons/_sbutton_jointibia.gif);"></div> </div> <div class="Bottom" style="background-image:url(<?PHP echo $layout_name; ?>/images/general/box-bottom.gif);"></div> </div> 2 Etapa: Simplesmente você copia a tag de cime e cola em baixo , duplicará os newcomerbox na index. 3 Etapa: Pronto , instalação concluida. Resultado final: Dúvidas Frequentes: Mas como eu troco a imagem: Resp: Segue essa tag: <?PHP echo $layout_name; ?>/images/themeboxes/newcomer/newcomerbox.gif);"> Onde está: /images/themeboxes/newcomer/newcomerbox.gif é a localização da foto , que você poderá trocar o "newcomerbox.gif" , para o nome da imagem que você fez. Mas fica aparecendo no meio da imagem Join Tibia: Resp: Segue essa tag: (<?PHP echo $layout_name; ?>/images/buttons/sbutton.gif);"><div class="BigButtonOver" style="background-image:url(<?PHP echo $layout_name; ?>/images/buttons/sbutton_over.gif);"></div> <div class="ButtonText" style="background-image:url(<?PHP echo $layout_name; ?>/images/buttons/_sbutton_jointibia.gif);"></div> </div> Você poderá tirar ela , ou se quiser por exemplo: Compre sua VIP. Terá que fazer uma imagem e por Tutorial feito por Skydangerous

Ai está um MOD CTF , como nos velhos tempos Se já exister no forum , peço desculpas ;( <?xml version="1.0" encoding="utf-8"?> <mod name="CTF" version="1.0" author="Doggynub" contact="otland.net" enabled="yes"> <config name="toto"><![CDATA[ --[[ Storage Settings]]-- Owner = 1900 -- put empty storage FLAG2_INn = 4000 -- put empty storage FLAG_IN = 4001 -- put empty storage TEAM1_FLAGS = 3030 -- put empty storage TEAM2_FLAGS = 3031 -- put empty storage Event_Start = 3032 -- put empty storage Event_timeend = 3033 -- put empty storage Event_Tile_Close = 3039 -- put empty storage joined = 2023 --put empty storage Timer = 1010 --put empty storage -------------------------------------- --[[ Places setting ]]-- BLUE_FLAG = {x=3536,y=3537,z=7} -- Blue flag Place RED_FLAG = {x=3536,y=3537,z=7} --red flag Place Tp_Place = {x=1007,y=991,z=15} -- Place where the event teleport will be created. Wait_Place = {x=3551,y=3554,z=7} -- Positions Players will be sent when the enter event's teleport frompos = {x=3553, y=3559, z=7} --start sqm in the waiting room(1 floor) topos = {x=3556,y=3566,z=7} -- end sqm in the waiting room(1 floor) Red_Position = {x=3615,y=3602,z=7} -- Red team temple pos Blue_Position = {x=3546,y=3536,z=7} -- Blue team temple pos --------------------------------------- --[[Event setting ]]-- Event_WaitTime = 5 -- time for the collection of player then event will start (in minutes) Event_MaxTime = 10 --- in minutes ( this is the max time for an event to bb running ) Players_Speed = 20000 -- put the level of base speed in event ( like if you want the speed of lvl 300 then wright 300) Flag_Holder_Speed = 20000 -- [Old-Styled feature] speed for the player when he hold a flag better not to increase. TEAM2_NAME = "Red" -- team 2 name TEAM1_NAME = "Green" -- team 1 name FLAG_SCORE = 5 -- score when team gets he wins Teleport_On_Score = false -- this teleport all players to their team main position when some one score a flag , make false to disable. Players_Least_Number = 2 -- this means if there is less than 2 players joined the event will be cancelled Min_Join_Level = 100 -- min lvl for a player to join event rewards_random = { [60] = { -- Rewards of 60% , if it is then it will randomly give one of the items in the items verible if there you put more than one item there items = {9971,9971,9971} }, [30] = { -- Rewards of 30% items = {9971,9971,9971} }, [10] = { -- Rewards of 10% items = {9971,9971,9971} } } ]]></config> <lib name="CTF-lib"><![CDATA[ function isTeamTwo(cid) return (isPlayer(cid) and getPlayerStorageValue(cid,5054) > -1) end function isTeamOne(cid) return (isPlayer(cid) and getPlayerStorageValue(cid,5055) > -1) end function resetTheTeams(cid) return (isPlayer(cid) and setPlayerStorageValue(cid,5054,-1) and setPlayerStorageValue(cid,5055,-1)) end function setflagOwner(cid) return setPlayerStorageValue(cid,Owner,1) end function flagOwner(cid) return (isPlayer(cid) and getPlayerStorageValue(cid,Owner) > 0) end function releaseBF(cid) setGlobalStorageValue(FLAG_IN,-1) setPlayerStorageValue(cid,103, 0) setPlayerStorageValue(cid,Owner,-1) return true end function releaseRF(cid) setGlobalStorageValue(FLAG2_INn,-1) setPlayerStorageValue(cid,103, 0) setPlayerStorageValue(cid,Owner,-1) return true end function setFirstTeam(cid) return setPlayerStorageValue(cid,5055,1) end function setSecondTeam(cid) return setPlayerStorageValue(cid,5054,2) end function addToRed() return setGlobalStorageValue(TEAM2_FLAGS,getGlobalStorageValue(TEAM2_FLAGS)+1) end function addToBlue() return setGlobalStorageValue(TEAM1_FLAGS,getGlobalStorageValue(TEAM1_FLAGS)+1) end function getBlueScore() return getGlobalStorageValue(TEAM1_FLAGS) end function getRedScore() return getGlobalStorageValue(TEAM2_FLAGS) end function getTheSpeed(level) value = (220 +(2 *(level -1))) return value end function resetTheStorage() setGlobalStorageValue(Event_Start,-1) setGlobalStorageValue(Event_timeend,-1) setGlobalStorageValue(TEAM1_FLAGS,0) setGlobalStorageValue(FLAG2_INn,-1) setGlobalStorageValue(FLAG_IN,-1) setGlobalStorageValue(TEAM2_FLAGS,0) return true end function blueStolen() return getGlobalStorageValue(FLAG_IN) end function redStolen() return getGlobalStorageValue(FLAG2_INn) end function giveReward(cid) local t = math.random(1,100) if t <= 10 then local rare = rewards_random[10].items[math.random(1,#rewards_random[10].items)] doPlayerAddItem(cid,rare,1) doPlayerSendTextMessage(cid,25,"Rare rate Reward : you won "..getItemNameById(rare)..".") elseif t > 10 and t <= 40 then local semi = rewards_random[30].items[math.random(1,#rewards_random[30].items)] doPlayerAddItem(cid,semi,1) doPlayerSendTextMessage(cid,25,"Semi rate Reward : you won "..getItemNameById(semi)..".") elseif t > 40 then local aver = rewards_random[60].items[math.random(1,#rewards_random[60].items)] doPlayerAddItem(cid,aver,1) doPlayerSendTextMessage(cid,25,"Averege rate Reward : you won "..getItemNameById(aver)..".") end return true end ]]></lib> <event type="login" name="Tutorial Login" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function onLogin(cid) if getGlobalStorageValue(Event_Start) < 1 then if isTeamOne(cid) or isTeamTwo(cid) then resetTheTeams(cid) end end registerCreatureEvent(cid, "Attk") registerCreatureEvent(cid, "ctff") registerCreatureEvent(cid, "prepare") return true end ]]></event> <event type="combat" name="Attk" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function onCombat(cid, target) if isTeamOne(cid) and isTeamOne(target) then return false end if isTeamTwo(cid) and isTeamTwo(target) then return false end return true end ]]></event> <event type="statschange" name="prepare" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') local corpse_ids = { [0] = 3065, -- female [1] = 3058 -- male } function onStatsChange(cid, attacker, type, combat, value) if combat == COMBAT_HEALING then return true end if getCreatureHealth(cid) > value then return true end if getGlobalStorageValue(Event_Start) > 0 then if flagOwner(cid) then if isTeamOne(cid) then doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Flag Holder].") doTeleportThing(cid,Blue_Position,false) doSendMagicEffect(Blue_Position,10) doCreatureAddHealth(cid,getCreatureMaxHealth(cid)) doCreatureAddMana(cid,getCreatureMaxMana(cid)) releaseRF(cid) for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) or isTeamTwo(cid) then doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " has died with the "..TEAM2_NAME.." team flag. The flag is returned back to the "..TEAM1_NAME.." team.") end end return false elseif isTeamTwo(cid) then doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Flag Holder].") doTeleportThing(cid,Red_Position,false) doSendMagicEffect(Red_Position,10) doCreatureAddHealth(cid,getCreatureMaxHealth(cid)) doCreatureAddMana(cid,getCreatureMaxMana(cid)) releaseBF(cid) for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) or isTeamTwo(cid) then doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " has died with the "..TEAM1_NAME.." team flag. The flag is returned back to the "..TEAM1_NAME.." team.") end end return false end else if isTeamOne(cid) or isTeamTwo(cid) then doItemSetAttribute(doCreateItem(corpse_ids[getPlayerSex(cid)], 1, getThingPos(cid)), "description", "You recognize "..getCreatureName(cid)..". He was killed by "..(isMonster(attacker) and "a "..string.lower(getCreatureName(attacker)) or isCreature(attacker) and getCreatureName(attacker) or "a field item").."[Normal kill].") doTeleportThing(cid,( isTeamTwo(cid) and Red_Position or Blue_Position ),false) doSendMagicEffect(Red_Position,10) doCreatureAddHealth(cid,getCreatureMaxHealth(cid)) doCreatureAddMana(cid,getCreatureMaxMana(cid)) return false end end end return true end ]]></event> <movevent type="StepIn" actionid="6000" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function eventEnds() doBroadcastMessage('CTF-Event : The '..TEAM2_NAME..' team won and reciaved their reward.') for _,cid in ipairs(getPlayersOnline()) do if isTeamTwo(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) giveReward(cid) elseif isTeamOne(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) doPlayerSendTextMessage(cid,22,'Your team have lost.') resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end addEvent(resetTheStorage,5) end function onStepIn(cid, item, position, fromPosition) if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if isTeamTwo(cid) and redStolen() < 0 then if not flagOwner(cid) then doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) doPlayerSendTextMessage(cid, 27, "This is your team flag, you cant take it!") end elseif isTeamTwo(cid) and redStolen() > 0 and blueStolen() < 0 then doPlayerSendTextMessage(cid, 27, "Your team's Flag has been stolen, go get it back!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) return true end if isTeamTwo(cid) and flagOwner(cid) and blueStolen() > 0 and redStolen() < 0 then if getRedScore() == FLAG_SCORE -1 then addEvent(eventEnds,1000) addToRed() doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) ) releaseBF(cid) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the last flag and earned match win to the ".. TEAM2_NAME.." team!") end end else releaseBF(cid) addToRed() doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) ) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the flag and earned 1 point to the ".. TEAM2_NAME.." team!") if Teleport_On_Score == true then doTeleportThing(tid,( isTeamTwo(tid) and Red_Position or Blue_Position ), false) doSendMagicEffect(getThingPos(tid),10) end end end end end if isTeamOne(cid) then if blueStolen() < 0 and redStolen() > 0 then if flagOwner(cid) then doPlayerSendTextMessage(cid, 27, "You already holding the flag!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) elseif (not flagOwner(cid)) then doPlayerSendTextMessage(cid, 27, "Your Team mates already stole the oponent flag, defend him!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) end elseif blueStolen() > 0 and redStolen() < 0 then doPlayerSendTextMessage(cid, 27, "Your team's flag is taken you can't capture or steel a flag!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) end if redStolen() < 0 and blueStolen() < 0 then setGlobalStorageValue(FLAG2_INn,1) setflagOwner(cid) setPlayerStorageValue(cid,103, os.time()+300) doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Flag_Holder_Speed)- getCreatureSpeed(cid) ) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " stolen the "..TEAM2_NAME.." team flag!") end end end end end return true end ]]></movevent> <movevent type="StepIn" actionid="3435" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) if getStorage(Event_Tile_Close) > 0 then if getPlayerLevel(cid) < Min_Join_Level then doTeleportThing(cid,fromPosition,false) doSendMagicEffect(fromPosition,10) doPlayerSendTextMessage(cid,21,"Only players of level "..Min_Join_Level.." are allowed to pass.") else doTeleportThing(cid,Wait_Place,false) doSendMagicEffect(Wait_Place,10) end else doTeleportThing(cid,fromPosition,false) doSendMagicEffect(fromPosition,10) doPlayerSendTextMessage(cid,21,"Come back later, event is closed now.") end return true end ]]></movevent> <movevent type="StepIn" actionid="6001" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function eventEnded() if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then doBroadcastMessage('CTF-Event : The '.. TEAM1_NAME..' team won and reciaved their reward.') for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) giveReward(cid) elseif isTeamTwo(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) doPlayerSendTextMessage(cid,22,'Your team have lost.') resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end end addEvent(resetTheStorage,5) end function onStepIn(cid, item, position, fromPosition) if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if isTeamOne(cid) and blueStolen() < 0 then if not flagOwner(cid) then doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) doPlayerSendTextMessage(cid, 27, "This is your team flag, you cant take it!") end elseif isTeamOne(cid) and blueStolen() > 0 and redStolen() < 0 then doPlayerSendTextMessage(cid, 27, "Your team's Flag has been stolen, go get it back!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) return true end if isTeamOne(cid) and flagOwner(cid) and redStolen() > 0 and blueStolen() < 0 then if getBlueScore() == FLAG_SCORE -1 then addEvent(eventEnded,1000) addToBlue() doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) ) releaseRF(cid) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the last flag and earned match win to the ".. TEAM1_NAME.." team!") end end else releaseRF(cid) addToBlue() doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid) ) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " have captured the flag and earned 1 point to the ".. TEAM1_NAME.." team!") if Teleport_On_Score == true then doTeleportThing(tid,( isTeamTwo(tid) and Red_Position or Blue_Position ), false) doSendMagicEffect(getThingPos(tid),10) end end end end end if isTeamTwo(cid) then if blueStolen() > 0 and redStolen() < 0 then if flagOwner(cid) then doPlayerSendTextMessage(cid, 27, "You already holding the flag!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) elseif (not flagOwner(cid)) then doPlayerSendTextMessage(cid, 27, "Your Team mates already stole the oponent flag, defend him!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) end elseif redStolen() > 0 and blueStolen() < 0 then doPlayerSendTextMessage(cid, 27, "Your team's flag is taken you can't capture or steel a flag!") doTeleportThing(cid, fromPosition,TRUE) doSendMagicEffect(getThingPos(cid),2) end if blueStolen() < 0 and redStolen() < 0 then setGlobalStorageValue(FLAG_IN,1) setflagOwner(cid) setPlayerStorageValue(cid,103, os.time()+300) doTeleportThing(cid, fromPosition,TRUE) doChangeSpeed(cid, getTheSpeed(Flag_Holder_Speed)- getCreatureSpeed(cid) ) for _,tid in ipairs(getPlayersOnline()) do if isTeamOne(tid) or isTeamTwo(tid) then doPlayerSendTextMessage(tid,22,getCreatureName(cid) .. " stolen the "..TEAM1_NAME.." team flag!") end end end end end return true end ]]></movevent> <globalevent name="ctf" interval="900" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') local players = {} local bmale = createConditionObject(CONDITION_OUTFIT) setConditionParam(bmale, CONDITION_PARAM_TICKS, -1) addOutfitCondition(bmale, {lookType = math.random(128,134), lookHead = 115, lookBody =114, lookLegs = 81, lookFeet = 81, lookTypeEx = 0, lookAddons = 3}) local bfemale = createConditionObject(CONDITION_OUTFIT) setConditionParam(bfemale, CONDITION_PARAM_TICKS, -1) addOutfitCondition(bfemale, {lookType = math.random(136,142), lookHead = 115, lookBody =114, lookLegs = 81, lookFeet = 81, lookTypeEx = 0, lookAddons = 3}) local rmale = createConditionObject(CONDITION_OUTFIT) setConditionParam(rmale, CONDITION_PARAM_TICKS, -1) addOutfitCondition(rmale, {lookType = math.random(128,134), lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94, lookTypeEx = 0, lookAddons = 3}) local rfemale = createConditionObject(CONDITION_OUTFIT) setConditionParam(rfemale, CONDITION_PARAM_TICKS, -1) addOutfitCondition(rfemale, {lookType = math.random(136,142),lookHead = 94, lookBody = 94, lookLegs = 94, lookFeet = 94, lookTypeEx = 0, lookAddons = 3}) local fight = createConditionObject(CONDITION_INFIGHT) setConditionParam(fight, CONDITION_PARAM_TICKS, -1) function eventEnd() if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if getRedScore() > getBlueScore() then doBroadcastMessage('CTF-Event : The '.. TEAM2_NAME..' team won and recieved their reward.') for _,cid in ipairs(getPlayersOnline()) do if isTeamTwo(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) giveReward(cid) elseif isTeamOne(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) doPlayerSendTextMessage(cid,22,'Your team have lost.') resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end elseif getRedScore() < getBlueScore() then doBroadcastMessage('CTF-Event : The '.. TEAM1_NAME..' team won and recieved their reward.') for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) giveReward(cid) elseif isTeamTwo(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) doPlayerSendTextMessage(cid,22,'Your team have lost.') resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end elseif getRedScore() == getBlueScore() then doBroadcastMessage('CTF-Event : The Event ended with a draw between both teams.') for _,cid in ipairs(getPlayersOnline()) do if isTeamTwo(cid) or isTeamOne(cid) then doTeleportThing(cid,getTownTemplePosition(getPlayerTown(cid)),false) doSendMagicEffect(getTownTemplePosition(getPlayerTown(cid)),10) doRemoveConditions(cid,false) doPlayerSendTextMessage(cid,22,'It was a draw between both teams.') resetTheTeams(cid) doChangeSpeed(cid, getTheSpeed(getPlayerLevel(cid)) - getCreatureSpeed(cid)) end end end addEvent(resetTheStorage,1000) end end function eventStart() doSetStorage(Event_Tile_Close,-1) setGlobalStorageValue(Event_timeend,1) setGlobalStorageValue(Timer, os.time() + Event_MaxTime*60) addEvent(eventEnd,Event_MaxTime*60*1000) for v = frompos.x , topos.x do for k = frompos.y , topos.y do for i = 1, 200 do position = {x = v, y = k, z = 7, stackpos = i} pid = getThingfromPos(position).uid if(pid ~= nil and isPlayer(pid)) then table.insert(players, pid) end end end end if math.mod(#players, 2) ~= 0 then doTeleportThing(players[#players],getTownTemplePosition(getPlayerTown(players[#players])),false) doSendMagicEffect(getThingPosition(players[#players]),10) doPlayerSendTextMessage(players[#players], 19, "Sorry, you have been kicked from event to balance teams.") table.remove(players) end if #players < Players_Least_Number then doBroadcastMessage("CTF event was cancelled because less than "..Players_Least_Number.." players joined") resetTheStorage() if #players > 0 then for i = 1,#players do doTeleportThing(players[i],getTownTemplePosition(getPlayerTown(players[i])),false) doSendMagicEffect(getThingPos(players[i]), 10) end end else doBroadcastMessage("CTF started") for i = 1, math.floor(#players/2) do setFirstTeam(players[i]) end for i = math.floor(#players/2)+1 , #players do setSecondTeam(players[i]) end for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) then if getPlayerSex(cid) == 1 then doAddCondition(cid, bmale) elseif getPlayerSex(cid) ~= 1 then doAddCondition(cid, bfemale) end doAddCondition(cid, fight) doTeleportThing(cid,Blue_Position,false) doSendMagicEffect(Blue_Position, 10) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid)) elseif isTeamTwo(cid) then if getPlayerSex(cid) == 1 then doAddCondition(cid, rmale) elseif getPlayerSex(cid) ~= 1 then doAddCondition(cid, rfemale) end doAddCondition(cid, fight) doTeleportThing(cid,Red_Position,false) doSendMagicEffect(Red_Position, 10) doChangeSpeed(cid, getTheSpeed(Players_Speed) - getCreatureSpeed(cid)) end end players = {} end end function onThink(interval) if getGlobalStorageValue(Event_Start) < 0 then setGlobalStorageValue(Event_Start,1) doSetStorage(Event_Tile_Close,1) doBroadcastMessage("CTF event is opened and teleport is created. It will start in "..Event_WaitTime.." minutes.") players = {} if getTileItemById(Tp_Place, 1387).uid < 1 then doItemSetAttribute(doCreateItem(1387,1, Tp_Place), "aid", 3435) end f= Event_WaitTime - 1 for i = 1,Event_WaitTime-1 do addEvent(doBroadcastMessage,i*60*1000,"CTF event is opened and teleport is created. It will start in "..f.." minutes.") f= f-1 end addEvent(eventStart,Event_WaitTime*60*1000) end return true end ]]></globalevent> <event type="think" name="ctff" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') local bl = BLUE_FLAG local re = RED_FLAG function onThink(interval) if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if redStolen() < 0 then doSendAnimatedText(re,"FLAG!",TEXTCOLOR_DARKRED) doSendMagicEffect(re, CONST_ME_SOUND_RED) end if blueStolen() < 0 then doSendAnimatedText(bl,"FLAG!",TEXTCOLOR_GREEN) doSendMagicEffect(bl, CONST_ME_SOUND_GREEN) end for _, cid in ipairs(getPlayersOnline()) do if flagOwner(cid) then if isTeamOne(cid) or isTeamTwo(cid) then if hasCondition(cid,CONDITION_HASTE) then doRemoveCondition(cid,CONDITION_HASTE) end end pl = getThingPos(cid) if isTeamTwo(cid) then if getPlayerStorageValue(cid,103) < os.time() then releaseBF(cid) for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) or isTeamTwo(cid) then doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " wasted 5 minutes with FLAG."..TEAM2_NAME.." flag is again on spawn!") end end else doSendAnimatedText(pl,"FLAG!",TEXTCOLOR_GREEN) doSendMagicEffect(pl, CONST_ME_SOUND_GREEN) end elseif isTeamOne(cid) then if getPlayerStorageValue(cid,103) < os.time() then releaseRF(cid) for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) or isTeamTwo(cid) then doPlayerSendTextMessage(cid,22,getCreatureName(cid) .. " wasted 5 minutes with FLAG."..TEAM1_NAME.." flag is again on spawn!") end end else doSendAnimatedText(pl,"FLAG!",COLOR_RED) doSendMagicEffect(pl, CONST_ME_SOUND_RED) end end end end end return true end ]]></event> <globalevent name="timer" interval="0.4" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function onThink(interval) for _,cid in ipairs(getPlayersOnline()) do if isTeamOne(cid) or isTeamTwo(cid) then if getGlobalStorageValue(Event_Start) > 0 and getGlobalStorageValue(Event_timeend) > 0 then if getGlobalStorageValue(Timer)- os.time() >= 0 then doPlayerSendCancel(cid, "Time -> ".. os.date("%M:%S ",getGlobalStorageValue(Timer)- os.time()) .. " | ".. TEAM1_NAME.." Score : "..getBlueScore(cid).."/"..FLAG_SCORE.." captures | ".. TEAM2_NAME.." Score : "..getRedScore(cid).."/"..FLAG_SCORE.." captures") end end end end return true end ]]></globalevent> <globalevent name="starting" type="startup" event="script"><![CDATA[ domodlib('toto') domodlib('CTF-lib') function onStartup() resetTheStorage() return true end ]]></globalevent> </mod> Créditos: Está no script

Vou compartilhar sua piada. uHAU'

Bem-Vindo Sinta-se em casa, e vamos bater um papo no playground Qualquer dúvida envie pm :>

/\ to com inveja kkkkk'. caraca, aposta na loteria vai que você ganha. hehehe, parabéns pra ti.

vlw em breve vou postar mais.

Claro. Como você disse colocar os créditos.

ou então. usa essa função: doCreatureSay(cid, text, type) em todas as magias ai fica bem criativo

é isso mesmo que o membro falou. se não me engano..

Estou voltando a mappear

Puts Não venci Parabéns aos ganhadores !

Realmente essa função pode ser útil. Eu particularmente, gostaria de usa-la em meu servidor. Parabéns !

Muito útil. Essa função "nova" é muito boa, já testei em um projeto. Tópico Fixado. Mudei o nome do tópico.

Falar um pouco de respeito e paciência aposto que muitos irão te ajudar. Você quer muita coisa feita de mão beijada, não é assim... Mesmo você sendo meu amigo, meu dever é por ordem e devo exerce-las para todos. E por favor, não utilize a palavra pqp, mesmo sendo uma abreviação alguém pode intender como uma palavreado. Até.

Ui. Tutorial bem explicado, conteúdo bom e com imagens. Parabéns. Obrigado por compartilhar seu conhecimento.

@1215171 Por favor,vamos respeitar. Vale lembrar que ninguém é obrigado a responder dúvida de ninguém. Até

eu faço parte já de lá ha muito tempo postei umas sprites lá .. :>

Editado. Mudou meu avatar, mas demorou um pouco Achava que era bug mesmo, mas não é..

Existe algum sprite de plantão para me ajudar? Eu sempre gostei de fazer sprites, até participo de um fórum que só entrar spriters .. porém não sou capacitado ainda para fazer sprites legais. Se alguem tiver um tempo para me ajudar, pelo msn me manda pm eu passo o e-mail em troca eu posso ensinar lua ou algumas coisas