vá até talkactions/scripts Crie um arquivo.lua e renomeie para systemvip.lua

dentro coloque:

-- Script System Vip 2.2 -- function onSay(cid, words, param) if(words == "!buyvip") then local price = 5000000 if doPlayerRemoveMoney(cid, price) == TRUE then local days = 30 local daysvalue = days * 24 * 60 * 60 local storageplayer = getPlayerStorageValue(cid, 13540) local timenow = os.time() if getPlayerStorageValue(cid, 13540) - os.time() <= 0 then time = timenow + daysvalue else time = storageplayer + daysvalue end if string.find(tostring(getCreatureName(cid)),"[[Vip]]") then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.") setPlayerStorageValue(cid, 13540, time) local quantity = math.floor((getPlayerStorageValue(cid, 13540) - timenow)/(24 * 60 * 60)) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.") else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.") setPlayerStorageValue(cid, 13540, time) local name = getCreatureName(cid) db.executeQuery("UPDATE `players` SET `name` = '[Vip] "..name.."' WHERE `id` = "..getPlayerGUID(cid)..";") doRemoveCreature(cid) end else doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você precisa de "..price.." gp's para colocar vip.") end elseif(words == "!vipdays") then local timenow = os.time() local quantity = math.floor((getPlayerStorageValue(cid, 13540) - timenow)/(24 * 60 * 60)) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no seu character.") elseif(words == "/checkvip") then if getPlayerAccess(cid) == 5 then if not param then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.") end local player = getPlayerByName(param) if not isPlayer(player) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player "..player.." not found.") end local timenow = os.time() local quantity = math.floor((getPlayerStorageValue(player, 13540) - timenow)/(24 * 60 * 60)) doPlayerPopupFYI(cid, "O jogador tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no character.") return TRUE end elseif(words == "/addvip") then if getPlayerAccess(cid) == 5 then local t = string.explode(param, ",") if not t[2] then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.") end local player = getPlayerByName(t[1]) local name = getCreatureName(player) local days = t[2] local pid = getPlayerByNameWildcard(t[1]) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player with this name doesn\'t exist or is offline.") return TRUE end local daysvalue = days*3600*24 local storageplayer = getPlayerStorageValue(player, 13540) local timenow = os.time() local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue) if string.find(tostring(getCreatureName(pid)),"[[Vip]]") then doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Foram adicionados "..days.." dias de VIP no seu character.") setPlayerStorageValue(player, 13540, time) local quantity = math.floor((getPlayerStorageValue(player,13540) - timenow)/(3600*24)) doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Você tem "..quantity.." dias de VIP restantes.") else setPlayerStorageValue(player, 13540, time) db.executeQuery("UPDATE `players` SET `name` = '[Vip] "..name.."' WHERE `id` = "..getPlayerGUID(player)..";") doRemoveCreature(player) end end elseif(words == "/delvip") then if getPlayerAccess(cid) == 5 then local dec = MESSAGE_INFO_DESCR if(param == "") then return TRUE,doPlayerSendTextMessage(cid,18,"Command param required.")end local C,t = {},string.explode(param, ",") C.pos = getPlayerPosition(cid) C.uid = getCreatureByName(t[1]) C.time = ((tonumber(t[2]) == nil) and 1 or tonumber(t[2]))*3600*24 --Tempo da vip por dia. C.days = (tonumber(t[2]) == nil) and 1 or tonumber(t[2]) --Dias de vip. if(getPlayerStorageValue(C.uid,13540) < C.time)then doPlayerSendTextMessage(cid,dec,'O jogador '..t[1]..' não possui '..C.days..' dias de vip.') else doPlayerSendTextMessage(cid,dec,'Você removeu '..C.days..' dias de vip do player '..t[1]..'.') setPlayerStorageValue(C.uid,13540,getPlayerStorageValue(C.uid,13540)-C.time)end doSendMagicEffect(C.pos, math.random(28,30)) end end return TRUE end

price = é o quanto a vip vai custar em gps

days = quantos dias de vip serão adicionados ao player

em talkactions.xml adicione a tag:

<talkaction words="!vipdays;!buyvip;/checkvip;/addvip;/delvip" script="systemvip.lua"/>

Pronto primeiro passo terminado.

Sistema vip sem o !buyvip abra a spoiler

Spoiler

----------------------------------------------------------------------------------------------------------------------------

Tile VIP

Segundo passo.

vá até movements/scripts crie um arquivo.lua e renomeie para vipe.lua

dentro coloque:

-- Script Vip Sytem 1.0 --function onStepIn(cid, item, position, fromPosition)local config = {msgDenied = "Você não e vip ,fale com Administrador do Server.",msgWelcome = "Seja Bem Vindo a Area vip."}if getPlayerStorageValue(cid, 13540) - os.time() <= 0 thendoTeleportThing(cid, fromPosition, true)doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgDenied)doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)return TRUEenddoPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgWelcome)return TRUEend

Em movements.xml adicione a tag:

<movevent type="StepIn" uniqueid="13700" event="script" value="vipe.lua"/>

FIM DA VIP

creaturescript/script

crie um arquivo.lua e renomeie para

endvip.lua

e cole isso dentro dele:

--[[ by EddyHavoc Tibiaking.com ]]--function onLogin(cid)if getPlayerStorageValue(cid, 13540) - os.time() > 0 thensetPlayerStorageValue(cid, 9898, 1)endlocal pos = {x = 157, y = 50, z = 7} -- posiçao do templo. function EddyHavoc(cid)if isPlayer(cid) then db.executeQuery("UPDATE `players` SET `name` = '"..string.sub(getCreatureName(cid), 7).."' WHERE `id` = "..getPlayerGUID(cid)..";")doRemoveCreature(cid)endendif getPlayerStorageValue(cid, 9898) == 1 and getPlayerStorageValue(cid, 13540) - os.time() < 1 or getPlayerStorageValue(cid, 13540) - os.time() == 0 thendoTeleportThing(cid, pos) doPlayerPopupFYI(cid, "Sua vip Account acabou.")setPlayerStorageValue(cid, 9898, -1)if string.find(tostring(getCreatureName(cid)),"[[Vip]]") then addEvent(EddyHavoc, 3*1000, cid)endendreturn TRUEend

em creaturescript.xml adicione a tag:

<event type="login" name="CheckVip" script="endvip.lua"/>

Editado Agosto 16, 2012 12 anos por kaio Santos (veja o histórico de edições)

Simples isso so ir em data / actions / scripts / e renome algum arquivo para vipp.lua e adicione

function onUse(cid, item, frompos, item2, topos)

    if item.uid == 7515 then

	 queststatus = getPlayerStorageValue(cid,7515)

	 if queststatus == -1 then

	  doPlayerSendTextMessage(cid,22,"Voce ganhou Special Set.")

					    setPlayerStorageValue(cid,7515,1)

	 else

	  doPlayerSendTextMessage(cid,22,"Voce ja pegou o set")

	 end

	   else

  return 0

    end

    return 1

end

este e o correto do mapa Baiakzik