need scripts

[luks777]

hello guys

im struggling to find scripts regarding:
1 - using an statue as a teleport for vip players
2 - joining part together eg gp, runes
3 - command on demanding day left of vip eg (!vip)
4 - allowing 2 characters on the same square

Thanks!

 

[Himii]

1 - Vip system?
2 - Describe better pl0x :3
3 - Vip system?

 

[luks777]

1 -what i want is a teleport as a statue for vip use only with out creating door for them to enter.
2- eg. in bag what i want instead of couple of gold when you are collecting. i want to set so the system will automatically make it to the right amount in one
3 - i think i have found the script

 

[Himii]

Can you post any part of the vip system?, for example vip medal.
Auto Stacking? I shuld just use any of the 0.4 tfs.

 

[Swiff]

This is my first script I made for someone else, so I'm not 100 percent sure it's coded the right way, but should be if you have the VIP storage.
1:

function onUse(cid, item, frompos, item2, topos)
     viparea = {x=111, y=111, z=7} -- where player get teleported

     if (getPlayerStorageValue(cid,xxxx)) == true) then -- xxxx is the global VIP storage you're using
          doSendMagicEffect(topos, 12)
          doTeleportThing(cid, viparea)
          doSendMagicEffect(viparea, 12)
          doPlayerSendTextMessage(cid, 22, "Welcome to VIP area!")
     else
          doPlayerSendTextMessage(cid, 22, "You need to be VIP to enter VIP area!")
     end
end

2: http://otland.net/threads/autostacking-stackable-items-in-tfs-0-3-6pl1.162795/

 

[luks777]

Vip Door:

<!-- VIP -->
<action actionid="5786" script="vipdoor.lua"/>
<action itemid="5785" script="vip.lua"/>

-> data/actions/scripts/vipdoor.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
if isPlayerVip(cid) == TRUE then
if getCreaturePosition(cid).y < toPosition.y then
doTeleportThing(cid, {x=toPosition.x,y=toPosition.y+1,z=toPosition.z}, TRUE)
else
doTeleportThing(cid, {x=toPosition.x,y=toPosition.y-1,z=toPosition.z}, TRUE)
end
doCreatureSay(cid, "Welcome VIP Player!", TALKTYPE_ORANGE_1)
doSendMagicEffect(getCreaturePosition(cid), 10)
else
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sorry, but only VIP Players can pass here! Buy VIP on the WEB.")
end
return TRUE
end

i dont wanna tfs 0.4 i want to do ots for 8.6 tibia

 

[Himii]

viparea = {x=111, y=111, z=7} -- where player get teleported

function onUse(cid, item, fromPosition, itemEx, toPosition)
if (isPlayerVip(cid) == TRUE) then
doSendMagicEffect(topos, 12)
doTeleportThing(cid, viparea)
doSendMagicEffect(viparea, 12)
doPlayerSendTextMessage(cid, 22, "Welcome to VIP area!")
else
doPlayerSendTextMessage(cid, 22, "You need to be VIP to enter VIP area!")
end
end

Btw, 0.4 is 8.6

 

[luks777]

where do i need to write pos?

 

[Himii]

viparea = {x=111, y=111, z=7}

 

[luks777]

i have done it. i dont have any error at all. in game say "you cannot use this object"

Swiff autostocking i need to do in c++ ?

 

[Himii]

How did you add this object?
Yes the autostacking is an c++

Add me on skype if you need any additional help:
Himii100

 

[Swiff]

@ luks777 Yes it's a source edit for clients below 8.6
In 8.6+ I believe it's alredy implemented. I'm using 8.54 myself so I can't help you much there

You need to make this in actions/scripts/other vipstatue.lua
and in actions.xml

<action actionid="xxxx" script="other/vipstatue" />

XXXX is the action id that you set on the statue in map editor

 

[Swiff]

try this if not work:

viparea = {x=111, y=111, z=7} -- where player get teleported

function onUse(cid, item, fromPosition, itemEx, toPosition)
if item.actionid == zzzz and (isPlayerVip(cid) == TRUE) then -- zzzz is the actionId you set on the item on map
doSendMagicEffect(topos, 12)
doTeleportThing(cid, viparea)
doSendMagicEffect(viparea, 12)
doPlayerSendTextMessage(cid, 22, "Welcome to VIP area!")
else
doPlayerSendTextMessage(cid, 22, "You need to be VIP to enter VIP area!")
end
end

 

[luks777]

it is not working

 

[Himii]

local vippos =

function onUse(cid, item, fromPosition, itemEx, toPosition)
    if (isPlayerVip(cid) == TRUE) then
        doSendMagicEffect(topos, 12)
        doTeleportThing(cid, viparea)
        doSendMagicEffect(viparea, 12)
        doPlayerSendTextMessage(cid, 22, "Welcome to VIP area!")
    else
        doPlayerSendTextMessage(cid, 22, "You need to be VIP player to enter VIP area!")
    end
    return true
end