Ir para conteúdo
Entre para seguir isso  
Mock

Mock Bank system

Recommended Posts

Mock    32
Mock


  • Autor: Mock the bearbearpaw.png
  • Servidor testado: TFS 0.3.6 E se importa p alguem UFS 0.1.1 beta

 

Esse bank system é a versão 1.0, eu não fiz a 2.0 por quer eu fiz no meu server por storage e agora fica tenso de mudar de storage pra uma tabela no banco de dados por que o povo perderia a grana. Em fim em breve vo posta um melhor.

Mais ainda sim esse bank ficou otimo³

 

Você pode usar os comandos assim:

!bank [comando] [quantidade]

  • Withdraw

!bank withdraw 1000

!bank w 1000

!withdraw 1000

  • Balance

!bank balance

!bank b

!balance

  • Deposit

!bank deposit 100

!bank d 100

!deposit 100

---

Ou entao:

!bank [comando] all

!bank deposit all

!bank withdraw all

wink.gif

Bom mais em fim. Para instalar adcione essas tags em talkactions.xml:

<talkaction words="!bank" event="script" value="bank.lua" />
<talkaction words="!withdraw" event="script" value="bank.lua" />
<talkaction words="!deposit" event="script" value="bank.lua" />
<talkaction words="!balance" event="script" value="bank.lua" />

E em bank.lua:

---Script by mock the bear
local storeige = 18316
local function msg(cid,m)
   doCreatureSay(cid,m,TALKTYPE_ORANGE_1)
   doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, m)
end
function onSay(cid, words, param, channel) ---Script by mock the bear
   local c = getPlayerStorageValue(cid,storeige)
   c = c == -1 and 0 or c
   if param:find('balance') or param == 'b'  or (words == '!balance') then
       msg(cid,'Você possue '..c..' em sua conta')
   elseif param:find('amount') or param == 'a' then
       local c = getPlayerMoney(cid)
       doCreatureSay(cid,'Você possue '..c..' gps.',TALKTYPE_ORANGE_1)
       msg(cid,'Você possue '..c..' gps.')
   elseif param:match('deposit (.+)') or param:match('d (.+)') or (words == '!deposit') then
       local v = param:match('deposit (.+)') or param:match('d (.+)') or tonumber(param) or param == 'all' and param
       local dep = tonumber(v == 'all' and getPlayerMoney(cid) or v)
       if not dep then
           doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')
       else
           if getPlayerMoney(cid) >= dep then
               setPlayerStorageValue(cid,storeige,c+dep)
               doPlayerRemoveMoney(cid,dep)
               msg(cid,'Depositado '..dep..'.')
           else
               msg(cid,'Você só possue '..getPlayerMoney(cid)..'.')
           end
       end
   elseif param:match('withdraw (.+)') or param:match('w (.+)') or (words == '!withdraw') then
       local v = param:match('withdraw (.+)') or param:match('w (.+)') or tonumber(param) or param == 'all' and param
       local dep = tonumber(v == 'all' and c or v)
       if not dep then
           doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')
       else
           if c >= dep then
               setPlayerStorageValue(cid,storeige,c-dep)
               doPlayerAddMoney(cid,dep)
               msg(cid,'Sacado '..dep..'.')
           else
               msg(cid,'Sua conta só possue '..c..'.')
           end
       end
   else
       doPlayerSendTextMessage(cid, 25, "Use assim:\n!bank deposit x\n!bank balance\n!bank withdraw\n!bank amount(ou assim)\n!bank d x\n!bank w x\n!bank deposit all\n!bank a")
   end
   return TRUE
end

:coolface:

Editado por Black Ice

Compartilhar este post


Link para o post
nogareD    0
nogareD

e se eu falar !bank d -1 ? vai dar erro ne nao

Compartilhar este post


Link para o post
Mock    32
Mock

@nogareD

não, ele vai pegar apenas o 1 ele n pega o -

Compartilhar este post


Link para o post
Malerow    0
Malerow

Mock será que teria como você colocar para usar esse script apenas Premium Accounts, porque eu to tentando por e não consigo.

