w8 · tx · HT2···fn2

tx · HT2LnpcGMhANGRihkKaobu5i8sV2DbRTgXgcpzD3Mfn2

3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT:  -0.01400000 Waves

2019.07.07 12:59 [575038] smart account 3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HT2LnpcGMhANGRihkKaobu5i8sV2DbRTgXgcpzD3Mfn2",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1562493671283,
    "version": 1,
    "sender": "3N8M61KCm8G72mK8PjacFbnnxdbFsyqQDeT",
    "senderPublicKey": "Bhyvkx4xdbEi4KPJNZSzx9gZgzgyLEsavuj2kYSt7SST",
    "proofs": [
        "57RkJNA63ADKj5Ue5UiF7VtocovpzJU7cBa2hn4aqXDjtbtpkahbCrYWwMv51QqUBzWuunMgeiuHsEzcuhB9aaus"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAAoAAAAAA9TZXJ2ZXJQdWJsaWNLZXkBAAAAIAsoHUeLtZkyzNPc+1+ktrvkEUCDQsYcz7NPlRQhjeYWAAAAAA1TZXJ2ZXJBZGRyZXNzCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAECAAAAIzNNdUptQ1NFVWdCTnkxUjJnZXNrNTl4RGJXY3VUS3d3aXhXAAAAABBSb3VsZXR0ZVNlY3Rpb25zAAAAAAAAAAAVAAAAABFEYXRhR2FtZU51bWJlcktleQIAAAALQVBQX0dBTUVfSUQAAAAAD0RhdGFVc2VyR2FtZUtleQIAAAANVVNFUl9HQU1FX0lEXwAAAAANRGF0YUFtb3VudEtleQIAAAAGQU1PVU5UAAAAAA5EYXRhU2VjdGlvbktleQIAAAAHU0VDVElPTgAAAAANRGF0YVN0YXR1c0tleQIAAAAGU1RBVFVTAAAAAA1EYXRhUmVzdWx0S2V5AgAAAAZSRVNVTFQAAAAAEERhdGFXaW5BbW91bnRLZXkCAAAACldJTl9BTU9VTlQAAAAADURhdGFTdGF0dXNOZXcCAAAAA05FVwAAAAANRGF0YVN0YXR1c1dpbgIAAAADV0lOAAAAAA9EYXRhU3RhdHVzTG9vc2UCAAAABUxPT1NFAAAAAAdXQVZFTEVUCQAAaAAAAAIJAABoAAAAAgAAAAAAAAAAZAAAAAAAAAAD6AAAAAAAAAAD6AAAAAAKQ09NTUlTU0lPTgkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAAUFAAAAB1dBVkVMRVQAAAAAAAAAA+gAAAAABEJFVDEJAABoAAAAAgAAAAAAAAAAAQUAAAAHV0FWRUxFVAAAAAAEQkVUMgkAAGgAAAACAAAAAAAAAAACBQAAAAdXQVZFTEVUAAAAAARCRVQ0CQAAaAAAAAIAAAAAAAAAAAQFAAAAB1dBVkVMRVQAAAAABEJFVDgJAABoAAAAAgAAAAAAAAAACAUAAAAHV0FWRUxFVAAAAAAFQkVUMTQJAABoAAAAAgAAAAAAAAAADgUAAAAHV0FWRUxFVAAAAAAIU2VjdGlvbnMJAARMAAAAAgAAAAAAAAAAAAkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAABQJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAFCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAACgkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAYJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAFCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABgkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAUJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAAKCQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAABQkABEwAAAACAAAAAAAAAAACCQAETAAAAAIAAAAAAAAAAAYFAAAAA25pbAAAAAAWRXJyb3JPbmx5V2F2ZXNBY2NlcHRlZAIAAAATT25seSB3YXZlcyBhY2NlcHRlZAAAAAAVRXJyb3JNdXN0R3JlYXRlclRoYW4wAgAAACVQYXJhbWV0ZXIgc2l6ZSBtdXN0IGJlIGdyZWF0ZXIgdGhhbiAwAAAAABRFcnJvck11c3RMZXNzVGhhbjEwMAIAAAAkUGFyYW1ldGVyIHNpemUgbXVzdCBiZSBsZXNzIHRoYW4gMTAwAAAAABVFcnJvckJldE11c3RCZUluV2F2ZXMCAAAAG0JldCBhbW91bnQgbXVzdCBiZSBpbiBXYXZlcwAAAAAdRXJyb3JUcmFuc2FjdGlvbk11c3RCZUluV2F2ZXMCAAAAIlRyYW5zYWN0aW9uJ3MgZmVlIG11c3QgYmUgaW4gV2F2ZXMAAAAAFEVycm9yVHJhbnNhY3Rpb25Vc2VkAgAAAC9QYXNzZWQgdHhJZCBoYWQgYmVlbiB1c2VkIGJlZm9yZS4gR2FtZSBhYm9ydGVkLgAAAAAQRXJyb3JLZXlOb3RGb3VuZAIAAAAPS2V5IG5vdCBmb3VuZDogAAAAAA1FcnJvckdhbWVPdmVyAgAAABVHYW1lIGFscmVhZHkgaXMgb3ZlciAAAAAAG0Vycm9ySW5jb3JyZWN0U2VjdGlvblJlc3VsdAIAAAAYSW5jb3JyZWN0IHNlY3Rpb24gcmVzdWx0AAAAABhFcnJvckJldEFtb3VudE5vdEluUmFuZ2UCAAAAGkJldCBhbW91bnQgaXMgbm90IGluIHJhbmdlAQAAAAlTdG9yZURhdGEAAAADAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5AAAABXZhbHVlCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIFAAAADXRyYW5zYWN0aW9uSWQCAAAAAV8FAAAAA2tleQUAAAAFdmFsdWUBAAAADFN0b3JlRGF0YUludAAAAAMAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkAAAAFdmFsdWUJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BQAAAAV2YWx1ZQEAAAAHR2V0RGF0YQAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIFAAAAEEVycm9yS2V5Tm90Rm91bmQFAAAAA2tleQEAAAANR2V0RGF0YVN0cmluZwAAAAIAAAANdHJhbnNhY3Rpb25JZAAAAANrZXkEAAAAB2Z1bGxLZXkJAAEsAAAAAgkAASwAAAACBQAAAA10cmFuc2FjdGlvbklkAgAAAAFfBQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAAHZnVsbEtleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIFAAAAEEVycm9yS2V5Tm90Rm91bmQFAAAAB2Z1bGxLZXkBAAAACkdldERhdGFJbnQAAAACAAAADXRyYW5zYWN0aW9uSWQAAAADa2V5BAAAAAdmdWxsS2V5CQABLAAAAAIJAAEsAAAAAgUAAAANdHJhbnNhY3Rpb25JZAIAAAABXwUAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAB2Z1bGxLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAADc3RyBQAAAAckbWF0Y2gwBQAAAANzdHIJAAACAAAAAQkAASwAAAACBQAAABBFcnJvcktleU5vdEZvdW5kBQAAAAdmdWxsS2V5AQAAAAlOZXdHYW1lSWQAAAAABAAAAAdnYW1lTnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAEURhdGFHYW1lTnVtYmVyS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA251bQUAAAAHJG1hdGNoMAUAAAADbnVtAAAAAAAAAAAACQAAZAAAAAIFAAAAB2dhbWVOdW0AAAAAAAAAAAEBAAAAD0dlbmVyYXRlUmFuZEludAAAAAIAAAAGZ2FtZUlkAAAAB3JzYVNpZ24EAAAAC3JzYVNpZ1ZhbGlkCQAB9AAAAAMJAAJZAAAAAQUAAAAGZ2FtZUlkCQACWQAAAAEFAAAAB3JzYVNpZ24FAAAAD1NlcnZlclB1YmxpY0tleQMFAAAAC3JzYVNpZ1ZhbGlkBAAAAARyYW5kCQAAagAAAAIJAASxAAAAAQkAAfcAAAABCQABmwAAAAEFAAAAB3JzYVNpZ24FAAAAEFJvdWxldHRlU2VjdGlvbnMDCQAAZgAAAAIAAAAAAAAAAAAFAAAABHJhbmQJAABoAAAAAgD//////////wUAAAAEcmFuZAUAAAAEcmFuZAkAAAIAAAABAgAAABVJbnZhbGlkIFJTQSBzaWduYXR1cmUBAAAACUdldFN0YXR1cwAAAAEAAAAGcmVzdWx0AwUAAAAGcmVzdWx0BQAAAA1EYXRhU3RhdHVzV2luBQAAAA9EYXRhU3RhdHVzTG9vc2UBAAAADEdldFdpbkFtb3VudAAAAAIAAAAGYmV0QW10AAAAB3NlY3Rpb24EAAAAD2lzQ29ycmVjdFJlc3VsdAMDAwMJAAAAAAAAAgUAAAAHc2VjdGlvbgAAAAAAAAAAAgYJAAAAAAAAAgUAAAAHc2VjdGlvbgAAAAAAAAAABQYJAAAAAAAAAgUAAAAHc2VjdGlvbgAAAAAAAAAABgYJAAAAAAAAAgUAAAAHc2VjdGlvbgAAAAAAAAAACgYJAAAAAAAAAgUAAAAHc2VjdGlvbgAAAAAAAAAAFAQAAAALYmV0QW10VmFsaWQDAwMDCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAARCRVQxBQAAAApDT01NSVNTSU9OBgkAAAAAAAACBQAAAAZiZXRBbXQJAABkAAAAAgUAAAAEQkVUMgUAAAAKQ09NTUlTU0lPTgYJAAAAAAAAAgUAAAAGYmV0QW10CQAAZAAAAAIFAAAABEJFVDQFAAAACkNPTU1JU1NJT04GCQAAAAAAAAIFAAAABmJldEFtdAkAAGQAAAACBQAAAARCRVQ4BQAAAApDT01NSVNTSU9OBgkAAAAAAAACBQAAAAZiZXRBbXQJAABkAAAAAgUAAAAFQkVUMTQFAAAACkNPTU1JU1NJT04DCQEAAAABIQAAAAEFAAAAD2lzQ29ycmVjdFJlc3VsdAkAAAIAAAABBQAAABtFcnJvckluY29ycmVjdFNlY3Rpb25SZXN1bHQDBQAAAAtiZXRBbXRWYWxpZAkAAGgAAAACCQAAZQAAAAIFAAAABmJldEFtdAUAAAAKQ09NTUlTU0lPTgUAAAAHc2VjdGlvbgkAAAIAAAABBQAAABhFcnJvckJldEFtb3VudE5vdEluUmFuZ2UAAAACAAAAAWkBAAAAA2JldAAAAAEAAAAOZXhwZWN0ZWRSZXN1bHQEAAAACmdhbWVOdW1iZXIJAQAAAAlOZXdHYW1lSWQAAAAABAAAABFnYW1lVHJhbnNhY3Rpb25JZAkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBAAAAAdhZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50BAAAAAh0eElkVXNlZAkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQEAAAADWJldE5vdEluV2F2ZXMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAADWZlZU5vdEluV2F2ZXMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAABmFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQEAAAABndpbkFtdAkBAAAADEdldFdpbkFtb3VudAAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAA5leHBlY3RlZFJlc3VsdAMFAAAADWJldE5vdEluV2F2ZXMJAAACAAAAAQUAAAAVRXJyb3JCZXRNdXN0QmVJbldhdmVzAwUAAAANZmVlTm90SW5XYXZlcwkAAAIAAAABBQAAAB1FcnJvclRyYW5zYWN0aW9uTXVzdEJlSW5XYXZlcwMFAAAACHR4SWRVc2VkCQAAAgAAAAEFAAAAFEVycm9yVHJhbnNhY3Rpb25Vc2VkCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAA9EYXRhVXNlckdhbWVLZXkJAAGkAAAAAQUAAAAKZ2FtZU51bWJlcgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAAdhZGRyZXNzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAABFEYXRhR2FtZU51bWJlcktleQUAAAAKZ2FtZU51bWJlcgkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFBbW91bnRLZXkFAAAABmFtb3VudAkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADkRhdGFTZWN0aW9uS2V5BQAAAA5leHBlY3RlZFJlc3VsdAkABEwAAAACCQEAAAAJU3RvcmVEYXRhAAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFTdGF0dXNLZXkFAAAADURhdGFTdGF0dXNOZXcJAARMAAAAAgkBAAAADFN0b3JlRGF0YUludAAAAAMFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAABBEYXRhV2luQW1vdW50S2V5BQAAAAZ3aW5BbXQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAA1TZXJ2ZXJBZGRyZXNzBQAAAApDT01NSVNTSU9OBQAAAAR1bml0BQAAAANuaWwAAAABaQEAAAAGcmVzdWx0AAAAAgAAABFnYW1lVHJhbnNhY3Rpb25JZAAAAANyc2EEAAAACXJhbmRJbmRleAkBAAAAD0dlbmVyYXRlUmFuZEludAAAAAIFAAAAEWdhbWVUcmFuc2FjdGlvbklkBQAAAANyc2EEAAAAD3NlbGVjdGVkU2VjdGlvbgkBAAAACkdldERhdGFJbnQAAAACBQAAABFnYW1lVHJhbnNhY3Rpb25JZAUAAAAORGF0YVNlY3Rpb25LZXkEAAAABnN0YXR1cwkBAAAADUdldERhdGFTdHJpbmcAAAACBQAAABFnYW1lVHJhbnNhY3Rpb25JZAUAAAANRGF0YVN0YXR1c0tleQMJAAAAAAAAAgUAAAAGc3RhdHVzBQAAAA1EYXRhU3RhdHVzTmV3BAAAAAtyYW5kU2VjdGlvbgkAAZEAAAACBQAAAAhTZWN0aW9ucwUAAAAJcmFuZEluZGV4BAAAAAVpc1dpbgkAAAAAAAACBQAAAAtyYW5kU2VjdGlvbgUAAAAPc2VsZWN0ZWRTZWN0aW9uBAAAAAh3cml0ZVNldAkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJU3RvcmVEYXRhAAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFTdGF0dXNLZXkJAQAAAAlHZXRTdGF0dXMAAAABBQAAAAVpc1dpbgkABEwAAAACCQEAAAAMU3RvcmVEYXRhSW50AAAAAwUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAADURhdGFSZXN1bHRLZXkFAAAAC3JhbmRTZWN0aW9uBQAAAANuaWwDBQAAAAVpc1dpbgQAAAAGd2FsbGV0CQEAAAAHR2V0RGF0YQAAAAEFAAAAEWdhbWVUcmFuc2FjdGlvbklkBAAAAAl3aW5BbW91bnQJAQAAAApHZXREYXRhSW50AAAAAgUAAAARZ2FtZVRyYW5zYWN0aW9uSWQFAAAAEERhdGFXaW5BbW91bnRLZXkJAQAAAAxTY3JpcHRSZXN1bHQAAAACBQAAAAh3cml0ZVNldAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAABndhbGxldAUAAAAJd2luQW1vdW50BQAAAAR1bml0BQAAAANuaWwFAAAACHdyaXRlU2V0CQAAAgAAAAEJAAEsAAAAAgUAAAANRXJyb3JHYW1lT3ZlcgUAAAAGc3RhdHVzAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAMJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5BAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAADdHR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAA3N0eAUAAAAHJG1hdGNoMAYHBxtC5z4=",
    "chainId": 84,
    "height": 575038,
    "spentComplexity": 0
}

View: original | compacted
Prev: 7jva7skW5epsJogD9GoPFSUNF927WVomMRhBWbsn6Yws
Next: HGy8EPBrrwN1ZHStctrbNdPX5bdqsHxwxCNY7KFFuEG9

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

Old	New		Differences
8	8		let RouletteSections = 21
9	9
10	10		let DataGameNumberKey = "APP_GAME_ID"
	11	+
	12	+	let DataUserGameKey = "USER_GAME_ID_"
11	13
12	14		let DataAmountKey = "AMOUNT"
13	15

170	172		then throw(ErrorTransactionMustBeInWaves)
171	173		else if (txIdUsed)
172	174		then throw(ErrorTransactionUsed)
173		-	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)]))
	175	+	else ScriptResult(WriteSet([DataEntry((DataUserGameKey + toString(gameNumber)), gameTransactionId), 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)]))
174	176		}
175	177
176	178

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

github/deemru/w8io/873ac7e 
26.84 ms ◑