w8 · tx · 8gH···cDE

tx · 8gHkNkGLT1BJLFhdMqDk2sNaz4oEQ82wuM8K85ewycDE

3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx:  -0.00600000 Waves

2024.12.11 04:48 [3409304] smart account 3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8gHkNkGLT1BJLFhdMqDk2sNaz4oEQ82wuM8K85ewycDE",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1733881728445,
    "version": 2,
    "chainId": 84,
    "sender": "3N3nfqFcxXfd3T18V9icDdh58MJ9wQ2k2xx",
    "senderPublicKey": "UGqkWsCpv7xRVXkQRXyLd6pWPDtYGXmPip7FxSd1pAu",
    "proofs": [
        "64kEhaYSMRpJMQP9KcM49pHAAaPLFQTviAEKjwwgWoasma7JfBkE8BJpmThBxHDGdDLQAF7TDqG5cQ6u6zpZrXv6"
    ],
    "script": "base64:BgIWCAISAwoBCBIDCgEBEgMKAQgSAwoBCBcAA1NFUAICX18ABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABABZkZWZhdWx0UmVzdDJBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUEZ3WXRhOGJpRXozMXpwZUZlNURKSzh3RTV0clNwUVZGOAMJAAACAQFUBQckbWF0Y2gwAiMzTjdVdVlhcjYyNjRQNThGQmhWV0tQUUFoNFl1YTJoZ25ndgkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABBJZHhDZmdBY3JlczJEYXBwAAEADUlkeENmZ1dsZ0RhcHAAAgEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ9rZXlSZXN0MkFkZHJlc3MAAg0lc19fcmVzdDJBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIIcmVzdDJDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQhyZXN0MkNmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADXJlc3QyQ29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBD2tleVJlc3QyQWRkcmVzcwAFFmRlZmF1bHRSZXN0MkFkZHJlc3NTdHIACHJlc3QyQ2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQ1yZXN0MkNvbnRyYWN0AA5hY3JlczJDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBRBJZHhDZmdBY3JlczJEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFCHJlc3QyQ2ZnBQ1JZHhDZmdXbGdEYXBwAA13bGdBc3NldElkS2V5Agt3bGdfYXNzZXRJZAAKd2xnQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFC3dsZ0NvbnRyYWN0BQ13bGdBc3NldElkS2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQBEmtleVNlbGxlckJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgdzZWxsZXJfBQdhc3NldElkARFrZXlQcmljZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgZwcmljZV8FB2Fzc2V0SWQBE2tleUFzc2V0SWRzQnlTZWxsZXIBBGFkZHIJAKwCAgIJYXNzZXRJZHNfBQRhZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AAt0ZWFtQWRkcktleQIIdGVhbUFkZHIBB3Byb2xvZzIACQEFYXNJbnQBCQD9BwQFDmFjcmVzMkNvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAQBaQENY29uc3RydWN0b3JWMQEJcmVzdDJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2tleVJlc3QyQWRkcmVzcwAFCXJlc3QyQWRkcgUDbmlsAWkBDnBsYWNlU2VsbE9yZGVyAQVwcmljZQQMcHJvbG9nUmVzdWx0CQEHcHJvbG9nMgADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQBnAgAABQVwcmljZQkAAgECGFByaWNlIHNob3VsZCBiZSBwb3NpdGl2ZQMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAgkAAgECNUV4YWN0bHkgMiBwYXltZW50cyByZXF1aXJlZDogTkZUIGFuZCA1JSBmZWUgaW4gV0xHT0xEBANwbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAMJAQIhPQIIBQNwbXQGYW1vdW50AAEJAAIBAitORlQgdG9rZW4gc2hvdWxkIGJlIGF0dGFjaGVkIGFzIDFzdCBwYXltZW50BARwbXQxCQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAEECHdBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQRwbXQxB2Fzc2V0SWQCGU5vIFdBVkVTIHBheW1lbnRzIGFsbG93ZWQDCQECIT0CBQh3QXNzZXRJZAUKd2xnQXNzZXRJZAkAAgECME9ubHkgV0xHT0xEIHBheW1lbnRzIGFyZSBhY2NlcHRlZCBhcyAybmQgcGF5bWVudAQGY2hhbmdlCQBlAggFBHBtdDEGYW1vdW50CQBpAgUFcHJpY2UAFAMJAGYCAAAFBmNoYW5nZQkAAgECKDUlIGZlZSBzaG91bGQgYmUgYXR0YWNoZWQgYXMgMm5kIHBheW1lbnQEDWNoYW5nZUFjdGlvbnMDCQBmAgUGY2hhbmdlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZjaGFuZ2UFCndsZ0Fzc2V0SWQFA25pbAUDbmlsBAdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIZTm8gV0FWRVMgcGF5bWVudHMgYWxsb3dlZAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAQKYXNzZXRJZFN0cgkA2AQBBQdhc3NldElkBARhZGRyCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIIBQVhc3NldAZpc3N1ZXIFDmFjcmVzMkNvbnRyYWN0CQACAQInT25seSBXYXZlc0xhbmRzIE5GVCB0b2tlbnMgYXJlIGFjY2VwdGVkBAduZnRzS2V5CQETa2V5QXNzZXRJZHNCeVNlbGxlcgEFBGFkZHIEB25mdHNTdHIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUHbmZ0c0tleQIABARuZnRzAwkBAiE9AgUHbmZ0c1N0cgIACQC9CQIJAQV2YWx1ZQEFB25mdHNTdHICAV8FA25pbAkAlAoCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARFrZXlQcmljZUJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIFBXByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJARJrZXlTZWxsZXJCeUFzc2V0SWQBBQphc3NldElkU3RyBQRhZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFB25mdHNLZXkJALsJAgkAzQgCBQRuZnRzBQphc3NldElkU3RyAgFfBQNuaWwFDWNoYW5nZUFjdGlvbnMFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9jYW5jZWxTZWxsT3JkZXIBCmFzc2V0SWRTdHIEDHByb2xvZ1Jlc3VsdAkBB3Byb2xvZzIAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BARhZGRyCQClCAEIBQFpBmNhbGxlcgQHbmZ0c0tleQkBE2tleUFzc2V0SWRzQnlTZWxsZXIBBQRhZGRyBAduZnRzU3RyCQELdmFsdWVPckVsc2UCCQCiCAEFB25mdHNLZXkCAAQEbmZ0cwMJAQIhPQIFB25mdHNTdHICAAkAvQkCCQEFdmFsdWUBBQduZnRzU3RyAgFfBQNuaWwEA2lkeAkAzwgCBQRuZnRzBQphc3NldElkU3RyAwkBASEBCQEJaXNEZWZpbmVkAQUDaWR4CQACAQkArAICAh9Zb3VyIGRvbid0IGhhdmUgc2VsbCBvcmRlciBmb3IgBQphc3NldElkU3RyBApsaXN0QWN0aW9uAwkAZgIJAJADAQUEbmZ0cwABCQELU3RyaW5nRW50cnkCBQduZnRzS2V5CQC7CQIJANEIAgUEbmZ0cwkBBXZhbHVlAQUDaWR4AgFfCQELRGVsZXRlRW50cnkBBQduZnRzS2V5BAVwcmljZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEJARFrZXlQcmljZUJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIJAKwCAgIeWW91IGRvbid0IGhhdmUgc2VsbCBvcmRlciBmb3IgBQphc3NldElkU3RyCQCUCgIJAMwIAgUKbGlzdEFjdGlvbgkAzAgCCQELRGVsZXRlRW50cnkBCQESa2V5U2VsbGVyQnlBc3NldElkAQUKYXNzZXRJZFN0cgkAzAgCCQELRGVsZXRlRW50cnkBCQERa2V5UHJpY2VCeUFzc2V0SWQBBQphc3NldElkU3RyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABCQDZBAEFCmFzc2V0SWRTdHIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBpAgUFcHJpY2UAFAUKd2xnQXNzZXRJZAUDbmlsBQxwcm9sb2dSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPYWNjZXB0U2VsbE9yZGVyAQphc3NldElkU3RyBAxwcm9sb2dSZXN1bHQJAQdwcm9sb2cyAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAAAwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUKd2xnQXNzZXRJZAkAAgECFVdMR09MRCBwYXltZW50cyBvbmx5IQQFcHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnwgBCQERa2V5UHJpY2VCeUFzc2V0SWQBBQphc3NldElkU3RyCQCsAgIJAKwCAgIETkZUIAUKYXNzZXRJZFN0cgIPIGlzIG5vdCBzZWxsaW5nBAZjaGFuZ2UJAGUCCAUDcG10BmFtb3VudAUFcHJpY2UDCQBmAgAABQZjaGFuZ2UJAAIBCQCsAgIJAKwCAgItUGF5bWVudCBhdHRhY2hlZCBkb2Vzbid0IGNvdmVyIHNlbGwgcHJpY2Ugb2YgCQEKZml4ZWRQb2ludAIFBXByaWNlAAgCByBXTEdPTEQEDWNoYW5nZUFjdGlvbnMDCQBmAgUGY2hhbmdlAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZjaGFuZ2UFCndsZ0Fzc2V0SWQFA25pbAUDbmlsBAZzZWxsZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQESa2V5U2VsbGVyQnlBc3NldElkAQUKYXNzZXRJZFN0cgkArAICCQCsAgICBE5GVCAFCmFzc2V0SWRTdHICDyBpcyBub3Qgc2VsbGluZwQHbmZ0c0tleQkBE2tleUFzc2V0SWRzQnlTZWxsZXIBBQZzZWxsZXIEB25mdHNTdHIJAQt2YWx1ZU9yRWxzZQIJAKIIAQUHbmZ0c0tleQIABARuZnRzAwkBAiE9AgUHbmZ0c1N0cgIACQC9CQIJAQV2YWx1ZQEFB25mdHNTdHICAV8FA25pbAQDaWR4CQDPCAIFBG5mdHMFCmFzc2V0SWRTdHIDCQEBIQEJAQlpc0RlZmluZWQBBQNpZHgJAAIBCQCsAgICIVNlbGxlciBkb24ndCBoYXZlIHNlbGwgb3JkZXIgZm9yIAUKYXNzZXRJZFN0cgQKbGlzdEFjdGlvbgMJAGYCCQCQAwEFBG5mdHMAAQkBC1N0cmluZ0VudHJ5AgUHbmZ0c0tleQkAuwkCCQDRCAIFBG5mdHMJAQV2YWx1ZQEFA2lkeAIBXwkBC0RlbGV0ZUVudHJ5AQUHbmZ0c0tleQQDZmVlCQBpAgUFcHJpY2UAFAQHZm9yVGVhbQkAaQIFA2ZlZQACBAl3bGdSZW1haW4JAQVhc0ludAEJAPwHBAULd2xnQ29udHJhY3QCCmJ1cm5XbGdvbGQJAMwIAgkAZQIFA2ZlZQUHZm9yVGVhbQUDbmlsBQNuaWwJAJQKAgkAzggCCQDMCAIFCmxpc3RBY3Rpb24JAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEmtleVNlbGxlckJ5QXNzZXRJZAEFCmFzc2V0SWRTdHIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBEWtleVByaWNlQnlBc3NldElkAQUKYXNzZXRJZFN0cgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQZzZWxsZXIFBXByaWNlBQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDUzKQIFC3dsZ0NvbnRyYWN0BQt0ZWFtQWRkcktleQUHZm9yVGVhbQUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQkA2QQBBQphc3NldElkU3RyBQNuaWwFDWNoYW5nZUFjdGlvbnMFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAFcNG0",
    "height": 3409304,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BA8AULfhgW1nv4c5pdyScPwqMnybGt3UbdN3TYoN9jH4
