w8 · tx · 5xE···QcT

tx · 5xEAtskv8CDXfdxfEUuRqGqLb9f6Vxp9UzugZTn9uQcT

3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq:  -0.01000000 Waves

2023.06.27 15:17 [2641055] smart account 3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5xEAtskv8CDXfdxfEUuRqGqLb9f6Vxp9UzugZTn9uQcT",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1687868275657,
    "version": 2,
    "chainId": 84,
    "sender": "3NBbFNBed9tcU5AmsJAuExWvgJyNmJxqjWq",
    "senderPublicKey": "ERewvWFUFQfR1eCnipNAv9n7SdQhof2ESP6PGVjTueLd",
    "proofs": [
        "LacVkSqm6JhZjEjR8KRemEqCSgNdp9AT6s9zZtVP2jmpypXZiDxNTaNJCYuNFSGzeSsDmKT1tSwUi2todZNMMnW"
    ],
    "script": "base64:BgIuCAISBAoCAQgSABIAEgMKAQESAwoBARIDCgEBEgQKAggBEgASBAoCCAESAwoBCAYAA2FycgkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwABGFycjIJAMwIAgABCQDMCAIAAgUDbmlsAQNzdW0CAWEBYgkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIAwIQ9BQNuaWwFA25pbAEKZ2V0QmFsYW5jZQIKYXNzZXRJZFN0cgdhZGRyZXNzAwkAAAIFCmFzc2V0SWRTdHICBVdBVkVTCAkA7wcBBQdhZGRyZXNzCWF2YWlsYWJsZQkA8AcCBQdhZGRyZXNzCQDZBAEFCmFzc2V0SWRTdHIBD2dldEN1cnJlbnRQcmljZQEKYXNzZXRJZFN0cgMJAAACBQphc3NldElkU3RyAgVXQVZFUwACCQACAQIFRXJyb3IBGXRyYW5zZmVyV2F2ZXNUZXN0SW50ZXJuYWwDCmFzc2V0SWRTdHILYXNzZXRBbW91bnQHYWRkcmVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIFB2FkZHJlc3MCC19kZXBvc2l0ZWRfBQphc3NldElkU3RyBQthc3NldEFtb3VudAUDbmlsCgFpAQ10cmFuc2ZlcldhdmVzAgthc3NldEFtb3VudA1zZW5kZXJBZGRyZXNzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIsb25seSBmb3IgaW50ZXJuYWwgc21hcnQgY29udHJhY3QgaW52b2NhdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEdGhpcwULYXNzZXRBbW91bnQFBHVuaXQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUNc2VuZGVyQWRkcmVzcwIQX2RlcG9zaXRlZF9XQVZFUwULYXNzZXRBbW91bnQFA25pbAFpARF0cmFuc2ZlcldhdmVzVGVzdAADAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABBgkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50AAAJAAIBAhwxIHBheW1lbnQgaGFzIHRvIGJlIGF0dGFjaGVkBAphc3NldElkU3RyAgVXQVZFUwQLYXNzZXRBbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQEZdHJhbnNmZXJXYXZlc1Rlc3RJbnRlcm5hbAMFCmFzc2V0SWRTdHIFC2Fzc2V0QW1vdW50CQClCAEIBQFpBmNhbGxlcgFpAQlsb25nMnhfdjIAAwMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQYJAAACCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAAACQACAQIcMSBwYXltZW50IGhhcyB0byBiZSBhdHRhY2hlZAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIECmFzc2V0SWRTdHICBVdBVkVTBAt3YXZlc0Ftb3VudAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEEmN1cnJlbnRXYXZlc0Ftb3VudAkBCmdldEJhbGFuY2UCBQphc3NldElkU3RyCAUBaQZjYWxsZXIDCQBmAgUSY3VycmVudFdhdmVzQW1vdW50BQt3YXZlc0Ftb3VudAQNZGVwb3NpdFJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFC3dhdmVzQW1vdW50BQNuaWwDCQAAAgUNZGVwb3NpdFJlc3VsdAUNZGVwb3NpdFJlc3VsdAoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEDGJvcnJvd1Jlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIJAGkCCQBoAgULd2F2ZXNBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dSZXN1bHQFDGJvcnJvd1Jlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQt3YXZlc0Ftb3VudAkAzAgCBQt3YXZlc0Ftb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFB2FkZHJlc3MCEF9kZXBvc2l0ZWRfV0FWRVMFC3dhdmVzQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAGgCBQt3YXZlc0Ftb3VudAkBD2dldEN1cnJlbnRQcmljZQECBVdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAaQIJAGgCBQNyZXMJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIRTm90IGVub3VnaCBXQVZFUyEBaQEGbG9uZzJ4AQthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEDWN1cnJlbnRBbW91bnQJAQpnZXRCYWxhbmNlAgIFV0FWRVMIBQFpBmNhbGxlcgMJAGYCBQ1jdXJyZW50QW1vdW50BQthc3NldEFtb3VudAoBCnJlcGVhdEZ1bmMCBWFjY3VtBG5leHQEDnRyYW5zZmVyUmVzdWx0CQD8BwQFBHRoaXMCDXRyYW5zZmVyV2F2ZXMJAMwIAgULYXNzZXRBbW91bnQJAMwIAggFAWkGY2FsbGVyBQNuaWwFA25pbAMJAAACBQ50cmFuc2ZlclJlc3VsdAUOdHJhbnNmZXJSZXN1bHQEDHN1cHBseVJlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGc3VwcGx5BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFBHVuaXQFC2Fzc2V0QW1vdW50BQNuaWwDCQAAAgUMc3VwcGx5UmVzdWx0BQxzdXBwbHlSZXN1bHQEDGJvcnJvd1Jlc3VsdAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBAiMzTjNEblZmZm5VeVp0ejJNUmJrNVU3Z2lOMTEyV2VtcE1OZAIGYm9ycm93CQDMCAICLDI1RkVxRWpSa3FLNnlDa2lUN0x6NlNBWXo3Z1VGQ3R4ZkNDaG5yVkZENUFUCQDMCAIJAGkCCQBoAgULYXNzZXRBbW91bnQJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkBQNuaWwFA25pbAMJAAACBQxib3Jyb3dSZXN1bHQFDGJvcnJvd1Jlc3VsdAkAZAIFBWFjY3VtBQRuZXh0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAVhcnJheQkAzAgCBQthc3NldEFtb3VudAkAzAgCBQthc3NldEFtb3VudAUDbmlsBANyZXMKAAIkbAUFYXJyYXkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnJlcGVhdEZ1bmMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAGgCBQthc3NldEFtb3VudAkBD2dldEN1cnJlbnRQcmljZQECBVdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAaQIJAGgCBQNyZXMJAQ9nZXRDdXJyZW50UHJpY2UBAgVXQVZFUwBkASAP8hwSrOTEPJrsRhqrJaiw7LoHK0bMbYhy8LXikkkBtAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQR0aGlzBQNyZXMFBHVuaXQFA25pbAkAAgECBkVycm9yIQFpAQZib3Jyb3cBC2Fzc2V0QW1vdW50BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYXNzZXRBbW91bnQBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX2JvcnJvd2VkXwIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQFC2Fzc2V0QW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYm9ycm93MgELYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyCgEKcmVwZWF0RnVuYwIFYWNjdW0EbmV4dAQGcmVzdWx0CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZib3Jyb3cJAMwIAgIsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0CQBkAgUFYWNjdW0FBG5leHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EBWFycmF5CQDMCAIFC2Fzc2V0QW1vdW50CQDMCAIFC2Fzc2V0QW1vdW50BQNuaWwEA3JlcwoAAiRsBQVhcnJheQoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKcmVwZWF0RnVuYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfAiwyNUZFcUVqUmtxSzZ5Q2tpVDdMejZTQVl6N2dVRkN0eGZDQ2huclZGRDVBVAULYXNzZXRBbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQNyZXMBIA/yHBKs5MQ8muxGGqslqLDsugcrRsxtiHLwteKSSQG0BQNuaWwBaQEHYm9ycm93NQIKYXNzZXRJZFN0cgthc3NldEFtb3VudAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIEA3JlcwoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUDCQAAAgUDcmVzBQNyZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICBQdhZGRyZXNzAgpfYm9ycm93ZWRfBQphc3NldElkU3RyBQthc3NldEFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2RlcG9zaXQABAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNOM0RuVmZmblV5WnR6Mk1SYms1VTdnaU4xMTJXZW1wTU5kAgZzdXBwbHkFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUEdW5pdADAhD0FA25pbAMJAAACBQNyZXMFA3JlcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQdhZGRyZXNzAgxzdXBwbHlfd2F2ZXMAwIQ9BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEId2l0aGRyYXcCCmFzc2V0SWRTdHILYXNzZXRBbW91bnQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyBANyZXMJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM04zRG5WZmZuVXladHoyTVJiazVVN2dpTjExMldlbXBNTmQCCHdpdGhkcmF3CQDMCAIFCmFzc2V0SWRTdHIJAMwIAgULYXNzZXRBbW91bnQFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUHYWRkcmVzcwIKX3dpdGhkcmV3XwUKYXNzZXRJZFN0cgULYXNzZXRBbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQxjaGVja0JhbGFuY2UBCmFzc2V0SWRTdHIEB2FkZHJlc3MIBQFpBmNhbGxlcgMJAAACBQphc3NldElkU3RyAgVXQVZFUwkAzAgCCQEMSW50ZWdlckVudHJ5AgINV2F2ZXMgQmFsYW5jZQgJAO8HAQUHYWRkcmVzcwlhdmFpbGFibGUFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgINQXNzZXQgQmFsYW5jZQkA8AcCBQdhZGRyZXNzCQDZBAEFCmFzc2V0SWRTdHIFA25pbAECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXkK7gGM",
    "height": 2641055,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EfinvNgqFFbWF93T6Q2TXEhtUtLSjsy27fRV7nHG8TRV
