tx · CPSEmkFvku48M8uw3mXBqQPht3YZp8ysHL1vV6mb5n7F

3PHmyHFaFTNh6Yh8vicJke9DnxcsUA56uWb:  -0.01400000 Waves

2021.10.22 13:28 [2822359] smart account 3PHmyHFaFTNh6Yh8vicJke9DnxcsUA56uWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CPSEmkFvku48M8uw3mXBqQPht3YZp8ysHL1vV6mb5n7F",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1634898587487,
    "version": 1,
    "sender": "3PHmyHFaFTNh6Yh8vicJke9DnxcsUA56uWb",
    "senderPublicKey": "9Ps647vMbFkxBfwxidninuYHYNazJGxBssESpf6Pya34",
    "proofs": [
        "3qZzUWZKGLzKpGG6xD2VwjBZNH3xH3cUopP8nyH2gfJFsC8v3av1r4FLNeYRXDSrybcSnBrHAQb5Cpn7aiQ5vvLb"
    ],
    "script": "base64:AAIFAAAAAAAAAA4IAhIDCgEIEgASAwoBCAAAAB8AAAAAA1NFUAIAAAACX18AAAAABnNjYWxlOAAAAAAABfXhAAAAAAARcG9vbFN0YXRzUHJpY2VLZXkAAAAAAAAAAAQAAAAADmlkeFBvb2xBZGRyZXNzAAAAAAAAAAABAAAAAA1pZHhQb29sU3RhdHVzAAAAAAAAAAACAAAAABBpZHhQb29sTFBBc3NldElkAAAAAAAAAAADAAAAAA1pZHhBbXRBc3NldElkAAAAAAAAAAAEAAAAAA9pZHhQcmljZUFzc2V0SWQAAAAAAAAAAAUAAAAADmlkeEFtdEFzc2V0RGNtAAAAAAAAAAAGAAAAABBpZHhQcmljZUFzc2V0RGNtAAAAAAAAAAAHAAAAAA5pZHhJQW10QXNzZXRJZAAAAAAAAAAACAAAAAAQaWR4SVByaWNlQXNzZXRJZAAAAAAAAAAACQAAAAANaWR4TFBBc3NldERjbQAAAAAAAAAACgAAAAATaWR4TWF0Y2hlclB1YmxpY0tleQAAAAAAAAAACwEAAAAOa2V5UmVnaXN0ZXJQdXQAAAACAAAAC3Bvb2xBZGRyZXNzAAAABHR4SWQJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACyVzJXMlc19fUF9fBQAAAAtwb29sQWRkcmVzcwIAAAACX18FAAAABHR4SWQBAAAAEWtleVJlZ2lzdGVySW52ZXN0AAAAAgAAAAtwb29sQWRkcmVzcwAAAAR0eElkCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABAlcyVzJXNfX2ludmVzdF9fBQAAAAtwb29sQWRkcmVzcwIAAAACX18FAAAABHR4SWQBAAAAFmtleVBvb2xUb3RhbEFtdEJ5QXNzZXQAAAACAAAAC3Bvb2xBZGRyZXNzAAAAB2Fzc2V0SWQJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAADyVzJXMlc19fdG90YWxfXwUAAAALcG9vbEFkZHJlc3MCAAAAAl9fBQAAAAdhc3NldElkAQAAABJrZXlGYWN0b3J5Q29udHJhY3QAAAAAAgAAABMlc19fZmFjdG9yeUNvbnRyYWN0AQAAACBrZXlTbGlwcGFnZUFtdFBlckFzc2V0Q3VtdWxhdGl2ZQAAAAIAAAALcG9vbEFkZHJlc3MAAAAHYXNzZXRJZAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAglcyVzJXNfXwUAAAALcG9vbEFkZHJlc3MCAAAAAl9fBQAAAAdhc3NldElkAgAAABRfX3NsaXBwYWdlQ3VtdWxhdGl2ZQEAAAAQa2V5RmFjdG9yeUNvbmZpZwAAAAACAAAAESVzX19mYWN0b3J5Q29uZmlnAQAAAClrZXlNYXBwaW5nUG9vbENvbnRyYWN0QWRkcmVzc1RvUG9vbEFzc2V0cwAAAAEAAAATcG9vbENvbnRyYWN0QWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAACCVzJXMlc19fBQAAABNwb29sQ29udHJhY3RBZGRyZXNzAgAAACNfX21hcHBpbmdzX19wb29sQ29udHJhY3QyUG9vbEFzc2V0cwEAAAAfa2V5TWFwcGluZ3NJbnRlcm5hbDJiYXNlQXNzZXRJZAAAAAEAAAARaW50ZXJuYWxCYXNlQXNzZXQJAAEsAAAAAgIAAAAoJXMlcyVkX19tYXBwaW5nc19faW50ZXJuYWwyYmFzZUFzc2V0SWRfXwkAAaQAAAABBQAAABFpbnRlcm5hbEJhc2VBc3NldAEAAAANa2V5UG9vbENvbmZpZwAAAAIAAAAJaUFtdEFzc2V0AAAAC2lQcmljZUFzc2V0CQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACCVkJWQlc19fBQAAAAlpQW10QXNzZXQCAAAAAl9fBQAAAAtpUHJpY2VBc3NldAIAAAAIX19jb25maWcBAAAAE2tleUFsbFBvb2xzU2h1dGRvd24AAAAAAgAAAAwlc19fc2h1dGRvd24BAAAADWtleVBvb2xXZWlnaHQAAAABAAAAD2NvbnRyYWN0QWRkcmVzcwkAASwAAAACAgAAABIlcyVzX19wb29sV2VpZ2h0X18FAAAAD2NvbnRyYWN0QWRkcmVzcwAAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAACAAAAFU5vIEZhY3RvcnkgQWNjIGZvdW5kLgEAAAAOY29udmVydEFzc2V0SWQAAAABAAAAB2Fzc2V0SWQDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABBQAAAAdhc3NldElkAgAAAAVXQVZFUwUAAAAHYXNzZXRJZAEAAAARZGF0YVB1dEFjdGlvbkluZm8AAAAEAAAACWluQXNzZXRJZAAAAAppbkFzc2V0QW10AAAACHR4SGVpZ2h0AAAAC3R4VGltZXN0YW1wCQAEuQAAAAIJAARMAAAAAgIAAAAIJXMlZCVkJWQJAARMAAAAAgUAAAAJaW5Bc3NldElkCQAETAAAAAIJAAGkAAAAAQUAAAAKaW5Bc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAACHR4SGVpZ2h0CQAETAAAAAIJAAGkAAAAAQUAAAALdHhUaW1lc3RhbXAFAAAAA25pbAUAAAADU0VQAQAAABRkYXRhSW52ZXN0QWN0aW9uSW5mbwAAAAQAAAARb3V0QW1vdW50QXNzZXRBbXQAAAAQb3V0UHJpY2VBc3NldEFtdAAAAAh0eEhlaWdodAAAAAt0eFRpbWVzdGFtcAkABLkAAAACCQAETAAAAAICAAAACCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAARb3V0QW1vdW50QXNzZXRBbXQJAARMAAAAAgkAAaQAAAABBQAAABBvdXRQcmljZUFzc2V0QW10CQAETAAAAAIJAAGkAAAAAQUAAAAIdHhIZWlnaHQJAARMAAAAAgkAAaQAAAABBQAAAAt0eFRpbWVzdGFtcAUAAAADbmlsBQAAAANTRVABAAAACGFzU3RyaW5nAAAAAQAAAAN2YWwEAAAAByRtYXRjaDAFAAAAA3ZhbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAZ2YWxTdHIFAAAAByRtYXRjaDAFAAAABnZhbFN0cgkAAAIAAAABAgAAABhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBAAAAB3RvU2NhbGUAAAADAAAAA2FtdAAAAAhyZXNTY2FsZQAAAAhjdXJTY2FsZQkAAGsAAAADBQAAAANhbXQFAAAACHJlc1NjYWxlBQAAAAhjdXJTY2FsZQAAAAMAAAABaQEAAAALY29uc3RydWN0b3IAAAABAAAAD2ZhY3RvcnlDb250cmFjdAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAABJwZXJtaXNzaW9ucyBkZW5pZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEmtleUZhY3RvcnlDb250cmFjdAAAAAAFAAAAD2ZhY3RvcnlDb250cmFjdAUAAAADbmlsAAAAAWkBAAAAA3B1dAAAAAAEAAAABHBvb2wJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBAAAAAtwbXRBbXRBc3NldAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAAKcG10QXNzZXRJZAMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAtwbXRBbXRBc3NldAAAAAdhc3NldElkAgAAAAVXQVZFUwkAAlgAAAABCQEAAAAFdmFsdWUAAAABCAUAAAALcG10QW10QXNzZXQAAAAHYXNzZXRJZAQAAAALcG10QXNzZXRBbXQIBQAAAAtwbXRBbXRBc3NldAAAAAZhbW91bnQEAAAACnBvb2xBc3NldHMJAAS1AAAAAgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAD2ZhY3RvcnlDb250cmFjdAkBAAAAKWtleU1hcHBpbmdQb29sQ29udHJhY3RBZGRyZXNzVG9Qb29sQXNzZXRzAAAAAQUAAAAEcG9vbAIAAAAOSW52YWxpZCBjYWxsZXIFAAAAA1NFUAQAAAANYW1vdW50QXNzZXRJZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAACnBvb2xBc3NldHMAAAAAAAAAAAEEAAAADHByaWNlQXNzZXRJZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAACnBvb2xBc3NldHMAAAAAAAAAAAIEAAAAC2Ftb3VudEFzc2V0CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NJbnRlcm5hbDJiYXNlQXNzZXRJZAAAAAEFAAAADWFtb3VudEFzc2V0SWQCAAAAEUNhbm5vdCBmaW5kIGFzc2V0BAAAAApwcmljZUFzc2V0CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NJbnRlcm5hbDJiYXNlQXNzZXRJZAAAAAEFAAAADHByaWNlQXNzZXRJZAIAAAARQ2Fubm90IGZpbmQgYXNzZXQEAAAACHRvdGFsQW10CQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAABHRoaXMJAQAAABZrZXlQb29sVG90YWxBbXRCeUFzc2V0AAAAAgUAAAAEcG9vbAUAAAAKcG10QXNzZXRJZAAAAAAAAAAAAAQAAAAVY3VtdWxhdGl2ZVNsaXBwYWdlQW10CQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAABHRoaXMJAQAAACBrZXlTbGlwcGFnZUFtdFBlckFzc2V0Q3VtdWxhdGl2ZQAAAAIFAAAABHBvb2wFAAAACnBtdEFzc2V0SWQAAAAAAAAAAAAJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADmtleVJlZ2lzdGVyUHV0AAAAAgUAAAAEcG9vbAkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkCQEAAAARZGF0YVB1dEFjdGlvbkluZm8AAAAEBQAAAApwbXRBc3NldElkBQAAAAtwbXRBc3NldEFtdAUAAAAGaGVpZ2h0CAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAFmtleVBvb2xUb3RhbEFtdEJ5QXNzZXQAAAACBQAAAARwb29sBQAAAApwbXRBc3NldElkCQAAZAAAAAIFAAAACHRvdGFsQW10BQAAAAtwbXRBc3NldEFtdAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAIGtleVNsaXBwYWdlQW10UGVyQXNzZXRDdW11bGF0aXZlAAAAAgUAAAAEcG9vbAUAAAAKcG10QXNzZXRJZAkAAGQAAAACBQAAABVjdW11bGF0aXZlU2xpcHBhZ2VBbXQFAAAAC3BtdEFzc2V0QW10BQAAAANuaWwAAAABaQEAAAAGaW52ZXN0AAAAAQAAAA5wb29sQWRkcmVzc1N0cgMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAABJwZXJtaXNzaW9ucyBkZW5pZWQEAAAAC3Bvb2xBZGRyZXNzCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQUAAAAOcG9vbEFkZHJlc3NTdHICAAAAFGludmFsaWQgcG9vbCBhZGRyZXNzBAAAAApwb29sQXNzZXRzCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAA9mYWN0b3J5Q29udHJhY3QJAQAAAClrZXlNYXBwaW5nUG9vbENvbnRyYWN0QWRkcmVzc1RvUG9vbEFzc2V0cwAAAAEFAAAADnBvb2xBZGRyZXNzU3RyAgAAABRJbnZhbGlkIHBvb2wgcGFzc2VkLgUAAAADU0VQBAAAAARhbUlkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NJbnRlcm5hbDJiYXNlQXNzZXRJZAAAAAEJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAApwb29sQXNzZXRzAAAAAAAAAAABAgAAABZObyBhc3NldCBtYXBwaW5nIGZvdW5kBAAAAARwcklkCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAPZmFjdG9yeUNvbnRyYWN0CQEAAAAfa2V5TWFwcGluZ3NJbnRlcm5hbDJiYXNlQXNzZXRJZAAAAAEJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAApwb29sQXNzZXRzAAAAAAAAAAACAgAAABZObyBhc3NldCBtYXBwaW5nIGZvdW5kBAAAAAlhbUJhbGFuY2UJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFmtleVBvb2xUb3RhbEFtdEJ5QXNzZXQAAAACBQAAAA5wb29sQWRkcmVzc1N0cgUAAAAEYW1JZAAAAAAAAAAAAAQAAAAJcHJCYWxhbmNlCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAABHRoaXMJAQAAABZrZXlQb29sVG90YWxBbXRCeUFzc2V0AAAAAgUAAAAOcG9vbEFkZHJlc3NTdHIFAAAABHBySWQAAAAAAAAAAAAEAAAADWVzdEJ5UHJSZXN1bHQJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAH2V2YWx1YXRlUHV0QnlQcmljZUFzc2V0UkVBRE9OTFkJAARMAAAAAgUAAAAJcHJCYWxhbmNlBQAAAANuaWwFAAAAA25pbAQAAAANZXN0QnlBbVJlc3VsdAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAgZXZhbHVhdGVQdXRCeUFtb3VudEFzc2V0UkVBRE9OTFkJAARMAAAAAgUAAAAJYW1CYWxhbmNlBQAAAANuaWwFAAAAA25pbAQAAAAOSWR4RXN0QW1BbW91bnQAAAAAAAAAAAcEAAAADklkeEVzdFByQW1vdW50AAAAAAAAAAAIBAAAAAhlc3RBbUFtdAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgkABLUAAAACCQEAAAAIYXNTdHJpbmcAAAABBQAAAA1lc3RCeVByUmVzdWx0BQAAAANTRVAFAAAADklkeEVzdEFtQW1vdW50AgAAACZmYWlsIHRvIHBhcnNlIGVzdGltYXRlZCBhbUFzc2V0IGFtb3VudAQAAAAIZXN0UHJBbXQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIJAAS1AAAAAgkBAAAACGFzU3RyaW5nAAAAAQUAAAANZXN0QnlBbVJlc3VsdAUAAAADU0VQBQAAAA5JZHhFc3RQckFtb3VudAIAAAAmZmFpbCB0byBwYXJzZSBlc3RpbWF0ZWQgcHJBc3NldCBhbW91bnQEAAAACyR0MDYwOTY2MTk3AwkAAGcAAAACBQAAAAlhbUJhbGFuY2UFAAAACGVzdEFtQW10CQAFFAAAAAIFAAAACGVzdEFtQW10BQAAAAlwckJhbGFuY2UJAAUUAAAAAgUAAAAJYW1CYWxhbmNlBQAAAAhlc3RQckFtdAQAAAAFYW1BbXQIBQAAAAskdDA2MDk2NjE5NwAAAAJfMQQAAAAFcHJBbXQIBQAAAAskdDA2MDk2NjE5NwAAAAJfMgQAAAAJYW1Bc3NldElkAwkAAAAAAAACBQAAAARhbUlkAgAAAAVXQVZFUwUAAAAEdW5pdAkAAlkAAAABBQAAAARhbUlkBAAAAAlwckFzc2V0SWQDCQAAAAAAAAIFAAAABHBySWQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAABHBySWQEAAAABWxwUHV0CQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAApwdXRGb3JGcmVlCQAETAAAAAIAAAAAAAAAA+gFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAAJYW1Bc3NldElkBQAAAAVhbUFtdAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAAJcHJBc3NldElkBQAAAAVwckFtdAUAAAADbmlsAwkAAAAAAAACBQAAAAVscFB1dAUAAAAFbHBQdXQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEWtleVJlZ2lzdGVySW52ZXN0AAAAAgUAAAAOcG9vbEFkZHJlc3NTdHIJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAkBAAAAFGRhdGFJbnZlc3RBY3Rpb25JbmZvAAAABAUAAAAFYW1BbXQFAAAABXByQW10BQAAAAZoZWlnaHQIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXmtAS8q",
    "chainId": 87,
    "height": 2822359,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 45EkxRKxsyxxZTuTzFYucyy4fxERtZCbcQ7jfd34GB5H
