w8 · tx · jfg···6Lt

tx · jfgpPEEwCUBLbdRbH6KsSP7qa5PT9BrVeugnF5xu6Lt

3PJUm112svcu4gPU9GKpsBGwYNEVQEPiQ1t:  -0.01000000 Waves

2022.11.30 16:14 [3405349] smart account 3PJUm112svcu4gPU9GKpsBGwYNEVQEPiQ1t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "jfgpPEEwCUBLbdRbH6KsSP7qa5PT9BrVeugnF5xu6Lt",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1669814130754,
    "version": 2,
    "chainId": 87,
    "sender": "3PJUm112svcu4gPU9GKpsBGwYNEVQEPiQ1t",
    "senderPublicKey": "6BTduxfT4CkTidY6P35nYzafiLpun4QLUZCQUU6pcJQM",
    "proofs": [
        "25B9MwseH4NoEEyHNC5m5JLeuARM3vStdndyY1wb2ABX4dkfmTzybhEsDwzM6m3MguhDKQN1PwoYYvJJm1d9QqfF"
    ],
    "script": "base64:BgIeCAISABIDCgEBEgMKAQgSAwoBBBIECgIECBIDCgEEFQAGU2NhbGU2AMCEPQAGU2NhbGU4AIDC1y8AB1NjYWxlMTYJAGgCBQZTY2FsZTgFBlNjYWxlOAATcG9maXRBY2NvdW50QWRkcmVzcwkBB0FkZHJlc3MBARoBV6lAs/JQjYpYhnwlRsr973lVvk50FZ4aQwAHYXNzZXRJZAIsREcyeEZrUGREd0tVb0JrekdBaFF0THBTR3pmWExpQ1lQRXplS0gyQWQyNHAACnZhbGlkYXRvcnMJAMwIAgIjM1BFcUM5NTMzaDZBRG5KdlhiOGN2WGNhU2tlY2Q5WVROdnoFA25pbAALcHV6emxlUG9vbHMJAMwIAgIjM1A0REs1VnpEd0wzdmZjNWFoVUVodG9lNUJ5Wk55YWNKM1gJAMwIAgIjM1A0dUE1ZXRuWmk0QW1CYWJLaW5xMmJNaVdVOEtjbkhaZEgFA25pbAEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQl0cnlHZXRJbnQCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCaCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEJdHJ5R2V0U3RyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAnQgCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABDmdldEFzc2V0U3RyaW5nAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAJANgEAQUBYgIFV0FWRVMBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEOcG9vbEFkZHJlc3NTdHIEC3Bvb2xBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUOcG9vbEFkZHJlc3NTdHIEBnRva2VucwQHJG1hdGNoMAkAnQgCBQtwb29sQWRkcmVzcwIMc2V0dXBfdG9rZW5zAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcgUHJG1hdGNoMAkAtQkCBQFyAgEsCQACAQkArAICAipDYW5ub3QgZmluZCBzZXR1cF90b2tlbnMgaW4gc3RhdGUgb2YgcG9vbCAFDnBvb2xBZGRyZXNzU3RyBAp0b2tlbkluZGV4BAckbWF0Y2gwCQDPCAIFBnRva2VucwUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgNJbnQEAXIFByRtYXRjaDAFAXIJAAIBCQCsAgIJAKwCAgkArAICAgxjYW5ub3QgZmluZCAFB2Fzc2V0SWQCCCBpbiBwb29sBQ5wb29sQWRkcmVzc1N0cgQSdG9rZW5SYXRlc1Jlc3BvbnNlCQD8BwQFC3Bvb2xBZGRyZXNzAhNjYWxjdWxhdGVUb2tlblJhdGVzCQDMCAIHBQNuaWwFA25pbAMJAAACBRJ0b2tlblJhdGVzUmVzcG9uc2UFEnRva2VuUmF0ZXNSZXNwb25zZQQRdG9rZW5zUmF0ZXNTdHJpbmcEByRtYXRjaDAFEnRva2VuUmF0ZXNSZXNwb25zZQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXIFByRtYXRjaDAFAXIJAAIBCQCsAgICO0Z1bmMgJ2NhbGN1bGF0ZVRva2VuUmF0ZXMnIHJldHVybnMgbm90IHN0cmluZyB2YWx1ZSBpbiBwb29sBQ5wb29sQWRkcmVzc1N0cgQNc3VwcGx5UmF0ZVN0cgkAkQMCCQC1CQIJAJEDAgkAtQkCBRF0b2tlbnNSYXRlc1N0cmluZwIBLAUKdG9rZW5JbmRleAIBfAABBApzdXBwbHlSYXRlBAckbWF0Y2gwCQC2CQEFDXN1cHBseVJhdGVTdHIDCQABAgUHJG1hdGNoMAIDSW50BAF0BQckbWF0Y2gwBQF0CQACAQInQ2Fubm90IHBhcnNlIHN1cHBseSByYXRlIGZyb20gZGVmaSBwb29sBAZzdXBwbHkJAQl0cnlHZXRJbnQCBQtwb29sQWRkcmVzcwkArAICCQCsAgIJAKUIAQUEdGhpcwIKX3N1cHBsaWVkXwUHYXNzZXRJZAQGYW1vdW50CQBrAwUGc3VwcGx5BQpzdXBwbHlSYXRlBQdTY2FsZTE2BQZhbW91bnQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BFmdldFRvdGFsU3VwcGxpZWRBbW91bnQABAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIFC2N1cnJlbnRQb29sAgAJAAIBCQCsAgICGUNhbm5vdCBmaW5kIHBvb2wgd2l0aCBpZCAFC2N1cnJlbnRQb29sCQEbZ2V0UHV6emxlUG9vbFN1cHBsaWVkQW1vdW50AQULY3VycmVudFBvb2wBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBnBvb2xJZAZhbW91bnQEC3Bvb2xBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUGcG9vbElkBAp3aXRoZHJhd1R4AwkAZgIFBmFtb3VudAAACQD8BwQFC3Bvb2xBZGRyZXNzAgh3aXRoZHJhdwkAzAgCBQdhc3NldElkCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwCAAMJAAACBQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4BQp3aXRoZHJhd1R4CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQ53aXRoZHJhd1Jlc3VsdAAEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wDCQAAAgULY3VycmVudFBvb2wCAAkAAgEJAKwCAgIZQ2Fubm90IGZpbmQgcG9vbCB3aXRoIGlkIAULY3VycmVudFBvb2wEBmFtb3VudAkBG2dldFB1enpsZVBvb2xTdXBwbGllZEFtb3VudAEFC2N1cnJlbnRQb29sBAJ0eAkBFndpdGhkcmF3RnJvbVB1enpsZVBvb2wCBQtjdXJyZW50UG9vbAUGYW1vdW50AwkAAAIFAnR4BQJ0eAUCdHgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDHN1cHBseVJlc3VsdAEGcG9vbElkAwkAAAIJAM8IAgULcHV6emxlUG9vbHMFBnBvb2xJZAUEdW5pdAkAAgEJAKwCAgIPVW5rbm93biBwb29sSWQgBQZwb29sSWQECmFzc2V0Qnl0ZXMJANkEAQUHYXNzZXRJZAQHYmFsYW5jZQkBCmdldEJhbGFuY2UBBQphc3NldEJ5dGVzBANpbnYJAPwHBAkBB0FkZHJlc3MBCQDZBAEFBnBvb2xJZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCmFzc2V0Qnl0ZXMFB2JhbGFuY2UFA25pbAMJAAACBQNpbnYFA2ludgkAzAgCCQELU3RyaW5nRW50cnkCAgtjdXJyZW50UG9vbAUGcG9vbElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BDmNhbGN1bGF0ZVNSYXRlAAQObGFzdENoZWNrU1JhdGUJAQl0cnlHZXRJbnQCBQR0aGlzAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQED2xhc3RDaGVja0hlaWdodAkBCXRyeUdldEludAIFBHRoaXMCG2dsb2JhbF9sYXN0Q2hlY2tTUmF0ZUhlaWdodAQGYmxvY2tzCQBlAgUGaGVpZ2h0BQ9sYXN0Q2hlY2tIZWlnaHQECGVtaXNzaW9uCQBlAgkBFmdldFRvdGFsU3VwcGxpZWRBbW91bnQACQBrAwUMc3Rha2VkQW1vdW50BQ5sYXN0Q2hlY2tTUmF0ZQUGU2NhbGU4BA9zdGFraW5nRW1pc3Npb24JAGsDBQhlbWlzc2lvbgDAq6YtBQZTY2FsZTgDCQAAAgUMc3Rha2VkQW1vdW50AAAFBlNjYWxlOAQFc1JhdGUJAGQCBQ5sYXN0Q2hlY2tTUmF0ZQkAawMJAGgCBQZibG9ja3MFBlNjYWxlOAUPc3Rha2luZ0VtaXNzaW9uBQxzdGFrZWRBbW91bnQDCQBmAgUGU2NhbGU4BQVzUmF0ZQUGU2NhbGU4BQVzUmF0ZQEMcmVjYWxjUmVzdWx0AQxzdGFrZWRDaGFuZ2UEDHN0YWtlZEFtb3VudAkBCXRyeUdldEludAIFBHRoaXMCDWdsb2JhbF9zdGFrZWQEBXNSYXRlCQEOY2FsY3VsYXRlU1JhdGUABAZwcm9maXQJAGUCCQEWZ2V0VG90YWxTdXBwbGllZEFtb3VudAAJAGsDBQxzdGFrZWRBbW91bnQFBXNSYXRlBQZTY2FsZTgJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUTcG9maXRBY2NvdW50QWRkcmVzcwMJAGYCBQZwcm9maXQAAAUGcHJvZml0AAAJANkEAQUHYXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgINZ2xvYmFsX3N0YWtlZAkAZAIFDHN0YWtlZEFtb3VudAUMc3Rha2VkQ2hhbmdlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhVnbG9iYWxfbGFzdENoZWNrU1JhdGUFBXNSYXRlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhtnbG9iYWxfbGFzdENoZWNrU1JhdGVIZWlnaHQFBmhlaWdodAUDbmlsARVjYWxjdWxhdGVTdGFrZWRBbW91bnQBBHVzZXIEBmFtb3VudAkBCXRyeUdldEludAIFBHRoaXMJAKwCAgUEdXNlcgIHX3N0YWtlZAkAawMFBmFtb3VudAkBDmNhbGN1bGF0ZVNSYXRlAAUGU2NhbGU4AQtzdGFrZVJlc3VsdAIEdXNlcgZhbW91bnQEB3NBbW91bnQJAGsDBQZhbW91bnQFBlNjYWxlOAkBDmNhbGN1bGF0ZVNSYXRlAAkAzggCCQEMcmVjYWxjUmVzdWx0AQUHc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQR1c2VyAgdfc3Rha2VkCQBkAgkBCXRyeUdldEludAIFBHRoaXMJAKwCAgUEdXNlcgIHX3N0YWtlZAUHc0Ftb3VudAUDbmlsAQ11bnN0YWtlUmVzdWx0AgR1c2VyBmFtb3VudAQFc1JhdGUJAQ5jYWxjdWxhdGVTUmF0ZQAEB3NBbW91bnQDCQAAAgUFc1JhdGUAAAUGYW1vdW50CQBrAwUGYW1vdW50BQZTY2FsZTgFBXNSYXRlBAp1c2VyU3Rha2VkCQEJdHJ5R2V0SW50AgUEdGhpcwkArAICBQR1c2VyAgdfc3Rha2VkBA5jdXJyZW50U0Ftb3VudAMJAAACBQVzUmF0ZQAABQp1c2VyU3Rha2VkCQBrAwUKdXNlclN0YWtlZAUGU2NhbGU4BQVzUmF0ZQQNdW5zdGFrZUFtb3VudAMJAGYCBQdzQW1vdW50BQ5jdXJyZW50U0Ftb3VudAUOY3VycmVudFNBbW91bnQFB3NBbW91bnQJAM4IAgkBDHJlY2FsY1Jlc3VsdAEJAQEtAQUHc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQR1c2VyAgdfc3Rha2VkCQBlAgUOY3VycmVudFNBbW91bnQFDXVuc3Rha2VBbW91bnQFA25pbAYBaQEFc3Rha2UABAR1c2VyCQClCAEIBQFpBmNhbGxlcgQGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAMDCQBnAgAABQZhbW91bnQGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJANkEAQUHYXNzZXRJZAkAAgECFmludmFsaWQgdG9rZW4gYXR0YWNoZWQEC2N1cnJlbnRQb29sCQEJdHJ5R2V0U3RyAgUEdGhpcwILY3VycmVudFBvb2wJAM4IAgkBC3N0YWtlUmVzdWx0AgUEdXNlcgUGYW1vdW50CQEMc3VwcGx5UmVzdWx0AQULY3VycmVudFBvb2wBaQEHdW5zdGFrZQEGYW1vdW50BAR1c2VyCQClCAEIBQFpBmNhbGxlcgQLY3VycmVudFBvb2wJAQl0cnlHZXRTdHICBQR0aGlzAgtjdXJyZW50UG9vbAQCdHgJARZ3aXRoZHJhd0Zyb21QdXp6bGVQb29sAgULY3VycmVudFBvb2wFBmFtb3VudAMJAAACBQJ0eAUCdHgJAM4IAgkBDXVuc3Rha2VSZXN1bHQCBQR1c2VyBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQZhbW91bnQJANkEAQUHYXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCXJlYmFsYW5jZQEGcG9vbElkBAtjdXJyZW50UG9vbAkBCXRyeUdldFN0cgIFBHRoaXMCC2N1cnJlbnRQb29sAwkAAAIJAM8IAgUKdmFsaWRhdG9ycwkApQgBCAUBaQZjYWxsZXIFBHVuaXQJAAIBAg1BY2Nlc3MgZGVuaWVkAwkAAAIFC2N1cnJlbnRQb29sBQZwb29sSWQJAAIBCQCsAgICE0FscmVhZHkgc3VwcGxpZWQgdG8FC2N1cnJlbnRQb29sBAp3aXRoZHJhd1R4CQEOd2l0aGRyYXdSZXN1bHQAAwkAAAIFCndpdGhkcmF3VHgFCndpdGhkcmF3VHgJAM4IAgkBDHN1cHBseVJlc3VsdAEFBnBvb2xJZAkBDHJlY2FsY1Jlc3VsdAEAAAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhnZXRTUmF0ZQEFZGVidWcECXBhcmFtZXRlcgkBDmNhbGN1bGF0ZVNSYXRlAAMFBWRlYnVnCQACAQkApAMBBQlwYXJhbWV0ZXIJAJQKAgUDbmlsBQlwYXJhbWV0ZXIBaQEPZ2V0U3Rha2VkQW1vdW50AgVkZWJ1Zwt1c2VyQWRkcmVzcwQJcGFyYW1ldGVyCQEVY2FsY3VsYXRlU3Rha2VkQW1vdW50AQULdXNlckFkZHJlc3MDBQVkZWJ1ZwkAAgEJAKQDAQUJcGFyYW1ldGVyCQCUCgIFA25pbAUJcGFyYW1ldGVyAWkBFGdldFRvdGFsU3Rha2VkQW1vdW50AQVkZWJ1ZwQGYW1vdW50CQEJdHJ5R2V0SW50AgUEdGhpcwINZ2xvYmFsX3N0YWtlZAQJcGFyYW1ldGVyCQBrAwUGYW1vdW50CQEOY2FsY3VsYXRlU1JhdGUABQZTY2FsZTgDBQVkZWJ1ZwkAAgEJAKQDAQUJcGFyYW1ldGVyCQCUCgIFA25pbAUJcGFyYW1ldGVyAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tlebXiQiI=",
    "height": 3405349,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7q4BHjpunpKDeB4rA25QLxWvwsd3n5wcvN7LMKgyC9qU
