w8 · tx · Ddi···jjJ

tx · DdidCosjvqoP3AM1mWJ4rp2JXEBF2xaasnvRk2Z8TjjJ

3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT:  -0.01400000 Waves

2019.07.01 18:46 [566518] smart account 3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DdidCosjvqoP3AM1mWJ4rp2JXEBF2xaasnvRk2Z8TjjJ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1561996056135,
    "version": 1,
    "sender": "3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT",
    "senderPublicKey": "Bhyvkx4xdbEi4KPJNZSzx9gZgzgyLEsavuj2kYSt7SST",
    "proofs": [
        "3BgXeEk2CQak8BXLjYaSKiutVNsH4qyZ5wS78xD55X3g5qeqvZmeMbQpHobeqEDrbR4tmHoUE537EX6ZDiVgRVWS"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAnAAAAAA9TZXJ2ZXJQdWJsaWNLZXkBAAAAIL79hxhmqWX34iA/RS9p36FY3qCJjLclClmAz4vj6GlBAAAAAA1TZXJ2ZXJBZGRyZXNzCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAECAAAAIzNNdThvS1NjV0N3UjMzWW9tVDV1a1U3M1A3akxyeVpUazRzAAAAABBSb3VsZXR0ZVNlY3Rpb25zAAAAAAAAAAAVAAAAABFEYXRhR2FtZU51bWJlcktleQIAAAALQVBQX0dBTUVfSUQAAAAADURhdGFBbW91bnRLZXkCAAAABkFNT1VOVAAAAAAORGF0YVNlY3Rpb25LZXkCAAAAB1NFQ1RJT04AAAAADURhdGFTdGF0dXNLZXkCAAAABlNUQVRVUwAAAAANRGF0YVJlc3VsdEtleQIAAAAGUkVTVUxUAAAAABBEYXRhV2luQW1vdW50S2V5AgAAAApXSU5fQU1PVU5UAAAAAA1EYXRhU3RhdHVzTmV3AgAAAANORVcAAAAADURhdGFTdGF0dXNXaW4CAAAAA1dJTgAAAAAPRGF0YVN0YXR1c0xvb3NlAgAAAAVMT09TRQAAAAAHV0FWRUxFVAkAAGgAAAACCQAAaAAAAAIAAAAAAAAAAGQAAAAAAAAAA+gAAAAAAAAAA+gAAAAACkNPTU1JU1NJT04JAABpAAAAAgkAAGgAAAACAAAAAAAAAAAFBQAAAAdXQVZFTEVUAAAAAAAAAAPoAAAAAARCRVQxCQAAaAAAAAIAAAAAAAAAAAEFAAAAB1dBVkVMRVQAAAAABEJFVDIJAABoAAAAAgAAAAAAAAAAAgUAAAAHV0FWRUxFVAAAAAAEQkVUNAkAAGgAAAACAAAAAAAAAAAEBQAAAAdXQVZFTEVUAAAAAARCRVQ4CQAAaAAAAAIAAAAAAAAAAAgFAAAAB1dBVkVMRVQAAAAABUJFVDE0CQAAaAAAAAIAAAAAAAAAAA4FAAAAB1dBVkVMRVQAAAAACFNlY3Rpb25zCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAUCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAoJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAGCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAYJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAFCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAUJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAGBQAAAANuaWwAAAAAFkVycm9yT25seVdhdmVzQWNjZXB0ZWQCAAAAE09ubHkgd2F2ZXMgYWNjZXB0ZWQAAAAAFUVycm9yTXVzdEdyZWF0ZXJUaGFuMAIAAAAlUGFyYW1ldGVyIHNpemUgbXVzdCBiZSBncmVhdGVyIHRoYW4gMAAAAAAURXJyb3JNdXN0TGVzc1RoYW4xMDACAAAAJFBhcmFtZXRlciBzaXplIG11c3QgYmUgbGVzcyB0aGFuIDEwMAAAAAAVRXJyb3JCZXRNdXN0QmVJbldhdmVzAgAAABtCZXQgYW1vdW50IG11c3QgYmUgaW4gV2F2ZXMAAAAAHUVycm9yVHJhbnNhY3Rpb25NdXN0QmVJbldhdmVzAgAAACJUcmFuc2FjdGlvbidzIGZlZSBtdXN0IGJlIGluIFdhdmVzAAAAABRFcnJvclRyYW5zYWN0aW9uVXNlZAIAAAAvUGFzc2VkIHR4SWQgaGFkIGJlZW4gdXNlZCBiZWZvcmUuIEdhbWUgYWJvcnRlZC4AAAAAEEVycm9yS2V5Tm90Rm91bmQCAAAAD0tleSBub3QgZm91bmQ6IAAAAAANRXJyb3JHYW1lT3ZlcgIAAAAUR2FtZSBhbHJlYWR5IGlzIG92ZXIAAAAAG0Vycm9ySW5jb3JyZWN0U2VjdGlvblJlc3VsdAIAAAAYSW5jb3JyZWN0IHNlY3Rpb24gcmVzdWx0AAAAABhFcnJvckJldEFtb3VudE5vdEluUmFuZ2UCAAAAGkJldCBhbW91bnQgaXMgbm90IGluIHJhbmdlAQAAAAlTdG9yZURhdGEAAAADAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5AAAABXZhbHVlCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIFAAAADXRyYW5zYWN0aW9uSWQCAAAAAV8FAAAAA2tleQUAAAAFdmFsdWUBAAAADFN0b3JlRGF0YUludAAAAAMAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkAAAAFdmFsdWUJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BQAAAAV2YWx1ZQEAAAAHR2V0RGF0YQAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIFAAAAEEVycm9yS2V5Tm90Rm91bmQFAAAAA2tleQEAAAANR2V0RGF0YVN0cmluZwAAAAIAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkEAAAAB2Z1bGxLZXkJAAEsAAAAAgkAASwAAAACBQAAAA10cmFuc2FjdGlvbklkAgAAAAFfBQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAAHZnVsbEtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIFAAAAEEVycm9yS2V5Tm90Rm91bmQFAAAAB2Z1bGxLZXkBAAAACkdldERhdGFJbnQAAAACAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5BAAAAAdmdWxsS2V5CQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAB2Z1bGxLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAADc3RyBQAAAAckbWF0Y2gwBQAAAANzdHIJAAACAAAAAQkAASwAAAACBQAAABBFcnJvcktleU5vdEZvdW5kBQAAAAdmdWxsS2V5AQAAAAlOZXdHYW1lSWQAAAAABAAAAAdnYW1lTnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAEURhdGFHYW1lTnVtYmVyS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA251bQUAAAAHJG1hdGNoMAUAAAADbnVtAAAAAAAAAAAACQAAZAAAAAIFAAAAB2dhbWVOdW0AAAAAAAAAAAEBAAAAD0dlbmVyYXRlUmFuZEludAAAAAIAAAAGZ2FtZUlkAAAAB3JzYVNpZ24EAAAAC3JzYVNpZ1ZhbGlkCQAB9AAAAAMJAAJZAAAAAQUAAAAGZ2FtZUlkCQACWQAAAAEFAAAAB3JzYVNpZ24FAAAAD1NlcnZlclB1YmxpY0tleQMFAAAAC3JzYVNpZ1ZhbGlkBAAAAARyYW5kCQAAagAAAAIJAASxAAAAAQkAAfcAAAABCQABmwAAAAEFAAAAB3JzYVNpZ24FAAAAEFJvdWxldHRlU2VjdGlvbnMDCQAAZgAAAAIAAAAAAAAAAAAFAAAABHJhbmQJAABoAAAAAgD//////////wUAAAAEcmFuZAUAAAAEcmFuZAkAAAIAAAABAgAAABVJbnZhbGlkIFJTQSBzaWduYXR1cmUBAAAACUdldFN0YXR1cwAAAAEAAAAGcmVzdWx0AwUAAAAGcmVzdWx0BQAAAA1EYXRhU3RhdHVzV2luBQAAAA9EYXRhU3RhdHVzTG9vc2UBAAAADEdldFdpbkFtb3VudAAAAAIAAAAGYmV0QW10AAAAB3NlY3Rpb24EAAAAEWlzSW5jb3JyZWN0UmVzdWx0AwkAAGcAAAACAAAAAAAAAAAABQAAAAdzZWN0aW9uBgkAAGYAAAACBQAAAAdzZWN0aW9uAAAAAAAAAAAUBAAAAAtiZXRBbXRWYWxpZAMDAwMJAAAAAAAAAgUAAAAGYmV0QW10CQAAZAAAAAIFAAAABEJFVDEFAAAACkNPTU1JU1NJT04GCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAARCRVQyBQAAAApDT01NSVNTSU9OBgkAAAAAAAACBQAAAAZiZXRBbXQJAABkAAAAAgUAAAAEQkVUNAUAAAAKQ09NTUlTU0lPTgYJAAAAAAAAAgUAAAAGYmV0QW10CQAAZAAAAAIFAAAABEJFVDgFAAAACkNPTU1JU1NJT04GCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAAVCRVQxNAUAAAAKQ09NTUlTU0lPTgMFAAAAEWlzSW5jb3JyZWN0UmVzdWx0CQAAAgAAAAEFAAAAG0Vycm9ySW5jb3JyZWN0U2VjdGlvblJlc3VsdAMFAAAAC2JldEFtdFZhbGlkCQAAaAAAAAIJAABlAAAAAgUAAAAGYmV0QW10BQAAAApDT01NSVNTSU9OCQABkQAAAAIFAAAACFNlY3Rpb25zBQAAAAdzZWN0aW9uCQAAAgAAAAEFAAAAGEVycm9yQmV0QW1vdW50Tm90SW5SYW5nZQAAAAIAAAABaQEAAAADYmV0AAAAAQAAAA5leHBlY3RlZFJlc3VsdAQAAAAKZ2FtZU51bWJlcgkBAAAACU5ld0dhbWVJZAAAAAAEAAAAEWdhbWVUcmFuc2FjdGlvbklkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQEAAAAB2FkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQEAAAACHR4SWRVc2VkCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAABFnYW1lVHJhbnNhY3Rpb25JZAQAAAANYmV0Tm90SW5XYXZlcwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAQAAAANZmVlTm90SW5XYXZlcwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAQAAAAGYW1vdW50CAUAAAADcG10AAAABmFtb3VudAQAAAAGd2luQW10CQEAAAAMR2V0V2luQW1vdW50AAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAADmV4cGVjdGVkUmVzdWx0AwUAAAANYmV0Tm90SW5XYXZlcwkAAAIAAAABBQAAABVFcnJvckJldE11c3RCZUluV2F2ZXMDBQAAAA1mZWVOb3RJbldhdmVzCQAAAgAAAAEFAAAAHUVycm9yVHJhbnNhY3Rpb25NdXN0QmVJbldhdmVzAwUAAAAIdHhJZFVzZWQJAAACAAAAAQUAAAAURXJyb3JUcmFuc2FjdGlvblVzZWQJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABFnYW1lVHJhbnNhY3Rpb25JZAUAAAAHYWRkcmVzcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAARRGF0YUdhbWVOdW1iZXJLZXkFAAAACmdhbWVOdW1iZXIJAARMAAAAAgkBAAAADFN0b3JlRGF0YUludAAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA1EYXRhQW1vdW50S2V5BQAAAAZhbW91bnQJAARMAAAAAgkBAAAADFN0b3JlRGF0YUludAAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA5EYXRhU2VjdGlvbktleQUAAAAOZXhwZWN0ZWRSZXN1bHQJAARMAAAAAgkBAAAACVN0b3JlRGF0YQAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA1EYXRhU3RhdHVzS2V5BQAAAA1EYXRhU3RhdHVzTmV3CQAETAAAAAIJAQAAAAxTdG9yZURhdGFJbnQAAAADBQAAABFnYW1lVHJhbnNhY3Rpb25JZAUAAAAQRGF0YVdpbkFtb3VudEtleQUAAAAGd2luQW10BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAANU2VydmVyQWRkcmVzcwUAAAAKQ09NTUlTU0lPTgUAAAAEdW5pdAUAAAADbmlsAAAAAWkBAAAABnJlc3VsdAAAAAIAAAARZ2FtZVRyYW5zYWN0aW9uSWQAAAADcnNhBAAAAARyYW5kCQEAAAAPR2VuZXJhdGVSYW5kSW50AAAAAgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAAA3JzYQQAAAAPc2VsZWN0ZWRTZWN0aW9uCQEAAAAKR2V0RGF0YUludAAAAAIFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA5EYXRhU2VjdGlvbktleQQAAAAGc3RhdHVzCQEAAAANR2V0RGF0YVN0cmluZwAAAAIFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA1EYXRhU3RhdHVzS2V5AwkAAAAAAAACBQAAAAZzdGF0dXMFAAAADURhdGFTdGF0dXNOZXcEAAAABWlzV2luCQAAAAAAAAIFAAAABHJhbmQFAAAAD3NlbGVjdGVkU2VjdGlvbgQAAAAId3JpdGVTZXQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACVN0b3JlRGF0YQAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA1EYXRhU3RhdHVzS2V5CQEAAAAJR2V0U3RhdHVzAAAAAQUAAAAFaXNXaW4JAARMAAAAAgkBAAAADFN0b3JlRGF0YUludAAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAA1EYXRhUmVzdWx0S2V5BQAAAARyYW5kBQAAAANuaWwDBQAAAAVpc1dpbgQAAAAGd2FsbGV0CQEAAAAHR2V0RGF0YQAAAAEFAAAAEWdhbWVUcmFuc2FjdGlvbklkBAAAAAl3aW5BbW91bnQJAQAAAApHZXREYXRhSW50AAAAAgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAAEERhdGFXaW5BbW91bnRLZXkJAQAAAAxTY3JpcHRSZXN1bHQAAAACBQAAAAh3cml0ZVNldAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAABndhbGxldAUAAAAJd2luQW1vdW50BQAAAAR1bml0BQAAAANuaWwFAAAACHdyaXRlU2V0CQAAAgAAAAEJAAEsAAAAAgUAAAANRXJyb3JHYW1lT3ZlcgUAAAAGc3RhdHVzAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAMJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5BAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAA3N0eAUAAAAHJG1hdGNoMAYHBwHqFiU=",
    "chainId": 84,
    "height": 566518,
    "spentComplexity": 0
}

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

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