Next: 5D7PVqAcYYB3qKEWBpWrp9t9B46BZ5xoNeGgerRX2juo

Diff: 
Old
New
Differences
114
114
 
115
115
 
116
116
 
@Callable(i)
117
-
func invest (poolAddressStr) = {
118
-
    let poolAddress = valueOrErrorMessage(addressFromString(poolAddressStr), "invalid pool address")
119
-
    let poolAssets = split(valueOrErrorMessage(getString(factoryContract, keyMappingPoolContractAddressToPoolAssets(poolAddressStr)), "Invalid pool passed."), SEP)
120
-
    let amId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[1]))), "No asset mapping found")
121
-
    let prId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[2]))), "No asset mapping found")
122
-
    let amBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, amId)), 0)
123
-
    let prBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, prId)), 0)
124
-
    let estByPrResult = invoke(poolAddress, "evaluatePutByPriceAssetREADONLY", [prBalance], nil)
125
-
    let estByAmResult = invoke(poolAddress, "evaluatePutByAmountAssetREADONLY", [amBalance], nil)
126
-
    let IdxEstAmAmount = 7
127
-
    let IdxEstPrAmount = 8
128
-
    let estAmAmt = valueOrErrorMessage(parseIntValue(split(asString(estByPrResult), SEP)[IdxEstAmAmount]), "fail to parse estimated amAsset amount")
