w8 · tx · 3hD···iV9

tx · 3hDEba7ishGuVj11c4xbNxgYEJTZW3JcNHLHPLvniiV9

3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq:  -0.01000000 Waves

2023.06.27 12:08 [2640863] smart account 3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3hDEba7ishGuVj11c4xbNxgYEJTZW3JcNHLHPLvniiV9",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1687856978226,
    "version": 2,
    "chainId": 84,
    "sender": "3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq",
    "senderPublicKey": "ERewvWFUFQfR1eCnipNAv9n7SdQhof2ESP6PGVjTueLd",
    "proofs": [
        "35PbdGZXErFNSEL96xjbqM78vyZ19T2QxySBr9sKAVVh5u1W2DyuAHitizdSnHfG5GLteUYW7mUiTv1qw1FZeTUx"
    ],
    "script": "base64:BgIvCAISBAoCAQgSAwoBARIDCgEBEgMKAQESAwoBARIECgIIARIAEgQKAggBEgMKAQgFAANhcnIJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsAARhcnIyCQDMCAIAAQkAzAgCAAIFA25pbAEDc3VtAgFhAWIJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCBmJvcnJvdwkAzAgCAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAkAzAgCAMCEPQUDbmlsBQNuaWwBD2dldEN1cnJlbnRQcmljZQEKYXNzZXRJZFN0cgMJAAACBQphc3NldElkU3RyAgVXQVZFUwACCQACAQIFRXJyb3IBCmdldEJhbGFuY2UCCmFzc2V0SWRTdHIHYWRkcmVzcwMJAAACBQphc3NldElkU3RyAgVXQVZFUwgJAO8HAQUHYWRkcmVzcwlhdmFpbGFibGUJAPAHAgUHYWRkcmVzcwkA2QQBBQphc3NldElkU3RyCQFpAQ10cmFuc2ZlcldhdmVzAgthc3NldEFtb3VudA1zZW5kZXJBZGRyZXNzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIsb25seSBmb3IgaW50ZXJuYWwgc21hcnQgY29udHJhY3QgaW52b2NhdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEdGhpcwULYXNzZXRBbW91bnQFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUNc2VuZGVyQWRkcmVzcwIQX2RlcG9zaXRlZF9XQVZFUwULYXNzZXRBbW91bnQFA25pbAFpARF0cmFuc2ZlcldhdmVzVGVzdAELYXNzZXRBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkApQgBCAUBaQZjYWxsZXICEF9kZXBvc2l0ZWRfV0FWRVMFC2Fzc2V0QW1vdW50BQNuaWwBaQEGbG9uZzJ4AQthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEDWN1cnJlbnRBbW91bnQJAQpnZXRCYWxhbmNlAgIFV0FWRVMIBQFpBmNhbGxlcgMJAGYCBQ1jdXJyZW50QW1vdW50BQthc3NldEFtb3VudAoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEDnRyYW5zZmVyUmVzdWx0CQD8BwQFBHRoaXMCDXRyYW5zZmVyV2F2ZXMJAMwIAgULYXNzZXRBbW91bnQJAMwIAggFAWkGY2FsbGVyBQNuaWwFA25pbAMJAAACBQ50cmFuc2ZlclJlc3VsdAUOdHJhbnNmZXJSZXN1bHQEDHN1cHBseVJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFC2Fzc2V0QW1vdW50BQNuaWwDCQAAAgUMc3VwcGx5UmVzdWx0BQxzdXBwbHlSZXN1bHQEDGJvcnJvd1Jlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIJAGkCCQBoAgULYXNzZXRBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dSZXN1bHQFDGJvcnJvd1Jlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQthc3NldEFtb3VudAkAzAgCBQthc3NldEFtb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAGgCBQthc3NldEFtb3VudAkBD2dldEN1cnJlbnRQcmljZQECBVdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAaQIJAGgCBQNyZXMJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQR0aGlzBQNyZXMFBHVuaXQFA25pbAkAAgECBkVycm9yIQFpAQZib3Jyb3cBC2Fzc2V0QW1vdW50BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYXNzZXRBbW91bnQBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQFC2Fzc2V0QW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYm9ycm93MgELYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyCgEKcmVwZWF0RnVuYwIFYWNjdW0EbmV4dAQGcmVzdWx0CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0CQBkAgUFYWNjdW0FBG5leHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EBWFycmF5CQDMCAIFC2Fzc2V0QW1vdW50CQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwEA3JlcwoAAiRsBQVhcnJheQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKcmVwZWF0RnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAULYXNzZXRBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQNyZXMBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0BQNuaWwBaQEHYm9ycm93NQIKYXNzZXRJZFN0cgthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEA3JlcwoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUDCQAAAgUDcmVzBQNyZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfBQphc3NldElkU3RyBQthc3NldEFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2RlcG9zaXQABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdADAhD0FA25pbAMJAAACBQNyZXMFA3JlcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQdhZGRyZXNzAgxzdXBwbHlfd2F2ZXMAwIQ9BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEId2l0aGRyYXcCCmFzc2V0SWRTdHILYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyBANyZXMJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCCHdpdGhkcmF3CQDMCAIFCmFzc2V0SWRTdHIJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX3dpdGhkcmV3XwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxjaGVja0JhbGFuY2UBCmFzc2V0SWRTdHIEB2FkZHJlc3MIBQFpBmNhbGxlcgMJAAACBQphc3NldElkU3RyAgVXQVZFUwkAzAgCCQEMSW50ZWdlckVudHJ5AgINV2F2ZXMgQmFsYW5jZQgJAO8HAQUHYWRkcmVzcwlhdmFpbGFibGUFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgINQXNzZXQgQmFsYW5jZQkA8AcCBQdhZGRyZXNzCQDZBAEFCmFzc2V0SWRTdHIFA25pbAECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXmV/ulK",
    "height": 2640863,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5JjfmAerjbd7xA5nVL9L1qA3h5k7zxdKhnRTngnsD4K7