Compartilhar este post


Link para o post
tigerx2    1
tigerx2

@up

Soh add na tag xml isso:

 prem="1" 

Compartilhar este post


Link para o post
Ribas1574    1
Ribas1574

Simplesmente.. Perfect

Compartilhar este post


Link para o post
Malerow    0
Malerow

aonde brother??

 

<talkaction words="!bank" event="script" value="bank.lua" />

<talkaction words="!withdraw" event="script" value="bank.lua" />

<talkaction words="!deposit" event="script" value="bank.lua" />

<talkaction words="!balance" event="script" value="bank.lua" />

Compartilhar este post


Link para o post
Mock    32
Mock

ok fail meu '-'

apaga essa mensagem xdd

Editado por Mock

Compartilhar este post


Link para o post
Cezinha    0
Cezinha

KK, calma Mock... Ele perguntou aonde ele coloca o

prem="1"

que o tigerx2 comento...

 

@Marelow

Vai ficar assim:

 

<talkaction words="!bank" event="script" prem="1" value="bank.lua" />
<talkaction words="!withdraw" event="script" prem="1" value="bank.lua" />
<talkaction words="!deposit" event="script" prem="1" value="bank.lua" />
<talkaction words="!balance" event="script" prem="1" value="bank.lua" />

 

Espero ter ajudado...

Compartilhar este post


Link para o post
Malerow    0
Malerow

gente, eu mudei só que não adiantou nada, não tinha como ver isso na script ?

Compartilhar este post


Link para o post
Criticoo    4
Criticoo

tenta assim pra premium:

 

---Script by mock the bear
local storeige = 18316
local function msg(cid,m)
doCreatureSay(cid,m,TALKTYPE_ORANGE_1)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, m)
end
function onSay(cid, words, param, channel) ---Script by mock the bear
local c = getPlayerStorageValue(cid,storeige)
c = c == -1 and 0 or c
       if isPremium(cid) ~= FALSE then
if param:find('balance') or param == 'b'  or (words == '!balance') then
 msg(cid,'Você possue '..c..' em sua conta')
elseif param:find('amount') or param == 'a' then
 local c = getPlayerMoney(cid)
 doCreatureSay(cid,'Você possue '..c..' gps.',TALKTYPE_ORANGE_1)
 msg(cid,'Você possue '..c..' gps.')
elseif param:match('deposit (.+)') or param:match('d (.+)') or (words == '!deposit') then
 local v = param:match('deposit (.+)') or param:match('d (.+)') or tonumber(param) or param == 'all' and param
 local dep = tonumber(v == 'all' and getPlayerMoney(cid) or v)
 if not dep then
  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')
 else
  if getPlayerMoney(cid) >= dep then
   setPlayerStorageValue(cid,storeige,c+dep)
   doPlayerRemoveMoney(cid,dep)
   msg(cid,'Depositado '..dep..'.')
  else
   msg(cid,'Você só possue '..getPlayerMoney(cid)..'.')
  end
 end
elseif param:match('withdraw (.+)') or param:match('w (.+)') or (words == '!withdraw') then
 local v = param:match('withdraw (.+)') or param:match('w (.+)') or tonumber(param) or param == 'all' and param
 local dep = tonumber(v == 'all' and c or v)
 if not dep then
  doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')
 else
  if c >= dep then
   setPlayerStorageValue(cid,storeige,c-dep)
   doPlayerAddMoney(cid,dep)
   msg(cid,'Sacado '..dep..'.')
  else
   msg(cid,'Sua conta só possue '..c..'.')
  end
 end
else
 doPlayerSendTextMessage(cid, 25, "Use assim:\n!bank deposit x\n!bank balance\n!bank withdraw\n!bank amount(ou assim)\n!bank d x\n!bank w x\n!bank deposit all\n!bank a")
end
              else
           doPlayerSendCancel(cid, "You need a premium account to use this comand!")
       end
return TRUE
end

Compartilhar este post


Link para o post
poots    0
poots

Vlws Mock Muito Bom OiaeuMae

Compartilhar este post


