luanluciano93

veja se o gesior esta configurado com a offer_type=vip, se tiver é só add uma oferta ao shop com essa offer_type, e quando comprar o site irá add os dias na coluna vip_time na database.

Você precisa de um servidor mysql ligado na máquina, o erro é referente a não estar ligado o mysql.

Na tag você esta setando onThink e no script  não tem nenhum .. 

Tenta assim:
function onUse(cid, item, fromPosition, item2, toPosition) if isPlayer(cid) then doSummonCreature("Salamence", getCreaturePosition(cid)) doSummonCreature("Tropius", getCreaturePosition(cid)) doSummonCreature("Metagross", getCreaturePosition(cid)) doSummonCreature("Aggron", getCreaturePosition(cid)) doSummonCreature("Lucario", getCreaturePosition(cid)) doSendMagicEffect(getCreaturePosition(cid), 29) doRemoveItem(item.uid, 1) doCreatureSay(cid,"Cuidado! Pokemons Muito Perigosos apareceram do Nada OMG.", TALKTYPE_ORANGE_1) end return true end

Resolvido.

não tem o código ai, e também não é ai e sim no layout que tem que add.

Resolvido.

<link rel="stylesheet" type="text/css" href="./content.css"> <?php echo '<div class="boxBody"> <div id="homeNews"> <span class="ntype t-new"></span> <img src="icon.fw.png" alt=""> <span class="title"> <td> <a href="'.$url.'index.php?/topic/'.$tid.'-'.$titleseo.'" target="_self" class="link-news">'.$title.'</a></td></span> <span class="date"> <td><span>'.substr( $data , 0 , 5 ).'</span></td> </span> </div> <a href="http://" class="iconLink" style="opacity: 0.8;">Ver noticias anteriores</a> </div> '; ?>

Execute esse comando na sua database:
ALTER TABLE `bans` ADD `reason` INT UNSIGNED NOT NULL DEFAULT '0';

Dessas 5 linhas:
</form><br /><form action="index.php?subtopic=shopguild&action=confirm_transaction" method=POST><input type="hidden" name="buy_id" value="'.$buy_id.'"> <table border="0" cellpadding="1" cellspacing="1" width="650"> <tr bgcolor="#505050"><td colspan="2"><font color="white" size="4"><b>Give item to other player</b></font></td></tr> <tr bgcolor="#D4C0A1"><td width="110"><b>To player:</b></td><td width="550"><input type="text" name="buy_name"> - name of the player who should get item</td></tr> <tr bgcolor="#F1E0C6"><td width="110"><b>From:</b></td><td width="550"><input type="text" name="buy_from">&nbsp;<input type="submit" value="Give"> - your nick, \'empty\' = Anonymous</td></tr> </table><br /></form>'; Deixe assim:
</form>'; Dúvidas poste aqui, abraços.

Resolvido!

Script Atualizado:
local reward = { BRONZE = 10127, PRATA = 10128, OURO = 10129, } function onKill(cid, target, lastHit) if isPlayer(target) then if getPlayerFrags(cid) == 50 then doPlayerAddItem(cid, reward.BRONZE, 1) elseif getPlayerFrags(cid) == 100 then doPlayerAddItem(cid, reward.PRATA, 1) elseif getPlayerFrags(cid) == 200 then doPlayerAddItem(cid, reward.OURO, 1) end end return true end

@xWhiteWolf, no script de advance tem essa função doRegainSpeed(cid), acho que é isso, é só ele retirar esa linha:
doRegainSpeed(cid) 

