delton

Projeto perfeito!!, uma grande idéia... Bons tempos ficam no passado mas sua equipe supero essa frase =) Delton~~

Vc usa qual servidor? é GUi ou console? Delton~~

Cara pelo que deu para perceber, seu computador está com a memória virtual muito cheia(?). Acho que isso aconteceu por causa que você abriu programas muito pesado, e sua memória virtual não aguentou(?). Você abre tudo aquilo de programas normalmente? Delton~~

Funcionou? Troca doPlayerAddAddon por doPlayerAddOutfit =) Delton~~

Ain tenho vergonha pow KKKKKKKKKKKK

Tenta esse aqui: local focus = 0 local talk_start = 0 local target = 0 local following = false local attacking = false function onThingMove(creature, thing, oldpos, oldstackpos) end function onCreatureAppear(creature) end function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end end function onCreatureTurn(creature) end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) msg = string.lower(msg) if (msgcontains(msg, 'hi') and focus == 0) and getDistanceToCreature(cid) < 4 then selfSay('Ola ' .. creatureGetName(cid) .. '! Eu tenho todos os addons é só falar o nome da roupa e primeiro pro addon 1 e segundo pro addon 2 exemplo: warrior primeiro.') focus = cid talk_start = os.clock() elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then selfSay('Desculpe-me, ' .. creatureGetName(cid) .. '! Falo com voce em um minuto.') elseif msgcontains(msg, 'citizen primeiro') then selfSay('Voce tem as 100 Chiken Feathers necessarias para conseguir o addon?') talk_state = 1 talk_start = os.clock() elseif talk_state == 1 and msgcontains(msg, 'yes') then if getPlayerItemCount(cid,5890) == 100 then doPlayerRemoveItem(cid,5890,100) doPlayerAddOutfit(cid, 136, 1) doPlayerAddOutfit(cid, 128, 1) selfSay('Parabens !!! Voce Adiquiriu um novo addon.') talk_state = 0 talk_start = os.clock() else selfSay('Desculpe Você nao tem o necessario para esse addon.') talk_state = 0 talk_start = os.clock() end elseif msgcontains(msg, 'citizen segundo') then selfSay('Você tem os 100 minotaur leather necessarios para conseguir o addon?') talk_state = 2 talk_start = os.clock() elseif talk_state == 1 and msgcontains(msg, 'yes') then if getPlayerItemCount(cid,5878) == 100 then doPlayerRemoveItem(cid,5878,100) doPlayerAddOutfit(cid, 136, 2) doPlayerAddOutfit(cid, 128, 2) selfSay('Parabens !!! Voce Adiquiriu um novo addon.') talk_state = 0 talk_start = os.clock() else selfSay('Desculpe Você nao tem o necessario para esse addon.') talk_state = 0 talk_start = os.clock() end elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 5 then selfSay('Ate mais, ' .. creatureGetName(cid) .. '!') focus = 0 talk_start = 0 elseif msgcontains(msg, 'nao') and getDistanceToCreature(cid) < 5 then selfSay('Desculpe, ' .. creatureGetName(cid) .. '! Volte aqui quando tiver os itens nescessarios.') talk_start = os.clock() talk_state = 0 end end function onCreatureChangeOutfit(creature) end function onThink() doNpcSetCreatureFocus(focus) if (os.clock() - talk_start) > 30 then if focus > 0 then selfSay('Proximo...') end focus = 0 end if focus ~= 0 then if getDistanceToCreature(focus) > 5 then selfSay('Ate mais.') focus = 0 end end end

Cara tenta esse: (OBS: não é ripping -.-') Onde está em negrito (newpos) é a posição onde o player vip vai parar quando subir em cima. (ali está como premium) Onde está sublinhado é a actionid =) Passa o storagevalue da vip ae se possível =) Delton~~ (OBS: não faço rip, estou apenas tentando ajudar uma pessoa do forum, se isso é errado eu peço desculpas)

nessas horas tem gente que fuma umas sabe... xDD, momento gay no Xtibia

kapskapsapsoakpskapskas OMG=o Delton~~

cara usa o action 500 no tile... dependendo do server premmy tile ta incluido nas sources

REMOVIDO O CARA DIZ QUE É RIP, MAS NÃO É!

eu faço isso pq gosto oO, e normalmente me visto assim ok GUILHERME (anderson pink)... E conheço mta gente que não tem coragem de vestir o que gosta Deprimente¹²³

Como eu disse no início do tópico o script é antigo, porém adaptado para 8.50 =)) Delton~~

