w8 · tx · EkG···hAc

tx · EkGxio875NzkxeFBpE2Hjz3y7DvEnL89JHdr7rF67hAc

3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT:  -0.01400000 Waves

2019.07.01 18:16 [566484] smart account 3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EkGxio875NzkxeFBpE2Hjz3y7DvEnL89JHdr7rF67hAc",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1561994174821,
    "version": 1,
    "sender": "3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT",
    "senderPublicKey": "Bhyvkx4xdbEi4KPJNZSzx9gZgzgyLEsavuj2kYSt7SST",
    "proofs": [
        "59CaG8kwBwkkK92hpqAUqEPQ25cdDLjuicQG1XTrzZ6LEb3KJPLJqv91qcsmsUkSozciQyEvqjzQyJ2Pt1opRrMd"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAmAAAAAA9TZXJ2ZXJQdWJsaWNLZXkBAAAAIL79hxhmqWX34iA/RS9p36FY3qCJjLclClmAz4vj6GlBAAAAAA1TZXJ2ZXJBZGRyZXNzCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAECAAAAIzNNdThvS1NjV0N3UjMzWW9tVDV1a1U3M1A3akxyeVpUazRzAAAAABBSb3VsZXR0ZVNlY3Rpb25zAAAAAAAAAAAVAAAAABFEYXRhR2FtZU51bWJlcktleQIAAAALQVBQX0dBTUVfSUQAAAAADURhdGFBbW91bnRLZXkCAAAABkFNT1VOVAAAAAAORGF0YVNlY3Rpb25LZXkCAAAAB1NFQ1RJT04AAAAADURhdGFTdGF0dXNLZXkCAAAABlNUQVRVUwAAAAANRGF0YVJlc3VsdEtleQIAAAAGUkVTVUxUAAAAABBEYXRhV2luQW1vdW50S2V5AgAAAApXSU5fQU1PVU5UAAAAAA1EYXRhU3RhdHVzTmV3AgAAAANORVcAAAAADURhdGFTdGF0dXNXaW4CAAAAA1dJTgAAAAAPRGF0YVN0YXR1c0xvb3NlAgAAAAVMT09TRQAAAAAHV0FWRUxFVAkAAGgAAAACCQAAaAAAAAIAAAAAAAAAAGQAAAAAAAAAA+gAAAAAAAAAA+gAAAAACkNPTU1JU1NJT04JAABpAAAAAgkAAGgAAAACAAAAAAAAAAAFBQAAAAdXQVZFTEVUAAAAAAAAAAPoAAAAAARCRVQxCQAAaAAAAAIAAAAAAAAAAAEFAAAAB1dBVkVMRVQAAAAABEJFVDIJAABoAAAAAgAAAAAAAAAAAgUAAAAHV0FWRUxFVAAAAAAEQkVUNAkAAGgAAAACAAAAAAAAAAAEBQAAAAdXQVZFTEVUAAAAAARCRVQ4CQAAaAAAAAIAAAAAAAAAAAgFAAAAB1dBVkVMRVQAAAAABUJFVDE0CQAAaAAAAAIAAAAAAAAAAA4FAAAAB1dBVkVMRVQAAAAACFNlY3Rpb25zCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAUCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAoJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAGCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAYJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAFCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAUJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAGBQAAAANuaWwAAAAAFkVycm9yT25seVdhdmVzQWNjZXB0ZWQCAAAAE09ubHkgd2F2ZXMgYWNjZXB0ZWQAAAAAFUVycm9yTXVzdEdyZWF0ZXJUaGFuMAIAAAAlUGFyYW1ldGVyIHNpemUgbXVzdCBiZSBncmVhdGVyIHRoYW4gMAAAAAAURXJyb3JNdXN0TGVzc1RoYW4xMDACAAAAJFBhcmFtZXRlciBzaXplIG11c3QgYmUgbGVzcyB0aGFuIDEwMAAAAAAVRXJyb3JCZXRNdXN0QmVJbldhdmVzAgAAABtCZXQgYW1vdW50IG11c3QgYmUgaW4gV2F2ZXMAAAAAHUVycm9yVHJhbnNhY3Rpb25NdXN0QmVJbldhdmVzAgAAACJUcmFuc2FjdGlvbidzIGZlZSBtdXN0IGJlIGluIFdhdmVzAAAAABRFcnJvclRyYW5zYWN0aW9uVXNlZAIAAAAvUGFzc2VkIHR4SWQgaGFkIGJlZW4gdXNlZCBiZWZvcmUuIEdhbWUgYWJvcnRlZC4AAAAAEEVycm9yS2V5Tm90Rm91bmQCAAAAD0tleSBub3QgZm91bmQ6IAAAAAANRXJyb3JHYW1lT3ZlcgIAAAAUR2FtZSBhbHJlYWR5IGlzIG92ZXIAAAAAG0Vycm9ySW5jb3JyZWN0U2VjdGlvblJlc3VsdAIAAAAYSW5jb3JyZWN0IHNlY3Rpb24gcmVzdWx0AAAAABhFcnJvckJldEFtb3VudE5vdEluUmFuZ2UCAAAAGkJldCBhbW91bnQgaXMgbm90IGluIHJhbmdlAQAAAAlTdG9yZURhdGEAAAADAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5AAAABXZhbHVlCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIFAAAADXRyYW5zYWN0aW9uSWQCAAAAAV8FAAAAA2tleQUAAAAFdmFsdWUBAAAADFN0b3JlRGF0YUludAAAAAMAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkAAAAFdmFsdWUJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BQAAAAV2YWx1ZQEAAAANR2V0RGF0YVN0cmluZwAAAAIAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkEAAAAB2Z1bGxLZXkJAAEsAAAAAgkAASwAAAACBQAAAA10cmFuc2FjdGlvbklkAgAAAAFfBQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAAHZnVsbEtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIFAAAAEEVycm9yS2V5Tm90Rm91bmQFAAAAB2Z1bGxLZXkBAAAACkdldERhdGFJbnQAAAACAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5BAAAAAdmdWxsS2V5CQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAB2Z1bGxLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAADc3RyBQAAAAckbWF0Y2gwBQAAAANzdHIJAAACAAAAAQkAASwAAAACBQAAABBFcnJvcktleU5vdEZvdW5kBQAAAAdmdWxsS2V5AQAAAAlOZXdHYW1lSWQAAAAABAAAAAdnYW1lTnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAEURhdGFHYW1lTnVtYmVyS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA251bQUAAAAHJG1hdGNoMAUAAAADbnVtAAAAAAAAAAAACQAAZAAAAAIFAAAAB2dhbWVOdW0AAAAAAAAAAAEBAAAAD0dlbmVyYXRlUmFuZEludAAAAAIAAAAGZ2FtZUlkAAAAB3JzYVNpZ24EAAAAC3JzYVNpZ1ZhbGlkCQAB9AAAAAMJAAJZAAAAAQUAAAAGZ2FtZUlkCQACWQAAAAEFAAAAB3JzYVNpZ24FAAAAD1NlcnZlclB1YmxpY0tleQMFAAAAC3JzYVNpZ1ZhbGlkBAAAAARyYW5kCQAAagAAAAIJAASxAAAAAQkAAfcAAAABCQABmwAAAAEFAAAAB3JzYVNpZ24FAAAAEFJvdWxldHRlU2VjdGlvbnMDCQAAZgAAAAIAAAAAAAAAAAAFAAAABHJhbmQJAABoAAAAAgD//////////wUAAAAEcmFuZAUAAAAEcmFuZAkAAAIAAAABAgAAABVJbnZhbGlkIFJTQSBzaWduYXR1cmUBAAAACUdldFN0YXR1cwAAAAEAAAAGcmVzdWx0AwUAAAAGcmVzdWx0BQAAAA1EYXRhU3RhdHVzV2luBQAAAA9EYXRhU3RhdHVzTG9vc2UBAAAADEdldFdpbkFtb3VudAAAAAEAAAAGYmV0QW10BAAAAAtiZXRBbXRWYWxpZAMDAwMJAAAAAAAAAgUAAAAGYmV0QW10CQAAZAAAAAIFAAAABEJFVDEFAAAACkNPTU1JU1NJT04GCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAARCRVQyBQAAAApDT01NSVNTSU9OBgkAAAAAAAACBQAAAAZiZXRBbXQJAABkAAAAAgUAAAAEQkVUNAUAAAAKQ09NTUlTU0lPTgYJAAAAAAAAAgUAAAAGYmV0QW10CQAAZAAAAAIFAAAABEJFVDgFAAAACkNPTU1JU1NJT04GCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAAVCRVQxNAUAAAAKQ09NTUlTU0lPTgMFAAAAC2JldEFtdFZhbGlkAAAAAAAAAAKaCQAAAgAAAAEFAAAAGEVycm9yQmV0QW1vdW50Tm90SW5SYW5nZQAAAAIAAAABaQEAAAADYmV0AAAAAQAAAA5leHBlY3RlZFJlc3VsdAQAAAARaXNJbmNvcnJlY3RSZXN1bHQDCQAAZwAAAAIAAAAAAAAAAAAFAAAADmV4cGVjdGVkUmVzdWx0BgkAAGYAAAACBQAAAA5leHBlY3RlZFJlc3VsdAAAAAAAAAAAFAQAAAAKZ2FtZU51bWJlcgkBAAAACU5ld0dhbWVJZAAAAAAEAAAAEWdhbWVUcmFuc2FjdGlvbklkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQEAAAAB2FkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQEAAAACHR4SWRVc2VkCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAABFnYW1lVHJhbnNhY3Rpb25JZAQAAAANYmV0Tm90SW5XYXZlcwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAQAAAANZmVlTm90SW5XYXZlcwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAQAAAAGYW1vdW50CAUAAAADcG10AAAABmFtb3VudAQAAAAGd2luQW10CQEAAAAMR2V0V2luQW1vdW50AAAAAQgFAAAAA3BtdAAAAAZhbW91bnQDBQAAABFpc0luY29ycmVjdFJlc3VsdAkAAAIAAAABBQAAABtFcnJvckluY29ycmVjdFNlY3Rpb25SZXN1bHQDBQAAAA1iZXROb3RJbldhdmVzCQAAAgAAAAEFAAAAFUVycm9yQmV0TXVzdEJlSW5XYXZlcwMFAAAADWZlZU5vdEluV2F2ZXMJAAACAAAAAQUAAAAdRXJyb3JUcmFuc2FjdGlvbk11c3RCZUluV2F2ZXMDBQAAAAh0eElkVXNlZAkAAAIAAAABBQAAABRFcnJvclRyYW5zYWN0aW9uVXNlZAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAAdhZGRyZXNzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABFEYXRhR2FtZU51bWJlcktleQUAAAAKZ2FtZU51bWJlcgkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFBbW91bnRLZXkFAAAABmFtb3VudAkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADkRhdGFTZWN0aW9uS2V5BQAAAA5leHBlY3RlZFJlc3VsdAkABEwAAAACCQEAAAAJU3RvcmVEYXRhAAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFTdGF0dXNLZXkFAAAADURhdGFTdGF0dXNOZXcJAARMAAAAAgkBAAAADFN0b3JlRGF0YUludAAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAABBEYXRhV2luQW1vdW50S2V5BQAAAAZ3aW5BbXQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAA1TZXJ2ZXJBZGRyZXNzBQAAAApDT01NSVNTSU9OBQAAAAR1bml0BQAAAANuaWwAAAABaQEAAAAGcmVzdWx0AAAAAgAAABFnYW1lVHJhbnNhY3Rpb25JZAAAAANyc2EEAAAABHJhbmQJAQAAAA9HZW5lcmF0ZVJhbmRJbnQAAAACBQAAABFnYW1lVHJhbnNhY3Rpb25JZAUAAAADcnNhBAAAAA9zZWxlY3RlZFNlY3Rpb24JAQAAAApHZXREYXRhSW50AAAAAgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADkRhdGFTZWN0aW9uS2V5BAAAAAZzdGF0dXMJAQAAAA1HZXREYXRhU3RyaW5nAAAAAgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFTdGF0dXNLZXkDCQAAAAAAAAIFAAAABnN0YXR1cwUAAAANRGF0YVN0YXR1c05ldwQAAAAFaXNXaW4JAAAAAAAAAgUAAAAEcmFuZAUAAAAPc2VsZWN0ZWRTZWN0aW9uBAAAAAh3cml0ZVNldAkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJU3RvcmVEYXRhAAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFTdGF0dXNLZXkJAQAAAAlHZXRTdGF0dXMAAAABBQAAAAVpc1dpbgkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFSZXN1bHRLZXkFAAAABHJhbmQFAAAAA25pbAMFAAAABWlzV2luCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgUAAAAId3JpdGVTZXQJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAANU2VydmVyQWRkcmVzcwUAAAAKQ09NTUlTU0lPTgUAAAAEdW5pdAUAAAADbmlsBQAAAAh3cml0ZVNldAkAAAIAAAABCQABLAAAAAIFAAAADUVycm9yR2FtZU92ZXIFAAAABnN0YXR1cwAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAADCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAANzdHgFAAAAByRtYXRjaDAGBwecoIfP",
    "chainId": 84,
    "height": 566484,
    "spentComplexity": 0
}