local config = { velocidadeDaSuaBike = 1000, -- A volocidade da bike (1-9) outfitMale = 1787, -- Outfit male outfitFemale = 1618, -- Outfit female storageValue = 5602, -- Storage Para a bike } function onUse(cid, item, itemEx, fromPosition, toPosition) if isPlayer(cid) and getCreatureOutfit(cid).lookType == 814 then return false end if getPlayerStorageValue(cid, config.storageValue) <= 0 then local a = {lookType = config.outfitMale, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet} local b = {lookType = config.outfitFemale, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet} setPlayerStorageValue(cid, 3624, ""..getPlayerStamina(cid).."") doSendMagicEffect(getThingPos(cid), 18) doChangeSpeed(cid, -getCreatureSpeed(cid)) doChangeSpeed(cid, config.velocidadeDaSuaBike) setPlayerStorageValue(cid, config.storageValue, 1) if getPlayerSex(cid) == 0 then doSetCreatureOutfit(cid, b, -1) else doSetCreatureOutfit(cid, a, -1) end else setPlayerStorageValue(cid, config.storageValue, 0) doSendMagicEffect(getThingPos(cid), 18) doRemoveCondition(cid, CONDITION_OUTFIT) doRegainSpeed(cid) end return true end

-- ARBALEST - 10% -- CRYSTAL COIN - 30% -- BOW - 60% function onUse(cid, item, frompos, item2, topos) local ID_BOW = 4444 local ID_CRYSTALCOIN = 2160 local ID_ARBALEST = 4444 local RAND = math.random(1,10) if RAND >= 1 and RAND <= 6 then doPlayerSendTextMessage(cid, 25, "Voce recebeu um bow.") doPlayerAddItem(cid, ID_BOW, 1) elseif RAND >= 7 and RAND <= 9 then local CC = math.random(1,5) doPlayerSendTextMessage(cid, 25, "Voce recebeu "..CC.." crystal coin(s).") doPlayerAddItem(cid, ID_CRYSTALCOIN, CC) elseif RAND == 10 then doBroadcastMessage("O player "..getCreatureName(cid)..".. ganhou um arbalest.", 22) doPlayerAddItem(cid, ID_ARBALEST, 1) end doSendMagicEffect(frompos, 12) doPlayerRemoveItem(cid, item.itemid, 1) return true end

Primeiramente você precisa add essa função em sua source: setCreatureName
function onCastSpell(cid, var) local cloth = getCreatureOutfit(cid) local health = getCreatureHealth(cid) local maxhealth = getCreatureMaxHealth(cid) local MaximoSummon = 2 local summons = getCreatureSummons(cid) if(table.maxn(summons) < MaximoSummon) then local pos = getPlayerPosition(cid) local bpos = {x=pos.x+2, y = pos.y, z = pos.z} local farAwayPos = {x = 2061, y = 2056, z = 7} local Teste = doCreateMonster("Teste", farAwayPos) doConvinceCreature(cid, Teste) setCreatureMaxHealth(Teste, maxhealth) doCreatureAddHealth(Teste, health) doSetCreatureOutfit(Teste, cloth, -1) setCreatureName(Teste, "".. getCreatureName(cid) .."", "a ".. getCreatureName(cid) .."") addEvent(doSendMagicEffect, 300, pos, 2) addEvent(doTeleportThing, 300, Teste, pos) return true end end Arruma o nome do monster que servirá de base: doCreateMonster("Teste", farAwayPos)

http://www.tibiaking.com/forum/topic/38559-fun%C3%A7%C3%A3o-setcreaturenamecid-name-description/

Tente essa: 

https://github.com/Falacchi/Gesior-TibiaKing/blob/master/pages/createaccount.php

Quando for colocar algum script grande coloque-o em spoiler por favor .. 
ALTER TABLE `guilds` CHANGE COLUMN `ownerid` `owner_id` INT UNSIGNED NOT NULL;

function onUse(cid, item, fromPosition, itemEx, toPosition) if getPlayerGroupId(cid) <= 5 then doPlayerSetGroupId(cid, 6) doRemoveItem(item.uid, 1) doPlayerSendTextMessage(cid, 22, 'Você virou God.') else doPlayerSendCancel(cid, "Você já é God.") end return true end

