w8 · tx · C3s···qKM

tx · C3sLkjhp4nMZh5gCsKeL1pVwqYh25fQmjPwYx8CnUqKM

3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx:  -0.00600000 Waves

2024.12.15 00:41 [3414813] smart account 3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "C3sLkjhp4nMZh5gCsKeL1pVwqYh25fQmjPwYx8CnUqKM",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1734212518635,
    "version": 2,
    "chainId": 84,
    "sender": "3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx",
    "senderPublicKey": "UGqkWsCpv7xRVXkQRXyLd6pWPDtYGXmPip7FxSd1pAu",
    "proofs": [
        "3k9X6zoG7NTeAQ6v47g31neLQC8PKhnVjiLJUiTwbz6ddhzPaWpubyYPMTCf7yYibSLMD7FNCi7f2Ez18W56XVpn"
    ],
    "script": "base64:BgIWCAISAwoBCBIDCgEBEgMKAQgSAwoBCBcAA1NFUAICX18ABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABABZkZWZhdWx0UmVzdDJBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUEZ3WXRhOGJpRXozMXpwZUZlNURKSzh3RTV0clNwUVZGOAMJAAACAQFUBQckbWF0Y2gwAiMzTjdVdVlhcjYyNjRQNThGQmhWV0tQUUFoNFl1YTJoZ25ndgkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABBJZHhDZmdBY3JlczJEYXBwAAEADUlkeENmZ1dsZ0RhcHAAAgEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ9rZXlSZXN0MkFkZHJlc3MAAg0lc19fcmVzdDJBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIIcmVzdDJDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQhyZXN0MkNmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADXJlc3QyQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBD2tleVJlc3QyQWRkcmVzcwAFFmRlZmF1bHRSZXN0MkFkZHJlc3NTdHIACHJlc3QyQ2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQ1yZXN0MkNvbnRyYWN0AA5hY3JlczJDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBRBJZHhDZmdBY3JlczJEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBQ1JZHhDZmdXbGdEYXBwAA13bGdBc3NldElkS2V5Agt3bGdfYXNzZXRJZAAKd2xnQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFC3dsZ0NvbnRyYWN0BQ13bGdBc3NldElkS2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQBEmtleVNlbGxlckJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgdzZWxsZXJfBQdhc3NldElkARFrZXlQcmljZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgZwcmljZV8FB2Fzc2V0SWQBE2tleUFzc2V0SWRzQnlTZWxsZXIBBGFkZHIJAKwCAgIJYXNzZXRJZHNfBQRhZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AAt0ZWFtQWRkcktleQIIdGVhbUFkZHIBB3Byb2xvZzIACQEFYXNJbnQBCQD9BwQFDmFjcmVzMkNvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAQBaQENY29uc3RydWN0b3JWMQEJcmVzdDJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2tleVJlc3QyQWRkcmVzcwAFCXJlc3QyQWRkcgUDbmlsAWkBDnBsYWNlU2VsbE9yZGVyAQVwcmljZQQMcHJvbG9nUmVzdWx0CQEHcHJvbG9nMgADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQBnAgAABQVwcmljZQkAAgECGFByaWNlIHNob3VsZCBiZSBwb3NpdGl2ZQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECGkV4YWN0bHkgMSBwYXltZW50IHJlcXVpcmVkBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBAitORlQgdG9rZW4gc2hvdWxkIGJlIGF0dGFjaGVkIGFzIDFzdCBwYXltZW50BAdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIZTm8gV0FWRVMgcGF5bWVudHMgYWxsb3dlZAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAQKYXNzZXRJZFN0cgkA2AQBBQdhc3NldElkBARhZGRyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQVhc3NldAZpc3N1ZXIFDmFjcmVzMkNvbnRyYWN0CQACAQInT25seSBXYXZlc0xhbmRzIE5GVCB0b2tlbnMgYXJlIGFjY2VwdGVkBAduZnRzS2V5CQETa2V5QXNzZXRJZHNCeVNlbGxlcgEFBGFkZHIEB25mdHNTdHIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUHbmZ0c0tleQIABARuZnRzAwkBAiE9AgUHbmZ0c1N0cgIACQC9CQIJAQV2YWx1ZQEFB25mdHNTdHICAV8FA25pbAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQERa2V5UHJpY2VCeUFzc2V0SWQBBQphc3NldElkU3RyBQVwcmljZQkAzAgCCQELU3RyaW5nRW50cnkCCQESa2V5U2VsbGVyQnlBc3NldElkAQUKYXNzZXRJZFN0cgUEYWRkcgkAzAgCCQELU3RyaW5nRW50cnkCBQduZnRzS2V5CQC7CQIJAM0IAgUEbmZ0cwUKYXNzZXRJZFN0cgIBXwUDbmlsBQxwcm9sb2dSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPY2FuY2VsU2VsbE9yZGVyAQphc3NldElkU3RyBAxwcm9sb2dSZXN1bHQJAQdwcm9sb2cyAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQEYWRkcgkApQgBCAUBaQZjYWxsZXIEB25mdHNLZXkJARNrZXlBc3NldElkc0J5U2VsbGVyAQUEYWRkcgQHbmZ0c1N0cgkBC3ZhbHVlT3JFbHNlAgkAoggBBQduZnRzS2V5AgAEBG5mdHMDCQECIT0CBQduZnRzU3RyAgAJAL0JAgkBBXZhbHVlAQUHbmZ0c1N0cgIBXwUDbmlsBANpZHgJAM8IAgUEbmZ0cwUKYXNzZXRJZFN0cgMJAQEhAQkBCWlzRGVmaW5lZAEFA2lkeAkAAgEJAKwCAgIfWW91ciBkb24ndCBoYXZlIHNlbGwgb3JkZXIgZm9yIAUKYXNzZXRJZFN0cgQKbGlzdEFjdGlvbgMJAGYCCQCQAwEFBG5mdHMAAQkBC1N0cmluZ0VudHJ5AgUHbmZ0c0tleQkAuwkCCQDRCAIFBG5mdHMJAQV2YWx1ZQEFA2lkeAIBXwkBC0RlbGV0ZUVudHJ5AQUHbmZ0c0tleQQFcHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBCQERa2V5UHJpY2VCeUFzc2V0SWQBBQphc3NldElkU3RyCQCsAgICHllvdSBkb24ndCBoYXZlIHNlbGwgb3JkZXIgZm9yIAUKYXNzZXRJZFN0cgkAlAoCCQDMCAIFCmxpc3RBY3Rpb24JAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEmtleVNlbGxlckJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEWtleVByaWNlQnlBc3NldElkAQUKYXNzZXRJZFN0cgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQkA2QQBBQphc3NldElkU3RyBQNuaWwFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9hY2NlcHRTZWxsT3JkZXIBCmFzc2V0SWRTdHIEDHByb2xvZ1Jlc3VsdAkBB3Byb2xvZzIAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAADAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQp3bGdBc3NldElkCQACAQIVV0xHT0xEIHBheW1lbnRzIG9ubHkhBAVwcmljZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEJARFrZXlQcmljZUJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIJAKwCAgkArAICAgRORlQgBQphc3NldElkU3RyAg8gaXMgbm90IHNlbGxpbmcEBmNoYW5nZQkAZQIIBQNwbXQGYW1vdW50BQVwcmljZQMJAGYCAAAFBmNoYW5nZQkAAgEJAKwCAgkArAICAi1QYXltZW50IGF0dGFjaGVkIGRvZXNuJ3QgY292ZXIgc2VsbCBwcmljZSBvZiAJAQpmaXhlZFBvaW50AgUFcHJpY2UACAIHIFdMR09MRAQNY2hhbmdlQWN0aW9ucwMJAGYCBQZjaGFuZ2UAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFBmNoYW5nZQUKd2xnQXNzZXRJZAUDbmlsBQNuaWwEBnNlbGxlcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJARJrZXlTZWxsZXJCeUFzc2V0SWQBBQphc3NldElkU3RyCQCsAgIJAKwCAgIETkZUIAUKYXNzZXRJZFN0cgIPIGlzIG5vdCBzZWxsaW5nBAduZnRzS2V5CQETa2V5QXNzZXRJZHNCeVNlbGxlcgEFBnNlbGxlcgQHbmZ0c1N0cgkBC3ZhbHVlT3JFbHNlAgkAoggBBQduZnRzS2V5AgAEBG5mdHMDCQECIT0CBQduZnRzU3RyAgAJAL0JAgkBBXZhbHVlAQUHbmZ0c1N0cgIBXwUDbmlsBANpZHgJAM8IAgUEbmZ0cwUKYXNzZXRJZFN0cgMJAQEhAQkBCWlzRGVmaW5lZAEFA2lkeAkAAgEJAKwCAgIhU2VsbGVyIGRvbid0IGhhdmUgc2VsbCBvcmRlciBmb3IgBQphc3NldElkU3RyBApsaXN0QWN0aW9uAwkAZgIJAJADAQUEbmZ0cwABCQELU3RyaW5nRW50cnkCBQduZnRzS2V5CQC7CQIJANEIAgUEbmZ0cwkBBXZhbHVlAQUDaWR4AgFfCQELRGVsZXRlRW50cnkBBQduZnRzS2V5BANmZWUJAGkCBQVwcmljZQAUBAdmb3JUZWFtCQBpAgUDZmVlAAIECXdsZ1JlbWFpbgkBBWFzSW50AQkA/AcEBQt3bGdDb250cmFjdAIKYnVybldsZ29sZAkAzAgCCQBlAgUDZmVlBQdmb3JUZWFtBQNuaWwFA25pbAkAlAoCCQDOCAIJAMwIAgUKbGlzdEFjdGlvbgkAzAgCCQELRGVsZXRlRW50cnkBCQESa2V5U2VsbGVyQnlBc3NldElkAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQERa2V5UHJpY2VCeUFzc2V0SWQBBQphc3NldElkU3RyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBnNlbGxlcgkAZQIFBXByaWNlBQNmZWUFCndsZ0Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTMpAgULd2xnQ29udHJhY3QFC3RlYW1BZGRyS2V5BQdmb3JUZWFtBQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFCmFzc2V0SWRTdHIFA25pbAUNY2hhbmdlQWN0aW9ucwkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1JlbWFpbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAB7aHX",
    "height": 3414813,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: G7pT9pBJ4LG7FMkT6rUYr3ou9jvsUetXM27REm4w9iXW