129
-
    let estPrAmt = valueOrErrorMessage(parseIntValue(split(asString(estByAmResult), SEP)[IdxEstPrAmount]), "fail to parse estimated prAsset amount")
130
-
    let $t060346135 = if ((amBalance >= estAmAmt))
131
-
        then $Tuple2(estAmAmt, prBalance)
132
-
        else $Tuple2(amBalance, estPrAmt)
133
-
    let amAmt = $t060346135._1
134
-
    let prAmt = $t060346135._2
135
-
    let amAssetId = if ((amId == "WAVES"))
136
-
        then unit
137
-
        else fromBase58String(amId)
138
-
    let prAssetId = if ((prId == "WAVES"))
139
-
        then unit
140
-
        else fromBase58String(prId)
141
-
    let lpPut = invoke(poolAddress, "putForFree", [1000], [AttachedPayment(amAssetId, amAmt), AttachedPayment(prAssetId, prAmt)])
142
-
    if ((lpPut == lpPut))
143
-
        then [StringEntry(keyRegisterInvest(poolAddressStr, toBase58String(i.transactionId)), dataInvestActionInfo(amAmt, prAmt, height, lastBlock.timestamp))]
144
-
        else throw("Strict value is not equal to itself.")
145
-
    }
117
+
func invest (poolAddressStr) = if ((i.caller != this))
118
+
    then throw("permissions denied")