Em globalevents/globalevents.xml adicionem a tag:
<globalevent name="website_shop" interval="30000" script="shop.lua" desc="Auto Shop System."/> Crie um arquivo lua com o nome shop.lua em globalevents/scripts/... e coloque esse código dentro:
 
SHOP_MSG_TYPE = MESSAGE_STATUS_CONSOLE_BLUE SQL_interval = 30 -- ### END OF CONFIG ### function onThink(interval, lastExecution) local result_plr = db.getResult("SELECT * FROM `z_ots_comunication` WHERE `type` = 'login';") if(result_plr:getID() ~= -1) then while(true) do id = tonumber(result_plr:getDataInt("id")) action = tostring(result_plr:getDataString("action")) delete = tonumber(result_plr:getDataInt("delete_it")) cid = getCreatureByName(tostring(result_plr:getDataString("name"))) if isPlayer(cid) == TRUE then local itemtogive_id = tonumber(result_plr:getDataInt("param1")) local itemtogive_count = tonumber(result_plr:getDataInt("param2")) local container_id = tonumber(result_plr:getDataInt("param3")) local container_count = tonumber(result_plr:getDataInt("param4")) local add_item_type = tostring(result_plr:getDataString("param5")) local add_item_name = tostring(result_plr:getDataString("param6")) local received_item = 0 local full_weight = 0 if add_item_type == 'container' then container_weight = getItemWeightById(container_id, 1) if isItemRune(itemtogive_id) == TRUE then items_weight = container_count * getItemWeightById(itemtogive_id, 1) else items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count) end full_weight = items_weight + container_weight else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) if isItemRune(itemtogive_id) == TRUE then full_weight = getItemWeightById(itemtogive_id, 1) else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) end end local free_cap = getPlayerFreeCap(cid) if full_weight <= free_cap then if add_item_type == 'container' then local new_container = doCreateItemEx(container_id, 1) doItemSetAttribute(new_container, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') doItemSetAttribute(new_container, "tid", id) local iter = 0 while iter ~= container_count do local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') doItemSetAttribute(new_item, "tid", id) doAddContainerItemEx(new_container, new_item) iter = iter + 1 end received_item = doPlayerAddItemEx(cid, new_container) else local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') doItemSetAttribute(new_item, "tid", id) received_item = doPlayerAddItemEx(cid, new_item) end if received_item == RETURNVALUE_NOERROR then doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS SHOP.') doPlayerSave(cid) db.query("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";") db.query("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";") else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.') end else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.') end end if not(result_plr:next()) then break end end result_plr:free() end return true end Créditos: Gesior.pl

-- <event type="kill" name="Exp_Extra" event="script" value="luan_gato.lua"/> -- in login.lua add event: player:registerEvent("Exp_Extra") local rate = 20 --- porcentagem que irá ganhar a mais. function onKill(cid, target, lastHit) if isPremium(cid) then local monster = Monster(target) if not monster then return true end for id, damage in pairs(monster:getDamageMap()) do local player = Player(id) if player then local experience = damage.total / monster:getType():getHealth() * monster:getType():getExperience() local expFormula = (((experience * Game.getExperienceStage(player:getLevel())) / 100) * rate) player:addExperience(math.floor(expFormula), true) end end end return true end

Entre em system/load.init e depois de session_start(); coloque isso na linha abaixo:
date_default_timezone_set("America/Sao_Paulo");  Esse erro é porque o seu php é menor que o que o site precisa para rodar, tente baixar uma versão mais recente do webserver que tu usa! [XAMPP]
 
 
Aguardo resposta!

Tente mudar a linha:
function onstartup() Para:
function onStartup()

Eu criei a sua salvação, rsrsrs

http://www.tibiaking.com/forum/topic/31768-p%C3%A1gina-de-pagamentos-dep%C3%B3sito-paypal-e-pagseguro/

Aproveite, abraços