Bom, Godely criou o sistema de casamento para o TFS, mas é um pouco antigo, porém foi adaptado para Tibia 8.50 :positive: Adicione isso no function.lua function getPlayerMarriage(player) local rows = db.getResult("SELECT `marriage` FROM `players` WHERE `id` = " .. player .. ";") local marry = rows:getDataInt("marriage") if marry ~= 0 then return marry else return FALSE end end function addMarryStatus(player,partner) db.executeQuery("UPDATE `players` SET `marrystatus` = " .. partner .. " WHERE `id` = " .. player .. ";") return TRUE end function doCancelMarryStatus(player) db.executeQuery("UPDATE `players` SET `marrystatus` = 0 WHERE `id` = " .. player .. ";") return TRUE end function getMarryStatus(player) local stat = db.getResult("SELECT `id` FROM `players` WHERE `marrystatus` = " .. player .. ";") if(stat:getID() == -1) then return FALSE else local info = stat:getDataInt("id") return info end end function getOwnMarryStatus(player) local stat = db.getResult("SELECT `marrystatus` FROM `players` WHERE `id` = " .. player .. ";") if(stat:getID() == -1) then return FALSE else local info = stat:getDataInt("marrystatus") return info end end function isOnline(player) local rows = db.getResult("SELECT `online` FROM `players` WHERE `id` = " .. player .. ";") local on = rows:getDataInt("online") if on ~= 0 then return TRUE else return FALSE end end Agora vá para data/npc e crie um arquivo chamado: Priest.lua, e adicione isso: <?xml version="1.0"?> <npc name="Priest" script="data/npc/scripts/weedding.lua" access="3" lookdir="2"> <mana now="800" max="800"/> <health now="200" max="200"/> <look type="57" head="20" body="30" legs="40" feet="50"/> </npc> Agora vá para data/npc/scripts e crie um arquivo chamado: wedding.lua e adicione: local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid if msgcontains(msg, 'marry') or msgcontains(msg, 'marriage') then if getPlayerStorageValue(cid,3066) == -1 then selfSay('Would you like to get married?', cid) talkState[talkUser] = 1 elseif getPlayerStorageValue(cid,3066) == 1 then local fid = getPlayerGUID(cid) local marrystatus = getOwnMarryStatus(fid) if marrystatus ~= 0 then local newpartner = getPlayerNameByGUID(marrystatus) selfSay('You already set a wedding date with {' .. newpartner .. '}, now I must talk to your partner. Do you want to {cancel} it?', cid) talkState[talkUser] = 5 else setPlayerStorageValue(cid,3066,-1) selfSay('Would you like to get married?', cid) talkState[talkUser] = 1 end elseif getPlayerStorageValue(cid,3066) == 2 then selfSay('You are already married. If you want to {divorce}, just say it.', cid) talkState[talkUser] = 0 end elseif msgcontains(msg, 'divorce') then if getPlayerStorageValue(cid,3066) == 2 then selfSay('Would you like to divorce of your partner?', cid) talkState[talkUser] = 6 else selfSay('You are not married. If you want to get married, just say {marry}.', cid) talkState[talkUser] = 0 end end if talkState[talkUser] == 1 then if msgcontains(msg, 'yes') then local fid = getPlayerGUID(cid) local marrystatus = getMarryStatus(fid) if marrystatus == FALSE then selfSay('And what\'s the name of your future partner?', cid) talkState[talkUser] = 2 else local marryname = getPlayerNameByGUID(marrystatus) selfSay('{' .. marryname .. '} has set a wedding date with you. Do you want to {proceed} or {cancel} the wedding?', cid) talkState[talkUser] = 4 end end elseif talkState[talkUser] == 2 then local p = msg local player = getPlayerName(cid) local fid = getPlayerGUID(cid) local sid = getPlayerGUIDByName(p) if sid == 0 then selfSay('A player with that name does not exists.', cid) talkState[talkUser] = 0 elseif sid == fid then selfSay('Don\'t worry, you will always be married with yourself, kid.', cid) talkState[talkUser] = 0 else local marrystatus = getMarryStatus(fid) local pmarriage = getPlayerMarriage(sid) local ownstatus = getOwnMarryStatus(cid) if pmarriage == FALSE then if marrystatus == FALSE then if ownstatus == FALSE then setPlayerStorageValue(cid,3066,1) addMarryStatus(fid,sid) selfSay('You\'ve just set a wedding date with {' .. p .. '}.', cid) talkState[talkUser] = 0 else local partnername = getPlayerNameByGUID(ownstatus) selfSay('{' .. p .. '} has already set a wedding date with {' .. partnername .. '}.', cid) talkState[talkUser] = 0 end else local marryname = getPlayerNameByGUID(marrystatus) selfSay('{' .. marryname .. '} has set a wedding date with you. Do you want to {proceed} or {cancel} the wedding?', cid) talkState[talkUser] = 4 end else local pname = getPlayerNameByGUID(pmarriage) selfSay('Sorry, but {' .. p .. '} is already married to {' .. pname .. '}.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 4 then if msgcontains(msg, 'proceed') then local fid = getPlayerGUID(cid) local sid = getMarryStatus(fid) local marryname = getPlayerNameByGUID(sid) local pid = getPlayerByNameWildcard(marryname) if isOnline(fid) == TRUE and isOnline(sid) == TRUE then local tmf = getCreaturePosition(cid) local tms = getCreaturePosition(pid) local text = {'I love you!','My love!','Baby dear!'} local chance1 = math.random(1,table.getn(text)) local chance2 = math.random(1,table.getn(text)) if getDistanceBetween(tmf, tms) <= 3 then setPlayerStorageValue(cid,3066,2) setPlayerStorageValue(pid,3066,2) doCancelMarryStatus(fid) doCancelMarryStatus(sid) setPlayerPartner(cid,sid) setPlayerPartner(pid,fid) doCreatureSay(cid, text[chance1], TALKTYPE_ORANGE_1) doCreatureSay(pid, text[chance2], TALKTYPE_ORANGE_1) doSendMagicEffect(tmf, 35) doSendMagicEffect(tms, 35) selfSay('Congratulations! Now you may kiss your partner! Everytime you wanna make this effect, just say {love}. You must be close to your partner.', cid) talkState[talkUser] = 0 else selfSay('Your partner must be close to you so you can marry!', cid) talkState[talkUser] = 0 end else selfSay('You and your new partner must be online at the same time.', cid) talkState[talkUser] = 0 end elseif msgcontains(msg, 'cancel') then local fid = getPlayerGUID(cid) local sid = getMarryStatus(fid) local marryname = getPlayerNameByGUID(sid) local pid = getPlayerByNameWildcard(marryname) if isOnline(sid) == TRUE then setPlayerStorageValue(pid,3066,-1) end doCancelMarryStatus(sid) selfSay('You just canceled your wedding date with {' .. marryname .. '}.', cid) talkState[talkUser] = 0 end elseif talkState[talkUser] == 5 then if msgcontains(msg, 'cancel') or msgcontains(msg, 'yes') then local fid = getPlayerGUID(cid) setPlayerStorageValue(cid,3066,-1) doCancelMarryStatus(fid) talkState[talkUser] = 0 end elseif talkState[talkUser] == 6 then if msgcontains(msg, 'yes') then local fid = getPlayerGUID(cid) local sid = getPlayerPartner(cid) local marryname = getPlayerNameByGUID(sid) local pid = getPlayerByNameWildcard(marryname) if (isOnline(fid) == TRUE and isOnline(sid) == TRUE) then setPlayerStorageValue(cid,3066,-1) setPlayerStorageValue(pid,3066,-1) setPlayerPartner(cid,0) setPlayerPartner(pid,0) selfSay('You\'ve just divorced of your old partner.', cid) talkState[talkUser] = 0 else selfSay('You and your new partner must be online at the same time.', cid) talkState[talkUser] = 0 end end end return TRUE end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) Agora, adicione para seu MySQL database o que está escrito abaixo: ALTER TABLE `players` ADD `marrystatus` INT UNSIGNED NOT NULL DEFAULT '0' AFTER `marriage`; Em data/talkactions/talkactions.xml adicione: <talkaction words="love" script="love.lua"/> Em data/talkactions/scripts crie um arquivo chamado love.lua e adicione: function onSay(cid, words, param) -- Exhausted Settings -- local exhausted_seconds = 1 -- How many seconds player will be exhausted -- local exhausted_storagevalue = 9847 -- Storage Value to store exhaust. It MUST be unused! -- -- Exhausted Settings END -- local text = {'I love you!','My love!','Baby dear!'} local chance1 = math.random(1,table.getn(text)) local chance2 = math.random(1,table.getn(text)) local sid = getPlayerPartner(cid) if sid > 0 then if isOnline(sid) == TRUE then local sname = getPlayerNameByGUID(sid) local pid = getPlayerByNameWildcard(sname) local tmf = getCreaturePosition(cid) local tms = getCreaturePosition(pid) if getDistanceBetween(tmf, tms) <= 3 then if(os.time() > getPlayerStorageValue(cid, exhausted_storagevalue)) then setPlayerStorageValue(cid, exhausted_storagevalue, os.time() + exhausted_seconds) doCreatureSay(cid, text[chance1], TALKTYPE_ORANGE_1) doCreatureSay(pid, text[chance2], TALKTYPE_ORANGE_1) doSendMagicEffect(tmf, 35) doSendMagicEffect(tms, 35) else doPlayerSendCancel(cid, "You are exhausted.") return TRUE end end end end end Foi adicionado exhaust para que os chars não façam SPAM, e dê lag no server. Pronto! Como funciona? PLAYER1 Vai para o NPC e começa a conversa... PLAYER1: Hi PLAYER1: marry PLAYER1: yes PLAYER1: Nome do player 2 para adicionar "status de casado", e o player 2 começa a conversa.... PLAYER2: Hi PLAYER2: marry PLAYER2: yes PLAYER2: proceed Você pode se divorciar caso o "fogo da paixão" acabe xD Script funciona com gesior acc maker (Apenas mostra se o char está casado ou não) Todos os créditos para Godely. Coments