119
+
    else {
120
+
        let poolAddress = valueOrErrorMessage(addressFromString(poolAddressStr), "invalid pool address")
121
+
        let poolAssets = split(valueOrErrorMessage(getString(factoryContract, keyMappingPoolContractAddressToPoolAssets(poolAddressStr)), "Invalid pool passed."), SEP)
122
+
        let amId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[1]))), "No asset mapping found")
123
+
        let prId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[2]))), "No asset mapping found")
124
+
        let amBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, amId)), 0)
125
+
        let prBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, prId)), 0)
126
+
        let estByPrResult = invoke(poolAddress, "evaluatePutByPriceAssetREADONLY", [prBalance], nil)
127
+
        let estByAmResult = invoke(poolAddress, "evaluatePutByAmountAssetREADONLY", [amBalance], nil)
128
+
        let IdxEstAmAmount = 7
129
+
        let IdxEstPrAmount = 8
130
+
        let estAmAmt = valueOrErrorMessage(parseIntValue(split(asString(estByPrResult), SEP)[IdxEstAmAmount]), "fail to parse estimated amAsset amount")
131
+
        let estPrAmt = valueOrErrorMessage(parseIntValue(split(asString(estByAmResult), SEP)[IdxEstPrAmount]), "fail to parse estimated prAsset amount")
