SC CODE: // Lottery
Function Lottery() Uint64
10 dim deposit_count,winner as Uint64
20 LET deposit_count = LOAD("deposit_count")+1
25 IF DEROVALUE() == 0 THEN GOTO 110
30 STORE("depositor_address" + (deposit_count-1), SIGNER())
40 STORE("deposit_total", LOAD("deposit_total") + DEROVALUE() )
50 STORE("deposit_count",deposit_count)
60 IF LOAD("lotteryeveryXdeposit") > deposit_count THEN GOTO 110
70 LET winner = RANDOM() % deposit_count
80 SEND_DERO_TO_ADDRESS(LOAD("depositor_address" + winner) , LOAD("lotterygiveback")*LOAD("deposit_total")/10000)
90 STORE("deposit_count", 0)
100 STORE("deposit_total", 0)
110 RETURN 0
End Function
Function Initialize() Uint64
10 IF SIGNER() == address_raw("dero1qyd2vnxncqch4jknxzmfkf4jrvck9vakklx0xcufv9apptqx8qlu6qgv26xst") THEN GOTO 30
20 RETURN 0
30 version("1.2.3")
40 STORE("owner", SIGNER())
50 STORE("lotteryeveryXdeposit", 40)
60 STORE("lotterygiveback", 9500)
65 STORE("note", "Welcome to the lottery")
70 STORE("deposit_count", 0)
80 STORE("deposit_total", 0)
90 RETURN 0
End Function
Function TuneLotteryParameters(input Uint64, lotteryeveryXdeposit Uint64, lotterygiveback Uint64, note String) Uint64
10 dim key,stored_owner as String
20 dim value_uint64 as Uint64
30 IF LOAD("owner") == SIGNER() THEN GOTO 100
40 RETURN 1
100 STORE("lotteryeveryXdeposit", lotteryeveryXdeposit)
130 STORE("lotterygiveback", lotterygiveback)
135 STORE("note", note)
140 RETURN 0
End Function
Function TransferOwnership(newowner String) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 STORE("tmpowner",ADDRESS_RAW(newowner))
40 RETURN 0
End Function
Function ClaimOwnership() Uint64
10 IF LOAD("tmpowner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 STORE("owner",SIGNER()) // ownership claim successful
40 RETURN 0
End Function
Function Withdraw( amount Uint64) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 SEND_DERO_TO_ADDRESS(SIGNER(),amount)
40 RETURN 0
End Function
Function UpdateCode( code String) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 UPDATE_SC_CODE(code)
40 RETURN 0
End Function |
SC Arguments: [Name:SC_ACTION Type:uint64 Value:'1' Name:SC_CODE Type:string Value:'// Lottery
Function Lottery() Uint64
10 dim deposit_count,winner as Uint64
20 LET deposit_count = LOAD("deposit_count")+1
25 IF DEROVALUE() == 0 THEN GOTO 110
30 STORE("depositor_address" + (deposit_count-1), SIGNER())
40 STORE("deposit_total", LOAD("deposit_total") + DEROVALUE() )
50 STORE("deposit_count",deposit_count)
60 IF LOAD("lotteryeveryXdeposit") > deposit_count THEN GOTO 110
70 LET winner = RANDOM() % deposit_count
80 SEND_DERO_TO_ADDRESS(LOAD("depositor_address" + winner) , LOAD("lotterygiveback")*LOAD("deposit_total")/10000)
90 STORE("deposit_count", 0)
100 STORE("deposit_total", 0)
110 RETURN 0
End Function
Function Initialize() Uint64
10 IF SIGNER() == address_raw("dero1qyd2vnxncqch4jknxzmfkf4jrvck9vakklx0xcufv9apptqx8qlu6qgv26xst") THEN GOTO 30
20 RETURN 0
30 version("1.2.3")
40 STORE("owner", SIGNER())
50 STORE("lotteryeveryXdeposit", 40)
60 STORE("lotterygiveback", 9500)
65 STORE("note", "Welcome to the lottery")
70 STORE("deposit_count", 0)
80 STORE("deposit_total", 0)
90 RETURN 0
End Function
Function TuneLotteryParameters(input Uint64, lotteryeveryXdeposit Uint64, lotterygiveback Uint64, note String) Uint64
10 dim key,stored_owner as String
20 dim value_uint64 as Uint64
30 IF LOAD("owner") == SIGNER() THEN GOTO 100
40 RETURN 1
100 STORE("lotteryeveryXdeposit", lotteryeveryXdeposit)
130 STORE("lotterygiveback", lotterygiveback)
135 STORE("note", note)
140 RETURN 0
End Function
Function TransferOwnership(newowner String) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 STORE("tmpowner",ADDRESS_RAW(newowner))
40 RETURN 0
End Function
Function ClaimOwnership() Uint64
10 IF LOAD("tmpowner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 STORE("owner",SIGNER()) // ownership claim successful
40 RETURN 0
End Function
Function Withdraw( amount Uint64) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 SEND_DERO_TO_ADDRESS(SIGNER(),amount)
40 RETURN 0
End Function
Function UpdateCode( code String) Uint64
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 UPDATE_SC_CODE(code)
40 RETURN 0
End Function'] |