| SC Arguments: [Name:SC_ACTION Type:uint64 Value:'1' Name:SC_CODE Type:string Value:'// This is a nice attempt
Function InitializePrivate() Uint64
01 RETURN 0
End Function
Function NewAcct() Uint64
// initialize variables
01 dim signer,reg as string
// initialize "TXID()" as a HEX version of SIGNER
02 LET reg = HEX(TXID())
// initialize "SIGNER()" as a HEX version of SIGNER
03 LET signer = HEX(SIGNER())
// check if signer exists
04 IF EXISTS(signer) THEN GOTO 40
// store NewAcct
10 STORE(signer,reg)
// store Bal
15 STORE(reg,0)
30 RETURN 0
40 RETURN 1
End Function
Function Deposit() Uint64
// initialize string variables
01 dim signer,reg,txid as string
// initialize "TXID()" as a HEX version of SIGNER
02 LET txid = HEX(TXID())
// initialize "SIGNER()" as a HEX version of SIGNER
03 LET signer = HEX(SIGNER())
// check if signer exists
04 IF EXISTS(signer) THEN GOTO 06 ELSE GOTO 05
// signer does not exist
05 RETURN 1
// initialize "reg txid" as acct
06 LET reg = LOAD(signer)
// initialize Uint64 variables
07 dim bal,deposit as Uint64
// initialize DERO() as deposit
08 LET deposit = DEROVALUE()
// initialize reg key as value bal
09 LET bal = LOAD(reg)
// do maths son
10 LET bal = bal + deposit
// store new bal
11 STORE(reg,bal)
// record txid
10 STORE(txid,"DEBIT::"+signer+"::"+deposit)
20 RETURN 0
End Function
Function Withdraw(amount Uint64) Uint64
// initialize string variables
01 dim signer,reg,txid as string
// initialize "TXID()" as a HEX version of SIGNER
02 LET txid = HEX(TXID())
// initialize "SIGNER()" as a HEX version of SIGNER
03 LET signer = HEX(SIGNER())
// check if signer exists
04 IF EXISTS(signer) THEN GOTO 06 ELSE GOTO 05
// signer does not exist
05 RETURN 1
// initialize "reg txid" as acct
06 LET reg = LOAD(signer)
// initialize bal of reg txid
07 LET bal = LOAD(reg)
08 IF amount > bal THEN GOTO 30
// withdraw
10 SEND_DERO_TO_ADDRESS(SIGNER(),amount)
// record withdrawl
11 STORE(HEX(TXID()),"CREDIT::"+signer+"::"+DEROVALUE())
// do maths son
14 LET bal = bal - amount
// update balance
15 STORE(reg,bal)
20 RETURN 0
30 RETURN 1
End Function
'] |