132
+
        let $t060966197 = if ((amBalance >= estAmAmt))
133
+
            then $Tuple2(estAmAmt, prBalance)
134
+
            else $Tuple2(amBalance, estPrAmt)
135
+
        let amAmt = $t060966197._1
136
+
        let prAmt = $t060966197._2
137
+
        let amAssetId = if ((amId == "WAVES"))
138
+
            then unit
139
+
            else fromBase58String(amId)
140
+
        let prAssetId = if ((prId == "WAVES"))
141
+
            then unit
142
+
            else fromBase58String(prId)
143
+
        let lpPut = invoke(poolAddress, "putForFree", [1000], [AttachedPayment(amAssetId, amAmt), AttachedPayment(prAssetId, prAmt)])
144
+
        if ((lpPut == lpPut))
145
+
            then [StringEntry(keyRegisterInvest(poolAddressStr, toBase58String(i.transactionId)), dataInvestActionInfo(amAmt, prAmt, height, lastBlock.timestamp))]
146
+
            else throw("Strict value is not equal to itself.")
147
+
        }
146
148
 
147
149
 
148
150
 
@Verifier(tx)
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let SEP = "__"
5
5
 
6
6
 
let scale8 = 100000000
7
7
 
8
8
 
let poolStatsPriceKey = 4
9
9
 