OMG, pena que o preço é muuuuuuuuuito caro... Acho que seria uma boa idéia eles venderem accounts com premium de 1 mês =)... Para quem curte aquela upada rox de 1 mês... Ou se eles revendessem pacc por preço menor que a boacompra.com

Esse ot já foi postado aqui =o, e ele é cheio de bugs Delton~~

Bah, isso é verdade... pois é a mesma coisa que decorar a matemática =O... eu comecei a mexer com linguagens de programação a 3 meses e ainda acho que to no básico do básico haha =)) Prescisa-se de paciência, muuuuuuita paciência =p Delton~~

Uma dúvida, o programador retirou os bugs dos bixo morto? Tipo quando você abre um bixo ele da debug (Ex: Azeurs) Delton ~~ Thanks

Vixx, dei um test aqui... cheio de bugs... nas portas, no save, no clean, só os itens que atualizaram (pelo menos xD), não tem black skull =p Delton~~

Curti o quadro lá atrás² Nussssssssssssaaaaaaaa olha a quantidade de cores que o pintor utilizou, e aquelas formas magnificas ;~ Delton~~

Gentê, vo posta uma foto minha =))) Coments please

Oo, ahsahushas é um EMO a mais que vejo =) Delton~~

Com as sources, um compilador, vontade e paciência xDD Você sabe algo sobre linguagens de programação? Se souber pelo menos o médio eu posso te explicar por msn =)) Delton~~

=O, manda qual tipo de vírus ele está acusando ae. Delton~~

Eu tbm jogava em Thoria =) Tenho um monte de char lá hohoho =) O problema de thoria é os powerabuser tava level 45 e hunted pelo Raven Atlar =X