Next: 7VKvLJ8DaojteokigZpo9gREVsfZwrmeALZuzCHR8eme

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let Scale6 = 1000000
5 5  
6 6  let Scale8 = 100000000
7 7  
8 8  let Scale16 = (Scale8 * Scale8)
9 9  
10 10  let pofitAccountAddress = Address(base58'3PHMpSJXoCTAJTmdVXgxXAFrkHBRyjNRuMU')
11 11  
12 12  let assetId = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
13 13  
14 14  let validators = ["3PEqC9533h6ADnJvXb8cvXcaSkecd9YTNvz"]
15 15  
16 16  let puzzlePools = ["3P4DK5VzDwL3vfc5ahUEhtoe5ByZNyacJ3X", "3P4uA5etnZi4AmBabKinq2bMiWU8KcnHZdH"]
17 17  
18 18  func getBalance (assetId) = match assetId {
19 19      case x: Unit => 
20 20          wavesBalance(this).available
21 21      case _ => 
22 22          assetBalance(this, value(assetId))
23 23  }
24 24  
25 25  
26 26  func tryGetInt (address,key) = match getInteger(address, key) {
27 27      case b: Int => 
28 28          b
29 29      case _ => 
30 30          0
31 31  }
32 32  
33 33  
34 34  func tryGetStr (address,key) = match getString(address, key) {
35 35      case b: String => 
36 36          b
37 37      case _ => 
38 38          ""
39 39  }
40 40  
41 41  
42 42  func getAssetString (assetId) = match assetId {
43 43      case b: ByteVector => 
44 44          toBase58String(b)
45 45      case _ => 
46 46          "WAVES"
47 47  }
48 48  
49 49  
50 50  func getPuzzlePoolSuppliedAmount (poolAddressStr) = {
51 51      let poolAddress = Address(fromBase58String(poolAddressStr))
52 52      let tokens =     match getString(poolAddress, "setup_tokens") {
53 53          case r: String => 
54 54              split(r, ",")
55 55          case _ => 
56 56              throw(("Cannot find setup_tokens in state of pool " + poolAddressStr))
57 57      }
58 58      let tokenIndex =     match indexOf(tokens, assetId) {
59 59          case r: Int => 
60 60              r
61 61          case _ => 
62 62              throw(((("cannot find " + assetId) + " in pool") + poolAddressStr))
63 63      }
64 64      let tokenRatesResponse = invoke(poolAddress, "calculateTokenRates", [false], nil)
65 65      if ((tokenRatesResponse == tokenRatesResponse))
66 66          then {
67 67              let tokensRatesString =             match tokenRatesResponse {
68 68                  case r: String => 
69 69                      r
70 70                  case _ => 
71 71                      throw(("Func 'calculateTokenRates' returns not string value in pool" + poolAddressStr))
72 72              }
73 73              let supplyRateStr = split(split(tokensRatesString, ",")[tokenIndex], "|")[1]
74 74              let supplyRate =             match parseInt(supplyRateStr) {
75 75                  case t: Int => 
76 76                      t
77 77                  case _ => 
78 78                      throw("Cannot parse supply rate from defi pool")
79 79              }
80 80              let supply = tryGetInt(poolAddress, ((toString(this) + "_supplied_") + assetId))
81 81              let amount = fraction(supply, supplyRate, Scale16)
82 82              amount
83 83              }
84 84          else throw("Strict value is not equal to itself.")
85 85      }
86 86  
87 87  
88 88  func getTotalSuppliedAmount () = {
89 89      let currentPool = tryGetStr(this, "currentPool")
90 90      if ((currentPool == ""))
91 91          then throw(("Cannot find pool with id " + currentPool))
92 92          else getPuzzlePoolSuppliedAmount(currentPool)
93 93      }
94 94  
95 95  
96 96  func withdrawFromPuzzlePool (poolId,amount) = {
97 97      let poolAddress = Address(fromBase58String(poolId))
98 98      let withdrawTx = if ((amount > 0))
99 99          then invoke(poolAddress, "withdraw", [assetId, amount], nil)
100 100          else ""
101 101      if ((withdrawTx == withdrawTx))
102 102          then withdrawTx
103 103          else throw("Strict value is not equal to itself.")
104 104      }
105 105  
106 106  
107 107  func withdrawResult () = {
108 108      let currentPool = tryGetStr(this, "currentPool")
109 109      if ((currentPool == ""))
110 110          then throw(("Cannot find pool with id " + currentPool))
111 111          else {
112 112              let amount = getPuzzlePoolSuppliedAmount(currentPool)
113 113              let tx = withdrawFromPuzzlePool(currentPool, amount)
114 114              if ((tx == tx))
115 115                  then tx
116 116                  else throw("Strict value is not equal to itself.")
117 117              }
118 118      }
119 119  
120 120  
121 121  func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
122 122      then throw(("Unknown poolId " + poolId))
123 123      else {
124 124          let assetBytes = fromBase58String(assetId)
125 125          let balance = getBalance(assetBytes)
126 126          let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
127 127          if ((inv == inv))
128 128              then [StringEntry("currentPool", poolId)]
129 129              else throw("Strict value is not equal to itself.")
130 130          }
131 131  
132 132  
133 133  func calculateSRate () = {
134 134      let lastCheckSRate = tryGetInt(this, "global_lastCheckSRate")
135 135      let stakedAmount = tryGetInt(this, "global_staked")
136 136      let lastCheckHeight = tryGetInt(this, "global_lastCheckSRateHeight")
137 137      let blocks = (height - lastCheckHeight)
138 138      let emission = (getTotalSuppliedAmount() - fraction(stakedAmount, lastCheckSRate, Scale8))
139 139      let stakingEmission = fraction(emission, 95000000, Scale8)
140 140      if ((stakedAmount == 0))
141 141          then Scale8
142 142          else {
143 143              let sRate = (lastCheckSRate + fraction((blocks * Scale8), stakingEmission, stakedAmount))
144 144              if ((Scale8 > sRate))
145 145                  then Scale8
146 146                  else sRate
147 147              }
148 148      }
149 149  
150 150  
151 151  func recalcResult (stakedChange) = {
152 152      let stakedAmount = tryGetInt(this, "global_staked")
153 153      let sRate = calculateSRate()
154 154      let profit = (getTotalSuppliedAmount() - fraction(stakedAmount, sRate, Scale8))
155 155  [ScriptTransfer(pofitAccountAddress, if ((profit > 0))
156 156          then profit
157 157          else 0, fromBase58String(assetId)), IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", sRate), IntegerEntry("global_lastCheckSRateHeight", height)]
158 158      }
159 159  
160 160  
161 161  func calculateStakedAmount (user) = {
162 162      let amount = tryGetInt(this, (user + "_staked"))
163 163      fraction(amount, calculateSRate(), Scale8)
164 164      }
165 165  
166 166  
167 167  func stakeResult (user,amount) = {
168 168      let sAmount = fraction(amount, Scale8, calculateSRate())
169 169      (recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
170 170      }
171 171  
172 172  
173 173  func unstakeResult (user,amount) = {
174 174      let sRate = calculateSRate()
175 175      let sAmount = if ((sRate == 0))
176 176          then amount
177 177          else fraction(amount, Scale8, sRate)
178 178      let userStaked = tryGetInt(this, (user + "_staked"))
179 179      let currentSAmount = if ((sRate == 0))
180 180          then userStaked
181 181          else fraction(userStaked, Scale8, sRate)
182 182      let unstakeAmount = if ((sAmount > currentSAmount))
183 183          then currentSAmount
184 184          else sAmount
185 185      (recalcResult(-(sAmount)) ++ [IntegerEntry((user + "_staked"), (currentSAmount - unstakeAmount))])
186 186      }
187 187  
188 188  
189 189  @Callable(i)
190 190  func stake () = {
191 191      let user = toString(i.caller)
192 192      let amount = i.payments[0].amount
193 193      if (if ((0 >= amount))
194 194          then true
195 195          else (i.payments[0].assetId != fromBase58String(assetId)))
196 196          then throw("invalid token attached")
197 197          else {
198 198              let currentPool = tryGetStr(this, "currentPool")
199 199              (stakeResult(user, amount) ++ supplyResult(currentPool))
200 200              }
201 201      }
202 202  
203 203  
204 204  
205 205  @Callable(i)
206 206  func unstake (amount) = {
207 207      let user = toString(i.caller)
208 208      let currentPool = tryGetStr(this, "currentPool")
209 209      let tx = withdrawFromPuzzlePool(currentPool, amount)
210 210      if ((tx == tx))
211 211          then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
212 212          else throw("Strict value is not equal to itself.")
213 213      }
214 214  
215 215  
216 216  
217 217  @Callable(i)
218 218  func rebalance (poolId) = {
219 219      let currentPool = tryGetStr(this, "currentPool")
220 220      if ((indexOf(validators, toString(i.caller)) == unit))
221 221          then throw("Access denied")
222 222          else if ((currentPool == poolId))
223 223              then throw(("Already supplied to" + currentPool))
224 224              else {
225 225                  let withdrawTx = withdrawResult()
226 226                  if ((withdrawTx == withdrawTx))
227 227                      then (supplyResult(poolId) ++ recalcResult(0))
228 228                      else throw("Strict value is not equal to itself.")
229 229                  }
230 230      }
231 231  
232 232  
233 233  
234 234  @Callable(i)
235 235  func getSRate (debug) = {
236 236      let parameter = calculateSRate()
237 237      if (debug)
238 238          then throw(toString(parameter))
239 239          else $Tuple2(nil, parameter)
240 240      }
241 241  
242 242  
243 243  
244 244  @Callable(i)
245 245  func getStakedAmount (debug,userAddress) = {
246 246      let parameter = calculateStakedAmount(userAddress)
247 247      if (debug)
248 248          then throw(toString(parameter))
249 249          else $Tuple2(nil, parameter)
250 250      }
251 251  
252 252  
253 253  
254 254  @Callable(i)
255 255  func getTotalStakedAmount (debug) = {
256 256      let amount = tryGetInt(this, "global_staked")
257 257      let parameter = fraction(amount, calculateSRate(), Scale8)
258 258      if (debug)
259 259          then throw(toString(parameter))
260 260          else $Tuple2(nil, parameter)
261 261      }
262 262  
263 263  
264 264  @Verifier(tx)
265 265  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
266 266

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let Scale6 = 1000000
5	5
6	6	let Scale8 = 100000000
7	7
8	8	let Scale16 = (Scale8 * Scale8)
9	9
10	10	let pofitAccountAddress = Address(base58'3PHMpSJXoCTAJTmdVXgxXAFrkHBRyjNRuMU')
11	11
12	12	let assetId = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
13	13
14	14	let validators = ["3PEqC9533h6ADnJvXb8cvXcaSkecd9YTNvz"]
15	15
16	16	let puzzlePools = ["3P4DK5VzDwL3vfc5ahUEhtoe5ByZNyacJ3X", "3P4uA5etnZi4AmBabKinq2bMiWU8KcnHZdH"]
17	17
18	18	func getBalance (assetId) = match assetId {
19	19	case x: Unit =>
20	20	wavesBalance(this).available
21	21	case _ =>
22	22	assetBalance(this, value(assetId))
23	23	}
24	24
25	25
26	26	func tryGetInt (address,key) = match getInteger(address, key) {
27	27	case b: Int =>
28	28	b
29	29	case _ =>
30	30	0
31	31	}
32	32
33	33
34	34	func tryGetStr (address,key) = match getString(address, key) {
35	35	case b: String =>
36	36	b
37	37	case _ =>
38	38	""
39	39	}
40	40
41	41
42	42	func getAssetString (assetId) = match assetId {
43	43	case b: ByteVector =>
44	44	toBase58String(b)
45	45	case _ =>
46	46	"WAVES"
47	47	}
48	48
49	49
50	50	func getPuzzlePoolSuppliedAmount (poolAddressStr) = {
51	51	let poolAddress = Address(fromBase58String(poolAddressStr))
52	52	let tokens = match getString(poolAddress, "setup_tokens") {
53	53	case r: String =>
54	54	split(r, ",")
55	55	case _ =>
56	56	throw(("Cannot find setup_tokens in state of pool " + poolAddressStr))
57	57	}
58	58	let tokenIndex = match indexOf(tokens, assetId) {
59	59	case r: Int =>
60	60	r
61	61	case _ =>
62	62	throw(((("cannot find " + assetId) + " in pool") + poolAddressStr))
63	63	}
64	64	let tokenRatesResponse = invoke(poolAddress, "calculateTokenRates", [false], nil)
65	65	if ((tokenRatesResponse == tokenRatesResponse))
66	66	then {
67	67	let tokensRatesString = match tokenRatesResponse {
68	68	case r: String =>
69	69	r
70	70	case _ =>
71	71	throw(("Func 'calculateTokenRates' returns not string value in pool" + poolAddressStr))
72	72	}
73	73	let supplyRateStr = split(split(tokensRatesString, ",")[tokenIndex], "\|")[1]
74	74	let supplyRate = match parseInt(supplyRateStr) {
75	75	case t: Int =>
76	76	t
77	77	case _ =>
78	78	throw("Cannot parse supply rate from defi pool")
79	79	}
80	80	let supply = tryGetInt(poolAddress, ((toString(this) + "_supplied_") + assetId))
81	81	let amount = fraction(supply, supplyRate, Scale16)
82	82	amount
83	83	}
84	84	else throw("Strict value is not equal to itself.")
85	85	}
86	86
87	87
88	88	func getTotalSuppliedAmount () = {
89	89	let currentPool = tryGetStr(this, "currentPool")
90	90	if ((currentPool == ""))
91	91	then throw(("Cannot find pool with id " + currentPool))
92	92	else getPuzzlePoolSuppliedAmount(currentPool)
93	93	}
94	94
95	95
96	96	func withdrawFromPuzzlePool (poolId,amount) = {
97	97	let poolAddress = Address(fromBase58String(poolId))
98	98	let withdrawTx = if ((amount > 0))
99	99	then invoke(poolAddress, "withdraw", [assetId, amount], nil)
100	100	else ""
101	101	if ((withdrawTx == withdrawTx))
102	102	then withdrawTx
103	103	else throw("Strict value is not equal to itself.")
104	104	}
105	105
106	106
107	107	func withdrawResult () = {
108	108	let currentPool = tryGetStr(this, "currentPool")
109	109	if ((currentPool == ""))
110	110	then throw(("Cannot find pool with id " + currentPool))
111	111	else {
112	112	let amount = getPuzzlePoolSuppliedAmount(currentPool)
113	113	let tx = withdrawFromPuzzlePool(currentPool, amount)
114	114	if ((tx == tx))
115	115	then tx
116	116	else throw("Strict value is not equal to itself.")
117	117	}
118	118	}
119	119
120	120
121	121	func supplyResult (poolId) = if ((indexOf(puzzlePools, poolId) == unit))
122	122	then throw(("Unknown poolId " + poolId))
123	123	else {
124	124	let assetBytes = fromBase58String(assetId)
125	125	let balance = getBalance(assetBytes)
126	126	let inv = invoke(Address(fromBase58String(poolId)), "supply", nil, [AttachedPayment(assetBytes, balance)])
127	127	if ((inv == inv))
128	128	then [StringEntry("currentPool", poolId)]
129	129	else throw("Strict value is not equal to itself.")
130	130	}
131	131
132	132
133	133	func calculateSRate () = {
134	134	let lastCheckSRate = tryGetInt(this, "global_lastCheckSRate")
135	135	let stakedAmount = tryGetInt(this, "global_staked")
136	136	let lastCheckHeight = tryGetInt(this, "global_lastCheckSRateHeight")
137	137	let blocks = (height - lastCheckHeight)
138	138	let emission = (getTotalSuppliedAmount() - fraction(stakedAmount, lastCheckSRate, Scale8))
139	139	let stakingEmission = fraction(emission, 95000000, Scale8)
140	140	if ((stakedAmount == 0))
141	141	then Scale8
142	142	else {
143	143	let sRate = (lastCheckSRate + fraction((blocks * Scale8), stakingEmission, stakedAmount))
144	144	if ((Scale8 > sRate))
145	145	then Scale8
146	146	else sRate
147	147	}
148	148	}
149	149
150	150
151	151	func recalcResult (stakedChange) = {
152	152	let stakedAmount = tryGetInt(this, "global_staked")
153	153	let sRate = calculateSRate()
154	154	let profit = (getTotalSuppliedAmount() - fraction(stakedAmount, sRate, Scale8))
155	155	[ScriptTransfer(pofitAccountAddress, if ((profit > 0))
156	156	then profit
157	157	else 0, fromBase58String(assetId)), IntegerEntry("global_staked", (stakedAmount + stakedChange)), IntegerEntry("global_lastCheckSRate", sRate), IntegerEntry("global_lastCheckSRateHeight", height)]
158	158	}
159	159
160	160
161	161	func calculateStakedAmount (user) = {
162	162	let amount = tryGetInt(this, (user + "_staked"))
163	163	fraction(amount, calculateSRate(), Scale8)
164	164	}
165	165
166	166
167	167	func stakeResult (user,amount) = {
168	168	let sAmount = fraction(amount, Scale8, calculateSRate())
169	169	(recalcResult(sAmount) ++ [IntegerEntry((user + "_staked"), (tryGetInt(this, (user + "_staked")) + sAmount))])
170	170	}
171	171
172	172
173	173	func unstakeResult (user,amount) = {
174	174	let sRate = calculateSRate()
175	175	let sAmount = if ((sRate == 0))
176	176	then amount
177	177	else fraction(amount, Scale8, sRate)
178	178	let userStaked = tryGetInt(this, (user + "_staked"))
179	179	let currentSAmount = if ((sRate == 0))
180	180	then userStaked
181	181	else fraction(userStaked, Scale8, sRate)
182	182	let unstakeAmount = if ((sAmount > currentSAmount))
183	183	then currentSAmount
184	184	else sAmount
185	185	(recalcResult(-(sAmount)) ++ [IntegerEntry((user + "_staked"), (currentSAmount - unstakeAmount))])
186	186	}
187	187
188	188
189	189	@Callable(i)
190	190	func stake () = {
191	191	let user = toString(i.caller)
192	192	let amount = i.payments[0].amount
193	193	if (if ((0 >= amount))
194	194	then true
195	195	else (i.payments[0].assetId != fromBase58String(assetId)))
196	196	then throw("invalid token attached")
197	197	else {
198	198	let currentPool = tryGetStr(this, "currentPool")
199	199	(stakeResult(user, amount) ++ supplyResult(currentPool))
200	200	}
201	201	}
202	202
203	203
204	204
205	205	@Callable(i)
206	206	func unstake (amount) = {
207	207	let user = toString(i.caller)
208	208	let currentPool = tryGetStr(this, "currentPool")
209	209	let tx = withdrawFromPuzzlePool(currentPool, amount)
210	210	if ((tx == tx))
211	211	then (unstakeResult(user, amount) ++ [ScriptTransfer(i.caller, amount, fromBase58String(assetId))])
212	212	else throw("Strict value is not equal to itself.")
213	213	}
214	214
215	215
216	216
217	217	@Callable(i)
218	218	func rebalance (poolId) = {
219	219	let currentPool = tryGetStr(this, "currentPool")
220	220	if ((indexOf(validators, toString(i.caller)) == unit))
221	221	then throw("Access denied")
222	222	else if ((currentPool == poolId))
223	223	then throw(("Already supplied to" + currentPool))
224	224	else {
225	225	let withdrawTx = withdrawResult()
226	226	if ((withdrawTx == withdrawTx))
227	227	then (supplyResult(poolId) ++ recalcResult(0))
228	228	else throw("Strict value is not equal to itself.")
229	229	}
230	230	}
231	231
232	232
233	233
234	234	@Callable(i)
235	235	func getSRate (debug) = {
236	236	let parameter = calculateSRate()
237	237	if (debug)
238	238	then throw(toString(parameter))
239	239	else $Tuple2(nil, parameter)
240	240	}
241	241
242	242
243	243
244	244	@Callable(i)
245	245	func getStakedAmount (debug,userAddress) = {
246	246	let parameter = calculateStakedAmount(userAddress)
247	247	if (debug)
248	248	then throw(toString(parameter))
249	249	else $Tuple2(nil, parameter)
250	250	}
251	251
252	252
253	253
254	254	@Callable(i)
255	255	func getTotalStakedAmount (debug) = {
256	256	let amount = tryGetInt(this, "global_staked")
257	257	let parameter = fraction(amount, calculateSRate(), Scale8)
258	258	if (debug)
259	259	then throw(toString(parameter))
260	260	else $Tuple2(nil, parameter)
261	261	}
262	262
263	263
264	264	@Verifier(tx)
265	265	func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
266	266

github/deemru/w8io/6500d08 
53.50 ms ◑