w8 · tx · 82Q···pEG

tx · 82QTVuYdDdcBQRVWGqbuoUk3o5hNAeGN7vKFb4nZ3pEG

3MyDGEoKp1gF4LSRknk9vSuDEyrwuYXcQEQ:  -0.01000000 Waves

2022.05.11 16:20 [2047061] smart account 3MyDGEoKp1gF4LSRknk9vSuDEyrwuYXcQEQ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "82QTVuYdDdcBQRVWGqbuoUk3o5hNAeGN7vKFb4nZ3pEG",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1652275299478,
    "version": 2,
    "chainId": 84,
    "sender": "3MyDGEoKp1gF4LSRknk9vSuDEyrwuYXcQEQ",
    "senderPublicKey": "BhRnrwd6wVHSkSaWXCjQRjaoXcpCdUW2hkJD6V7uVDxN",
    "proofs": [
        "2PyKfr9zait2zNhhHMiveF9hcH1fLNz4NFYAU2RyPWJ8yXHPt3FtHqzkfSCyCrD2F4D9g1DVCfYv3CkfC7cDBXjM"
    ],
    "script": "base64:AAIFAAAAAAAAADYIAhIAEgQKAggBEgMKAQESBQoDCAgBEgQKAggBEgQKAggBEgASBAoCCAESBAoCCAESBAoCCAEAAAAMAAAAAApzaGlueXdnZ2lkAQAAACCJac8C/7a6udRxltd5uJl2JrB00Hd59HNuhvD0c58GJgAAAAAMYWRtaW5BZGRyZXNzCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXBOdGlQU1JTcTZObmFRWWszOEJmV1N6WmNnQVlUeXJROQAAAAANYXNzZXRzQWRkcmVzcwEAAAAaAVTL5rTBd9cdJy1rFhBLypFI6ymLChqVp5oAAAAADm5hdGlvbnNBZGRyZXNzAQAAABoBVE2F6N70+ERrWRA7cF/Dt7llDlH1REZtoAEAAAANdHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAAA10cnlHZXRCb29sZWFuAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQbAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiBwEAAAAOZ2V0VHJlYXN1cnlLZXkAAAABAAAACG5hdGlvbmlkCQABLAAAAAIFAAAACG5hdGlvbmlkAgAAAAlfVHJlYXN1cnkBAAAAD2ludGVybmFsRGVwb3NpdAAAAAIAAAAKYWRkcmVzc1N0cgAAAAhhbW91bnRJbgQAAAAGYW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAIX0RlcG9zaXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAIX0RlcG9zaXQJAABkAAAAAgUAAAAGYW1vdW50BQAAAAhhbW91bnRJbgUAAAADbmlsAQAAAAtpbnRlcm5hbFBheQAAAAIAAAAKYWRkcmVzc1N0cgAAAAZhbW91bnQEAAAACWRlcG9zaXRlZAkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACF9EZXBvc2l0AwkAAGYAAAACAAAAAAAAAAAACQAAZQAAAAIFAAAACWRlcG9zaXRlZAUAAAAGYW1vdW50CQAAAgAAAAECAAAAE05vdCBlbm91Z2ggZGVwb3NpdC4DCQAAAAAAAAIJAABlAAAAAgUAAAAJZGVwb3NpdGVkBQAAAAZhbW91bnQAAAAAAAAAAAAJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQkAASwAAAACBQAAAAphZGRyZXNzU3RyAgAAAAhfRGVwb3NpdAUAAAADbmlsCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACF9EZXBvc2l0CQAAZQAAAAIFAAAACWRlcG9zaXRlZAUAAAAGYW1vdW50BQAAAANuaWwBAAAAD2ludGVybmFsUmVzZXJ2ZQAAAAIAAAAKYWRkcmVzc1N0cgAAAAZhbW91bnQEAAAADnJlc2VydmVkQW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAJX1Jlc2VydmVkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACV9SZXNlcnZlZAkAAGQAAAACBQAAAA5yZXNlcnZlZEFtb3VudAUAAAAGYW1vdW50BQAAAANuaWwBAAAAEGludGVybmFsVHJhbnNmZXIAAAADAAAAC2Zyb21BZGRyZXNzAAAACXRvQWRkcmVzcwAAAAZhbW91bnQJAAROAAAAAgkBAAAAC2ludGVybmFsUGF5AAAAAgUAAAALZnJvbUFkZHJlc3MFAAAABmFtb3VudAkBAAAAD2ludGVybmFsRGVwb3NpdAAAAAIFAAAACXRvQWRkcmVzcwUAAAAGYW1vdW50AQAAAApjaGVja0FkbWluAAAAAQAAAAZjYWxsZXIDAwMJAAAAAAAAAgUAAAAGY2FsbGVyBQAAAAxhZG1pbkFkZHJlc3MGCQAAAAAAAAIFAAAABmNhbGxlcgUAAAAEdGhpcwYJAAAAAAAAAggFAAAABmNhbGxlcgAAAAVieXRlcwUAAAAObmF0aW9uc0FkZHJlc3MGCQAAAAAAAAIIBQAAAAZjYWxsZXIAAAAFYnl0ZXMFAAAADWFzc2V0c0FkZHJlc3MAAAAKAAAAAWkBAAAAB0RlcG9zaXQAAAAABAAAAAphZGRyZXNzU3RyCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcgQAAAADcG10CQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkAAAAAAAACBQAAAANwbXQFAAAAA3BtdAQAAAAIYW1vdW50SW4JAQAAAAV2YWx1ZQAAAAEICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAMJAAAAAAAAAgUAAAAIYW1vdW50SW4FAAAACGFtb3VudEluBAAAAAdhc3NldEluCAUAAAADcG10AAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB2Fzc2V0SW4FAAAAB2Fzc2V0SW4DCQEAAAACIT0AAAACBQAAAAdhc3NldEluBQAAAApzaGlueXdnZ2lkCQAAAgAAAAECAAAAGk9ubHkgJEhFRyBwYXltZW50cyBhbGxvd2VkBAAAAAZhbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACBQAAAAphZGRyZXNzU3RyAgAAAAhfRGVwb3NpdAkABRQAAAACCQEAAAAPaW50ZXJuYWxEZXBvc2l0AAAAAgUAAAAKYWRkcmVzc1N0cgkAAGQAAAACBQAAAAZhbW91bnQFAAAACGFtb3VudEluCQAAZAAAAAIFAAAABmFtb3VudAUAAAAIYW1vdW50SW4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAADUGF5AAAAAgAAAAphZGRyZXNzU3RyAAAABmFtb3VudAMJAQAAAAEhAAAAAQkBAAAACmNoZWNrQWRtaW4AAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAweW91IGFyZSBub3QgYXV0aG9yaXplZCB0byBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uCQAFFAAAAAIJAQAAAAtpbnRlcm5hbFBheQAAAAIFAAAACmFkZHJlc3NTdHIFAAAABmFtb3VudAUAAAAGYW1vdW50AAAAAWkBAAAACUNhbGxlclBheQAAAAEAAAAGYW1vdW50BAAAAApjYWxsZXJBZGRyCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkBAAAAC2ludGVybmFsUGF5AAAAAgUAAAAKY2FsbGVyQWRkcgUAAAAGYW1vdW50AAAAAWkBAAAADXRyYW5zZmVyQ29pbnMAAAADAAAAC2Zyb21BZGRyZXNzAAAACXRvQWRkcmVzcwAAAAZhbW91bnQDAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAxhZG1pbkFkZHJlc3MJAQAAAAIhPQAAAAIICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMFAAAADWFzc2V0c0FkZHJlc3MHCQAAAgAAAAECAAAAMHlvdSBhcmUgbm90IGF1dGhvcml6ZWQgdG8gcGVyZm9ybSB0aGlzIG9wZXJhdGlvbgkABRQAAAACCQEAAAAQaW50ZXJuYWxUcmFuc2ZlcgAAAAMFAAAAC2Zyb21BZGRyZXNzBQAAAAl0b0FkZHJlc3MFAAAABmFtb3VudAUAAAAGYW1vdW50AAAAAWkBAAAAE2NhbGxlclRyYW5zZmVyQ29pbnMAAAACAAAACXRvQWRkcmVzcwAAAAZhbW91bnQJAQAAABBpbnRlcm5hbFRyYW5zZmVyAAAAAwkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIFAAAACXRvQWRkcmVzcwUAAAAGYW1vdW50AAAAAWkBAAAAEWFyYml0cmFyeUFkZENvaW5zAAAAAgAAAAl0b0FkZHJlc3MAAAAGYW1vdW50AwMDCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAADGFkbWluQWRkcmVzcwkBAAAAAiE9AAAAAggIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwUAAAANYXNzZXRzQWRkcmVzcwcJAQAAAAIhPQAAAAIICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMFAAAADm5hdGlvbnNBZGRyZXNzBwkAAAIAAAABAgAAADB5b3UgYXJlIG5vdCBhdXRob3JpemVkIHRvIHBlcmZvcm0gdGhpcyBvcGVyYXRpb24JAAUUAAAAAgkBAAAAD2ludGVybmFsRGVwb3NpdAAAAAIFAAAACXRvQWRkcmVzcwUAAAAGYW1vdW50BQAAAAZhbW91bnQAAAABaQEAAAAGUmVkZWVtAAAAAAQAAAAKYWRkcmVzc1N0cgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIEAAAADnJlc2VydmVkQW1vdW50CQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAKYWRkcmVzc1N0cgIAAAAJX1Jlc2VydmVkAwkAAAAAAAACBQAAAA5yZXNlcnZlZEFtb3VudAAAAAAAAAAAAAkAAAIAAAABAgAAABFOb3RoaW5nIHRvIHJlZGVlbQkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACV9SZXNlcnZlZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAADnJlc2VydmVkQW1vdW50BQAAAApzaGlueXdnZ2lkBQAAAANuaWwAAAABaQEAAAAJYWRkUmV3YXJkAAAAAgAAAAphZGRyZXNzU3RyAAAABmFtb3VudAMJAQAAAAEhAAAAAQkBAAAACmNoZWNrQWRtaW4AAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAweW91IGFyZSBub3QgYXV0aG9yaXplZCB0byBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uBAAAAA5yZXNlcnZlZEFtb3VudAkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACV9SZXNlcnZlZAkABRQAAAACCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAIFAAAACmFkZHJlc3NTdHICAAAACV9SZXNlcnZlZAkAAGQAAAACBQAAAA5yZXNlcnZlZEFtb3VudAUAAAAGYW1vdW50BQAAAANuaWwJAABkAAAAAgUAAAAOcmVzZXJ2ZWRBbW91bnQFAAAABmFtb3VudAAAAAFpAQAAABRpbmNyZWFzZU5hdGlvbldhbGxldAAAAAIAAAAJTmF0aW9uS2V5AAAABmFtb3VudAMJAQAAAAEhAAAAAQkBAAAACmNoZWNrQWRtaW4AAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAweW91IGFyZSBub3QgYXV0aG9yaXplZCB0byBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uBAAAAANrZXkJAQAAAA5nZXRUcmVhc3VyeUtleQAAAAEFAAAACU5hdGlvbktleQQAAAAOcmVzZXJ2ZWRBbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAADa2V5CQAFFAAAAAIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAA2tleQkAAGQAAAACBQAAAA5yZXNlcnZlZEFtb3VudAUAAAAGYW1vdW50BQAAAANuaWwJAABkAAAAAgUAAAAOcmVzZXJ2ZWRBbW91bnQFAAAABmFtb3VudAAAAAFpAQAAABRkZWNyZWFzZU5hdGlvbldhbGxldAAAAAIAAAAJTmF0aW9uS2V5AAAABmFtb3VudAMJAQAAAAEhAAAAAQkBAAAACmNoZWNrQWRtaW4AAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAweW91IGFyZSBub3QgYXV0aG9yaXplZCB0byBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uBAAAAANrZXkJAQAAAA5nZXRUcmVhc3VyeUtleQAAAAEFAAAACU5hdGlvbktleQQAAAAOcmVzZXJ2ZWRBbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQUAAAADa2V5CQAFFAAAAAIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAA2tleQkAAGUAAAACBQAAAA5yZXNlcnZlZEFtb3VudAUAAAAGYW1vdW50BQAAAANuaWwJAABlAAAAAgUAAAAOcmVzZXJ2ZWRBbW91bnQFAAAABmFtb3VudAAAAACFQA0P",
    "height": 2047061,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 71MsKjrx7rDqJ9qwAxhKeY59D7SuaycTWjPuHvBz2e57