Link para o post
ricardosohn    0
ricardosohn

mock, vc faz scripts de pokemon ? se possivel me add no msn pra conversarmos melhor.

[email protected]

Compartilhar este post


Link para o post
Malerow    0
Malerow

Vlw Brother

Editado por Malerow

Compartilhar este post


Link para o post
lucasayrton    0
lucasayrton

o script funfa tambem em servidores 8.6?

 

edit-

 

testei em meu server e funcionou, vlw mock xD

Editado por lucasayrton

Compartilhar este post


Link para o post
kpdonerd    8
kpdonerd

cara esse script ta com 1 bug da pra tirar dinheiro do banco mesmo se tiver sem dinheiro exemplo se o player fala

 

!bank withdraw -30000000

 

vem grana pra ele ou seja clonar dinheiro e tenso corrigee isso ae mock por que imagina a gravidade alguem descobrir um bug desse em 1 servidor e clonar tudo.

Compartilhar este post


Link para o post
314256    2
314256

testei no server e funfo certim

Valeu man

Compartilhar este post


Link para o post
kpdonerd    8
kpdonerd

MOCKKKK

pq quando eu falo !bank withdraw -30000000

 

com o - mesmo nao tendo dinheiro vem grana ? isso é bug nao pode acontecer como corrigir isso eu gostei desse sistema to pensando em criar com um sistema dahora aonde so pode usar esses comando se tiver nos tiles (do banco) vo criar uns sprites tal interface ai cada cidade ter um banco ai se tem q ficar no tile emfrente a maquina do banco pra fazer os comandos isso ja ta quase pronto so que nao da pra eu implementar esse sistema sem essa correção plix corrige ae ;x

 

Compartilhar este post


Link para o post
kpdonerd    8
kpdonerd

corrigido o bug de clonar dinheiro ram

quem querer ta ae

local storeige = 18316

local function msg(cid,m)

doCreatureSay(cid,m,TALKTYPE_ORANGE_1)

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, m)

end

function onSay(cid, words, param, channel) ---Script by mock the bear

local c = getPlayerStorageValue(cid,storeige)

c = c == -1 and 0 or c

if param:find('balance') or param == 'b' or (words == '!balance') then

msg(cid,'Você possue '..c..' em sua conta')

elseif param:find('amount') or param == 'a' then

local c = getPlayerMoney(cid)

doCreatureSay(cid,'Você possue '..c..' gps.',TALKTYPE_ORANGE_1)

msg(cid,'Você possue '..c..' gps.')

elseif param:match('deposit (.+)') or param:match('d (.+)') or (words == '!deposit') then

local v = param:match('deposit (.+)') or param:match('d (.+)') or tonumber(param) or param == 'all' and param

local dep = tonumber(v == 'all' and getPlayerMoney(cid) or v)

if not dep then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')

else

if getPlayerMoney(cid) >= dep then

if dep >= 1 then

setPlayerStorageValue(cid,storeige,c+dep)

doPlayerRemoveMoney(cid,dep)

msg(cid,'Depositado '..dep..'.')

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor positivo')

end

else

msg(cid,'Você só possue '..getPlayerMoney(cid)..'.')

end

end

elseif param:match('withdraw (.+)') or param:match('w (.+)') or (words == '!withdraw') then

local v = param:match('withdraw (.+)') or param:match('w (.+)') or tonumber(param) or param == 'all' and param

local dep = tonumber(v == 'all' and c or v)

if not dep then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor')

else

if c >= dep then

if dep >= 1 then

setPlayerStorageValue(cid,storeige,c-dep)

doPlayerAddMoney(cid,dep)

msg(cid,'Sacado '..dep..'.')

else

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Insira um valor positivo')

end

else

msg(cid,'Sua conta só possue '..c..'.')

end

end

else

doPlayerSendTextMessage(cid, 25, "Use assim:\n!bank deposit x\n!bank balance\n!bank withdraw\n!bank amount(ou assim)\n!bank d x\n!bank w x\n!bank deposit all\n!bank a")

end

return TRUE

end

Compartilhar este post


Link para o post
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×