View: original | compacted
Prev: DYJDQozRVgGREyCMJgLw9Ac4hK9ji5tsjw3quXw6PVti
Next: 9iTGABtKnXks19UXagceDxnQxT7dLfgVfALKKj4TKoqm

Diff: 
Old New Differences
16 16  let DataStatusKey = "STATUS"
17 17  
18 18  let DataResultKey = "RESULT"
19 + 
20 + let DataWinAmountKey = "WIN_AMOUNT"
19 21  
20 22  let DataStatusNew = "NEW"
21 23  
154 156                  then throw(ErrorTransactionMustBeInWaves)
155 157                  else if (txIdUsed)
156 158                      then throw(ErrorTransactionUsed)
157 -                     else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
159 +                     else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew), StoreDataInt(gameTransactionId, DataWinAmountKey, winAmt)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
158 160      }
159 161  
160 162  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let ServerPublicKey = base58'DrYgfD7j6AKD1iXtn9uhMka95ATZB42B1kGKCUATP2UG'
5 5  
6 6  let ServerAddress = addressFromStringValue("3Mu8oKScWCwR33YomT5ukU73P7jLryZTk4s")
7 7  
8 8  let RouletteSections = 21
9 9  
10 10  let DataGameNumberKey = "APP_GAME_ID"
11 11  
12 12  let DataAmountKey = "AMOUNT"
13 13  
14 14  let DataSectionKey = "SECTION"
15 15  
16 16  let DataStatusKey = "STATUS"
17 17  
18 18  let DataResultKey = "RESULT"
19 + 
20 + let DataWinAmountKey = "WIN_AMOUNT"
19 21  
20 22  let DataStatusNew = "NEW"
21 23  
22 24  let DataStatusWin = "WIN"
23 25  
24 26  let DataStatusLoose = "LOOSE"
25 27  
26 28  let WAVELET = ((100 * 1000) * 1000)
27 29  
28 30  let COMMISSION = ((5 * WAVELET) / 1000)
29 31  
30 32  let BET1 = (1 * WAVELET)
31 33  
32 34  let BET2 = (2 * WAVELET)
33 35  
34 36  let BET4 = (4 * WAVELET)
35 37  
36 38  let BET8 = (8 * WAVELET)
37 39  
38 40  let BET14 = (14 * WAVELET)
39 41  
40 42  let Sections = [0, 2, 20, 2, 5, 2, 10, 2, 6, 2, 5, 2, 6, 2, 5, 2, 10, 2, 5, 2, 6]
41 43  
42 44  let ErrorOnlyWavesAccepted = "Only waves accepted"
43 45  
44 46  let ErrorMustGreaterThan0 = "Parameter size must be greater than 0"
45 47  
46 48  let ErrorMustLessThan100 = "Parameter size must be less than 100"
47 49  
48 50  let ErrorBetMustBeInWaves = "Bet amount must be in Waves"
49 51  
50 52  let ErrorTransactionMustBeInWaves = "Transaction's fee must be in Waves"
51 53  
52 54  let ErrorTransactionUsed = "Passed txId had been used before. Game aborted."
53 55  
54 56  let ErrorKeyNotFound = "Key not found: "
55 57  
56 58  let ErrorGameOver = "Game already is over"
57 59  
58 60  let ErrorIncorrectSectionResult = "Incorrect section result"
59 61  
60 62  let ErrorBetAmountNotInRange = "Bet amount is not in range"
61 63  
62 64  func StoreData (transactionId,key,value) = DataEntry(((transactionId + "_") + key), value)
63 65  
64 66  
65 67  func StoreDataInt (transactionId,key,value) = DataEntry(((transactionId + "_") + key), value)
66 68  
67 69  
68 70  func GetDataString (transactionId,key) = {
69 71      let fullKey = ((transactionId + "_") + key)
70 72      match getString(this, fullKey) {
71 73          case str: String => 
72 74              str
73 75          case _ => 
74 76              throw((ErrorKeyNotFound + fullKey))
75 77      }
76 78      }
77 79  
78 80  
79 81  func GetDataInt (transactionId,key) = {
80 82      let fullKey = ((transactionId + "_") + key)
81 83      match getInteger(this, fullKey) {
82 84          case str: Int => 
83 85              str
84 86          case _ => 
85 87              throw((ErrorKeyNotFound + fullKey))
86 88      }
87 89      }
88 90  
89 91  
90 92  func NewGameId () = {
91 93      let gameNum =     match getInteger(this, DataGameNumberKey) {
92 94          case num: Int => 
93 95              num
94 96          case _ => 
95 97              0
96 98      }
97 99      (gameNum + 1)
98 100      }
99 101  
100 102  
101 103  func GenerateRandInt (gameId,rsaSign) = {
102 104      let rsaSigValid = sigVerify(fromBase58String(gameId), fromBase58String(rsaSign), ServerPublicKey)
103 105      if (rsaSigValid)
104 106          then {
105 107              let rand = (toInt(sha256(toBytes(rsaSign))) % RouletteSections)
106 108              if ((0 > rand))
107 109                  then (-1 * rand)
108 110                  else rand
109 111              }
110 112          else throw("Invalid RSA signature")
111 113      }
112 114  
113 115  
114 116  func GetStatus (result) = if (result)
115 117      then DataStatusWin
116 118      else DataStatusLoose
117 119  
118 120  
119 121  func GetWinAmount (betAmt) = {
120 122      let betAmtValid = if (if (if (if ((betAmt == (BET1 + COMMISSION)))
121 123          then true
122 124          else (betAmt == (BET2 + COMMISSION)))
123 125          then true
124 126          else (betAmt == (BET4 + COMMISSION)))
125 127          then true
126 128          else (betAmt == (BET8 + COMMISSION)))
127 129          then true
128 130          else (betAmt == (BET14 + COMMISSION))
129 131      if (betAmtValid)
130 132          then 666
131 133          else throw(ErrorBetAmountNotInRange)
132 134      }
133 135  
134 136  
135 137  @Callable(i)
136 138  func bet (expectedResult) = {
137 139      let isIncorrectResult = if ((0 >= expectedResult))
138 140          then true
139 141          else (expectedResult > 20)
140 142      let gameNumber = NewGameId()
141 143      let gameTransactionId = toBase58String(i.transactionId)
142 144      let address = toBase58String(i.caller.bytes)
143 145      let pmt = extract(i.payment)
144 146      let txIdUsed = isDefined(getString(this, gameTransactionId))
145 147      let betNotInWaves = isDefined(pmt.assetId)
146 148      let feeNotInWaves = isDefined(pmt.assetId)
147 149      let amount = pmt.amount
148 150      let winAmt = GetWinAmount(pmt.amount)
149 151      if (isIncorrectResult)
150 152          then throw(ErrorIncorrectSectionResult)
151 153          else if (betNotInWaves)
152 154              then throw(ErrorBetMustBeInWaves)
153 155              else if (feeNotInWaves)
154 156                  then throw(ErrorTransactionMustBeInWaves)
155 157                  else if (txIdUsed)
156 158                      then throw(ErrorTransactionUsed)
157 -                     else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
159 +                     else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew), StoreDataInt(gameTransactionId, DataWinAmountKey, winAmt)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
158 160      }
159 161  
160 162  
161 163  
162 164  @Callable(i)
163 165  func result (gameTransactionId,rsa) = {
164 166      let rand = GenerateRandInt(gameTransactionId, rsa)
165 167      let selectedSection = GetDataInt(gameTransactionId, DataSectionKey)
166 168      let status = GetDataString(gameTransactionId, DataStatusKey)
167 169      if ((status == DataStatusNew))
168 170          then {
169 171              let isWin = (rand == selectedSection)
170 172              let writeSet = WriteSet([StoreData(gameTransactionId, DataStatusKey, GetStatus(isWin)), StoreDataInt(gameTransactionId, DataResultKey, rand)])
171 173              if (isWin)
172 174                  then ScriptResult(writeSet, TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
173 175                  else writeSet
174 176              }
175 177          else throw((ErrorGameOver + status))
176 178      }
177 179  
178 180  
179 181  @Verifier(tx)
180 182  func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
181 183      then     match tx {
182 184          case stx: SetScriptTransaction => 
183 185              true
184 186          case _ => 
185 187              false
186 188      }
187 189      else false
188 190

Old	New		Differences
16	16		let DataStatusKey = "STATUS"
17	17
18	18		let DataResultKey = "RESULT"
	19	+
	20	+	let DataWinAmountKey = "WIN_AMOUNT"
19	21
20	22		let DataStatusNew = "NEW"
21	23

154	156		then throw(ErrorTransactionMustBeInWaves)
155	157		else if (txIdUsed)
156	158		then throw(ErrorTransactionUsed)
157		-	else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
	159	+	else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew), StoreDataInt(gameTransactionId, DataWinAmountKey, winAmt)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