10
10
 
let idxPoolAddress = 1
11
11
 
12
12
 
let idxPoolStatus = 2
13
13
 
14
14
 
let idxPoolLPAssetId = 3
15
15
 
16
16
 
let idxAmtAssetId = 4
17
17
 
18
18
 
let idxPriceAssetId = 5
19
19
 
20
20
 
let idxAmtAssetDcm = 6
21
21
 
22
22
 
let idxPriceAssetDcm = 7
23
23
 
24
24
 
let idxIAmtAssetId = 8
25
25
 
26
26
 
let idxIPriceAssetId = 9
27
27
 
28
28
 
let idxLPAssetDcm = 10
29
29
 
30
30
 
let idxMatcherPublicKey = 11
31
31
 
32
32
 
func keyRegisterPut (poolAddress,txId) = ((("%s%s%s__P__" + poolAddress) + "__") + txId)
33
33
 
34
34
 
35
35
 
func keyRegisterInvest (poolAddress,txId) = ((("%s%s%s__invest__" + poolAddress) + "__") + txId)
36
36
 
37
37
 
38
38
 
func keyPoolTotalAmtByAsset (poolAddress,assetId) = ((("%s%s%s__total__" + poolAddress) + "__") + assetId)
39
39
 
40
40
 
41
41
 
func keyFactoryContract () = "%s__factoryContract"
42
42
 
43
43
 
44
44
 
func keySlippageAmtPerAssetCumulative (poolAddress,assetId) = (((("%s%s%s__" + poolAddress) + "__") + assetId) + "__slippageCumulative")
45
45
 
46
46
 
47
47
 
func keyFactoryConfig () = "%s__factoryConfig"
48
48
 
49
49
 
50
50
 
func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2PoolAssets")
51
51
 
52
52
 
53
53
 
func keyMappingsInternal2baseAssetId (internalBaseAsset) = ("%s%s%d__mappings__internal2baseAssetId__" + toString(internalBaseAsset))
54
54
 
55
55
 
56
56
 
func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
57
57
 
58
58
 
59
59
 
func keyAllPoolsShutdown () = "%s__shutdown"
60
60
 
61
61
 
62
62
 
func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
63
63
 
64
64
 
65
65
 
let factoryContract = addressFromStringValue(valueOrErrorMessage(getString(this, keyFactoryContract()), "No Factory Acc found."))
66
66
 
67
67
 
func convertAssetId (assetId) = if (!(isDefined(assetId)))
68
68
 
    then "WAVES"