Next: G7pT9pBJ4LG7FMkT6rUYr3ou9jvsUetXM27REm4w9iXW

Diff: 
Old New Differences
149 149                          then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
150 150                          else DeleteEntry(nftsKey)
151 151                      let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
152 -                     $Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
152 +                     $Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
153 153                      }
154 154              }
155 155          else throw("Strict value is not equal to itself.")
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) != 2))
92 92                  then throw("Exactly 2 payments required: NFT and 5% fee in WLGOLD")
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 pmt1 = value(i.payments[1])
99 99                              let wAssetId = valueOrErrorMessage(pmt1.assetId, "No WAVES payments allowed")
100 100                              if ((wAssetId != wlgAssetId))
101 101                                  then throw("Only WLGOLD payments are accepted as 2nd payment")
102 102                                  else {
103 103                                      let change = (pmt1.amount - (price / 20))
104 104                                      if ((0 > change))
105 105                                          then throw("5% fee should be attached as 2nd payment")
106 106                                          else {
107 107                                              let changeActions = if ((change > 0))
108 108                                                  then [ScriptTransfer(i.caller, change, wlgAssetId)]
109 109                                                  else nil
110 110                                              let assetId = valueOrErrorMessage(pmt.assetId, "No WAVES payments allowed")
111 111                                              let asset = value(assetInfo(assetId))
112 112                                              let assetIdStr = toBase58String(assetId)
113 113                                              let addr = toString(i.caller)
114 114                                              if ((asset.issuer != acres2Contract))
115 115                                                  then throw("Only WavesLands NFT tokens are accepted")
116 116                                                  else {
117 117                                                      let nftsKey = keyAssetIdsBySeller(addr)
118 118                                                      let nftsStr = valueOrElse(getString(nftsKey), "")
119 119                                                      let nfts = if ((nftsStr != ""))
120 120                                                          then split_51C(value(nftsStr), "_")
121 121                                                          else nil
122 122                                                      $Tuple2(([IntegerEntry(keyPriceByAssetId(assetIdStr), price), StringEntry(keySellerByAssetId(assetIdStr), addr), StringEntry(nftsKey, makeString_11C((nfts :+ assetIdStr), "_"))] ++ changeActions), prologResult)
123 123                                                      }
124 124                                              }
125 125                                      }
126 126                              }
127 127                      }
128 128          else throw("Strict value is not equal to itself.")
129 129      }
130 130  
131 131  
132 132  
133 133  @Callable(i)
134 134  func cancelSellOrder (assetIdStr) = {
135 135      let prologResult = prolog2()
136 136      if ((prologResult == prologResult))
137 137          then {
138 138              let addr = toString(i.caller)
139 139              let nftsKey = keyAssetIdsBySeller(addr)
140 140              let nftsStr = valueOrElse(getString(nftsKey), "")
141 141              let nfts = if ((nftsStr != ""))
142 142                  then split_51C(value(nftsStr), "_")
143 143                  else nil
144 144              let idx = indexOf(nfts, assetIdStr)
145 145              if (!(isDefined(idx)))
146 146                  then throw(("Your don't have sell order for " + assetIdStr))
147 147                  else {
148 148                      let listAction = if ((size(nfts) > 1))
149 149                          then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
150 150                          else DeleteEntry(nftsKey)
151 151                      let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
152 -                     $Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
152 +                     $Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
153 153                      }
154 154              }
155 155          else throw("Strict value is not equal to itself.")
156 156      }
157 157  
158 158  
159 159  
160 160  @Callable(i)
161 161  func acceptSellOrder (assetIdStr) = {
162 162      let prologResult = prolog2()
163 163      if ((prologResult == prologResult))
164 164          then if ((size(i.payments) != 1))
165 165              then throw("exactly 1 payment must be attached")
166 166              else {
167 167                  let pmt = i.payments[0]
168 168                  if (if (!(isDefined(pmt.assetId)))
169 169                      then true
170 170                      else (value(pmt.assetId) != wlgAssetId))
171 171                      then throw("WLGOLD payments only!")
172 172                      else {
173 173                          let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
174 174                          let change = (pmt.amount - price)
175 175                          if ((0 > change))
176 176                              then throw((("Payment attached doesn't cover sell price of " + fixedPoint(price, 8)) + " WLGOLD"))
177 177                              else {
178 178                                  let changeActions = if ((change > 0))
179 179                                      then [ScriptTransfer(i.caller, change, wlgAssetId)]
180 180                                      else nil
181 181                                  let seller = valueOrErrorMessage(getString(keySellerByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
182 182                                  let nftsKey = keyAssetIdsBySeller(seller)
183 183                                  let nftsStr = valueOrElse(getString(nftsKey), "")
184 184                                  let nfts = if ((nftsStr != ""))
185 185                                      then split_51C(value(nftsStr), "_")
186 186                                      else nil
187 187                                  let idx = indexOf(nfts, assetIdStr)
188 188                                  if (!(isDefined(idx)))
189 189                                      then throw(("Seller don't have sell order for " + assetIdStr))
190 190                                      else {
191 191                                          let listAction = if ((size(nfts) > 1))
192 192                                              then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
193 193                                              else DeleteEntry(nftsKey)
194 194                                          let fee = (price / 20)
195 195                                          let forTeam = (fee / 2)
196 196                                          let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
197 197                                          $Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), price, wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
198 198                                          }
199 199                                  }
200 200                          }
201 201                  }
202 202          else throw("Strict value is not equal to itself.")
203 203      }
204 204  
205 205

Old	New		Differences
149	149		then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
150	150		else DeleteEntry(nftsKey)
151	151		let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
152		-	$Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
	152	+	$Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
153	153		}
154	154		}
155	155		else throw("Strict value is not equal to itself.")

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) != 2))
92	92		then throw("Exactly 2 payments required: NFT and 5% fee in WLGOLD")
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 pmt1 = value(i.payments[1])
99	99		let wAssetId = valueOrErrorMessage(pmt1.assetId, "No WAVES payments allowed")
100	100		if ((wAssetId != wlgAssetId))
101	101		then throw("Only WLGOLD payments are accepted as 2nd payment")
102	102		else {
103	103		let change = (pmt1.amount - (price / 20))
104	104		if ((0 > change))
105	105		then throw("5% fee should be attached as 2nd payment")
106	106		else {
107	107		let changeActions = if ((change > 0))
108	108		then [ScriptTransfer(i.caller, change, wlgAssetId)]
109	109		else nil
110	110		let assetId = valueOrErrorMessage(pmt.assetId, "No WAVES payments allowed")
111	111		let asset = value(assetInfo(assetId))
112	112		let assetIdStr = toBase58String(assetId)
113	113		let addr = toString(i.caller)
114	114		if ((asset.issuer != acres2Contract))
115	115		then throw("Only WavesLands NFT tokens are accepted")
116	116		else {
117	117		let nftsKey = keyAssetIdsBySeller(addr)
118	118		let nftsStr = valueOrElse(getString(nftsKey), "")
119	119		let nfts = if ((nftsStr != ""))
120	120		then split_51C(value(nftsStr), "_")
121	121		else nil
122	122		$Tuple2(([IntegerEntry(keyPriceByAssetId(assetIdStr), price), StringEntry(keySellerByAssetId(assetIdStr), addr), StringEntry(nftsKey, makeString_11C((nfts :+ assetIdStr), "_"))] ++ changeActions), prologResult)
123	123		}
124	124		}
125	125		}
126	126		}
127	127		}
128	128		else throw("Strict value is not equal to itself.")
129	129		}
130	130
131	131
132	132
133	133		@Callable(i)
134	134		func cancelSellOrder (assetIdStr) = {
135	135		let prologResult = prolog2()
136	136		if ((prologResult == prologResult))
137	137		then {
138	138		let addr = toString(i.caller)
139	139		let nftsKey = keyAssetIdsBySeller(addr)
140	140		let nftsStr = valueOrElse(getString(nftsKey), "")
141	141		let nfts = if ((nftsStr != ""))
142	142		then split_51C(value(nftsStr), "_")
143	143		else nil
144	144		let idx = indexOf(nfts, assetIdStr)
145	145		if (!(isDefined(idx)))
146	146		then throw(("Your don't have sell order for " + assetIdStr))
147	147		else {
148	148		let listAction = if ((size(nfts) > 1))
149	149		then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
150	150		else DeleteEntry(nftsKey)
151	151		let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), ("You don't have sell order for " + assetIdStr))
152		-	$Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
	152	+	$Tuple2([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr)), ScriptTransfer(i.caller, (price / 20), wlgAssetId)], prologResult)