158	160		}
159	161
160	162

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let ServerPublicKey = base58'DrYgfD7j6AKD1iXtn9uhMka95ATZB42B1kGKCUATP2UG'
5	5
6	6		let ServerAddress = addressFromStringValue("3Mu8oKScWCwR33YomT5ukU73P7jLryZTk4s")
7	7
8	8		let RouletteSections = 21
9	9
10	10		let DataGameNumberKey = "APP_GAME_ID"
11	11
12	12		let DataAmountKey = "AMOUNT"
13	13
14	14		let DataSectionKey = "SECTION"
15	15
16	16		let DataStatusKey = "STATUS"
17	17
18	18		let DataResultKey = "RESULT"
	19	+
	20	+	let DataWinAmountKey = "WIN_AMOUNT"
19	21
20	22		let DataStatusNew = "NEW"
21	23
22	24		let DataStatusWin = "WIN"
23	25
24	26		let DataStatusLoose = "LOOSE"
25	27
26	28		let WAVELET = ((100 * 1000) * 1000)
27	29
28	30		let COMMISSION = ((5 * WAVELET) / 1000)
29	31
30	32		let BET1 = (1 * WAVELET)
31	33
32	34		let BET2 = (2 * WAVELET)
33	35
34	36		let BET4 = (4 * WAVELET)
35	37
36	38		let BET8 = (8 * WAVELET)
37	39
38	40		let BET14 = (14 * WAVELET)
39	41
40	42		let Sections = [0, 2, 20, 2, 5, 2, 10, 2, 6, 2, 5, 2, 6, 2, 5, 2, 10, 2, 5, 2, 6]
41	43
42	44		let ErrorOnlyWavesAccepted = "Only waves accepted"
43	45
44	46		let ErrorMustGreaterThan0 = "Parameter size must be greater than 0"
45	47
46	48		let ErrorMustLessThan100 = "Parameter size must be less than 100"
47	49
48	50		let ErrorBetMustBeInWaves = "Bet amount must be in Waves"
49	51
50	52		let ErrorTransactionMustBeInWaves = "Transaction's fee must be in Waves"
51	53
52	54		let ErrorTransactionUsed = "Passed txId had been used before. Game aborted."
53	55
54	56		let ErrorKeyNotFound = "Key not found: "
55	57
56	58		let ErrorGameOver = "Game already is over"
57	59
58	60		let ErrorIncorrectSectionResult = "Incorrect section result"
59	61
60	62		let ErrorBetAmountNotInRange = "Bet amount is not in range"
61	63
62	64		func StoreData (transactionId,key,value) = DataEntry(((transactionId + "_") + key), value)
63	65
64	66
65	67		func StoreDataInt (transactionId,key,value) = DataEntry(((transactionId + "_") + key), value)
66	68
67	69
68	70		func GetDataString (transactionId,key) = {
69	71		let fullKey = ((transactionId + "_") + key)
70	72		match getString(this, fullKey) {
71	73		case str: String =>
72	74		str
73	75		case _ =>
74	76		throw((ErrorKeyNotFound + fullKey))
75	77		}
76	78		}
77	79
78	80
79	81		func GetDataInt (transactionId,key) = {
80	82		let fullKey = ((transactionId + "_") + key)
81	83		match getInteger(this, fullKey) {
82	84		case str: Int =>
83	85		str
84	86		case _ =>
85	87		throw((ErrorKeyNotFound + fullKey))
86	88		}
87	89		}
88	90
89	91
90	92		func NewGameId () = {
91	93		let gameNum = match getInteger(this, DataGameNumberKey) {
92	94		case num: Int =>
93	95		num
94	96		case _ =>
95	97		0
96	98		}
97	99		(gameNum + 1)
98	100		}
99	101
100	102
101	103		func GenerateRandInt (gameId,rsaSign) = {
102	104		let rsaSigValid = sigVerify(fromBase58String(gameId), fromBase58String(rsaSign), ServerPublicKey)
103	105		if (rsaSigValid)
104	106		then {
105	107		let rand = (toInt(sha256(toBytes(rsaSign))) % RouletteSections)
106	108		if ((0 > rand))
107	109		then (-1 * rand)
108	110		else rand
109	111		}
110	112		else throw("Invalid RSA signature")
111	113		}
112	114
113	115
114	116		func GetStatus (result) = if (result)
115	117		then DataStatusWin
116	118		else DataStatusLoose
117	119
118	120
119	121		func GetWinAmount (betAmt) = {
120	122		let betAmtValid = if (if (if (if ((betAmt == (BET1 + COMMISSION)))
121	123		then true
122	124		else (betAmt == (BET2 + COMMISSION)))
123	125		then true
124	126		else (betAmt == (BET4 + COMMISSION)))
125	127		then true
126	128		else (betAmt == (BET8 + COMMISSION)))
127	129		then true
128	130		else (betAmt == (BET14 + COMMISSION))
129	131		if (betAmtValid)
130	132		then 666
131	133		else throw(ErrorBetAmountNotInRange)
132	134		}
133	135
134	136
135	137		@Callable(i)
136	138		func bet (expectedResult) = {
137	139		let isIncorrectResult = if ((0 >= expectedResult))
138	140		then true
139	141		else (expectedResult > 20)
140	142		let gameNumber = NewGameId()
141	143		let gameTransactionId = toBase58String(i.transactionId)
142	144		let address = toBase58String(i.caller.bytes)
143	145		let pmt = extract(i.payment)
144	146		let txIdUsed = isDefined(getString(this, gameTransactionId))
145	147		let betNotInWaves = isDefined(pmt.assetId)
146	148		let feeNotInWaves = isDefined(pmt.assetId)
147	149		let amount = pmt.amount
148	150		let winAmt = GetWinAmount(pmt.amount)
149	151		if (isIncorrectResult)
150	152		then throw(ErrorIncorrectSectionResult)
151	153		else if (betNotInWaves)
152	154		then throw(ErrorBetMustBeInWaves)
153	155		else if (feeNotInWaves)
154	156		then throw(ErrorTransactionMustBeInWaves)
155	157		else if (txIdUsed)
156	158		then throw(ErrorTransactionUsed)
157		-	else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
	159	+	else ScriptResult(WriteSet([DataEntry(gameTransactionId, address), DataEntry(DataGameNumberKey, gameNumber), StoreDataInt(gameTransactionId, DataAmountKey, amount), StoreDataInt(gameTransactionId, DataSectionKey, expectedResult), StoreData(gameTransactionId, DataStatusKey, DataStatusNew), StoreDataInt(gameTransactionId, DataWinAmountKey, winAmt)]), TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
158	160		}
159	161
160	162
161	163
162	164		@Callable(i)
163	165		func result (gameTransactionId,rsa) = {
164	166		let rand = GenerateRandInt(gameTransactionId, rsa)
165	167		let selectedSection = GetDataInt(gameTransactionId, DataSectionKey)
166	168		let status = GetDataString(gameTransactionId, DataStatusKey)
167	169		if ((status == DataStatusNew))
168	170		then {
169	171		let isWin = (rand == selectedSection)
170	172		let writeSet = WriteSet([StoreData(gameTransactionId, DataStatusKey, GetStatus(isWin)), StoreDataInt(gameTransactionId, DataResultKey, rand)])
171	173		if (isWin)
172	174		then ScriptResult(writeSet, TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
173	175		else writeSet
174	176		}
175	177		else throw((ErrorGameOver + status))
176	178		}
177	179
178	180
179	181		@Verifier(tx)
180	182		func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
181	183		then match tx {
182	184		case stx: SetScriptTransaction =>
183	185		true
184	186		case _ =>
185	187		false
186	188		}
187	189		else false
188	190

github/deemru/w8io/873ac7e 
30.57 ms ◑