69
69
 
    else assetId
70
70
 
71
71
 
72
72
 
func dataPutActionInfo (inAssetId,inAssetAmt,txHeight,txTimestamp) = makeString(["%s%d%d%d", inAssetId, toString(inAssetAmt), toString(txHeight), toString(txTimestamp)], SEP)
73
73
 
74
74
 
75
75
 
func dataInvestActionInfo (outAmountAssetAmt,outPriceAssetAmt,txHeight,txTimestamp) = makeString(["%d%d%d%d", toString(outAmountAssetAmt), toString(outPriceAssetAmt), toString(txHeight), toString(txTimestamp)], SEP)
76
76
 
77
77
 
78
78
 
func asString (val) = match val {
79
79
 
    case valStr: String => 
80
80
 
        valStr
81
81
 
    case _ => 
82
82
 
        throw("fail to cast into String")
83
83
 
}
84
84
 
85
85
 
86
86
 
func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
87
87
 
88
88
 
89
89
 
@Callable(i)
90
90
 
func constructor (factoryContract) = if ((i.caller != this))
91
91
 
    then throw("permissions denied")
92
92
 
    else [StringEntry(keyFactoryContract(), factoryContract)]
93
93
 
94
94
 
95
95
 
96
96
 
@Callable(i)
97
97
 
func put () = {
98
98
 
    let pool = toString(i.caller)
99
99
 
    let pmtAmtAsset = value(i.payments[0])
100
100
 
    let pmtAssetId = if (!(isDefined(pmtAmtAsset.assetId)))
101
101
 
        then "WAVES"
102
102
 
        else toBase58String(value(pmtAmtAsset.assetId))
103
103
 
    let pmtAssetAmt = pmtAmtAsset.amount
104
104
 
    let poolAssets = split(valueOrErrorMessage(getString(factoryContract, keyMappingPoolContractAddressToPoolAssets(pool)), "Invalid caller"), SEP)
105
105
 
    let amountAssetId = parseIntValue(poolAssets[1])
106
106
 
    let priceAssetId = parseIntValue(poolAssets[2])
107
107
 
    let amountAsset = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(amountAssetId)), "Cannot find asset")
108
108
 
    let priceAsset = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(priceAssetId)), "Cannot find asset")
109
109
 
    let totalAmt = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(pool, pmtAssetId)), 0)
110
110
 
    let cumulativeSlippageAmt = valueOrElse(getInteger(this, keySlippageAmtPerAssetCumulative(pool, pmtAssetId)), 0)
111
111
 
[StringEntry(keyRegisterPut(pool, toBase58String(i.transactionId)), dataPutActionInfo(pmtAssetId, pmtAssetAmt, height, lastBlock.timestamp)), IntegerEntry(keyPoolTotalAmtByAsset(pool, pmtAssetId), (totalAmt + pmtAssetAmt)), IntegerEntry(keySlippageAmtPerAssetCumulative(pool, pmtAssetId), (cumulativeSlippageAmt + pmtAssetAmt))]
112
112
 
    }
113
113
 
114
114
 
115
115
 
116
116
 
@Callable(i)
117
-
func invest (poolAddressStr) = {
118
-
    let poolAddress = valueOrErrorMessage(addressFromString(poolAddressStr), "invalid pool address")
119
-
    let poolAssets = split(valueOrErrorMessage(getString(factoryContract, keyMappingPoolContractAddressToPoolAssets(poolAddressStr)), "Invalid pool passed."), SEP)
120
-
    let amId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[1]))), "No asset mapping found")
121
-
    let prId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[2]))), "No asset mapping found")
122
-
    let amBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, amId)), 0)
123
-
    let prBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, prId)), 0)
124
-
    let estByPrResult = invoke(poolAddress, "evaluatePutByPriceAssetREADONLY", [prBalance], nil)
125
-
    let estByAmResult = invoke(poolAddress, "evaluatePutByAmountAssetREADONLY", [amBalance], nil)
126
-
    let IdxEstAmAmount = 7
127
-
    let IdxEstPrAmount = 8
128
-
    let estAmAmt = valueOrErrorMessage(parseIntValue(split(asString(estByPrResult), SEP)[IdxEstAmAmount]), "fail to parse estimated amAsset amount")