Next: 5A6T118BKsE1cgCirdCjgbpXvEQctyqoTynXcath5y4X

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let shinywggid = base58'AFQS5E4ELtxex3iANtWtUU2V2oWJZSo8VVnK8z3VFmqf'
5 5  
6 6  let adminAddress = addressFromStringValue("3MpNtiPSRSq6NnaQYk38BfWSzZcgAYTyrQ9")
7 7  
8 8  let assetsAddress = base58'3N8WDKbqGox5Eky326PHHT7rUyrby5MXdmb'
9 9  
10 10  let nationsAddress = base58'3MvyzDtzWWV5MZ1GP8JfQhhQqiGU4Nbifdy'
11 11  
12 12  func tryGetInteger (key) = match getInteger(this, key) {
13 13      case b: Int => 
14 14          b
15 15      case _ => 
16 16          0
17 17  }
18 18  
19 19  
20 20  func tryGetBoolean (key) = match getBoolean(this, key) {
21 21      case b: Boolean => 
22 22          b
23 23      case _ => 
24 24          false
25 25  }
26 26  
27 27  
28 28  func getTreasuryKey (nationid) = (nationid + "_Treasury")
29 29  
30 30  
31 31  func internalDeposit (addressStr,amountIn) = {
32 32      let amount = tryGetInteger((addressStr + "_Deposit"))
33 33  [IntegerEntry((addressStr + "_Deposit"), (amount + amountIn))]
34 34      }
35 35  
36 36  
37 37  func internalPay (addressStr,amount) = {
38 38      let deposited = tryGetInteger((addressStr + "_Deposit"))
39 39      if ((0 > (deposited - amount)))
40 40          then throw("Not enough deposit.")
41 41          else if (((deposited - amount) == 0))
42 42              then [DeleteEntry((addressStr + "_Deposit"))]
43 43              else [IntegerEntry((addressStr + "_Deposit"), (deposited - amount))]
44 44      }
45 45  
46 46  
47 47  func internalReserve (addressStr,amount) = {
48 48      let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
49 49  [IntegerEntry((addressStr + "_Reserved"), (reservedAmount + amount))]
50 50      }
51 51  
52 52  
53 53  func internalTransfer (fromAddress,toAddress,amount) = (internalPay(fromAddress, amount) ++ internalDeposit(toAddress, amount))
54 54  
55 55  
56 56  func checkAdmin (caller) = if (if (if ((caller == adminAddress))
57 57      then true
58 58      else (caller == this))
59 59      then true
60 60      else (caller.bytes == nationsAddress))
61 61      then true
62 62      else (caller.bytes == assetsAddress)
63 63  
64 64  
65 65  @Callable(i)
66 66  func Deposit () = {
67 67      let addressStr = toString(i.originCaller)
68 68      let pmt = i.payments[0]
69 69      if ((pmt == pmt))
70 70          then {
71 71              let amountIn = value(i.payments[0].amount)
72 72              if ((amountIn == amountIn))
73 73                  then {
74 74                      let assetIn = pmt.assetId
75 75                      if ((assetIn == assetIn))
76 76                          then if ((assetIn != shinywggid))
77 77                              then throw("Only $HEG payments allowed")
78 78                              else {
79 79                                  let amount = tryGetInteger((addressStr + "_Deposit"))
80 80                                  $Tuple2(internalDeposit(addressStr, (amount + amountIn)), (amount + amountIn))
81 81                                  }
82 82                          else throw("Strict value is not equal to itself.")
83 83                      }
84 84                  else throw("Strict value is not equal to itself.")
85 85              }
86 86          else throw("Strict value is not equal to itself.")
87 87      }
88 88  
89 89  
90 90  
91 91  @Callable(i)
92 92  func Pay (addressStr,amount) = if (!(checkAdmin(i.caller)))
93 93      then throw("you are not authorized to perform this operation")
94 94      else $Tuple2(internalPay(addressStr, amount), amount)
95 95  
96 96  
97 97  
98 98  @Callable(i)
99 99  func CallerPay (amount) = {
100 100      let callerAddr = toString(i.caller)
101 101      internalPay(callerAddr, amount)
102 102      }
103 103  
104 104  
105 105  
106 106  @Callable(i)
107 107  func transferCoins (fromAddress,toAddress,amount) = if (if ((i.caller != adminAddress))
108 108      then (i.caller.bytes != assetsAddress)
109 109      else false)
110 110      then throw("you are not authorized to perform this operation")
111 111      else $Tuple2(internalTransfer(fromAddress, toAddress, amount), amount)
112 112  
113 113  
114 114  
115 115  @Callable(i)
116 116  func callerTransferCoins (toAddress,amount) = internalTransfer(toString(i.caller), toAddress, amount)
117 117  
118 118  
119 119  
120 120  @Callable(i)
121 121  func arbitraryAddCoins (toAddress,amount) = if (if (if ((i.caller != adminAddress))
122 122      then (i.caller.bytes != assetsAddress)
123 123      else false)
124 124      then (i.caller.bytes != nationsAddress)
125 125      else false)
126 126      then throw("you are not authorized to perform this operation")
127 127      else $Tuple2(internalDeposit(toAddress, amount), amount)
128 128  
129 129  
130 130  
131 131  @Callable(i)
132 132  func Redeem () = {
133 133      let addressStr = toString(i.caller)
134 134      let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
135 135      if ((reservedAmount == 0))
136 136          then throw("Nothing to redeem")
137 137          else [DeleteEntry((addressStr + "_Reserved")), ScriptTransfer(i.caller, reservedAmount, shinywggid)]
138 138      }
139 139  
140 140  
141 141  
142 142  @Callable(i)
143 143  func addReward (addressStr,amount) = if (!(checkAdmin(i.caller)))
144 144      then throw("you are not authorized to perform this operation")
145 145      else {
146 146          let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
147 147          $Tuple2([IntegerEntry((addressStr + "_Reserved"), (reservedAmount + amount))], (reservedAmount + amount))
148 148          }
149 149  
150 150  
151 151  
152 152  @Callable(i)
153 153  func increaseNationWallet (NationKey,amount) = if (!(checkAdmin(i.caller)))
154 154      then throw("you are not authorized to perform this operation")
155 155      else {
156 156          let key = getTreasuryKey(NationKey)
157 157          let reservedAmount = tryGetInteger(key)
158 158          $Tuple2([IntegerEntry(key, (reservedAmount + amount))], (reservedAmount + amount))
159 159          }
160 160  
161 161  
162 162  
163 163  @Callable(i)
164 164  func decreaseNationWallet (NationKey,amount) = if (!(checkAdmin(i.caller)))
165 165      then throw("you are not authorized to perform this operation")
166 166      else {
167 167          let key = getTreasuryKey(NationKey)
168 168          let reservedAmount = tryGetInteger(key)
169 169          $Tuple2([IntegerEntry(key, (reservedAmount - amount))], (reservedAmount - amount))
170 170          }
171 171  
172 172

