w8 · tx · H8K···pT5

tx · H8KncYLXbT6sF5h718WNjdkEsqhaeRLE2B94V466wpT5

3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq:  -0.01000000 Waves

2023.09.10 01:30 [2748456] smart account 3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "H8KncYLXbT6sF5h718WNjdkEsqhaeRLE2B94V466wpT5",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1694298709900,
    "version": 2,
    "chainId": 84,
    "sender": "3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq",
    "senderPublicKey": "ERewvWFUFQfR1eCnipNAv9n7SdQhof2ESP6PGVjTueLd",
    "proofs": [
        "3NYjFFgokroJm3vVwjeuRcY2LqhZmQ9rBr9EXMivwRhFeDXnqSUka1NvuDtNoX2oycQnu1xRf6Sznjg2KUSVd6zg"
    ],
    "script": "base64:BgILCAISABIAEgMKAQEHAAZ1c2RuSWQBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0AA53YXZlczJMVG9rZW5JZAEg5M0p6rvBF5U2UTZL5Gl9iE5RU627hhSF/AmO2XdvzrEADHB1enpsZUxlbmRTQwIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQAEGZha2VQdXp6bGVTd2FwU0MCIzNNczhmcWJYTTRSaG1NNkNQVHI0NGhVd0hlMkNDbVZDZlZBAA51c2RuQWRkcmVzc1N0cgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQAD3dhdmVzMkxUb2tlblN0cgIsR1E5UU5WTEdmWVNiTlo0ZFM4TlJ5dkdHRUxaTDRzV1BLaVZqODhDVjFySkwBDXRyeUdldEludGVnZXIBA2tleQQHJG1hdGNoMAkAmggCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAADAWkBCW1pbnRMb25nMgADAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABBgkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAAJAAIBAiExIHBheW1lbnQgaGFzIHRvIGJlIGF0dGFjaGVkIG1pbnQEDWZpcnN0QW1vdW50SW4ICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAhjYWxsZXJJZAkApQgBCAUBaQZjYWxsZXIEF2ZpcnN0U3dhcHBlZFdhdmVzQW1vdW50CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFEGZha2VQdXp6bGVTd2FwU0MCC3N3YXBUb1dhdmVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFDWZpcnN0QW1vdW50SW4FA25pbAUDbmlsAwkAAAIFF2ZpcnN0U3dhcHBlZFdhdmVzQW1vdW50BRdmaXJzdFN3YXBwZWRXYXZlc0Ftb3VudAQHJG1hdGNoMAUXZmlyc3RTd2FwcGVkV2F2ZXNBbW91bnQDCQABAgUHJG1hdGNoMAIDSW50BBdmaXJzdFN3YXBwZWRBbW91bnRWYWx1ZQUHJG1hdGNoMAQZZmlyc3REZXBvc2l0ZWRXYXZlc0Ftb3VudAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBQxwdXp6bGVMZW5kU0MCBnN1cHBseQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQR1bml0BRdmaXJzdFN3YXBwZWRBbW91bnRWYWx1ZQUDbmlsAwkAAAIFGWZpcnN0RGVwb3NpdGVkV2F2ZXNBbW91bnQFGWZpcnN0RGVwb3NpdGVkV2F2ZXNBbW91bnQEDmxpc3RQZXJjZW50YWdlCQDMCAIA8KIECQDMCAIA6P4CCQDMCAIA/IsCCQDMCAIAyrsBCQDMCAIAp4MBBQNuaWwKAQpyZXBlYXRGdW5jAgVhY2N1bQRuZXh0BAxib3Jyb3dlZFVzZG4JAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUMcHV6emxlTGVuZFNDAgZib3Jyb3cJAMwIAgUOdXNkbkFkZHJlc3NTdHIJAMwIAgkAaQIJAGgCBQ1maXJzdEFtb3VudEluBQVhY2N1bQCgjQYFA25pbAUDbmlsAwkAAAIFDGJvcnJvd2VkVXNkbgUMYm9ycm93ZWRVc2RuBA1zd2FwcGVkQW1vdW50CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFEGZha2VQdXp6bGVTd2FwU0MCC3N3YXBUb1dhdmVzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAGkCCQBoAgUXZmlyc3RTd2FwcGVkQW1vdW50VmFsdWUFBWFjY3VtAKCNBgUDbmlsBQNuaWwDCQAAAgUNc3dhcHBlZEFtb3VudAUNc3dhcHBlZEFtb3VudAQHJG1hdGNoMQUNc3dhcHBlZEFtb3VudAMJAAECBQckbWF0Y2gxAgNJbnQEEnN3YXBwZWRBbW91bnRWYWx1ZQUHJG1hdGNoMQQOZGVwb3NpdGVkV2F2ZXMJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUMcHV6emxlTGVuZFNDAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdAUSc3dhcHBlZEFtb3VudFZhbHVlBQNuaWwDCQAAAgUOZGVwb3NpdGVkV2F2ZXMFDmRlcG9zaXRlZFdhdmVzCQBkAgkAaQIJAGgCBRdmaXJzdFN3YXBwZWRBbW91bnRWYWx1ZQUFYWNjdW0AoI0GCQBpAgkAaAIFF2ZpcnN0U3dhcHBlZEFtb3VudFZhbHVlBQRuZXh0AKCNBgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECF0luY29ycmVjdCBpbnZva2UgcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBANyZXMKAAIkbAUObGlzdFBlcmNlbnRhZ2UKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUDcmVzBQ53YXZlczJMVG9rZW5JZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIXSW5jb3JyZWN0IGludm9rZSByZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEObWludExvbmcyX3Rlc3QAAwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAACCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAAACQACAQIhMSBwYXltZW50IGhhcyB0byBiZSBhdHRhY2hlZCBtaW50BA1maXJzdEFtb3VudEluCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQIY2FsbGVySWQJAKUIAQgFAWkGY2FsbGVyBBdmaXJzdFN3YXBwZWRXYXZlc0Ftb3VudAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBRBmYWtlUHV6emxlU3dhcFNDAgtzd2FwVG9XYXZlcwkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCBQ1maXJzdEFtb3VudEluBQNuaWwFA25pbAMJAAACBRdmaXJzdFN3YXBwZWRXYXZlc0Ftb3VudAUXZmlyc3RTd2FwcGVkV2F2ZXNBbW91bnQEByRtYXRjaDAFF2ZpcnN0U3dhcHBlZFdhdmVzQW1vdW50AwkAAQIFByRtYXRjaDACA0ludAQXZmlyc3RTd2FwcGVkQW1vdW50VmFsdWUFByRtYXRjaDAEGWZpcnN0RGVwb3NpdGVkV2F2ZXNBbW91bnQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUMcHV6emxlTGVuZFNDAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdAUXZmlyc3RTd2FwcGVkQW1vdW50VmFsdWUFA25pbAMJAAACBRlmaXJzdERlcG9zaXRlZFdhdmVzQW1vdW50BRlmaXJzdERlcG9zaXRlZFdhdmVzQW1vdW50BA5saXN0UGVyY2VudGFnZQkAzAgCAEYJAMwIAgAxCQDMCAIAIgkAzAgCABgJAMwIAgARBQNuaWwKAQpyZXBlYXRGdW5jAgVhY2N1bQRuZXh0BAxib3Jyb3dlZFVzZG4JAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUMcHV6emxlTGVuZFNDAgZib3Jyb3cJAMwIAgUOdXNkbkFkZHJlc3NTdHIJAMwIAgkAaQIJAGgCBQ1maXJzdEFtb3VudEluBQVhY2N1bQBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dlZFVzZG4FDGJvcnJvd2VkVXNkbgQNc3dhcHBlZEFtb3VudAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBRBmYWtlUHV6emxlU3dhcFNDAgtzd2FwVG9XYXZlcwkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCCQBpAgkAaAIFF2ZpcnN0U3dhcHBlZEFtb3VudFZhbHVlBQVhY2N1bQBkBQNuaWwFA25pbAMJAAACBQ1zd2FwcGVkQW1vdW50BQ1zd2FwcGVkQW1vdW50CQBkAgUFYWNjdW0FBG5leHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EA3JlcwoAAiRsBQ5saXN0UGVyY2VudGFnZQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKcmVwZWF0RnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUJAMwIAgkBDEludGVnZXJFbnRyeQICA3JlcwUDcmVzCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg1maXJzdEFtb3VudEluBQ1maXJzdEFtb3VudEluCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhdmaXJzdFN3YXBwZWRBbW91bnRWYWx1ZQUXZmlyc3RTd2FwcGVkQW1vdW50VmFsdWUFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECF0luY29ycmVjdCBpbnZva2UgcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBnJlZGVlbQELd2F2ZXNBbW91bnQEC3VzZXJBZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQScmVkZWVtZWRVU0ROQW1vdW50CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFEGZha2VQdXp6bGVTd2FwU0MCCnN3YXBUb1VTRE4JAMwIAgULd2F2ZXNBbW91bnQJAMwIAgULdXNlckFkZHJlc3MFA25pbAUDbmlsAwkAAAIFEnJlZGVlbWVkVVNETkFtb3VudAUScmVkZWVtZWRVU0ROQW1vdW50BAckbWF0Y2gwBRJyZWRlZW1lZFVTRE5BbW91bnQDCQABAgUHJG1hdGNoMAIDSW50BBNyZWRlZW1lZEFtb3VudFZhbHVlBQckbWF0Y2gwCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFC3VzZXJBZGRyZXNzAglfcmVkZWVtZWQFE3JlZGVlbWVkQW1vdW50VmFsdWUFA25pbAkAAgECF0luY29ycmVjdCBpbnZva2UgcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleU0BD/A=",
    "height": 2748456,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7zoqQCYzxjNN1aMeDiqoEuBRwYoiQCq3wCxiUJJwQAF3
