w8 · tx · 6Sq···pJv

tx · 6SqBpdzyNuRDS4TWdbwA4nC4TLXyGre3hzDEQDrUepJv

3N18S8xfWJYHVuGfJcpcPVh7LsnqR9hKTcc:  -0.01400000 Waves

2019.09.08 12:22 [666911] smart account 3N18S8xfWJYHVuGfJcpcPVh7LsnqR9hKTcc > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6SqBpdzyNuRDS4TWdbwA4nC4TLXyGre3hzDEQDrUepJv",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1567934541565,
    "version": 1,
    "sender": "3N18S8xfWJYHVuGfJcpcPVh7LsnqR9hKTcc",
    "senderPublicKey": "9cETBksYN8YMHGvDB6BEqmH9HScpCMBRZwnjCviRQ9aA",
    "proofs": [
        "2xU7weGtVWk1LpMCZgQ2QASRwj2xKhjHMHqGP5MvubznFemn8T4EUMGagg7tiDqBAyaGczm33vAL6fUsNgiyHbsE"
    ],
    "script": "base64:AAIDAAAAAAAAAAAAAAARAAAAAAVQUklDRQAAAAAABfXhAAAAAAALUEFURU5UUFJJQ0UAAAAAAAvrwgAAAAAABk9SQUNMRQIAAAAjM012aXNEZkE2dk5nNGk2aUtZV1o4Yld2eVA0aW1mQmI5ZXEAAAAAA1dJTgIAAAADV0lOAAAAAARMT1NFAgAAAARMT1NFAAAAAAROT05FAgAAAARub25lAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAAEXZhbGlkYXRlVHdvQ29vcmRzAAAABAAAAAJ4MQAAAAJ5MQAAAAJ4MgAAAAJ5MgMJAABmAAAAAgUAAAACeDEFAAAAAngyBwMDCQAAAAAAAAIFAAAAAngxBQAAAAJ4MgkAAGYAAAACBQAAAAJ5MQUAAAACeTIHBwYBAAAADnZhbGlkYXRlQ29vcmRzAAAADAAAAAJ4MQAAAAJ5MQAAAAJ4MgAAAAJ5MgAAAAJ4MwAAAAJ5MwAAAAJ4NAAAAAJ5NAAAAAJ4NQAAAAJ5NQAAAAJ4NgAAAAJ5NgMJAQAAAAEhAAAAAQkBAAAAEXZhbGlkYXRlVHdvQ29vcmRzAAAABAUAAAACeDEFAAAAAnkxBQAAAAJ4MgUAAAACeTIHAwkBAAAAASEAAAABCQEAAAARdmFsaWRhdGVUd29Db29yZHMAAAAEBQAAAAJ4MgUAAAACeTIFAAAAAngzBQAAAAJ5MwcDCQEAAAABIQAAAAEJAQAAABF2YWxpZGF0ZVR3b0Nvb3JkcwAAAAQFAAAAAngzBQAAAAJ5MwUAAAACeDQFAAAAAnk0BwMJAQAAAAEhAAAAAQkBAAAAEXZhbGlkYXRlVHdvQ29vcmRzAAAABAUAAAACeDQFAAAAAnk0BQAAAAJ4NQUAAAACeTUHAwkBAAAAASEAAAABCQEAAAARdmFsaWRhdGVUd29Db29yZHMAAAAEBQAAAAJ4NQUAAAACeTUFAAAAAng2BQAAAAJ5NgcGAQAAABBnZW5LZXlGcm9tQ29vcmRzAAAADAAAAAJ4MQAAAAJ5MQAAAAJ4MgAAAAJ5MgAAAAJ4MwAAAAJ5MwAAAAJ4NAAAAAJ5NAAAAAJ4NQAAAAJ5NQAAAAJ4NgAAAAJ5NgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABpAAAAAEFAAAAAngxAgAAAAEsCQABpAAAAAEFAAAAAnkxAgAAAAE7CQABpAAAAAEFAAAAAngyAgAAAAEsCQABpAAAAAEFAAAAAnkyAgAAAAE7CQABpAAAAAEFAAAAAngzAgAAAAEsCQABpAAAAAEFAAAAAnkzAgAAAAE7CQABpAAAAAEFAAAAAng0AgAAAAEsCQABpAAAAAEFAAAAAnk0AgAAAAE7CQABpAAAAAEFAAAAAng1AgAAAAEsCQABpAAAAAEFAAAAAnk1AgAAAAE7CQABpAAAAAEFAAAAAng2AgAAAAEsCQABpAAAAAEFAAAAAnk2AQAAABFnZXRLZXlCYWxhbmNlVXNlcgAAAAEAAAAHYWNjb3VudAkAASwAAAACBQAAAAdhY2NvdW50AgAAAAhfYmFsYW5jZQEAAAATZ2V0VmFsdWVCYWxhbmNlVXNlcgAAAAEAAAAHYWNjb3VudAkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQUAAAAHYWNjb3VudAEAAAAOZ2V0S2V5V2luQ291bnQAAAABAAAABHVzZXIJAAEsAAAAAgUAAAAEdXNlcgIAAAAHX3dpbmNudAEAAAAQZ2V0VmFsdWVXaW5Db3VudAAAAAEAAAAEdXNlcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAADmdldEtleVdpbkNvdW50AAAAAQUAAAAEdXNlcgEAAAAPZ2V0S2V5TG9zZUNvdW50AAAAAQAAAAR1c2VyCQABLAAAAAIFAAAABHVzZXICAAAACF9sb3NlY250AQAAABFnZXRWYWx1ZUxvc2VDb3VudAAAAAEAAAAEdXNlcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAD2dldEtleUxvc2VDb3VudAAAAAEFAAAABHVzZXIAAAAEAAAAAWkBAAAABnBhdGVudAAAAAwAAAACeDEAAAACeTEAAAACeDIAAAACeTIAAAACeDMAAAACeTMAAAACeDQAAAACeTQAAAACeDUAAAACeTUAAAACeDYAAAACeTYEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACBjYW4gdXNlIFdBVkVTIG9ubHkgYXQgdGhlIG1vbWVudAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAVQUklDRQkAAAIAAAABAgAAADBwdXJjaGFzZSBhbW91bnQgY2Fubm90IGJlIG5vdCBlcXVhbCB0byB0aGUgcHJpY2UDCQEAAAABIQAAAAEJAQAAAA52YWxpZGF0ZUNvb3JkcwAAAAwFAAAAAngxBQAAAAJ5MQUAAAACeDIFAAAAAnkyBQAAAAJ4MwUAAAACeTMFAAAAAng0BQAAAAJ5NAUAAAACeDUFAAAAAnk1BQAAAAJ4NgUAAAACeTYJAAACAAAAAQIAAAAZaW52YWxpZCBjb29yZGluYXRlcyBvcmRlcgMJAQAAAAIhPQAAAAIJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABBnZW5LZXlGcm9tQ29vcmRzAAAADAUAAAACeDEFAAAAAnkxBQAAAAJ4MgUAAAACeTIFAAAAAngzBQAAAAJ5MwUAAAACeDQFAAAAAnk0BQAAAAJ4NQUAAAACeTUFAAAAAng2BQAAAAJ5NgUAAAAETk9ORQkAAAIAAAABAgAAAB10aGlzIHBhdGVudCBpcyBhbHJlYWR5IGV4aXN0cwkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEGdlbktleUZyb21Db29yZHMAAAAMBQAAAAJ4MQUAAAACeTEFAAAAAngyBQAAAAJ5MgUAAAACeDMFAAAAAnkzBQAAAAJ4NAUAAAACeTQFAAAAAng1BQAAAAJ5NQUAAAACeDYFAAAAAnk2BQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsAAAAAWkBAAAACWJ1eVBhdGVudAAAAAwAAAACeDEAAAACeTEAAAACeDIAAAACeTIAAAACeDMAAAACeTMAAAACeDQAAAACeTQAAAACeDUAAAACeTUAAAACeDYAAAACeTYEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACBjYW4gdXNlIFdBVkVTIG9ubHkgYXQgdGhlIG1vbWVudAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAScGF0ZW50T3duZXJBZGRyZXNzCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAQZ2VuS2V5RnJvbUNvb3JkcwAAAAwFAAAAAngxBQAAAAJ5MQUAAAACeDIFAAAAAnkyBQAAAAJ4MwUAAAACeTMFAAAAAng0BQAAAAJ5NAUAAAACeDUFAAAAAnk1BQAAAAJ4NgUAAAACeTYDCQEAAAACIT0AAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALUEFURU5UUFJJQ0UJAAACAAAAAQIAAAAwcHVyY2hhc2UgYW1vdW50IGNhbm5vdCBiZSBub3QgZXF1YWwgdG8gdGhlIHByaWNlAwkBAAAAASEAAAABCQEAAAAOdmFsaWRhdGVDb29yZHMAAAAMBQAAAAJ4MQUAAAACeTEFAAAAAngyBQAAAAJ5MgUAAAACeDMFAAAAAnkzBQAAAAJ4NAUAAAACeTQFAAAAAng1BQAAAAJ5NQUAAAACeDYFAAAAAnk2CQAAAgAAAAECAAAAGWludmFsaWQgY29vcmRpbmF0ZXMgb3JkZXIDCQAAAAAAAAIFAAAAEnBhdGVudE93bmVyQWRkcmVzcwUAAAAETk9ORQkAAAIAAAABAgAAABd0aGVyZSBpcyBubyBzdWNoIHBhdGVudAMJAAAAAAAAAgUAAAAScGF0ZW50T3duZXJBZGRyZXNzBQAAAAt1c2VyQWRkcmVzcwkAAAIAAAABAgAAAB55b3UgY2Fubm90IGJ1eSB5b3VyIG93biBwYXRlbnQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABBnZW5LZXlGcm9tQ29vcmRzAAAADAUAAAACeDEFAAAAAnkxBQAAAAJ4MgUAAAACeTIFAAAAAngzBQAAAAJ5MwUAAAACeDQFAAAAAnk0BQAAAAJ4NQUAAAACeTUFAAAAAng2BQAAAAJ5NgUAAAALdXNlckFkZHJlc3MJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABFnZXRLZXlCYWxhbmNlVXNlcgAAAAEFAAAAEnBhdGVudE93bmVyQWRkcmVzcwkAAGQAAAACCQEAAAATZ2V0VmFsdWVCYWxhbmNlVXNlcgAAAAEFAAAAEnBhdGVudE93bmVyQWRkcmVzcwgFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAB2JhbGFuY2UJAQAAABNnZXRWYWx1ZUJhbGFuY2VVc2VyAAAAAQUAAAALdXNlckFkZHJlc3MDCQAAZwAAAAIAAAAAAAAAAAAFAAAAB2JhbGFuY2UJAAACAAAAAQIAAAAUaW5zdWZmaWNpZW50IGJhbGFuY2UJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAARZ2V0S2V5QmFsYW5jZVVzZXIAAAABBQAAAAt1c2VyQWRkcmVzcwAAAAAAAAAAAAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MFAAAAB2JhbGFuY2UFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAApnYW1lUmVwb3J0AAAAAwAAAARnYW1lAAAABndpbm5lcgAAAAVsb3NlcgQAAAAMb3JhY2xlQWRkcmVzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAACIT0AAAACBQAAAAxvcmFjbGVBZGRyZXMFAAAABk9SQUNMRQkAAAIAAAABAgAAACpvbmx5IG9yYWNsZSBjYW4gaW5mb3JtIGFib3V0IGdhbWVzIHJlc3VsdHMDCQAAAAAAAAIFAAAABndpbm5lcgUAAAAFbG9zZXIJAAACAAAAAQIAAAAid2lubmVyIGFuZCBsb3NlciBtdXN0IGJlIGRpZmZlcmVudAMJAQAAAAIhPQAAAAIJAQAAAAtnZXRTdHJCeUtleQAAAAEFAAAABGdhbWUFAAAABE5PTkUJAAACAAAAAQIAAAAhdGhpcyBnYW1lIGhhcyBhbHJlYWR5IGJlZW4gcGxheWVkCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAABWdhbWVfBQAAAARnYW1lCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAZ3aW5uZXICAAAABS1XSU47BQAAAAVsb3NlcgIAAAAFLUxPU0UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlXaW5Db3VudAAAAAEFAAAABndpbm5lcgkAAGQAAAACCQEAAAAQZ2V0VmFsdWVXaW5Db3VudAAAAAEFAAAABndpbm5lcgAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAD2dldEtleUxvc2VDb3VudAAAAAEFAAAABWxvc2VyCQAAZAAAAAIJAQAAABFnZXRWYWx1ZUxvc2VDb3VudAAAAAEFAAAABWxvc2VyAAAAAAAAAAABBQAAAANuaWwAAAAA7CqnuQ==",
    "chainId": 84,
    "height": 666911,
    "spentComplexity": 0
}

