Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Money cheque system
Author Message
Kapa
Journeyman
*

Posts: 74
Likes Given: 0
Likes Received: 0 in 0 posts
Joined: Oct 2014
Reputation: 0



Post: #1
Money cheque system
Hi, has anyone got money cheque system so you can transfer gold in big amounts easy.
(This post was last modified: 12-23-2014 09:59 AM by Kapa.)
12-23-2014 07:23 AM
Find all posts by this user Like Post Quote this message in a reply
AIM4FUN
Apprentice
*

Posts: 4
Likes Given: 1
Likes Received: 0 in 0 posts
Joined: Dec 2014
Reputation: 0



Post: #2
RE: Money cheque system
(12-23-2014 07:23 AM)Kapa Wrote:  Hi, has anyone got money cheque system so you can transfer gold in big amounts easy.

Code:
[FUNCTION cheque]
IF <SRC.RESTEST <ARGV[0]> i_gold>
    SRC.CONSUME=<ARGV[0]> i_gold
    SERV.NEWITEM i_cheque_gold
    NEW.CONT=<UID>
    NEW.NAME=Cheque Bancario <ARGV[0]>
    NEW.TAG.GOLD=<ARGV[0]>
    NEW.UPDATE
ELSE
    SRC.SYSMESSAGE No tienes oro suficiente.
ENDIF

[ITEMDEF i_cheque_gold]
NAME=Cheque Bancario
ID=i_board
TYPE=0
WEIGHT=0.1

ON=@DCLICK
    IF ( <TAG.GOLD> >= 1 )
        SERV.NEWITEM i_gold
        NEW.AMOUNT=<TAG.GOLD>
        NEW.CONT=<SRC.UID>
        NEW.UPDATE
        REMOVE
        RETURN 1
    ELSE
        SRC.SYSMESSAGE Este cheque esta en blanco.
        RETURN 1
    ENDIF

[EOF]

Im noob scripter but this is my idea... test it.
Is only idea for help u, no is a good script.
(Srry for my english)
(This post was last modified: 12-24-2014 02:23 AM by AIM4FUN.)
12-24-2014 02:21 AM
Find all posts by this user Like Post Quote this message in a reply
Kapa
Journeyman
*

Posts: 74
Likes Given: 0
Likes Received: 0 in 0 posts
Joined: Oct 2014
Reputation: 0



Post: #3
RE: Money cheque system
Thanks it works

no it doesnt if i make 500000 cheque when i dbl click it it gives me only 41248

and allways the same amount 41248

I think we need to use src.newgold but not sure how to set the amount
(This post was last modified: 12-24-2014 08:55 PM by Kapa.)
12-24-2014 08:46 PM
Find all posts by this user Like Post Quote this message in a reply
Gandalfs
Apprentice
*

Posts: 1
Likes Given: 0
Likes Received: 0 in 0 posts
Joined: Nov 2014
Reputation: 0



Post: #4
RE: Money cheque system
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//
//Check system Created by Spliff for sphere version 55i
//Feel free to edit as nessessary
//Thanks to Kell for the consumebank function
//
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[PLEVEL 1]
CHEQUE

[FUNCTION CHEQUE]
IF (<ARGN> <= 0)
SRC.SYSMESSAGE Debes especificar una cantidad. ej: cheque 50000
RETURN 1
ELSEIF (<ARGN> <= 50000)
SRC.SYSMESSAGE Para sumas menores de 50.000gp usa oro.
RETURN 1
ELSEIF (<SRC.BANKBALANCE> >= <ARGN>)
VAR.AMNX=<ARGN>
CONSUMEBANK <ARGN>
SRC.NEWITEM=i_cashiers_check
SRC.ACT.MORE=<ARGN>
SRC.ACT.CONT=<SRC.FINDLAYER.29.UID>
SRC.SYSMESSAGE Un cheque por <ARGN> gp ha sido depositado en tu banco.
SRC.SOUND=04f
RETURN 1
ELSE
SRC.SYSMESSAGE No tienes suficiente oro en tu banco para escribir el cheque!
RETURN 1
ENDIF