Next: none

Diff: 
Old New Differences
180 180                                          let fee = (price / 20)
181 181                                          let forTeam = (fee / 2)
182 182                                          let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
183 -                                         $Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
183 +                                         $Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), $Tuple2(prologResult, wlgRemain))
184 184                                          }
185 185                                  }
186 186                          }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let chain = take(drop(this.bytes, 1), 1)
7 7  
8 8  let defaultRest2AddressStr = match chain {
9 9      case _ => 
10 10          if ((base58'2W' == $match0))
11 11              then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
12 12              else if ((base58'2T' == $match0))
13 13                  then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
14 14                  else throw("Unknown chain")
15 15  }
16 16  
17 17  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
18 18  
19 19  
20 20  let IdxCfgAcres2Dapp = 1
21 21  
22 22  let IdxCfgWlgDapp = 2
23 23  
24 24  func keyRestCfg () = "%s__restConfig"
25 25  
26 26  
27 27  func keyRest2Address () = "%s__rest2Addr"
28 28  
29 29  
30 30  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
31 31  
32 32  
33 33  func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
34 34  
35 35  
36 36  let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
37 37  
38 38  let rest2Cfg = readRestCfgOrFail(rest2Contract)
39 39  
40 40  let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
41 41  
42 42  let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
43 43  
44 44  let wlgAssetIdKey = "wlg_assetId"
45 45  
46 46  let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
47 47  
48 48  func keySellerByAssetId (assetId) = ("seller_" + assetId)
49 49  
50 50  
51 51  func keyPriceByAssetId (assetId) = ("price_" + assetId)
52 52  
53 53  
54 54  func keyAssetIdsBySeller (addr) = ("assetIds_" + addr)
55 55  
56 56  
57 57  func asInt (v) = match v {
58 58      case n: Int => 
59 59          n
60 60      case _ => 
61 61          throw("fail to cast into Int")
62 62  }
63 63  
64 64  
65 65  func fixedPoint (val,decimals) = {
66 66      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
67 67      let lowPart = toString((val % tenPow))
68 68      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
69 69      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
70 70      }
71 71  
72 72  
73 73  let teamAddrKey = "teamAddr"
74 74  
75 75  func prolog2 () = asInt(reentrantInvoke(acres2Contract, "saveLastTx", nil, nil))
76 76  
77 77  
78 78  @Callable(i)
79 79  func constructorV1 (rest2Addr) = if ((i.caller != this))
80 80      then throw("Permission denied")
81 81      else [StringEntry(keyRest2Address(), rest2Addr)]
82 82  
83 83  
84 84  
85 85  @Callable(i)
86 86  func placeSellOrder (price) = {
87 87      let prologResult = prolog2()
88 88      if ((prologResult == prologResult))
89 89          then if ((0 >= price))
90 90              then throw("Price should be positive")
91 91              else if ((size(i.payments) != 1))
92 92                  then throw("Exactly 1 payment required")
93 93                  else {
94 94                      let pmt = value(i.payments[0])
95 95                      if ((pmt.amount != 1))
96 96                          then throw("NFT token should be attached as 1st payment")
97 97                          else {
98 98                              let assetId = valueOrErrorMessage(pmt.assetId, "No WAVES payments allowed")
99 99                              let asset = value(assetInfo(assetId))
100 100                              let assetIdStr = toBase58String(assetId)
101 101                              let addr = toString(i.caller)
102 102                              if ((asset.issuer != acres2Contract))
103 103                                  then throw("Only WavesLands NFT tokens are accepted")
104 104                                  else {
105 105                                      let nftsKey = keyAssetIdsBySeller(addr)
106 106                                      let nftsStr = valueOrElse(getString(nftsKey), "")
107 107                                      let nfts = if ((nftsStr != ""))
108 108                                          then split_51C(value(nftsStr), "_")
109 109                                          else nil
110 110                                      $Tuple2([IntegerEntry(keyPriceByAssetId(assetIdStr), price), StringEntry(keySellerByAssetId(assetIdStr), addr), StringEntry(nftsKey, makeString_11C((nfts :+ assetIdStr), "_"))], prologResult)
111 111                                      }
112 112                              }
113 113                      }
114 114          else throw("Strict value is not equal to itself.")
115 115      }
116 116  
117 117  
118 118  
119 119  @Callable(i)
120 120  func cancelSellOrder (assetIdStr) = {
121 121      let prologResult = prolog2()
122 122      if ((prologResult == prologResult))
123 123          then {
124 124              let addr = toString(i.caller)
125 125              let nftsKey = keyAssetIdsBySeller(addr)
126 126              let nftsStr = valueOrElse(getString(nftsKey), "")
127 127              let nfts = if ((nftsStr != ""))
128 128                  then split_51C(value(nftsStr), "_")
129 129                  else nil
130 130              let idx = indexOf(nfts, assetIdStr)
131 131              if (!(isDefined(idx)))
132 132                  then throw(("Your don't have sell order for " + assetIdStr))
133 133                  else {
134 134                      let listAction = if ((size(nfts) > 1))
135 135                          then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
136 136                          else DeleteEntry(nftsKey)
137 137                      let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
138 138                      $Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))], prologResult)
139 139                      }
140 140              }
141 141          else throw("Strict value is not equal to itself.")
142 142      }
143 143  
144 144  
145 145  
146 146  @Callable(i)
147 147  func acceptSellOrder (assetIdStr) = {
148 148      let prologResult = prolog2()
149 149      if ((prologResult == prologResult))
150 150          then if ((size(i.payments) != 1))
151 151              then throw("exactly 1 payment must be attached")
152 152              else {
153 153                  let pmt = i.payments[0]
154 154                  if (if (!(isDefined(pmt.assetId)))
155 155                      then true
156 156                      else (value(pmt.assetId) != wlgAssetId))
157 157                      then throw("WLGOLD payments only!")
158 158                      else {
159 159                          let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
160 160                          let change = (pmt.amount - price)
161 161                          if ((0 > change))
162 162                              then throw((("Payment attached doesn't cover sell price of " + fixedPoint(price, 8)) + " WLGOLD"))
163 163                              else {
164 164                                  let changeActions = if ((change > 0))
165 165                                      then [ScriptTransfer(i.caller, change, wlgAssetId)]
166 166                                      else nil
167 167                                  let seller = valueOrErrorMessage(getString(keySellerByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
168 168                                  let nftsKey = keyAssetIdsBySeller(seller)
169 169                                  let nftsStr = valueOrElse(getString(nftsKey), "")
170 170                                  let nfts = if ((nftsStr != ""))
171 171                                      then split_51C(value(nftsStr), "_")
172 172                                      else nil
173 173                                  let idx = indexOf(nfts, assetIdStr)
174 174                                  if (!(isDefined(idx)))
175 175                                      then throw(("Seller don't have sell order for " + assetIdStr))
176 176                                      else {
177 177                                          let listAction = if ((size(nfts) > 1))
178 178                                              then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
179 179                                              else DeleteEntry(nftsKey)
180 180                                          let fee = (price / 20)
181 181                                          let forTeam = (fee / 2)
182 182                                          let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
183 -                                         $Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
183 +                                         $Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), $Tuple2(prologResult, wlgRemain))
184 184                                          }
185 185                                  }
186 186                          }
187 187                  }
188 188          else throw("Strict value is not equal to itself.")
189 189      }
190 190  
191 191