View: original | compacted
Prev: ACTuEEnfsTS4G32c8TdabeUCdNAQG6NQrMShCidNWiay
Next: Vzswnt7gd2A5f1f7uwyfSoRmTwGhiLfkLkfqHH6kP2E

Diff: 
Old New Differences
139 139              then throw("winner and loser must be different")
140 140              else if ((getStrByKey(game) != NONE))
141 141                  then throw("this game has already been played")
142 -                 else WriteSet([DataEntry(game, (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
142 +                 else WriteSet([DataEntry(("game_" + game), (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
143 143      }
144 144  
145 145  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let PRICE = 100000000
5 5  
6 6  let PATENTPRICE = 200000000
7 7  
8 8  let ORACLE = "3MvisDfA6vNg4i6iKYWZ8bWvyP4imfBb9eq"
9 9  
10 10  let WIN = "WIN"
11 11  
12 12  let LOSE = "LOSE"
13 13  
14 14  let NONE = "none"
15 15  
16 16  func getNumberByKey (key) = {
17 17      let num =     match getInteger(this, key) {
18 18          case a: Int => 
19 19              a
20 20          case _ => 
21 21              0
22 22      }
23 23      num
24 24      }
25 25  
26 26  
27 27  func getStrByKey (key) = {
28 28      let str =     match getString(this, key) {
29 29          case a: String => 
30 30              a
31 31          case _ => 
32 32              NONE
33 33      }
34 34      str
35 35      }
36 36  
37 37  
38 38  func validateTwoCoords (x1,y1,x2,y2) = if ((x1 > x2))
39 39      then false
40 40      else if (if ((x1 == x2))
41 41          then (y1 > y2)
42 42          else false)
43 43          then false
44 44          else true
45 45  
46 46  
47 47  func validateCoords (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = if (!(validateTwoCoords(x1, y1, x2, y2)))
48 48      then false
49 49      else if (!(validateTwoCoords(x2, y2, x3, y3)))
50 50          then false
51 51          else if (!(validateTwoCoords(x3, y3, x4, y4)))
52 52              then false
53 53              else if (!(validateTwoCoords(x4, y4, x5, y5)))
54 54                  then false
55 55                  else if (!(validateTwoCoords(x5, y5, x6, y6)))
56 56                      then false
57 57                      else true
58 58  
59 59  
60 60  func genKeyFromCoords (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = ((((((((((((((((((((((toString(x1) + ",") + toString(y1)) + ";") + toString(x2)) + ",") + toString(y2)) + ";") + toString(x3)) + ",") + toString(y3)) + ";") + toString(x4)) + ",") + toString(y4)) + ";") + toString(x5)) + ",") + toString(y5)) + ";") + toString(x6)) + ",") + toString(y6))
61 61  
62 62  
63 63  func getKeyBalanceUser (account) = (account + "_balance")
64 64  
65 65  
66 66  func getValueBalanceUser (account) = getNumberByKey(getKeyBalanceUser(account))
67 67  
68 68  
69 69  func getKeyWinCount (user) = (user + "_wincnt")
70 70  
71 71  
72 72  func getValueWinCount (user) = getNumberByKey(getKeyWinCount(user))
73 73  
74 74  
75 75  func getKeyLoseCount (user) = (user + "_losecnt")
76 76  
77 77  
78 78  func getValueLoseCount (user) = getNumberByKey(getKeyLoseCount(user))
79 79  
80 80  
81 81  @Callable(i)
82 82  func patent (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = {
83 83      let pmt = extract(i.payment)
84 84      if (isDefined(pmt.assetId))
85 85          then throw("can use WAVES only at the moment")
86 86          else {
87 87              let userAddress = toBase58String(i.caller.bytes)
88 88              if ((pmt.amount != PRICE))
89 89                  then throw("purchase amount cannot be not equal to the price")
90 90                  else if (!(validateCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)))
91 91                      then throw("invalid coordinates order")
92 92                      else if ((getStrByKey(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)) != NONE))
93 93                          then throw("this patent is already exists")
94 94                          else WriteSet([DataEntry(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6), userAddress)])
95 95              }
96 96      }
97 97  
98 98  
99 99  
100 100  @Callable(i)
101 101  func buyPatent (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = {
102 102      let pmt = extract(i.payment)
103 103      if (isDefined(pmt.assetId))
104 104          then throw("can use WAVES only at the moment")
105 105          else {
106 106              let userAddress = toBase58String(i.caller.bytes)
107 107              let patentOwnerAddress = getStrByKey(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6))
108 108              if ((pmt.amount != PATENTPRICE))
109 109                  then throw("purchase amount cannot be not equal to the price")
110 110                  else if (!(validateCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)))
111 111                      then throw("invalid coordinates order")
112 112                      else if ((patentOwnerAddress == NONE))
113 113                          then throw("there is no such patent")
114 114                          else if ((patentOwnerAddress == userAddress))
115 115                              then throw("you cannot buy your own patent")
116 116                              else WriteSet([DataEntry(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6), userAddress), DataEntry(getKeyBalanceUser(patentOwnerAddress), (getValueBalanceUser(patentOwnerAddress) + pmt.amount))])
117 117              }
118 118      }
119 119  
120 120  
121 121  
122 122  @Callable(i)
123 123  func withdraw () = {
124 124      let userAddress = toBase58String(i.caller.bytes)
125 125      let balance = getValueBalanceUser(userAddress)
126 126      if ((0 >= balance))
127 127          then throw("insufficient balance")
128 128          else ScriptResult(WriteSet([DataEntry(getKeyBalanceUser(userAddress), 0)]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), balance, unit)]))
129 129      }
130 130  
131 131  
132 132  
133 133  @Callable(i)
134 134  func gameReport (game,winner,loser) = {
135 135      let oracleAddres = toBase58String(i.caller.bytes)
136 136      if ((oracleAddres != ORACLE))
137 137          then throw("only oracle can inform about games results")
138 138          else if ((winner == loser))
139 139              then throw("winner and loser must be different")
140 140              else if ((getStrByKey(game) != NONE))
141 141                  then throw("this game has already been played")
142 -                 else WriteSet([DataEntry(game, (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
142 +                 else WriteSet([DataEntry(("game_" + game), (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
143 143      }
144 144  
145 145

Old	New		Differences
139	139		then throw("winner and loser must be different")
140	140		else if ((getStrByKey(game) != NONE))
141	141		then throw("this game has already been played")
142		-	else WriteSet([DataEntry(game, (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
	142	+	else WriteSet([DataEntry(("game_" + game), (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
143	143		}
144	144
145	145

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let PRICE = 100000000
5	5
6	6		let PATENTPRICE = 200000000
7	7
8	8		let ORACLE = "3MvisDfA6vNg4i6iKYWZ8bWvyP4imfBb9eq"
9	9
10	10		let WIN = "WIN"
11	11
12	12		let LOSE = "LOSE"
13	13
14	14		let NONE = "none"
15	15
16	16		func getNumberByKey (key) = {
17	17		let num = match getInteger(this, key) {
18	18		case a: Int =>
19	19		a
20	20		case _ =>
21	21		0
22	22		}
23	23		num
24	24		}
25	25
26	26
27	27		func getStrByKey (key) = {
28	28		let str = match getString(this, key) {
29	29		case a: String =>
30	30		a
31	31		case _ =>
32	32		NONE
33	33		}
34	34		str
35	35		}
36	36
37	37
38	38		func validateTwoCoords (x1,y1,x2,y2) = if ((x1 > x2))
39	39		then false
40	40		else if (if ((x1 == x2))
41	41		then (y1 > y2)
42	42		else false)
43	43		then false
44	44		else true
45	45
46	46
47	47		func validateCoords (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = if (!(validateTwoCoords(x1, y1, x2, y2)))
48	48		then false
49	49		else if (!(validateTwoCoords(x2, y2, x3, y3)))
50	50		then false
51	51		else if (!(validateTwoCoords(x3, y3, x4, y4)))
52	52		then false
53	53		else if (!(validateTwoCoords(x4, y4, x5, y5)))
54	54		then false
55	55		else if (!(validateTwoCoords(x5, y5, x6, y6)))
56	56		then false
57	57		else true
58	58
59	59
60	60		func genKeyFromCoords (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = ((((((((((((((((((((((toString(x1) + ",") + toString(y1)) + ";") + toString(x2)) + ",") + toString(y2)) + ";") + toString(x3)) + ",") + toString(y3)) + ";") + toString(x4)) + ",") + toString(y4)) + ";") + toString(x5)) + ",") + toString(y5)) + ";") + toString(x6)) + ",") + toString(y6))
61	61
62	62
63	63		func getKeyBalanceUser (account) = (account + "_balance")
64	64
65	65
66	66		func getValueBalanceUser (account) = getNumberByKey(getKeyBalanceUser(account))
67	67
68	68
69	69		func getKeyWinCount (user) = (user + "_wincnt")
70	70
71	71
72	72		func getValueWinCount (user) = getNumberByKey(getKeyWinCount(user))
73	73
74	74
75	75		func getKeyLoseCount (user) = (user + "_losecnt")
76	76
77	77
78	78		func getValueLoseCount (user) = getNumberByKey(getKeyLoseCount(user))
79	79
80	80
81	81		@Callable(i)
82	82		func patent (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = {
83	83		let pmt = extract(i.payment)
84	84		if (isDefined(pmt.assetId))
85	85		then throw("can use WAVES only at the moment")
86	86		else {
87	87		let userAddress = toBase58String(i.caller.bytes)
88	88		if ((pmt.amount != PRICE))
89	89		then throw("purchase amount cannot be not equal to the price")
90	90		else if (!(validateCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)))
91	91		then throw("invalid coordinates order")
92	92		else if ((getStrByKey(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)) != NONE))
93	93		then throw("this patent is already exists")
94	94		else WriteSet([DataEntry(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6), userAddress)])
95	95		}
96	96		}
97	97
98	98
99	99
100	100		@Callable(i)
101	101		func buyPatent (x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6) = {
102	102		let pmt = extract(i.payment)
103	103		if (isDefined(pmt.assetId))
104	104		then throw("can use WAVES only at the moment")
105	105		else {
106	106		let userAddress = toBase58String(i.caller.bytes)
107	107		let patentOwnerAddress = getStrByKey(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6))
108	108		if ((pmt.amount != PATENTPRICE))
109	109		then throw("purchase amount cannot be not equal to the price")
110	110		else if (!(validateCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6)))
111	111		then throw("invalid coordinates order")
112	112		else if ((patentOwnerAddress == NONE))
113	113		then throw("there is no such patent")
114	114		else if ((patentOwnerAddress == userAddress))
115	115		then throw("you cannot buy your own patent")
116	116		else WriteSet([DataEntry(genKeyFromCoords(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6), userAddress), DataEntry(getKeyBalanceUser(patentOwnerAddress), (getValueBalanceUser(patentOwnerAddress) + pmt.amount))])
117	117		}
118	118		}
119	119
120	120
121	121
122	122		@Callable(i)
123	123		func withdraw () = {
124	124		let userAddress = toBase58String(i.caller.bytes)
125	125		let balance = getValueBalanceUser(userAddress)
126	126		if ((0 >= balance))
127	127		then throw("insufficient balance")
128	128		else ScriptResult(WriteSet([DataEntry(getKeyBalanceUser(userAddress), 0)]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), balance, unit)]))
129	129		}
130	130
131	131
132	132
133	133		@Callable(i)
134	134		func gameReport (game,winner,loser) = {
135	135		let oracleAddres = toBase58String(i.caller.bytes)
136	136		if ((oracleAddres != ORACLE))
137	137		then throw("only oracle can inform about games results")
138	138		else if ((winner == loser))
139	139		then throw("winner and loser must be different")
140	140		else if ((getStrByKey(game) != NONE))
141	141		then throw("this game has already been played")
142		-	else WriteSet([DataEntry(game, (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
	142	+	else WriteSet([DataEntry(("game_" + game), (((winner + "-WIN;") + loser) + "-LOSE")), DataEntry(getKeyWinCount(winner), (getValueWinCount(winner) + 1)), DataEntry(getKeyLoseCount(loser), (getValueLoseCount(loser) + 1))])
143	143		}
144	144
145	145

github/deemru/w8io/3ef1775 
53.03 ms ◑