Old	New	Differences
1	1	{-# STDLIB_VERSION 5 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let shinywggid = base58'AFQS5E4ELtxex3iANtWtUU2V2oWJZSo8VVnK8z3VFmqf'
5	5
6	6	let adminAddress = addressFromStringValue("3MpNtiPSRSq6NnaQYk38BfWSzZcgAYTyrQ9")
7	7
8	8	let assetsAddress = base58'3N8WDKbqGox5Eky326PHHT7rUyrby5MXdmb'
9	9
10	10	let nationsAddress = base58'3MvyzDtzWWV5MZ1GP8JfQhhQqiGU4Nbifdy'
11	11
12	12	func tryGetInteger (key) = match getInteger(this, key) {
13	13	case b: Int =>
14	14	b
15	15	case _ =>
16	16	0
17	17	}
18	18
19	19
20	20	func tryGetBoolean (key) = match getBoolean(this, key) {
21	21	case b: Boolean =>
22	22	b
23	23	case _ =>
24	24	false
25	25	}
26	26
27	27
28	28	func getTreasuryKey (nationid) = (nationid + "_Treasury")
29	29
30	30
31	31	func internalDeposit (addressStr,amountIn) = {
32	32	let amount = tryGetInteger((addressStr + "_Deposit"))
33	33	[IntegerEntry((addressStr + "_Deposit"), (amount + amountIn))]
34	34	}
35	35
36	36
37	37	func internalPay (addressStr,amount) = {
38	38	let deposited = tryGetInteger((addressStr + "_Deposit"))
39	39	if ((0 > (deposited - amount)))
40	40	then throw("Not enough deposit.")
41	41	else if (((deposited - amount) == 0))
42	42	then [DeleteEntry((addressStr + "_Deposit"))]
43	43	else [IntegerEntry((addressStr + "_Deposit"), (deposited - amount))]
44	44	}
45	45
46	46
47	47	func internalReserve (addressStr,amount) = {
48	48	let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
49	49	[IntegerEntry((addressStr + "_Reserved"), (reservedAmount + amount))]
50	50	}
51	51
52	52
53	53	func internalTransfer (fromAddress,toAddress,amount) = (internalPay(fromAddress, amount) ++ internalDeposit(toAddress, amount))
54	54
55	55
56	56	func checkAdmin (caller) = if (if (if ((caller == adminAddress))
57	57	then true
58	58	else (caller == this))
59	59	then true
60	60	else (caller.bytes == nationsAddress))
61	61	then true
62	62	else (caller.bytes == assetsAddress)
63	63
64	64
65	65	@Callable(i)
66	66	func Deposit () = {
67	67	let addressStr = toString(i.originCaller)
68	68	let pmt = i.payments[0]
69	69	if ((pmt == pmt))
70	70	then {
71	71	let amountIn = value(i.payments[0].amount)
72	72	if ((amountIn == amountIn))
73	73	then {
74	74	let assetIn = pmt.assetId
75	75	if ((assetIn == assetIn))
76	76	then if ((assetIn != shinywggid))
77	77	then throw("Only $HEG payments allowed")
78	78	else {
79	79	let amount = tryGetInteger((addressStr + "_Deposit"))
80	80	$Tuple2(internalDeposit(addressStr, (amount + amountIn)), (amount + amountIn))
81	81	}
82	82	else throw("Strict value is not equal to itself.")
83	83	}
84	84	else throw("Strict value is not equal to itself.")
85	85	}
86	86	else throw("Strict value is not equal to itself.")
87	87	}
88	88
89	89
90	90
91	91	@Callable(i)
92	92	func Pay (addressStr,amount) = if (!(checkAdmin(i.caller)))
93	93	then throw("you are not authorized to perform this operation")
94	94	else $Tuple2(internalPay(addressStr, amount), amount)
95	95
96	96
97	97
98	98	@Callable(i)
99	99	func CallerPay (amount) = {
100	100	let callerAddr = toString(i.caller)
101	101	internalPay(callerAddr, amount)
102	102	}
103	103
104	104
105	105
106	106	@Callable(i)
107	107	func transferCoins (fromAddress,toAddress,amount) = if (if ((i.caller != adminAddress))
108	108	then (i.caller.bytes != assetsAddress)
109	109	else false)
110	110	then throw("you are not authorized to perform this operation")
111	111	else $Tuple2(internalTransfer(fromAddress, toAddress, amount), amount)
112	112
113	113
114	114
115	115	@Callable(i)
116	116	func callerTransferCoins (toAddress,amount) = internalTransfer(toString(i.caller), toAddress, amount)
117	117
118	118
119	119
120	120	@Callable(i)
121	121	func arbitraryAddCoins (toAddress,amount) = if (if (if ((i.caller != adminAddress))
122	122	then (i.caller.bytes != assetsAddress)
123	123	else false)
124	124	then (i.caller.bytes != nationsAddress)
125	125	else false)
126	126	then throw("you are not authorized to perform this operation")
127	127	else $Tuple2(internalDeposit(toAddress, amount), amount)
128	128
129	129
130	130
131	131	@Callable(i)
132	132	func Redeem () = {
133	133	let addressStr = toString(i.caller)
134	134	let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
135	135	if ((reservedAmount == 0))
136	136	then throw("Nothing to redeem")
137	137	else [DeleteEntry((addressStr + "_Reserved")), ScriptTransfer(i.caller, reservedAmount, shinywggid)]
138	138	}
139	139
140	140
141	141
142	142	@Callable(i)
143	143	func addReward (addressStr,amount) = if (!(checkAdmin(i.caller)))
144	144	then throw("you are not authorized to perform this operation")
145	145	else {
146	146	let reservedAmount = tryGetInteger((addressStr + "_Reserved"))
147	147	$Tuple2([IntegerEntry((addressStr + "_Reserved"), (reservedAmount + amount))], (reservedAmount + amount))
148	148	}
149	149
150	150
151	151
152	152	@Callable(i)
153	153	func increaseNationWallet (NationKey,amount) = if (!(checkAdmin(i.caller)))
154	154	then throw("you are not authorized to perform this operation")
155	155	else {
156	156	let key = getTreasuryKey(NationKey)
157	157	let reservedAmount = tryGetInteger(key)
158	158	$Tuple2([IntegerEntry(key, (reservedAmount + amount))], (reservedAmount + amount))
159	159	}
160	160
161	161
162	162
163	163	@Callable(i)
164	164	func decreaseNationWallet (NationKey,amount) = if (!(checkAdmin(i.caller)))
165	165	then throw("you are not authorized to perform this operation")
166	166	else {
167	167	let key = getTreasuryKey(NationKey)
168	168	let reservedAmount = tryGetInteger(key)
169	169	$Tuple2([IntegerEntry(key, (reservedAmount - amount))], (reservedAmount - amount))
170	170	}
171	171
172	172

github/deemru/w8io/169f3d6 
37.41 ms ◑