129
-
    let estPrAmt = valueOrErrorMessage(parseIntValue(split(asString(estByAmResult), SEP)[IdxEstPrAmount]), "fail to parse estimated prAsset amount")
130
-
    let $t060346135 = if ((amBalance >= estAmAmt))
131
-
        then $Tuple2(estAmAmt, prBalance)
132
-
        else $Tuple2(amBalance, estPrAmt)
133
-
    let amAmt = $t060346135._1
134
-
    let prAmt = $t060346135._2
135
-
    let amAssetId = if ((amId == "WAVES"))
136
-
        then unit
137
-
        else fromBase58String(amId)
138
-
    let prAssetId = if ((prId == "WAVES"))
139
-
        then unit
140
-
        else fromBase58String(prId)
141
-
    let lpPut = invoke(poolAddress, "putForFree", [1000], [AttachedPayment(amAssetId, amAmt), AttachedPayment(prAssetId, prAmt)])
142
-
    if ((lpPut == lpPut))
143
-
        then [StringEntry(keyRegisterInvest(poolAddressStr, toBase58String(i.transactionId)), dataInvestActionInfo(amAmt, prAmt, height, lastBlock.timestamp))]
144
-
        else throw("Strict value is not equal to itself.")
145
-
    }
117
+
func invest (poolAddressStr) = if ((i.caller != this))
118
+
    then throw("permissions denied")
119
+
    else {
120
+
        let poolAddress = valueOrErrorMessage(addressFromString(poolAddressStr), "invalid pool address")
121
+
        let poolAssets = split(valueOrErrorMessage(getString(factoryContract, keyMappingPoolContractAddressToPoolAssets(poolAddressStr)), "Invalid pool passed."), SEP)
122
+
        let amId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[1]))), "No asset mapping found")
123
+
        let prId = valueOrErrorMessage(getString(factoryContract, keyMappingsInternal2baseAssetId(parseIntValue(poolAssets[2]))), "No asset mapping found")
124
+
        let amBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, amId)), 0)
125
+
        let prBalance = valueOrElse(getInteger(this, keyPoolTotalAmtByAsset(poolAddressStr, prId)), 0)
126
+
        let estByPrResult = invoke(poolAddress, "evaluatePutByPriceAssetREADONLY", [prBalance], nil)
127
+
        let estByAmResult = invoke(poolAddress, "evaluatePutByAmountAssetREADONLY", [amBalance], nil)
128
+
        let IdxEstAmAmount = 7
129
+
        let IdxEstPrAmount = 8
130
+
        let estAmAmt = valueOrErrorMessage(parseIntValue(split(asString(estByPrResult), SEP)[IdxEstAmAmount]), "fail to parse estimated amAsset amount")
131
+
        let estPrAmt = valueOrErrorMessage(parseIntValue(split(asString(estByAmResult), SEP)[IdxEstPrAmount]), "fail to parse estimated prAsset amount")
132
+
        let $t060966197 = if ((amBalance >= estAmAmt))
133
+
            then $Tuple2(estAmAmt, prBalance)
134
+
            else $Tuple2(amBalance, estPrAmt)
135
+
        let amAmt = $t060966197._1
136
+
        let prAmt = $t060966197._2
137
+
        let amAssetId = if ((amId == "WAVES"))
138
+
            then unit
139
+
            else fromBase58String(amId)
140
+
        let prAssetId = if ((prId == "WAVES"))
141
+
            then unit
142
+
            else fromBase58String(prId)
143
+
        let lpPut = invoke(poolAddress, "putForFree", [1000], [AttachedPayment(amAssetId, amAmt), AttachedPayment(prAssetId, prAmt)])
144
+
        if ((lpPut == lpPut))
145
+
            then [StringEntry(keyRegisterInvest(poolAddressStr, toBase58String(i.transactionId)), dataInvestActionInfo(amAmt, prAmt, height, lastBlock.timestamp))]
146
+
            else throw("Strict value is not equal to itself.")
147
+
        }
146
148
 
147
149
 
148
150
 
@Verifier(tx)
149
151
 
func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
150
152
 

github/deemru/w8io/6500d08 
45.08 ms ◑