//#####################################################

[FUNCTION consumebank]
IF (<VAR.AMNX> >= 50000)
act=<SRC.FINDLAYER(layer_bankbox).uid>
act.layer=layer_pack
act.type=t_container
act.equip
src.consume 50000 i_gold
VAR.AMNX=(<VAR.AMNX>+-50000)
act.layer=layer_bankbox
act.type=t_eq_bank_box
act.equip
consumebank <VAR.AMNX>
RETURN 1
ELSEIF (<VAR.AMNX> <= 0)
VAR.AMNX=
RETURN 1
ELSE
act=<SRC.FINDLAYER(layer_bankbox).uid>
act.layer=layer_pack
act.type=t_container
act.equip
src.consume <VAR.AMNX> i_gold
VAR.AMNX=
act.layer=layer_bankbox
act.type=t_eq_bank_box
act.equip
RETURN 1
ENDIF

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[ITEMDEF i_cashiers_check]
ID=i_deed
Name=Cheque
TYPE=t_normal

CATEGORY=Custom
SUBSECTION=Misc
DESCRIPTION=Cheque (en blanco)

ON=@CREATE
ATTR=04
COLOR=0798

ON=@CLICK
MESSAGE <NAME> por: <MORE> gp
RETURN 1

ON=@DCLICK
IF (<MORE> <= 0)
REMOVE
RETURN 1
ELSE
VAR.AMNT=<MORE>
GIVEGOLD
SRC.SOUND=037
SRC.SYSMESSAGE <MORE> monedas de oro han sido depositadas en tu banco.
REMOVE
RETURN 1
ENDIF


[FUNCTION Givegold]
IF (<VAR.AMNT> >= 50000)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=50000
SRC.ACT.CONT=<SRC.FINDLAYER.29.UID>
VAR.AMNT=(<VAR.AMNT>+-50000)
GIVEGOLD
RETURN 1
ELSEIF (<VAR.AMNT> <= 0)
VAR.AMNT=
RETURN 1
ELSE
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=<VAR.AMNT>
SRC.ACT.CONT=<SRC.FINDLAYER.29.UID>
VAR.AMNT=
RETURN 1
ENDIF


[EOF]
(This post was last modified: 12-25-2014 01:54 AM by Gandalfs.)
12-25-2014 01:54 AM
Find all posts by this user Like Post Quote this message in a reply
mrkarlo
Journeyman
*

Posts: 160
Likes Given: 3
Likes Received: 6 in 5 posts
Joined: Mar 2012
Reputation: 1



Post: #5
RE: Money cheque system
thnx! very useful scp! Its possible to set - so when you sell something to a vendor, he gave many piles of gold not more than 50000?
(This post was last modified: 01-05-2015 04:54 AM by mrkarlo.)
01-05-2015 04:54 AM
Find all posts by this user Like Post Quote this message in a reply
Extreme
Grandmaster Poster
***

Posts: 1,140
Likes Given: 217
Likes Received: 89 in 76 posts
Joined: May 2012
Reputation: 20

SphereCommunity

Post: #6
RE: Money cheque system
You really don't need this big script... Just use gold += amount and -= in the right place...

STEPS BEFORE CREATE A THREAD
- Check the revisions log;
- Use the search button and use the keywords of your problem;
- Check the WIKI;
- Create a thread.
01-05-2015 06:51 AM
Find all posts by this user Like Post Quote this message in a reply
mrkarlo
Journeyman
*

Posts: 160
Likes Given: 3
Likes Received: 6 in 5 posts
Joined: Mar 2012
Reputation: 1



Post: #7
RE: Money cheque system
thanx for respond! Need some help! Where this place is correctly located? I use 56b, very good and stable.
01-07-2015 12:38 AM
Find all posts by this user Like Post Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)