102 lines
3.8 KiB
QBasic
102 lines
3.8 KiB
QBasic
/* Lottery Smart Contract Example in DVM-BASIC.
|
|
This lottery smart contract will give lottery wins on every second try in following default contract.
|
|
Make depost transaction to this SCID to play lottery.
|
|
Check https://github.com/deroproject/derohe/blob/main/guide/examples/lottery_sc_guide.md
|
|
*/
|
|
|
|
|
|
|
|
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 // if deposit amount is 0, simply return
|
|
30 STORE("depositor_address" + (deposit_count-1), SIGNER()) // store address for later on payment
|
|
40 STORE("deposit_total", LOAD("deposit_total") + DEROVALUE() )
|
|
50 STORE("deposit_count",deposit_count)
|
|
60 IF LOAD("lotteryeveryXdeposit") > deposit_count THEN GOTO 110 // we will wait till X players join in
|
|
// we are here means all players have joined in, roll the DICE,
|
|
70 LET winner = RANDOM() % deposit_count // we have a winner
|
|
80 SEND_DERO_TO_ADDRESS(LOAD("depositor_address" + winner) , LOAD("lotterygiveback")*LOAD("deposit_total")/10000)
|
|
// Re-Initialize for another round
|
|
90 STORE("deposit_count", 0) // initial players
|
|
100 STORE("deposit_total", 0) // total deposit of all players
|
|
110 RETURN 0
|
|
End Function
|
|
|
|
|
|
function q()
|
|
10 MAPSTORE(2, 2) // this will store to ram
|
|
20 return
|
|
End function
|
|
// This function is used to initialize parameters during install time
|
|
Function Initialize() Uint64
|
|
5 MAPSTORE("owner", SIGNER())
|
|
10 STORE("owner", MAPGET("owner")) // store in DB ["owner"] = address
|
|
15 q()
|
|
20 STORE("lotteryeveryXdeposit", MAPGET(2)) //,, recover value stored in function q, lottery will reward every X deposits
|
|
// How much will lottery giveback in 1/10000 parts, granularity .01 %
|
|
30 STORE("lotterygiveback", 9900) // lottery will give reward 99% of deposits, 1 % is accumulated for owner to withdraw
|
|
33 STORE("deposit_count", 0) // initial players
|
|
34 STORE("deposit_total", 0) // total deposit of all players
|
|
// 35 printf "Initialize executed"
|
|
40 RETURN 0
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Function to tune lottery parameters
|
|
Function TuneLotteryParameters(input Uint64, lotteryeveryXdeposit Uint64, lotterygiveback Uint64) Uint64
|
|
10 dim key,stored_owner as String
|
|
20 dim value_uint64 as Uint64
|
|
30 IF LOAD("owner") == SIGNER() THEN GOTO 100 // check whether owner is real owner
|
|
40 RETURN 1
|
|
|
|
100 STORE("lotteryeveryXdeposit", lotteryeveryXdeposit) // lottery will reward every X deposits
|
|
130 STORE("lotterygiveback", value_uint64) // how much will lottery giveback in 1/10000 parts, granularity .01 %
|
|
140 RETURN 0 // return success
|
|
End Function
|
|
|
|
|
|
|
|
// This function is used to change owner
|
|
// owner is an string form of address
|
|
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
|
|
|
|
// Until the new owner claims ownership, existing owner remains owner
|
|
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
|
|
|
|
// If signer is owner, withdraw any requested funds
|
|
// If everthing is okay, they will be showing in signers wallet
|
|
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
|
|
|
|
// If signer is owner, provide him rights to update code anytime
|
|
// make sure update is always available to SC
|
|
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
|
|
|
|
|
|
|
|
|