Next: 9M1GXMg4vyPxSh3KdzRGASDfAR1PQ28mwuN7njpwWBj6

Diff: 
Old New Differences
124 124  
125 125                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
126 126                                  }
127 - [IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue), ScriptTransfer(i.caller, ((firstSwappedAmountValue * res) / 100), waves2LTokenId)]
127 + [IntegerEntry("res", res), IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)]
128 128                              }
129 129                          else throw("Strict value is not equal to itself.")
130 130                  case _ => 
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let usdnId = base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'
5 5  
6 6  let waves2LTokenId = base58'GQ9QNVLGfYSbNZ4dS8NRyvGGELZL4sWPKiVj88CV1rJL'
7 7  
8 8  let puzzleLendSC = "3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"
9 9  
10 10  let fakePuzzleSwapSC = "3Ms8fqbXM4RhmM6CPTr44hUwHe2CCmVCfVA"
11 11  
12 12  let usdnAddressStr = "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"
13 13  
14 14  let waves2LTokenStr = "GQ9QNVLGfYSbNZ4dS8NRyvGGELZL4sWPKiVj88CV1rJL"
15 15  
16 16  func tryGetInteger (key) = match getInteger(this, key) {
17 17      case b: Int => 
18 18          b
19 19      case _ => 
20 20          0
21 21  }
22 22  
23 23  
24 24  @Callable(i)
25 25  func mintLong2 () = if (if ((size(i.payments) != 1))
26 26      then true
27 27      else (i.payments[0].amount == 0))
28 28      then throw("1 payment has to be attached mint")
29 29      else {
30 30          let firstAmountIn = i.payments[0].amount
31 31          let callerId = toString(i.caller)
32 32          let firstSwappedWavesAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), firstAmountIn], nil)
33 33          if ((firstSwappedWavesAmount == firstSwappedWavesAmount))
34 34              then             match firstSwappedWavesAmount {
35 35                  case firstSwappedAmountValue: Int => 
36 36                      let firstDepositedWavesAmount = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, firstSwappedAmountValue)])
37 37                      if ((firstDepositedWavesAmount == firstDepositedWavesAmount))
38 38                          then {
39 39                              let listPercentage = [70000, 49000, 34300, 24010, 16807]
40 40                              func repeatFunc (accum,next) =                             {
41 41                                  let borrowedUsdn = invoke(addressFromStringValue(puzzleLendSC), "borrow", [usdnAddressStr, ((firstAmountIn * accum) / 100000)], nil)
42 42                                  if ((borrowedUsdn == borrowedUsdn))
43 43                                      then {
44 44                                          let swappedAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), ((firstSwappedAmountValue * accum) / 100000)], nil)
45 45                                          if ((swappedAmount == swappedAmount))
46 46                                              then                                             match swappedAmount {
47 47                                                  case swappedAmountValue: Int => 
48 48                                                      let depositedWaves = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, swappedAmountValue)])
49 49                                                      if ((depositedWaves == depositedWaves))
50 50                                                          then (((firstSwappedAmountValue * accum) / 100000) + ((firstSwappedAmountValue * next) / 100000))
51 51                                                          else throw("Strict value is not equal to itself.")
52 52                                                  case _ => 
53 53                                                      throw("Incorrect invoke result")
54 54                                              }
55 55                                              else throw("Strict value is not equal to itself.")
56 56                                          }
57 57                                      else throw("Strict value is not equal to itself.")
58 58                                  }
59 59  
60 60                              let res = {
61 61                                  let $l = listPercentage
62 62                                  let $s = size($l)
63 63                                  let $acc0 = 0
64 64                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
65 65                                      then $a
66 66                                      else repeatFunc($a, $l[$i])
67 67  
68 68                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
69 69                                      then $a
70 70                                      else throw("List size exceeds 5")
71 71  
72 72                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
73 73                                  }
74 74  [ScriptTransfer(i.caller, res, waves2LTokenId)]
75 75                              }
76 76                          else throw("Strict value is not equal to itself.")
77 77                  case _ => 
78 78                      throw("Incorrect invoke result")
79 79              }
80 80              else throw("Strict value is not equal to itself.")
81 81          }
82 82  
83 83  
84 84  
85 85  @Callable(i)
86 86  func mintLong2_test () = if (if ((size(i.payments) != 1))
87 87      then true
88 88      else (i.payments[0].amount == 0))
89 89      then throw("1 payment has to be attached mint")
90 90      else {
91 91          let firstAmountIn = i.payments[0].amount
92 92          let callerId = toString(i.caller)
93 93          let firstSwappedWavesAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), firstAmountIn], nil)
94 94          if ((firstSwappedWavesAmount == firstSwappedWavesAmount))
95 95              then             match firstSwappedWavesAmount {
96 96                  case firstSwappedAmountValue: Int => 
97 97                      let firstDepositedWavesAmount = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, firstSwappedAmountValue)])
98 98                      if ((firstDepositedWavesAmount == firstDepositedWavesAmount))
99 99                          then {
100 100                              let listPercentage = [70, 49, 34, 24, 17]
101 101                              func repeatFunc (accum,next) =                             {
102 102                                  let borrowedUsdn = invoke(addressFromStringValue(puzzleLendSC), "borrow", [usdnAddressStr, ((firstAmountIn * accum) / 100)], nil)
103 103                                  if ((borrowedUsdn == borrowedUsdn))
104 104                                      then {
105 105                                          let swappedAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), ((firstSwappedAmountValue * accum) / 100)], nil)
106 106                                          if ((swappedAmount == swappedAmount))
107 107                                              then (accum + next)
108 108                                              else throw("Strict value is not equal to itself.")
109 109                                          }
110 110                                      else throw("Strict value is not equal to itself.")
111 111                                  }
112 112  
113 113                              let res = {
114 114                                  let $l = listPercentage
115 115                                  let $s = size($l)
116 116                                  let $acc0 = 0
117 117                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
118 118                                      then $a
119 119                                      else repeatFunc($a, $l[$i])
120 120  
121 121                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
122 122                                      then $a
123 123                                      else throw("List size exceeds 5")
124 124  
125 125                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
126 126                                  }
127 - [IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue), ScriptTransfer(i.caller, ((firstSwappedAmountValue * res) / 100), waves2LTokenId)]
127 + [IntegerEntry("res", res), IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)]
128 128                              }
129 129                          else throw("Strict value is not equal to itself.")
130 130                  case _ => 
131 131                      throw("Incorrect invoke result")
132 132              }
133 133              else throw("Strict value is not equal to itself.")
134 134          }
135 135  
136 136  
137 137  
138 138  @Callable(i)
139 139  func redeem (wavesAmount) = {
140 140      let userAddress = toString(i.caller)
141 141      let redeemedUSDNAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToUSDN", [wavesAmount, userAddress], nil)
142 142      if ((redeemedUSDNAmount == redeemedUSDNAmount))
143 143          then         match redeemedUSDNAmount {
144 144              case redeemedAmountValue: Int => 
145 145  [IntegerEntry((userAddress + "_redeemed"), redeemedAmountValue)]
146 146              case _ => 
147 147                  throw("Incorrect invoke result")
148 148          }
149 149          else throw("Strict value is not equal to itself.")
150 150      }
151 151  
152 152  
153 153  @Verifier(tx)
154 154  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
155 155