Old	New		Differences
180	180		let fee = (price / 20)
181	181		let forTeam = (fee / 2)
182	182		let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
183		-	$Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
	183	+	$Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), $Tuple2(prologResult, wlgRemain))
184	184		}
185	185		}
186	186		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let chain = take(drop(this.bytes, 1), 1)
7	7
8	8		let defaultRest2AddressStr = match chain {
9	9		case _ =>
10	10		if ((base58'2W' == $match0))
11	11		then "3PFwYta8biEz31zpeFe5DJK8wE5trSpQVF8"
12	12		else if ((base58'2T' == $match0))
13	13		then "3N7UuYar6264P58FBhVWKPQAh4Yua2hgngv"
14	14		else throw("Unknown chain")
15	15		}
16	16
17	17		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
18	18
19	19
20	20		let IdxCfgAcres2Dapp = 1
21	21
22	22		let IdxCfgWlgDapp = 2
23	23
24	24		func keyRestCfg () = "%s__restConfig"
25	25
26	26
27	27		func keyRest2Address () = "%s__rest2Addr"
28	28
29	29
30	30		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
31	31
32	32
33	33		func getContractAddressOrFail (rest2Cfg,idx) = valueOrErrorMessage(addressFromString(rest2Cfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
34	34
35	35
36	36		let rest2Contract = addressFromStringValue(valueOrElse(getString(this, keyRest2Address()), defaultRest2AddressStr))
37	37
38	38		let rest2Cfg = readRestCfgOrFail(rest2Contract)
39	39
40	40		let acres2Contract = getContractAddressOrFail(rest2Cfg, IdxCfgAcres2Dapp)
41	41
42	42		let wlgContract = getContractAddressOrFail(rest2Cfg, IdxCfgWlgDapp)
43	43
44	44		let wlgAssetIdKey = "wlg_assetId"
45	45
46	46		let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
47	47
48	48		func keySellerByAssetId (assetId) = ("seller_" + assetId)
49	49
50	50
51	51		func keyPriceByAssetId (assetId) = ("price_" + assetId)
52	52
53	53
54	54		func keyAssetIdsBySeller (addr) = ("assetIds_" + addr)
55	55
56	56
57	57		func asInt (v) = match v {
58	58		case n: Int =>
59	59		n
60	60		case _ =>
61	61		throw("fail to cast into Int")
62	62		}
63	63
64	64
65	65		func fixedPoint (val,decimals) = {
66	66		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
67	67		let lowPart = toString((val % tenPow))
68	68		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
69	69		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
70	70		}
71	71
72	72
73	73		let teamAddrKey = "teamAddr"
74	74
75	75		func prolog2 () = asInt(reentrantInvoke(acres2Contract, "saveLastTx", nil, nil))
76	76
77	77
78	78		@Callable(i)
79	79		func constructorV1 (rest2Addr) = if ((i.caller != this))
80	80		then throw("Permission denied")
81	81		else [StringEntry(keyRest2Address(), rest2Addr)]
82	82
83	83
84	84
85	85		@Callable(i)
86	86		func placeSellOrder (price) = {
87	87		let prologResult = prolog2()
88	88		if ((prologResult == prologResult))
89	89		then if ((0 >= price))
90	90		then throw("Price should be positive")
91	91		else if ((size(i.payments) != 1))
92	92		then throw("Exactly 1 payment required")
93	93		else {
94	94		let pmt = value(i.payments[0])
95	95		if ((pmt.amount != 1))
96	96		then throw("NFT token should be attached as 1st payment")
97	97		else {
98	98		let assetId = valueOrErrorMessage(pmt.assetId, "No WAVES payments allowed")
99	99		let asset = value(assetInfo(assetId))
100	100		let assetIdStr = toBase58String(assetId)
101	101		let addr = toString(i.caller)
102	102		if ((asset.issuer != acres2Contract))
103	103		then throw("Only WavesLands NFT tokens are accepted")
104	104		else {
105	105		let nftsKey = keyAssetIdsBySeller(addr)
106	106		let nftsStr = valueOrElse(getString(nftsKey), "")
107	107		let nfts = if ((nftsStr != ""))
108	108		then split_51C(value(nftsStr), "_")
109	109		else nil
110	110		$Tuple2([IntegerEntry(keyPriceByAssetId(assetIdStr), price), StringEntry(keySellerByAssetId(assetIdStr), addr), StringEntry(nftsKey, makeString_11C((nfts :+ assetIdStr), "_"))], prologResult)
111	111		}
112	112		}
113	113		}
114	114		else throw("Strict value is not equal to itself.")
115	115		}
116	116
117	117
118	118
119	119		@Callable(i)
120	120		func cancelSellOrder (assetIdStr) = {
121	121		let prologResult = prolog2()
122	122		if ((prologResult == prologResult))
123	123		then {
124	124		let addr = toString(i.caller)
125	125		let nftsKey = keyAssetIdsBySeller(addr)
126	126		let nftsStr = valueOrElse(getString(nftsKey), "")
127	127		let nfts = if ((nftsStr != ""))
128	128		then split_51C(value(nftsStr), "_")
129	129		else nil
130	130		let idx = indexOf(nfts, assetIdStr)
131	131		if (!(isDefined(idx)))
132	132		then throw(("Your don't have sell order for " + assetIdStr))
133	133		else {
134	134		let listAction = if ((size(nfts) > 1))
135	135		then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
136	136		else DeleteEntry(nftsKey)
137	137		let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
138	138		$Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))], prologResult)
139	139		}
140	140		}
141	141		else throw("Strict value is not equal to itself.")
142	142		}
143	143
144	144
145	145
146	146		@Callable(i)
147	147		func acceptSellOrder (assetIdStr) = {
148	148		let prologResult = prolog2()
149	149		if ((prologResult == prologResult))
150	150		then if ((size(i.payments) != 1))
151	151		then throw("exactly 1 payment must be attached")
152	152		else {
153	153		let pmt = i.payments[0]
154	154		if (if (!(isDefined(pmt.assetId)))
155	155		then true
156	156		else (value(pmt.assetId) != wlgAssetId))
157	157		then throw("WLGOLD payments only!")
158	158		else {
159	159		let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
160	160		let change = (pmt.amount - price)
161	161		if ((0 > change))
162	162		then throw((("Payment attached doesn't cover sell price of " + fixedPoint(price, 8)) + " WLGOLD"))
163	163		else {
164	164		let changeActions = if ((change > 0))
165	165		then [ScriptTransfer(i.caller, change, wlgAssetId)]
166	166		else nil
167	167		let seller = valueOrErrorMessage(getString(keySellerByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
168	168		let nftsKey = keyAssetIdsBySeller(seller)
169	169		let nftsStr = valueOrElse(getString(nftsKey), "")
170	170		let nfts = if ((nftsStr != ""))
171	171		then split_51C(value(nftsStr), "_")
172	172		else nil
173	173		let idx = indexOf(nfts, assetIdStr)
174	174		if (!(isDefined(idx)))
175	175		then throw(("Seller don't have sell order for " + assetIdStr))
176	176		else {
177	177		let listAction = if ((size(nfts) > 1))
178	178		then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
179	179		else DeleteEntry(nftsKey)
180	180		let fee = (price / 20)
181	181		let forTeam = (fee / 2)
182	182		let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
183		-	$Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
	183	+	$Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), (price - fee), wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), $Tuple2(prologResult, wlgRemain))
184	184		}
185	185		}
186	186		}
187	187		}
188	188		else throw("Strict value is not equal to itself.")
189	189		}
190	190
191	191

github/deemru/w8io/169f3d6 
34.15 ms ◑