Next: 65i9ZrN5bhnN63h5N8mpSpGWNrhZeATdyxNkH1cRXBts

Diff: 
Old New Differences
26 26  
27 27  
28 28  @Callable(i)
29 - func transferWavesTest (assetAmount) = [ScriptTransfer(i.caller, assetAmount, unit), IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
29 + func transferWavesTest (assetAmount) = [IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
30 30  
31 31  
32 32  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let arr = [1, 2, 3, 4, 5]
5 5  
6 6  let arr2 = [1, 2]
7 7  
8 8  func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
9 9  
10 10  
11 11  func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
12 12      then 2
13 13      else throw("Error")
14 14  
15 15  
16 16  func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17 17      then wavesBalance(address).available
18 18      else assetBalance(address, fromBase58String(assetIdStr))
19 19  
20 20  
21 21  @Callable(i)
22 22  func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
23 23      then throw("only for internal smart contract invocations")
24 24      else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
25 25  
26 26  
27 27  
28 28  @Callable(i)
29 - func transferWavesTest (assetAmount) = [ScriptTransfer(i.caller, assetAmount, unit), IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
29 + func transferWavesTest (assetAmount) = [IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
30 30  
31 31  
32 32  
33 33  @Callable(i)
34 34  func long2x (assetAmount) = {
35 35      let address = toString(i.caller)
36 36      let currentAmount = getBalance("WAVES", i.caller)
37 37      if ((currentAmount > assetAmount))
38 38          then {
39 39              func repeatFunc (accum,next) =             {
40 40                  let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
41 41                  if ((transferResult == transferResult))
42 42                      then {
43 43                          let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
44 44                          if ((supplyResult == supplyResult))
45 45                              then {
46 46                                  let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
47 47                                  if ((borrowResult == borrowResult))
48 48                                      then (accum + next)
49 49                                      else throw("Strict value is not equal to itself.")
50 50                                  }
51 51                              else throw("Strict value is not equal to itself.")
52 52                          }
53 53                      else throw("Strict value is not equal to itself.")
54 54                  }
55 55  
56 56              let array = [assetAmount, assetAmount]
57 57              let res = {
58 58                  let $l = array
59 59                  let $s = size($l)
60 60                  let $acc0 = 0
61 61                  func $f0_1 ($a,$i) =                 if (($i >= $s))
62 62                      then $a
63 63                      else repeatFunc($a, $l[$i])
64 64  
65 65                  func $f0_2 ($a,$i) =                 if (($i >= $s))
66 66                      then $a
67 67                      else throw("List size exceeds 2")
68 68  
69 69                  $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
70 70                  }
71 71  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
72 72              }
73 73          else throw("Error!")
74 74      }
75 75  
76 76  
77 77  
78 78  @Callable(i)
79 79  func borrow (assetAmount) = {
80 80      let address = toString(i.caller)
81 81      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
82 82      if ((res == res))
83 83          then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
84 84          else throw("Strict value is not equal to itself.")
85 85      }
86 86  
87 87  
88 88  
89 89  @Callable(i)
90 90  func borrow2 (assetAmount) = {
91 91      let address = toString(i.caller)
92 92      func repeatFunc (accum,next) =     {
93 93          let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
94 94          if ((result == result))
95 95              then (accum + next)
96 96              else throw("Strict value is not equal to itself.")
97 97          }
98 98  
99 99      let array = [assetAmount, assetAmount]
100 100      let res = {
101 101          let $l = array
102 102          let $s = size($l)
103 103          let $acc0 = 0
104 104          func $f0_1 ($a,$i) =         if (($i >= $s))
105 105              then $a
106 106              else repeatFunc($a, $l[$i])
107 107  
108 108          func $f0_2 ($a,$i) =         if (($i >= $s))
109 109              then $a
110 110              else throw("List size exceeds 2")
111 111  
112 112          $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
113 113          }
114 114  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
115 115      }
116 116  
117 117  
118 118  
119 119  @Callable(i)
120 120  func borrow5 (assetIdStr,assetAmount) = {
121 121      let address = toString(i.caller)
122 122      let res = {
123 123          let $l = arr
124 124          let $s = size($l)
125 125          let $acc0 = 0
126 126          func $f0_1 ($a,$i) =         if (($i >= $s))
127 127              then $a
128 128              else sum($a, $l[$i])
129 129  
130 130          func $f0_2 ($a,$i) =         if (($i >= $s))
131 131              then $a
132 132              else throw("List size exceeds 5")
133 133  
134 134          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
135 135          }
136 136      if ((res == res))
137 137          then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
138 138          else throw("Strict value is not equal to itself.")
139 139      }
140 140  
141 141  
142 142  
143 143  @Callable(i)
144 144  func deposit () = {
145 145      let address = toString(i.caller)
146 146      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
147 147      if ((res == res))
148 148          then [IntegerEntry((address + "supply_waves"), 1000000)]
149 149          else throw("Strict value is not equal to itself.")
150 150      }
151 151  
152 152  
153 153  
154 154  @Callable(i)
155 155  func withdraw (assetIdStr,assetAmount) = {
156 156      let address = toString(i.caller)
157 157      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
158 158      if ((res == res))
159 159          then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
160 160          else throw("Strict value is not equal to itself.")
161 161      }
162 162  
163 163  
164 164  
165 165  @Callable(i)
166 166  func checkBalance (assetIdStr) = {
167 167      let address = i.caller
168 168      if ((assetIdStr == "WAVES"))
169 169          then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
170 170          else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
171 171      }
172 172  
173 173  
174 174  @Verifier(tx)
175 175  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
176 176

Old	New		Differences
26	26
27	27
28	28		@Callable(i)
29		-	func transferWavesTest (assetAmount) = [~~ScriptTransfer(i.caller, assetAmount, unit),~~ IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
	29	+	func transferWavesTest (assetAmount) = [IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
30	30
31	31
32	32

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let arr = [1, 2, 3, 4, 5]
5	5
6	6		let arr2 = [1, 2]
7	7
8	8		func sum (a,b) = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", 1000000], nil)
9	9
10	10
11	11		func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
12	12		then 2
13	13		else throw("Error")
14	14
15	15
16	16		func getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
17	17		then wavesBalance(address).available
18	18		else assetBalance(address, fromBase58String(assetIdStr))
19	19
20	20
21	21		@Callable(i)
22	22		func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
23	23		then throw("only for internal smart contract invocations")
24	24		else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
25	25
26	26
27	27
28	28		@Callable(i)
29		-	func transferWavesTest (assetAmount) = [~~ScriptTransfer(i.caller, assetAmount, unit),~~ IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
	29	+	func transferWavesTest (assetAmount) = [IntegerEntry((toString(i.caller) + "_deposited_WAVES"), assetAmount)]
30	30
31	31
32	32
33	33		@Callable(i)
34	34		func long2x (assetAmount) = {
35	35		let address = toString(i.caller)
36	36		let currentAmount = getBalance("WAVES", i.caller)
37	37		if ((currentAmount > assetAmount))
38	38		then {
39	39		func repeatFunc (accum,next) = {
40	40		let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
41	41		if ((transferResult == transferResult))
42	42		then {
43	43		let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
44	44		if ((supplyResult == supplyResult))
45	45		then {
46	46		let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
47	47		if ((borrowResult == borrowResult))
48	48		then (accum + next)
49	49		else throw("Strict value is not equal to itself.")
50	50		}
51	51		else throw("Strict value is not equal to itself.")
52	52		}
53	53		else throw("Strict value is not equal to itself.")
54	54		}
55	55
56	56		let array = [assetAmount, assetAmount]
57	57		let res = {
58	58		let $l = array
59	59		let $s = size($l)
60	60		let $acc0 = 0
61	61		func $f0_1 ($a,$i) = if (($i >= $s))
62	62		then $a
63	63		else repeatFunc($a, $l[$i])
64	64
65	65		func $f0_2 ($a,$i) = if (($i >= $s))
66	66		then $a
67	67		else throw("List size exceeds 2")
68	68
69	69		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
70	70		}
71	71		[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
72	72		}
73	73		else throw("Error!")
74	74		}
75	75
76	76
77	77
78	78		@Callable(i)
79	79		func borrow (assetAmount) = {
80	80		let address = toString(i.caller)
81	81		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
82	82		if ((res == res))
83	83		then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
84	84		else throw("Strict value is not equal to itself.")
85	85		}
86	86
87	87
88	88
89	89		@Callable(i)
90	90		func borrow2 (assetAmount) = {
91	91		let address = toString(i.caller)
92	92		func repeatFunc (accum,next) = {
93	93		let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
94	94		if ((result == result))
95	95		then (accum + next)
96	96		else throw("Strict value is not equal to itself.")
97	97		}
98	98
99	99		let array = [assetAmount, assetAmount]
100	100		let res = {
101	101		let $l = array
102	102		let $s = size($l)
103	103		let $acc0 = 0
104	104		func $f0_1 ($a,$i) = if (($i >= $s))
105	105		then $a
106	106		else repeatFunc($a, $l[$i])
107	107
108	108		func $f0_2 ($a,$i) = if (($i >= $s))
109	109		then $a
110	110		else throw("List size exceeds 2")
111	111
112	112		$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
113	113		}
114	114		[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
115	115		}
116	116
117	117
118	118
119	119		@Callable(i)
120	120		func borrow5 (assetIdStr,assetAmount) = {
121	121		let address = toString(i.caller)
122	122		let res = {
123	123		let $l = arr
124	124		let $s = size($l)
125	125		let $acc0 = 0
126	126		func $f0_1 ($a,$i) = if (($i >= $s))
127	127		then $a
128	128		else sum($a, $l[$i])
129	129
130	130		func $f0_2 ($a,$i) = if (($i >= $s))
131	131		then $a
132	132		else throw("List size exceeds 5")
133	133
134	134		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
135	135		}
136	136		if ((res == res))
137	137		then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
138	138		else throw("Strict value is not equal to itself.")
139	139		}
140	140
141	141
142	142
143	143		@Callable(i)
144	144		func deposit () = {
145	145		let address = toString(i.caller)
146	146		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
147	147		if ((res == res))
148	148		then [IntegerEntry((address + "supply_waves"), 1000000)]
149	149		else throw("Strict value is not equal to itself.")
150	150		}
151	151
152	152
153	153
154	154		@Callable(i)
155	155		func withdraw (assetIdStr,assetAmount) = {
156	156		let address = toString(i.caller)
157	157		let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
158	158		if ((res == res))
159	159		then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
160	160		else throw("Strict value is not equal to itself.")
161	161		}
162	162
163	163
164	164
165	165		@Callable(i)
166	166		func checkBalance (assetIdStr) = {
167	167		let address = i.caller
168	168		if ((assetIdStr == "WAVES"))
169	169		then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
170	170		else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
171	171		}
172	172
173	173
174	174		@Verifier(tx)
175	175		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
176	176

github/deemru/w8io/169f3d6 
50.45 ms ◑