Old	New		Differences
124	124
125	125		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
126	126		}
127		-	[IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)~~, ScriptTransfer(i.caller, ((firstSwappedAmountValue * res) / 100), waves2LTokenId)~~]
	127	+	[IntegerEntry("res", res), IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)]
128	128		}
129	129		else throw("Strict value is not equal to itself.")
130	130		case _ =>

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let usdnId = base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'
5	5
6	6		let waves2LTokenId = base58'GQ9QNVLGfYSbNZ4dS8NRyvGGELZL4sWPKiVj88CV1rJL'
7	7
8	8		let puzzleLendSC = "3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"
9	9
10	10		let fakePuzzleSwapSC = "3Ms8fqbXM4RhmM6CPTr44hUwHe2CCmVCfVA"
11	11
12	12		let usdnAddressStr = "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"
13	13
14	14		let waves2LTokenStr = "GQ9QNVLGfYSbNZ4dS8NRyvGGELZL4sWPKiVj88CV1rJL"
15	15
16	16		func tryGetInteger (key) = match getInteger(this, key) {
17	17		case b: Int =>
18	18		b
19	19		case _ =>
20	20		0
21	21		}
22	22
23	23
24	24		@Callable(i)
25	25		func mintLong2 () = if (if ((size(i.payments) != 1))
26	26		then true
27	27		else (i.payments[0].amount == 0))
28	28		then throw("1 payment has to be attached mint")
29	29		else {
30	30		let firstAmountIn = i.payments[0].amount
31	31		let callerId = toString(i.caller)
32	32		let firstSwappedWavesAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), firstAmountIn], nil)
33	33		if ((firstSwappedWavesAmount == firstSwappedWavesAmount))
34	34		then match firstSwappedWavesAmount {
35	35		case firstSwappedAmountValue: Int =>
36	36		let firstDepositedWavesAmount = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, firstSwappedAmountValue)])
37	37		if ((firstDepositedWavesAmount == firstDepositedWavesAmount))
38	38		then {
39	39		let listPercentage = [70000, 49000, 34300, 24010, 16807]
40	40		func repeatFunc (accum,next) = {
41	41		let borrowedUsdn = invoke(addressFromStringValue(puzzleLendSC), "borrow", [usdnAddressStr, ((firstAmountIn * accum) / 100000)], nil)
42	42		if ((borrowedUsdn == borrowedUsdn))
43	43		then {
44	44		let swappedAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), ((firstSwappedAmountValue * accum) / 100000)], nil)
45	45		if ((swappedAmount == swappedAmount))
46	46		then match swappedAmount {
47	47		case swappedAmountValue: Int =>
48	48		let depositedWaves = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, swappedAmountValue)])
49	49		if ((depositedWaves == depositedWaves))
50	50		then (((firstSwappedAmountValue * accum) / 100000) + ((firstSwappedAmountValue * next) / 100000))
51	51		else throw("Strict value is not equal to itself.")
52	52		case _ =>
53	53		throw("Incorrect invoke result")
54	54		}
55	55		else throw("Strict value is not equal to itself.")
56	56		}
57	57		else throw("Strict value is not equal to itself.")
58	58		}
59	59
60	60		let res = {
61	61		let $l = listPercentage
62	62		let $s = size($l)
63	63		let $acc0 = 0
64	64		func $f0_1 ($a,$i) = if (($i >= $s))
65	65		then $a
66	66		else repeatFunc($a, $l[$i])
67	67
68	68		func $f0_2 ($a,$i) = if (($i >= $s))
69	69		then $a
70	70		else throw("List size exceeds 5")
71	71
72	72		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
73	73		}
74	74		[ScriptTransfer(i.caller, res, waves2LTokenId)]
75	75		}
76	76		else throw("Strict value is not equal to itself.")
77	77		case _ =>
78	78		throw("Incorrect invoke result")
79	79		}
80	80		else throw("Strict value is not equal to itself.")
81	81		}
82	82
83	83
84	84
85	85		@Callable(i)
86	86		func mintLong2_test () = if (if ((size(i.payments) != 1))
87	87		then true
88	88		else (i.payments[0].amount == 0))
89	89		then throw("1 payment has to be attached mint")
90	90		else {
91	91		let firstAmountIn = i.payments[0].amount
92	92		let callerId = toString(i.caller)
93	93		let firstSwappedWavesAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), firstAmountIn], nil)
94	94		if ((firstSwappedWavesAmount == firstSwappedWavesAmount))
95	95		then match firstSwappedWavesAmount {
96	96		case firstSwappedAmountValue: Int =>
97	97		let firstDepositedWavesAmount = invoke(addressFromStringValue(puzzleLendSC), "supply", nil, [AttachedPayment(unit, firstSwappedAmountValue)])
98	98		if ((firstDepositedWavesAmount == firstDepositedWavesAmount))
99	99		then {
100	100		let listPercentage = [70, 49, 34, 24, 17]
101	101		func repeatFunc (accum,next) = {
102	102		let borrowedUsdn = invoke(addressFromStringValue(puzzleLendSC), "borrow", [usdnAddressStr, ((firstAmountIn * accum) / 100)], nil)
103	103		if ((borrowedUsdn == borrowedUsdn))
104	104		then {
105	105		let swappedAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToWaves", [toString(i.caller), ((firstSwappedAmountValue * accum) / 100)], nil)
106	106		if ((swappedAmount == swappedAmount))
107	107		then (accum + next)
108	108		else throw("Strict value is not equal to itself.")
109	109		}
110	110		else throw("Strict value is not equal to itself.")
111	111		}
112	112
113	113		let res = {
114	114		let $l = listPercentage
115	115		let $s = size($l)
116	116		let $acc0 = 0
117	117		func $f0_1 ($a,$i) = if (($i >= $s))
118	118		then $a
119	119		else repeatFunc($a, $l[$i])
120	120
121	121		func $f0_2 ($a,$i) = if (($i >= $s))
122	122		then $a
123	123		else throw("List size exceeds 5")
124	124
125	125		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
126	126		}
127		-	[IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)~~, ScriptTransfer(i.caller, ((firstSwappedAmountValue * res) / 100), waves2LTokenId)~~]
	127	+	[IntegerEntry("res", res), IntegerEntry("firstAmountIn", firstAmountIn), IntegerEntry("firstSwappedAmountValue", firstSwappedAmountValue)]
128	128		}
129	129		else throw("Strict value is not equal to itself.")
130	130		case _ =>
131	131		throw("Incorrect invoke result")
132	132		}
133	133		else throw("Strict value is not equal to itself.")
134	134		}
135	135
136	136
137	137
138	138		@Callable(i)
139	139		func redeem (wavesAmount) = {
140	140		let userAddress = toString(i.caller)
141	141		let redeemedUSDNAmount = invoke(addressFromStringValue(fakePuzzleSwapSC), "swapToUSDN", [wavesAmount, userAddress], nil)
142	142		if ((redeemedUSDNAmount == redeemedUSDNAmount))
143	143		then match redeemedUSDNAmount {
144	144		case redeemedAmountValue: Int =>
145	145		[IntegerEntry((userAddress + "_redeemed"), redeemedAmountValue)]
146	146		case _ =>
147	147		throw("Incorrect invoke result")
148	148		}
149	149		else throw("Strict value is not equal to itself.")
150	150		}
151	151
152	152
153	153		@Verifier(tx)
154	154		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
155	155

github/deemru/w8io/169f3d6 
29.82 ms ◑