function onSay(cid, words, param, channel)
strplayer = 18316
str = getPlayerStorageValue(cid,strplayer)
str = str == -1 and 0 or str



if param:find('balance') then
doPlayerSendTextMessage(cid, 22, "Voce tem na sua conta: " .. str .. " gold coins.")
doSendMagicEffect(getThingPos(cid), 12)
end


if param:match('deposit') then
local v = param:match('deposit (.+)') or tonumber(param) or param == 'all' and param
local gc = tonumber(v == 'all' and getPlayerMoney(cid) or v)
if not gc then
doPlayerSendTextMessage(cid, 22, 'digite um valor para ser depositado')
doSendMagicEffect(getThingPos(cid), 2)
else

if getPlayerMoney(cid) >= gc then
setPlayerStorageValue(cid,strplayer,str+gc)
doPlayerRemoveMoney(cid,gc)
doPlayerSendTextMessage(cid, 22,'foi depositado em sua conta: '..gc..' gold coins.')
doSendMagicEffect(getThingPos(cid), 12)
else doPlayerSendTextMessage(cid, 22, 'voce tem apenas: '..getPlayerMoney(cid)..' gold coins.')
doSendMagicEffect(getThingPos(cid), 2)
end
end end
	   
if param:match('withdraw') then
local v = param:match('withdraw (.+)') or param:match('w (.+)') or tonumber(param) or param == 'all' and param
local gc = tonumber(v == 'all' and str or v)
if not gc then
doPlayerSendTextMessage(cid, 22, 'digite um valor')
else
if str >= gc then
setPlayerStorageValue(cid,strplayer,str-gc)
doPlayerAddMoney(cid,gc)
doPlayerSendTextMessage(cid,22,'foi retirado da sua conta: '..gc..' gold coins.')
doSendMagicEffect(getThingPos(cid), 12)
else
doPlayerSendTextMessage(cid,22,'na sua conta tem apenas '..str..' gold coins.')
doSendMagicEffect(getThingPos(cid), 2)
end
end
end
return TRUE
end

<talkaction words="/banco" event="script" value="arquivolua.lua" />

Comandos :

Exemplo de retirar:
/banco withdraw 100 ou /banco withdraw all

Exemplo Deposito:
/banco deposit 100 ou /banco deposit all

balance:
/banco balance