Next: 5d2jckJz4jfg5Vvn1gg8ERTYD7Awt95KB3A8EV6DDUYE

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 getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
12 12      then wavesBalance(address).available
13 13      else assetBalance(address, fromBase58String(assetIdStr))
14 14  
15 15  
16 16  func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
17 17      then 2
18 18      else throw("Error")
19 19  
20 20  
21 21  func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
22 22  
23 23  
24 24  @Callable(i)
25 25  func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
26 26      then throw("only for internal smart contract invocations")
27 27      else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
28 28  
29 29  
30 30  
31 31  @Callable(i)
32 32  func transferWavesTest () = if (if ((size(i.payments) != 1))
33 33      then true
34 34      else (i.payments[0].amount == 0))
35 35      then throw("1 payment has to be attached")
36 36      else {
37 37          let assetIdStr = "WAVES"
38 38          let assetAmount = i.payments[0].amount
39 39          transferWavesTestInternal(assetIdStr, assetAmount, toString(i.caller))
40 40          }
41 41  
42 42  
43 43  
44 44  @Callable(i)
45 45  func long2x_v2 () = if (if ((size(i.payments) != 1))
46 46      then true
47 47      else (i.payments[0].amount == 0))
48 48      then throw("1 payment has to be attached")
49 49      else {
50 50          let address = toString(i.caller)
51 51          let assetIdStr = "WAVES"
52 52          let wavesAmount = i.payments[0].amount
53 53          let currentWavesAmount = getBalance(assetIdStr, i.caller)
54 54          if ((currentWavesAmount > wavesAmount))
55 55              then {
56 56                  let depositResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, wavesAmount)])
57 57                  if ((depositResult == depositResult))
58 58                      then {
59 59                          func repeatFunc (accum,next) =                         {
60 60                              let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((wavesAmount * getCurrentPrice("WAVES")) / 100)], nil)
61 61                              if ((borrowResult == borrowResult))
62 62                                  then (accum + next)
63 63                                  else throw("Strict value is not equal to itself.")
64 64                              }
65 65  
66 66                          let array = [wavesAmount, wavesAmount]
67 67                          let res = {
68 68                              let $l = array
69 69                              let $s = size($l)
70 70                              let $acc0 = 0
71 71                              func $f0_1 ($a,$i) =                             if (($i >= $s))
72 72                                  then $a
73 73                                  else repeatFunc($a, $l[$i])
74 74  
75 75                              func $f0_2 ($a,$i) =                             if (($i >= $s))
76 76                                  then $a
77 77                                  else throw("List size exceeds 2")
78 78  
79 79                              $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
80 80                              }
81 81  [IntegerEntry((address + "_deposited_WAVES"), wavesAmount), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (wavesAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
82 82                          }
83 83                      else throw("Strict value is not equal to itself.")
84 84                  }
85 85              else throw("Not enough WAVES!")
86 86          }
87 87  
88 88  
89 89  
90 90  @Callable(i)
91 91  func long2x (assetAmount) = {
92 92      let address = toString(i.caller)
93 93      let currentAmount = getBalance("WAVES", i.caller)
94 94      if ((currentAmount > assetAmount))
95 95          then {
96 96              func repeatFunc (accum,next) =             {
97 97                  let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
98 98                  if ((transferResult == transferResult))
99 99                      then {
100 100                          let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
101 101                          if ((supplyResult == supplyResult))
102 102                              then {
103 103                                  let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
104 104                                  if ((borrowResult == borrowResult))
105 105                                      then (accum + next)
106 106                                      else throw("Strict value is not equal to itself.")
107 107                                  }
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 array = [assetAmount, assetAmount]
114 114              let res = {
115 115                  let $l = array
116 116                  let $s = size($l)
117 117                  let $acc0 = 0
118 118                  func $f0_1 ($a,$i) =                 if (($i >= $s))
119 119                      then $a
120 120                      else repeatFunc($a, $l[$i])
121 121  
122 122                  func $f0_2 ($a,$i) =                 if (($i >= $s))
123 123                      then $a
124 124                      else throw("List size exceeds 2")
125 125  
126 126                  $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
127 127                  }
128 128  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
129 129              }
130 130          else throw("Error!")
131 131      }
132 132  
133 133  
134 134  
135 135  @Callable(i)
136 136  func borrow (assetAmount) = {
137 137      let address = toString(i.caller)
138 138      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
139 139      if ((res == res))
140 140          then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
141 141          else throw("Strict value is not equal to itself.")
142 142      }
143 143  
144 144  
145 145  
146 146  @Callable(i)
147 147  func borrow2 (assetAmount) = {
148 148      let address = toString(i.caller)
149 149      func repeatFunc (accum,next) =     {
150 150          let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
151 151          if ((result == result))
152 152              then (accum + next)
153 153              else throw("Strict value is not equal to itself.")
154 154          }
155 155  
156 156      let array = [assetAmount, assetAmount]
157 157      let res = {
158 158          let $l = array
159 159          let $s = size($l)
160 160          let $acc0 = 0
161 161          func $f0_1 ($a,$i) =         if (($i >= $s))
162 162              then $a
163 163              else repeatFunc($a, $l[$i])
164 164  
165 165          func $f0_2 ($a,$i) =         if (($i >= $s))
166 166              then $a
167 167              else throw("List size exceeds 2")
168 168  
169 169          $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
170 170          }
171 171  [IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
172 172      }
173 173  
174 174  
175 175  
176 176  @Callable(i)
177 177  func borrow5 (assetIdStr,assetAmount) = {
178 178      let address = toString(i.caller)
179 179      let res = {
180 180          let $l = arr
181 181          let $s = size($l)
182 182          let $acc0 = 0
183 183          func $f0_1 ($a,$i) =         if (($i >= $s))
184 184              then $a
185 185              else sum($a, $l[$i])
186 186  
187 187          func $f0_2 ($a,$i) =         if (($i >= $s))
188 188              then $a
189 189              else throw("List size exceeds 5")
190 190  
191 191          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
192 192          }
193 193      if ((res == res))
194 194          then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
195 195          else throw("Strict value is not equal to itself.")
196 196      }
197 197  
198 198  
199 199  
200 200  @Callable(i)
201 201  func deposit () = {
202 202      let address = toString(i.caller)
203 203      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
204 204      if ((res == res))
205 205          then [IntegerEntry((address + "supply_waves"), 1000000)]
206 206          else throw("Strict value is not equal to itself.")
207 207      }
208 208  
209 209  
210 210  
211 211  @Callable(i)
212 212  func withdraw (assetIdStr,assetAmount) = {
213 213      let address = toString(i.caller)
214 214      let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
215 215      if ((res == res))
216 216          then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
217 217          else throw("Strict value is not equal to itself.")
218 218      }
219 219  
220 220  
221 221  
222 222  @Callable(i)
223 223  func checkBalance (assetIdStr) = {
224 224      let address = i.caller
225 225      if ((assetIdStr == "WAVES"))
226 226          then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
227 227          else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
228 228      }
229 229  
230 230  
231 231  @Verifier(tx)
232 232  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
233 233

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 getBalance (assetIdStr,address) = if ((assetIdStr == "WAVES"))
12	12	then wavesBalance(address).available
13	13	else assetBalance(address, fromBase58String(assetIdStr))
14	14
15	15
16	16	func getCurrentPrice (assetIdStr) = if ((assetIdStr == "WAVES"))
17	17	then 2
18	18	else throw("Error")
19	19
20	20
21	21	func transferWavesTestInternal (assetIdStr,assetAmount,address) = [IntegerEntry(((address + "_deposited_") + assetIdStr), assetAmount)]
22	22
23	23
24	24	@Callable(i)
25	25	func transferWaves (assetAmount,senderAddress) = if ((i.caller != this))
26	26	then throw("only for internal smart contract invocations")
27	27	else [ScriptTransfer(this, assetAmount, unit), IntegerEntry((senderAddress + "_deposited_WAVES"), assetAmount)]
28	28
29	29
30	30
31	31	@Callable(i)
32	32	func transferWavesTest () = if (if ((size(i.payments) != 1))
33	33	then true
34	34	else (i.payments[0].amount == 0))
35	35	then throw("1 payment has to be attached")
36	36	else {
37	37	let assetIdStr = "WAVES"
38	38	let assetAmount = i.payments[0].amount
39	39	transferWavesTestInternal(assetIdStr, assetAmount, toString(i.caller))
40	40	}
41	41
42	42
43	43
44	44	@Callable(i)
45	45	func long2x_v2 () = if (if ((size(i.payments) != 1))
46	46	then true
47	47	else (i.payments[0].amount == 0))
48	48	then throw("1 payment has to be attached")
49	49	else {
50	50	let address = toString(i.caller)
51	51	let assetIdStr = "WAVES"
52	52	let wavesAmount = i.payments[0].amount
53	53	let currentWavesAmount = getBalance(assetIdStr, i.caller)
54	54	if ((currentWavesAmount > wavesAmount))
55	55	then {
56	56	let depositResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, wavesAmount)])
57	57	if ((depositResult == depositResult))
58	58	then {
59	59	func repeatFunc (accum,next) = {
60	60	let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((wavesAmount * getCurrentPrice("WAVES")) / 100)], nil)
61	61	if ((borrowResult == borrowResult))
62	62	then (accum + next)
63	63	else throw("Strict value is not equal to itself.")
64	64	}
65	65
66	66	let array = [wavesAmount, wavesAmount]
67	67	let res = {
68	68	let $l = array
69	69	let $s = size($l)
70	70	let $acc0 = 0
71	71	func $f0_1 ($a,$i) = if (($i >= $s))
72	72	then $a
73	73	else repeatFunc($a, $l[$i])
74	74
75	75	func $f0_2 ($a,$i) = if (($i >= $s))
76	76	then $a
77	77	else throw("List size exceeds 2")
78	78
79	79	$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
80	80	}
81	81	[IntegerEntry((address + "_deposited_WAVES"), wavesAmount), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (wavesAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
82	82	}
83	83	else throw("Strict value is not equal to itself.")
84	84	}
85	85	else throw("Not enough WAVES!")
86	86	}
87	87
88	88
89	89
90	90	@Callable(i)
91	91	func long2x (assetAmount) = {
92	92	let address = toString(i.caller)
93	93	let currentAmount = getBalance("WAVES", i.caller)
94	94	if ((currentAmount > assetAmount))
95	95	then {
96	96	func repeatFunc (accum,next) = {
97	97	let transferResult = invoke(this, "transferWaves", [assetAmount, i.caller], nil)
98	98	if ((transferResult == transferResult))
99	99	then {
100	100	let supplyResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, assetAmount)])
101	101	if ((supplyResult == supplyResult))
102	102	then {
103	103	let borrowResult = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", ((assetAmount * getCurrentPrice("WAVES")) / 100)], nil)
104	104	if ((borrowResult == borrowResult))
105	105	then (accum + next)
106	106	else throw("Strict value is not equal to itself.")
107	107	}
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 array = [assetAmount, assetAmount]
114	114	let res = {
115	115	let $l = array
116	116	let $s = size($l)
117	117	let $acc0 = 0
118	118	func $f0_1 ($a,$i) = if (($i >= $s))
119	119	then $a
120	120	else repeatFunc($a, $l[$i])
121	121
122	122	func $f0_2 ($a,$i) = if (($i >= $s))
123	123	then $a
124	124	else throw("List size exceeds 2")
125	125
126	126	$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
127	127	}
128	128	[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), (assetAmount * getCurrentPrice("WAVES"))), ScriptTransfer(i.caller, ((res * getCurrentPrice("WAVES")) / 100), base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), ScriptTransfer(this, res, unit)]
129	129	}
130	130	else throw("Error!")
131	131	}
132	132
133	133
134	134
135	135	@Callable(i)
136	136	func borrow (assetAmount) = {
137	137	let address = toString(i.caller)
138	138	let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
139	139	if ((res == res))
140	140	then [ScriptTransfer(i.caller, assetAmount, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT'), IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount)]
141	141	else throw("Strict value is not equal to itself.")
142	142	}
143	143
144	144
145	145
146	146	@Callable(i)
147	147	func borrow2 (assetAmount) = {
148	148	let address = toString(i.caller)
149	149	func repeatFunc (accum,next) = {
150	150	let result = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "borrow", ["25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT", assetAmount], nil)
151	151	if ((result == result))
152	152	then (accum + next)
153	153	else throw("Strict value is not equal to itself.")
154	154	}
155	155
156	156	let array = [assetAmount, assetAmount]
157	157	let res = {
158	158	let $l = array
159	159	let $s = size($l)
160	160	let $acc0 = 0
161	161	func $f0_1 ($a,$i) = if (($i >= $s))
162	162	then $a
163	163	else repeatFunc($a, $l[$i])
164	164
165	165	func $f0_2 ($a,$i) = if (($i >= $s))
166	166	then $a
167	167	else throw("List size exceeds 2")
168	168
169	169	$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
170	170	}
171	171	[IntegerEntry(((address + "_borrowed_") + "25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), assetAmount), ScriptTransfer(i.caller, res, base58'25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT')]
172	172	}
173	173
174	174
175	175
176	176	@Callable(i)
177	177	func borrow5 (assetIdStr,assetAmount) = {
178	178	let address = toString(i.caller)
179	179	let res = {
180	180	let $l = arr
181	181	let $s = size($l)
182	182	let $acc0 = 0
183	183	func $f0_1 ($a,$i) = if (($i >= $s))
184	184	then $a
185	185	else sum($a, $l[$i])
186	186
187	187	func $f0_2 ($a,$i) = if (($i >= $s))
188	188	then $a
189	189	else throw("List size exceeds 5")
190	190
191	191	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
192	192	}
193	193	if ((res == res))
194	194	then [IntegerEntry(((address + "_borrowed_") + assetIdStr), assetAmount)]
195	195	else throw("Strict value is not equal to itself.")
196	196	}
197	197
198	198
199	199
200	200	@Callable(i)
201	201	func deposit () = {
202	202	let address = toString(i.caller)
203	203	let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "supply", nil, [AttachedPayment(unit, 1000000)])
204	204	if ((res == res))
205	205	then [IntegerEntry((address + "supply_waves"), 1000000)]
206	206	else throw("Strict value is not equal to itself.")
207	207	}
208	208
209	209
210	210
211	211	@Callable(i)
212	212	func withdraw (assetIdStr,assetAmount) = {
213	213	let address = toString(i.caller)
214	214	let res = invoke(addressFromStringValue("3N3DnVffnUyZtz2MRbk5U7giN112WempMNd"), "withdraw", [assetIdStr, assetAmount], nil)
215	215	if ((res == res))
216	216	then [IntegerEntry(((address + "_withdrew_") + assetIdStr), assetAmount)]
217	217	else throw("Strict value is not equal to itself.")
218	218	}
219	219
220	220
221	221
222	222	@Callable(i)
223	223	func checkBalance (assetIdStr) = {
224	224	let address = i.caller
225	225	if ((assetIdStr == "WAVES"))
226	226	then [IntegerEntry("Waves Balance", wavesBalance(address).available)]
227	227	else [IntegerEntry("Asset Balance", assetBalance(address, fromBase58String(assetIdStr)))]
228	228	}
229	229
230	230
231	231	@Verifier(tx)
232	232	func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
233	233

github/deemru/w8io/169f3d6 
35.77 ms ◑