Old	New		Differences
65	65
66	66
67	67		func StoreDataInt (transactionId,key,value) = DataEntry(((transactionId + "_") + key), value)
	68	+
	69	+
	70	+	func GetData (key) = match getString(this, key) {
	71	+	case str: String =>
	72	+	str
	73	+	case _ =>
	74	+	throw((ErrorKeyNotFound + key))
	75	+	}
68	76
69	77
70	78		func GetDataString (transactionId,key) = {

171	179		let isWin = (rand == selectedSection)
172	180		let writeSet = WriteSet([StoreData(gameTransactionId, DataStatusKey, GetStatus(isWin)), StoreDataInt(gameTransactionId, DataResultKey, rand)])
173	181		if (isWin)
174		-	then ScriptResult(writeSet, TransferSet([ScriptTransfer(ServerAddress, COMMISSION, unit)]))
	182	+	then {
	183	+	let wallet = GetData(gameTransactionId)
	184	+	let winAmount = GetDataInt(gameTransactionId, DataWinAmountKey)
	185	+	ScriptResult(writeSet, TransferSet([ScriptTransfer(addressFromStringValue(wallet), winAmount, unit)]))
	186	+	}
175	187		else writeSet
176	188		}
177	189		else throw((ErrorGameOver + status))

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

github/deemru/w8io/6500d08 
58.96 ms ◑