153	153		}
154	154		}
155	155		else throw("Strict value is not equal to itself.")
156	156		}
157	157
158	158
159	159
160	160		@Callable(i)
161	161		func acceptSellOrder (assetIdStr) = {
162	162		let prologResult = prolog2()
163	163		if ((prologResult == prologResult))
164	164		then if ((size(i.payments) != 1))
165	165		then throw("exactly 1 payment must be attached")
166	166		else {
167	167		let pmt = i.payments[0]
168	168		if (if (!(isDefined(pmt.assetId)))
169	169		then true
170	170		else (value(pmt.assetId) != wlgAssetId))
171	171		then throw("WLGOLD payments only!")
172	172		else {
173	173		let price = valueOrErrorMessage(getInteger(keyPriceByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
174	174		let change = (pmt.amount - price)
175	175		if ((0 > change))
176	176		then throw((("Payment attached doesn't cover sell price of " + fixedPoint(price, 8)) + " WLGOLD"))
177	177		else {
178	178		let changeActions = if ((change > 0))
179	179		then [ScriptTransfer(i.caller, change, wlgAssetId)]
180	180		else nil
181	181		let seller = valueOrErrorMessage(getString(keySellerByAssetId(assetIdStr)), (("NFT " + assetIdStr) + " is not selling"))
182	182		let nftsKey = keyAssetIdsBySeller(seller)
183	183		let nftsStr = valueOrElse(getString(nftsKey), "")
184	184		let nfts = if ((nftsStr != ""))
185	185		then split_51C(value(nftsStr), "_")
186	186		else nil
187	187		let idx = indexOf(nfts, assetIdStr)
188	188		if (!(isDefined(idx)))
189	189		then throw(("Seller don't have sell order for " + assetIdStr))
190	190		else {
191	191		let listAction = if ((size(nfts) > 1))
192	192		then StringEntry(nftsKey, makeString_11C(removeByIndex(nfts, value(idx)), "_"))
193	193		else DeleteEntry(nftsKey)
194	194		let fee = (price / 20)
195	195		let forTeam = (fee / 2)
196	196		let wlgRemain = asInt(invoke(wlgContract, "burnWlgold", [(fee - forTeam)], nil))
197	197		$Tuple2(([listAction, DeleteEntry(keySellerByAssetId(assetIdStr)), DeleteEntry(keyPriceByAssetId(assetIdStr)), ScriptTransfer(addressFromStringValue(seller), price, wlgAssetId), ScriptTransfer(addressFromStringValue(getStringValue(wlgContract, teamAddrKey)), forTeam, wlgAssetId), ScriptTransfer(i.caller, 1, fromBase58String(assetIdStr))] ++ changeActions), prologResult)
198	198		}
199	199		}
200	200		}
201	201		}
202	202		else throw("Strict value is not equal to itself.")
203	203		}
204	204
205	205

github/deemru/w8io/169f3d6 
32.81 ms ◑