tx · 4V1GuHpGzqn1g4QER36Sezi1sG99Pc3YYHBHpAdKRbjF

3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7:  -0.01200000 Waves

2023.03.21 19:42 [2500020] smart account 3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4V1GuHpGzqn1g4QER36Sezi1sG99Pc3YYHBHpAdKRbjF",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1679416942295,
    "version": 2,
    "chainId": 84,
    "sender": "3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7",
    "senderPublicKey": "CrHxACS7bWTh8cgmgqstvybmgMqR9KtDryGFt5svZhBW",
    "proofs": [
        "64wCUGXu42qtZ9sSUPKzmwDbfBHrK11AX7JJL1KS5jyqC8fnxVKgqYv61Nohup2BxrxnwYtuY32NTJCkeHQSR7Nx"
    ],
    "script": "base64:BgIkCAISBwoFGBgBAQgSBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIGAAIa0pzb25SZXMCB2pzb25SZXMABXF1b3RlCQCwCQEBASIBCW1ha2VGaWVsZAEJbmV4dFZhbHVlCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBXF1b3RlCAUJbmV4dFZhbHVlAl8xBQVxdW90ZQIBOgUFcXVvdGUIBQluZXh0VmFsdWUCXzIFBXF1b3RlAgEsAQ9yZWR1Y2VyTWFrZUpTT04CBWFjY3VtCW5leHRWYWx1ZQkArAICBQVhY2N1bQkBCW1ha2VGaWVsZAEFCW5leHRWYWx1ZQEPaXRlcmF0ZU1ha2VKU09OAwZwYXJhbXMDcmVzBmxlbmd0aAMJAAACBQZsZW5ndGgAAAkAAgECDUVtcHR5ICBwYXJhbXMDCQAAAgUGbGVuZ3RoAAEKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDEJAQUkZjBfMgIJAQUkZjBfMQIFBSRhY2MwAAAAAQMJAAACBQZsZW5ndGgAAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIDCQAAAgUGbGVuZ3RoAAMKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDMJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMDCQAAAgUGbGVuZ3RoAAQKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAMJAAACBQZsZW5ndGgABQoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUDCQAAAgUGbGVuZ3RoAAYKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYDCQAAAgUGbGVuZ3RoAAcKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwMJAAACBQZsZW5ndGgACAoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNyZXMKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBD3JlZHVjZXJNYWtlSlNPTgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgOAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgDCQAAAgUGbGVuZ3RoAAkKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDkJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkDCQAAAgUGbGVuZ3RoAAoKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDcmVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9yZWR1Y2VyTWFrZUpTT04CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAAIBAiVUaGUgbWF4IG51bWJlciBvZiBwYXJhbWV0ZXJzIGV4Y2VlZGVkAQ5nZXRQYXJ0QW5kVGFpbAEDYXJyBANlbDAJAJEDAgUDYXJyAAAEA2VsMQkAkQMCBQNhcnIAAQQDZWwyCQCRAwIFA2FycgACBANlbDMJAJEDAgUDYXJyAAMEA2VsNAkAkQMCBQNhcnIABAQDZWw1CQCRAwIFA2FycgAFBANlbDYJAJEDAgUDYXJyAAYEA2VsNwkAkQMCBQNhcnIABwQDZWw4CQCRAwIFA2FycgAIBANlbDkJAJEDAgUDYXJyAAkEBGFycjAJANEIAgUDYXJyAAAEBGFycjEJANEIAgUEYXJyMAAABARhcnIyCQDRCAIFBGFycjEAAAQEYXJyMwkA0QgCBQRhcnIyAAAEBGFycjQJANEIAgUEYXJyMwAABARhcnI1CQDRCAIFBGFycjQAAAQEYXJyNgkA0QgCBQRhcnI1AAAEBGFycjcJANEIAgUEYXJyNgAABARhcnI4CQDRCAIFBGFycjcAAAQEYXJyOQkA0QgCBQRhcnI4AAAJAJQKAgkAzAgCBQNlbDAJAMwIAgUDZWwxCQDMCAIFA2VsMgkAzAgCBQNlbDMJAMwIAgUDZWw0CQDMCAIFA2VsNQkAzAgCBQNlbDYJAMwIAgUDZWw3CQDMCAIFA2VsOAkAzAgCBQNlbDkFA25pbAUEYXJyOQEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQlwcmVwYXJlXzECA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAFA25pbAEJcHJlcGFyZV8yAgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEFA25pbAEJcHJlcGFyZV8zAgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgUDbmlsAQlwcmVwYXJlXzQCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMFA25pbAEJcHJlcGFyZV81AgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgkAzAgCCQCUCgIJAJEDAgUDYXJyAAMJAJEDAgUEYXJyMgADCQDMCAIJAJQKAgkAkQMCBQNhcnIABAkAkQMCBQRhcnIyAAQFA25pbAEJcHJlcGFyZV82AgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgkAzAgCCQCUCgIJAJEDAgUDYXJyAAMJAJEDAgUEYXJyMgADCQDMCAIJAJQKAgkAkQMCBQNhcnIABAkAkQMCBQRhcnIyAAQJAMwIAgkAlAoCCQCRAwIFA2FycgAFCQCRAwIFBGFycjIABQUDbmlsAQlwcmVwYXJlXzcCA2FycgRhcnIyCQDMCAIJAJQKAgkAkQMCBQNhcnIAAAkAkQMCBQRhcnIyAAAJAMwIAgkAlAoCCQCRAwIFA2FycgABCQCRAwIFBGFycjIAAQkAzAgCCQCUCgIJAJEDAgUDYXJyAAIJAJEDAgUEYXJyMgACCQDMCAIJAJQKAgkAkQMCBQNhcnIAAwkAkQMCBQRhcnIyAAMJAMwIAgkAlAoCCQCRAwIFA2FycgAECQCRAwIFBGFycjIABAkAzAgCCQCUCgIJAJEDAgUDYXJyAAUJAJEDAgUEYXJyMgAFCQDMCAIJAJQKAgkAkQMCBQNhcnIABgkAkQMCBQRhcnIyAAYFA25pbAEJcHJlcGFyZV84AgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgkAzAgCCQCUCgIJAJEDAgUDYXJyAAMJAJEDAgUEYXJyMgADCQDMCAIJAJQKAgkAkQMCBQNhcnIABAkAkQMCBQRhcnIyAAQJAMwIAgkAlAoCCQCRAwIFA2FycgAFCQCRAwIFBGFycjIABQkAzAgCCQCUCgIJAJEDAgUDYXJyAAYJAJEDAgUEYXJyMgAGCQDMCAIJAJQKAgkAkQMCBQNhcnIABwkAkQMCBQRhcnIyAAcFA25pbAEJcHJlcGFyZV85AgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgkAzAgCCQCUCgIJAJEDAgUDYXJyAAMJAJEDAgUEYXJyMgADCQDMCAIJAJQKAgkAkQMCBQNhcnIABAkAkQMCBQRhcnIyAAQJAMwIAgkAlAoCCQCRAwIFA2FycgAFCQCRAwIFBGFycjIABQkAzAgCCQCUCgIJAJEDAgUDYXJyAAYJAJEDAgUEYXJyMgAGCQDMCAIJAJQKAgkAkQMCBQNhcnIABwkAkQMCBQRhcnIyAAcJAMwIAgkAlAoCCQCRAwIFA2FycgAICQCRAwIFBGFycjIACAUDbmlsAQpwcmVwYXJlXzEwAgNhcnIEYXJyMgkAzAgCCQCUCgIJAJEDAgUDYXJyAAAJAJEDAgUEYXJyMgAACQDMCAIJAJQKAgkAkQMCBQNhcnIAAQkAkQMCBQRhcnIyAAEJAMwIAgkAlAoCCQCRAwIFA2FycgACCQCRAwIFBGFycjIAAgkAzAgCCQCUCgIJAJEDAgUDYXJyAAMJAJEDAgUEYXJyMgADCQDMCAIJAJQKAgkAkQMCBQNhcnIABAkAkQMCBQRhcnIyAAQJAMwIAgkAlAoCCQCRAwIFA2FycgAFCQCRAwIFBGFycjIABQkAzAgCCQCUCgIJAJEDAgUDYXJyAAYJAJEDAgUEYXJyMgAGCQDMCAIJAJQKAgkAkQMCBQNhcnIABwkAkQMCBQRhcnIyAAcJAMwIAgkAlAoCCQCRAwIFA2FycgAICQCRAwIFBGFycjIACAkAzAgCCQCUCgIJAJEDAgUDYXJyAAkJAJEDAgUEYXJyMgAJBQNuaWwBDXByZXBhcmVQYXJhbXMDEmN1cnJlbnRBcnJQYXJ0S2V5cxRjdXJyZW50QXJyUGFydFZhbHVlcwZsZW5ndGgDCQAAAgUGbGVuZ3RoAAAJAAIBAg1FbXB0eSAgcGFyYW1zAwkAAAIFBmxlbmd0aAABCQEJcHJlcGFyZV8xAgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgAAgkBCXByZXBhcmVfMgIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAMJAQlwcmVwYXJlXzMCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAECQEJcHJlcGFyZV80AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgABQkBCXByZXBhcmVfNQIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAYJAQlwcmVwYXJlXzYCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAHCQEJcHJlcGFyZV83AgUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwMJAAACBQZsZW5ndGgACAkBCXByZXBhcmVfOAIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMDCQAAAgUGbGVuZ3RoAAkJAQlwcmVwYXJlXzkCBRJjdXJyZW50QXJyUGFydEtleXMFFGN1cnJlbnRBcnJQYXJ0VmFsdWVzAwkAAAIFBmxlbmd0aAAKCQEKcHJlcGFyZV8xMAIFEmN1cnJlbnRBcnJQYXJ0S2V5cwUUY3VycmVudEFyclBhcnRWYWx1ZXMJAAIBAiFNYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBFWdldFN0YXJ0QW5kRW5kSW5kZXhlcwIEanNvbgNrZXkEBmtleUxlbgkAsQIBBQNrZXkECnN0YXJ0SW5kZXgJAQV2YWx1ZQEJALMJAgUEanNvbgUDa2V5BAhlbmRJbmRleAkBC3ZhbHVlT3JFbHNlAgkAtAkDBQRqc29uAgEsBQpzdGFydEluZGV4CQEFdmFsdWUBCQC0CQMFBGpzb24CAX0FCnN0YXJ0SW5kZXgJAJUKAwUGa2V5TGVuBQpzdGFydEluZGV4BQhlbmRJbmRleAEWcmVkdWNlckZpbmRPYmpjZXRCeUtleQIFYWNjdW0EbmV4dAQLJHQwNjQ2NDY3ODYFBWFjY3VtBANrZXkIBQskdDA2NDY0Njc4NgJfMQQHbGV2ZWxPbggFCyR0MDY0NjQ2Nzg2Al8yBA5jdXJyZW50TGV2ZWxPbggFCyR0MDY0NjQ2Nzg2Al8zBApzdGFydEluZGV4CAULJHQwNjQ2NDY3ODYCXzQECGVuZEluZGV4CAULJHQwNjQ2NDY3ODYCXzUEDGN1cnJlbnRJbmRleAgFCyR0MDY0NjQ2Nzg2Al82BANlbmQIBQskdDA2NDY0Njc4NgJfNwMJAQEhAQUDZW5kBAxrZXlWYWx1ZUxpc3QJALUJAgUEbmV4dAIBOgQObGVmdEJyYWNlQ291bnQJAGUCCQCQAwEJALUJAgUEbmV4dAIBewABBA9yaWdodEJyYWNlQ291bnQJAGUCCQCQAwEJALUJAgUEbmV4dAIBfQABBBBuZXh0Q3VycmVudENvdW50CQBlAgUObGVmdEJyYWNlQ291bnQFD3JpZ2h0QnJhY2VDb3VudAQLJHQwNzAzOTcyMzkDAwkAAAIFB2xldmVsT24FDmN1cnJlbnRMZXZlbE9uCQAAAgkAkQMCBQxrZXlWYWx1ZUxpc3QAAAUDa2V5BwkAlAoCBQxjdXJyZW50SW5kZXgGCQCUCgIAAAcEEWZvdW5kZWRTdGFydEluZGV4CAULJHQwNzAzOTcyMzkCXzEEDGZvdW5kZWRTdGFydAgFCyR0MDcwMzk3MjM5Al8yBAskdDA3MjQ5NzQ0NQMDCQAAAgUHbGV2ZWxPbgUOY3VycmVudExldmVsT24JAAACCQCRAwIFDGtleVZhbHVlTGlzdAAABQNrZXkHCQCUCgIFDGN1cnJlbnRJbmRleAYJAJQKAgAABwQPZm91bmRlZEVuZEluZGV4CAULJHQwNzI0OTc0NDUCXzEECmZvdW5kZWRFbmQIBQskdDA3MjQ5NzQ0NQJfMgkAmQoHBQNrZXkFB2xldmVsT24JAGQCBQ5jdXJyZW50TGV2ZWxPbgUQbmV4dEN1cnJlbnRDb3VudAMFDGZvdW5kZWRTdGFydAURZm91bmRlZFN0YXJ0SW5kZXgFCnN0YXJ0SW5kZXgDBQpmb3VuZGVkRW5kBQ9mb3VuZGVkRW5kSW5kZXgFCGVuZEluZGV4CQBkAgUMY3VycmVudEluZGV4AAEDBQpmb3VuZGVkRW5kBQpmb3VuZGVkRW5kBQNlbmQFBWFjY3VtARFyZWR1Y2VyQ29uY2F0TGlzdAIFYWNjdW0EbmV4dAQLJHQwNzg5MTc5NTIFBWFjY3VtBAZyZXN1bHQIBQskdDA3ODkxNzk1MgJfMQQMY3VycmVudEluZGV4CAULJHQwNzg5MTc5NTICXzIECnN0YXJ0SW5kZXgIBQskdDA3ODkxNzk1MgJfMwQIZW5kSW5kZXgIBQskdDA3ODkxNzk1MgJfNAQDZW5kCAULJHQwNzg5MTc5NTICXzUDCQEBIQEFA2VuZAQJbmV3UmVzdWx0AwMJAGcCBQxjdXJyZW50SW5kZXgFCnN0YXJ0SW5kZXgJAGcCBQhlbmRJbmRleAUMY3VycmVudEluZGV4BwkArAICCQCsAgIFBnJlc3VsdAIBLAUEbmV4dAUGcmVzdWx0BAZuZXdFbmQJAGYCBQxjdXJyZW50SW5kZXgFCGVuZEluZGV4CQCXCgUFCW5ld1Jlc3VsdAkAZAIFDGN1cnJlbnRJbmRleAABBQpzdGFydEluZGV4BQhlbmRJbmRleAUGbmV3RW5kBQVhY2N1bQERcmVkdWNlclRha2VPYmplY3QCBWFjY3VtBG5leHQECyR0MDgzOTA4NDUwBQVhY2N1bQQGcmVzdWx0CAULJHQwODM5MDg0NTACXzEECWxlZnRDb3VudAgFCyR0MDgzOTA4NDUwAl8yBApyaWdodENvdW50CAULJHQwODM5MDg0NTACXzMEAWkIBQskdDA4MzkwODQ1MAJfNAQGaUNvdW50CAULJHQwODM5MDg0NTACXzUEA2VuZAgFCyR0MDgzOTA4NDUwAl82AwMJAQEhAQUDZW5kBgkAZgIFBmlDb3VudAUBaQQLJHQwODQ4ODkyNDUDCQEIY29udGFpbnMCBQRuZXh0AgF7BA5fbmV4dExlZnRDb3VudAkAZQIJAJADAQkAtQkCBQRuZXh0AgF7AAEJAJQKAgUOX25leHRMZWZ0Q291bnQAAAMJAQhjb250YWlucwIFBG5leHQCAX0ED19uZXh0UmlnaHRDb3VudAkAZQIJAJADAQkAtQkCBQRuZXh0AgF9AAEJAJQKAgAABQ9fbmV4dFJpZ2h0Q291bnQJAJQKAgAAAAAEDW5leHRMZWZ0Q291bnQIBQskdDA4NDg4OTI0NQJfMQQObmV4dFJpZ2h0Q291bnQIBQskdDA4NDg4OTI0NQJfMgQPY3VyZW50TGVmdENvdW50CQBkAgUJbGVmdENvdW50BQ1uZXh0TGVmdENvdW50BBFjdXJyZW50UmlnaHRDb3VudAkAZAIFCnJpZ2h0Q291bnQFDm5leHRSaWdodENvdW50AwkAAAIFD2N1cmVudExlZnRDb3VudAURY3VycmVudFJpZ2h0Q291bnQJAJgKBgUGcmVzdWx0BQ9jdXJlbnRMZWZ0Q291bnQFEWN1cnJlbnRSaWdodENvdW50CQBkAgUBaQABBQZpQ291bnQGCQCYCgYJAKwCAgkArAICBQZyZXN1bHQCASwFBG5leHQFD2N1cmVudExlZnRDb3VudAURY3VycmVudFJpZ2h0Q291bnQJAGQCBQFpAAEFBmlDb3VudAcFBWFjY3VtARFyZWFkQnlLZXlJbnRlcm5hbAIEanNvbgNrZXkECyR0MDk3Nzk5ODk1CQEVZ2V0U3RhcnRBbmRFbmRJbmRleGVzAgUEanNvbgUDa2V5BAZrZXlMZW4IBQskdDA5Nzc5OTg5NQJfMQQKc3RhcnRJbmRleAgFCyR0MDk3Nzk5ODk1Al8yBAhlbmRJbmRleAgFCyR0MDk3Nzk5ODk1Al8zCQCwAgIJAK8CAgUEanNvbgkAZQIFCGVuZEluZGV4AAEJAGQCCQBkAgUKc3RhcnRJbmRleAUGa2V5TGVuAAMBE2RlbGV0ZUJ5S2V5SW50ZXJuYWwCBGpzb24Da2V5BA0kdDAxMDE3NjEwMjQ0CQEVZ2V0U3RhcnRBbmRFbmRJbmRleGVzAgUEanNvbgUDa2V5BAZrZXlMZW4IBQ0kdDAxMDE3NjEwMjQ0Al8xBApzdGFydEluZGV4CAUNJHQwMTAxNzYxMDI0NAJfMgQIZW5kSW5kZXgIBQ0kdDAxMDE3NjEwMjQ0Al8zBAxkZWxldGVkVmFsdWUJALACAgkArwICBQRqc29uCQBlAgUIZW5kSW5kZXgAAQkAZAIJAGQCBQpzdGFydEluZGV4BQZrZXlMZW4AAwQHbmV3SnNvbgMJAAACCQBlAgkAsQIBBQRqc29uBQhlbmRJbmRleAABCQCsAgIJAK8CAgUEanNvbgkAZQIFCnN0YXJ0SW5kZXgAAgkAsAICBQRqc29uBQhlbmRJbmRleAkArAICCQCvAgIFBGpzb24JAGUCBQpzdGFydEluZGV4AAEJALACAgUEanNvbgkAZAIFCGVuZEluZGV4AAEJAJQKAgUMZGVsZXRlZFZhbHVlBQduZXdKc29uBQFpARBtYWtlSlNPTkludGVybmFsBQdhcnJLZXlzCWFyclZhbHVlcw9pdGVyYXRpb25zQ291bnQQbGFzdEl0ZXJhdGlvbkxlbgNyZXMJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIDCQBmAgUPaXRlcmF0aW9uc0NvdW50AAAEDSR0MDExODgyMTIwNDcJAQ5nZXRQYXJ0QW5kVGFpbAEFB2FycktleXMEEmN1cnJlbnRBcnJQYXJ0S2V5cwgFDSR0MDExODgyMTIwNDcCXzEEC2FyclRhaWxLZXlzCAUNJHQwMTE4ODIxMjA0NwJfMgQNJHQwMTIwNTYxMjE3NAkBDmdldFBhcnRBbmRUYWlsAQUJYXJyVmFsdWVzBBRjdXJyZW50QXJyUGFydFZhbHVlcwgFDSR0MDEyMDU2MTIxNzQCXzEEDWFyclRhaWxWYWx1ZXMIBQ0kdDAxMjA1NjEyMTc0Al8yBAZwYXJhbXMJAQ1wcmVwYXJlUGFyYW1zAwUSY3VycmVudEFyclBhcnRLZXlzBRRjdXJyZW50QXJyUGFydFZhbHVlcwAKBAluZXdTdHJpbmcJAQ9pdGVyYXRlTWFrZUpTT04DBQZwYXJhbXMFA3JlcwAKBAZyZXN1bHQJAPwHBAUEdGhpcwIQbWFrZUpTT05JbnRlcm5hbAkAzAgCBQthcnJUYWlsS2V5cwkAzAgCBQ1hcnJUYWlsVmFsdWVzCQDMCAIJAGUCBQ9pdGVyYXRpb25zQ291bnQAAQkAzAgCBRBsYXN0SXRlcmF0aW9uTGVuCQDMCAIFCW5ld1N0cmluZwUDbmlsBQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQJAJQKAgUDbmlsBQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQECIT0CBRBsYXN0SXRlcmF0aW9uTGVuAAAEBnBhcmFtcwkBDXByZXBhcmVQYXJhbXMDBQdhcnJLZXlzBQlhcnJWYWx1ZXMFEGxhc3RJdGVyYXRpb25MZW4ECW5ld1N0cmluZwkBD2l0ZXJhdGVNYWtlSlNPTgMFBnBhcmFtcwUDcmVzBRBsYXN0SXRlcmF0aW9uTGVuCQCUCgIFA25pbAkArAICCQCsAgICAXsJALMCAgUJbmV3U3RyaW5nAAECAX0JAJQKAgUDbmlsCQCsAgIJAKwCAgIBewkAswICBQNyZXMAAQIBfQFpAQhtYWtlSlNPTgIHYXJyS2V5cwlhcnJWYWx1ZXMDCQECIT0CCQCQAwEFB2FycktleXMJAJADAQUJYXJyVmFsdWVzCQACAQIuQXJyYXlLZXlzIGFuZCBBcnJheVZhbHVlcyBsZW5ndGggbXVzdCBiZSBlcXVhbAQDbGVuCQCQAwEFB2FycktleXMED2l0ZXJhdGlvbnNDb3VudAkAawMAAQUDbGVuAAoEEGxhc3RJdGVyYXRpb25MZW4JAGoCBQNsZW4ACgQDcmVzCQD8BwQFBHRoaXMCEG1ha2VKU09OSW50ZXJuYWwJAMwIAgUHYXJyS2V5cwkAzAgCBQlhcnJWYWx1ZXMJAMwIAgUPaXRlcmF0aW9uc0NvdW50CQDMCAIFEGxhc3RJdGVyYXRpb25MZW4JAMwIAgIABQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQlhZGRUb0pTT04DBGpzb24HYXJyS2V5cwlhcnJWYWx1ZXMDCQECIT0CCQCQAwEFB2FycktleXMJAJADAQUJYXJyVmFsdWVzCQACAQIuQXJyYXlLZXlzIGFuZCBBcnJheVZhbHVlcyBsZW5ndGggbXVzdCBiZSBlcXVhbAQDbGVuCQCQAwEFB2FycktleXMED2l0ZXJhdGlvbnNDb3VudAkAawMAAQUDbGVuAAoEEGxhc3RJdGVyYXRpb25MZW4JAGoCBQNsZW4ACgQDcmVzCQD8BwQFBHRoaXMCEG1ha2VKU09OSW50ZXJuYWwJAMwIAgUHYXJyS2V5cwkAzAgCBQlhcnJWYWx1ZXMJAMwIAgUPaXRlcmF0aW9uc0NvdW50CQDMCAIFEGxhc3RJdGVyYXRpb25MZW4JAMwIAgkArAICCQCwAgIJALMCAgUEanNvbgABAAECASwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIFA25pbAUDcmVzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDXJlYWRCeUpTT05LZXkCBGpzb24Da2V5BAp2YWx1ZUJ5S2V5CQERcmVhZEJ5S2V5SW50ZXJuYWwCBQRqc29uBQNrZXkJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgp2YWx1ZUJ5S2V5BQp2YWx1ZUJ5S2V5BQNuaWwFCnZhbHVlQnlLZXkBaQEPZGVsZXRlQnlKU09OS2V5AgRqc29uA2tleQQNJHQwMTY1OTAxNjk0OQkBE2RlbGV0ZUJ5S2V5SW50ZXJuYWwCBQRqc29uBQNrZXkEEWRlbGV0ZWRWYWx1ZUJ5S2V5CAUNJHQwMTY1OTAxNjk0OQJfMQQHbmV3SnNvbggFDSR0MDE2NTkwMTY5NDkCXzIJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgxkZWxldGVkVmFsdWUFEWRlbGV0ZWRWYWx1ZUJ5S2V5CQDMCAIJAQtTdHJpbmdFbnRyeQIFCGtKc29uUmVzBQduZXdKc29uBQNuaWwJAJQKAgURZGVsZXRlZFZhbHVlQnlLZXkFB25ld0pzb24AvS1yXA==",
    "height": 2500020,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: F5UiFbJ6WVVQ7wTjdF7c1uqtRuETWeLnyCgfqwiSdZnn
Next: GVzumzxbxdikRJYB68uyHyN3siPN3dfYnKNS3iugUsdx

Diff: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let collectionName = getStringValue("collectionName")
4+let kJsonRes = "jsonRes"
55 
6-let symbol = getStringValue("symbol")
6+let quote = toUtf8String(base58'b')
77 
8-let description = getStringValue("description")
8+func makeField (nextValue) = (((((((quote + nextValue._1) + quote) + ":") + quote) + nextValue._2) + quote) + ",")
99 
10-let totalAmount = getIntegerValue("totalAmount")
1110 
12-let baseURI = getStringValue("baseURI")
11+func reducerMakeJSON (accum,nextValue) = (accum + makeField(nextValue))
1312 
14-let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
1513 
16-let tokenPayment = getBinaryValue("tokenPayment")
14+func iterateMakeJSON (params,res,length) = if ((length == 0))
15+    then throw("Empty  params")
16+    else if ((length == 1))
17+        then {
18+            let $l = params
19+            let $s = size($l)
20+            let $acc0 = res
21+            func $f0_1 ($a,$i) =             if (($i >= $s))
22+                then $a
23+                else reducerMakeJSON($a, $l[$i])
1724 
18-let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
25+            func $f0_2 ($a,$i) =             if (($i >= $s))
26+                then $a
27+                else throw("List size exceeds 1")
1928 
20-let lendCount = getIntegerValue("lendCount")
29+            $f0_2($f0_1($acc0, 0), 1)
30+            }
31+        else if ((length == 2))
32+            then {
33+                let $l = params
34+                let $s = size($l)
35+                let $acc0 = res
36+                func $f0_1 ($a,$i) =                 if (($i >= $s))
37+                    then $a
38+                    else reducerMakeJSON($a, $l[$i])
2139 
22-let lendCurrentCount = getIntegerValue("lendCurrentCount")
40+                func $f0_2 ($a,$i) =                 if (($i >= $s))
41+                    then $a
42+                    else throw("List size exceeds 2")
2343 
24-func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
44+                $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
45+                }
46+            else if ((length == 3))
47+                then {
48+                    let $l = params
49+                    let $s = size($l)
50+                    let $acc0 = res
51+                    func $f0_1 ($a,$i) =                     if (($i >= $s))
52+                        then $a
53+                        else reducerMakeJSON($a, $l[$i])
54+
55+                    func $f0_2 ($a,$i) =                     if (($i >= $s))
56+                        then $a
57+                        else throw("List size exceeds 3")
58+
59+                    $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
60+                    }
61+                else if ((length == 4))
62+                    then {
63+                        let $l = params
64+                        let $s = size($l)
65+                        let $acc0 = res
66+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
67+                            then $a
68+                            else reducerMakeJSON($a, $l[$i])
69+
70+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
71+                            then $a
72+                            else throw("List size exceeds 4")
73+
74+                        $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
75+                        }
76+                    else if ((length == 5))
77+                        then {
78+                            let $l = params
79+                            let $s = size($l)
80+                            let $acc0 = res
81+                            func $f0_1 ($a,$i) =                             if (($i >= $s))
82+                                then $a
83+                                else reducerMakeJSON($a, $l[$i])
84+
85+                            func $f0_2 ($a,$i) =                             if (($i >= $s))
86+                                then $a
87+                                else throw("List size exceeds 5")
88+
89+                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
90+                            }
91+                        else if ((length == 6))
92+                            then {
93+                                let $l = params
94+                                let $s = size($l)
95+                                let $acc0 = res
96+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
97+                                    then $a
98+                                    else reducerMakeJSON($a, $l[$i])
99+
100+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
101+                                    then $a
102+                                    else throw("List size exceeds 6")
103+
104+                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
105+                                }
106+                            else if ((length == 7))
107+                                then {
108+                                    let $l = params
109+                                    let $s = size($l)
110+                                    let $acc0 = res
111+                                    func $f0_1 ($a,$i) =                                     if (($i >= $s))
112+                                        then $a
113+                                        else reducerMakeJSON($a, $l[$i])
114+
115+                                    func $f0_2 ($a,$i) =                                     if (($i >= $s))
116+                                        then $a
117+                                        else throw("List size exceeds 7")
118+
119+                                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
120+                                    }
121+                                else if ((length == 8))
122+                                    then {
123+                                        let $l = params
124+                                        let $s = size($l)
125+                                        let $acc0 = res
126+                                        func $f0_1 ($a,$i) =                                         if (($i >= $s))
127+                                            then $a
128+                                            else reducerMakeJSON($a, $l[$i])
129+
130+                                        func $f0_2 ($a,$i) =                                         if (($i >= $s))
131+                                            then $a
132+                                            else throw("List size exceeds 8")
133+
134+                                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
135+                                        }
136+                                    else if ((length == 9))
137+                                        then {
138+                                            let $l = params
139+                                            let $s = size($l)
140+                                            let $acc0 = res
141+                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
142+                                                then $a
143+                                                else reducerMakeJSON($a, $l[$i])
144+
145+                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
146+                                                then $a
147+                                                else throw("List size exceeds 9")
148+
149+                                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9)
150+                                            }
151+                                        else if ((length == 10))
152+                                            then {
153+                                                let $l = params
154+                                                let $s = size($l)
155+                                                let $acc0 = res
156+                                                func $f0_1 ($a,$i) =                                                 if (($i >= $s))
157+                                                    then $a
158+                                                    else reducerMakeJSON($a, $l[$i])
159+
160+                                                func $f0_2 ($a,$i) =                                                 if (($i >= $s))
161+                                                    then $a
162+                                                    else throw("List size exceeds 10")
163+
164+                                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
165+                                                }
166+                                            else throw("The max number of parameters exceeded")
167+
168+
169+func getPartAndTail (arr) = {
170+    let el0 = arr[0]
171+    let el1 = arr[1]
172+    let el2 = arr[2]
173+    let el3 = arr[3]
174+    let el4 = arr[4]
175+    let el5 = arr[5]
176+    let el6 = arr[6]
177+    let el7 = arr[7]
178+    let el8 = arr[8]
179+    let el9 = arr[9]
180+    let arr0 = removeByIndex(arr, 0)
181+    let arr1 = removeByIndex(arr0, 0)
182+    let arr2 = removeByIndex(arr1, 0)
183+    let arr3 = removeByIndex(arr2, 0)
184+    let arr4 = removeByIndex(arr3, 0)
185+    let arr5 = removeByIndex(arr4, 0)
186+    let arr6 = removeByIndex(arr5, 0)
187+    let arr7 = removeByIndex(arr6, 0)
188+    let arr8 = removeByIndex(arr7, 0)
189+    let arr9 = removeByIndex(arr8, 0)
190+    $Tuple2([el0, el1, el2, el3, el4, el5, el6, el7, el8, el9], arr9)
191+    }
25192 
26193 
27194 func onlyInternal (caller) = if ((caller == this))
29196     else throw("Only internal call")
30197 
31198 
32-func transferOrNot (to,assetId) = if ((to == this))
33-    then StringEntry("smth", "smth")
34-    else ScriptTransfer(to, 1, assetId)
199+func prepare_1 (arr,arr2) = [$Tuple2(arr[0], arr2[0])]
35200 
36201 
37-func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38-    then unit
39-    else throw("Only asset owner")
202+func prepare_2 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1])]
40203 
41204 
42-func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43-    then unit
44-    else throw("amount less then need")
205+func prepare_3 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2])]
45206 
46207 
47-func getLendJson (lendId) = {
48-    let lendIdString = toString(lendId)
49-    getStringValue(("lend-" + lendIdString))
208+func prepare_4 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3])]
209+
210+
211+func prepare_5 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4])]
212+
213+
214+func prepare_6 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5])]
215+
216+
217+func prepare_7 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6])]
218+
219+
220+func prepare_8 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7])]
221+
222+
223+func prepare_9 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8])]
224+
225+
226+func prepare_10 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8]), $Tuple2(arr[9], arr2[9])]
227+
228+
229+func prepareParams (currentArrPartKeys,currentArrPartValues,length) = if ((length == 0))
230+    then throw("Empty  params")
231+    else if ((length == 1))
232+        then prepare_1(currentArrPartKeys, currentArrPartValues)
233+        else if ((length == 2))
234+            then prepare_2(currentArrPartKeys, currentArrPartValues)
235+            else if ((length == 3))
236+                then prepare_3(currentArrPartKeys, currentArrPartValues)
237+                else if ((length == 4))
238+                    then prepare_4(currentArrPartKeys, currentArrPartValues)
239+                    else if ((length == 5))
240+                        then prepare_5(currentArrPartKeys, currentArrPartValues)
241+                        else if ((length == 6))
242+                            then prepare_6(currentArrPartKeys, currentArrPartValues)
243+                            else if ((length == 7))
244+                                then prepare_7(currentArrPartKeys, currentArrPartValues)
245+                                else if ((length == 8))
246+                                    then prepare_8(currentArrPartKeys, currentArrPartValues)
247+                                    else if ((length == 9))
248+                                        then prepare_9(currentArrPartKeys, currentArrPartValues)
249+                                        else if ((length == 10))
250+                                            then prepare_10(currentArrPartKeys, currentArrPartValues)
251+                                            else throw("Max number of parameters exceeded")
252+
253+
254+func getStartAndEndIndexes (json,key) = {
255+    let keyLen = size(key)
256+    let startIndex = value(indexOf(json, key))
257+    let endIndex = valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex)))
258+    $Tuple3(keyLen, startIndex, endIndex)
50259     }
51260 
52261 
53-func getKey (lendJson,key) = {
54-    let timeUnitSeconds = {
55-        let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
56-        if ($isInstanceOf(@, "String"))
57-            then @
58-            else throw(($getType(@) + " couldn't be cast to String"))
59-        }
60-    if ((timeUnitSeconds == timeUnitSeconds))
61-        then timeUnitSeconds
62-        else throw("Strict value is not equal to itself.")
262+func reducerFindObjcetByKey (accum,next) = {
263+    let $t064646786 = accum
264+    let key = $t064646786._1
265+    let levelOn = $t064646786._2
266+    let currentLevelOn = $t064646786._3
267+    let startIndex = $t064646786._4
268+    let endIndex = $t064646786._5
269+    let currentIndex = $t064646786._6
270+    let end = $t064646786._7
271+    if (!(end))
272+        then {
273+            let keyValueList = split(next, ":")
274+            let leftBraceCount = (size(split(next, "{")) - 1)
275+            let rightBraceCount = (size(split(next, "}")) - 1)
276+            let nextCurrentCount = (leftBraceCount - rightBraceCount)
277+            let $t070397239 = if (if ((levelOn == currentLevelOn))
278+                then (keyValueList[0] == key)
279+                else false)
280+                then $Tuple2(currentIndex, true)
281+                else $Tuple2(0, false)
282+            let foundedStartIndex = $t070397239._1
283+            let foundedStart = $t070397239._2
284+            let $t072497445 = if (if ((levelOn == currentLevelOn))
285+                then (keyValueList[0] == key)
286+                else false)
287+                then $Tuple2(currentIndex, true)
288+                else $Tuple2(0, false)
289+            let foundedEndIndex = $t072497445._1
290+            let foundedEnd = $t072497445._2
291+            $Tuple7(key, levelOn, (currentLevelOn + nextCurrentCount), if (foundedStart)
292+                then foundedStartIndex
293+                else startIndex, if (foundedEnd)
294+                then foundedEndIndex
295+                else endIndex, (currentIndex + 1), if (foundedEnd)
296+                then foundedEnd
297+                else end)
298+            }
299+        else accum
63300     }
64301 
65302 
66-func getRentCount (lendId) = {
67-    let lendIdString = toString(lendId)
68-    getIntegerValue(("lend-rentCount-" + lendIdString))
303+func reducerConcatList (accum,next) = {
304+    let $t078917952 = accum
305+    let result = $t078917952._1
306+    let currentIndex = $t078917952._2
307+    let startIndex = $t078917952._3
308+    let endIndex = $t078917952._4
309+    let end = $t078917952._5
310+    if (!(end))
311+        then {
312+            let newResult = if (if ((currentIndex >= startIndex))
313+                then (endIndex >= currentIndex)
314+                else false)
315+                then ((result + ",") + next)
316+                else result
317+            let newEnd = (currentIndex > endIndex)
318+            $Tuple5(newResult, (currentIndex + 1), startIndex, endIndex, newEnd)
319+            }
320+        else accum
69321     }
70322 
71323 
72-func calcLendCost (lendId,timeUnitSeconds) = {
73-    let lendJson = getLendJson(lendId)
74-    let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
75-    if ((timeUnitPriceString == timeUnitPriceString))
324+func reducerTakeObject (accum,next) = {
325+    let $t083908450 = accum
326+    let result = $t083908450._1
327+    let leftCount = $t083908450._2
328+    let rightCount = $t083908450._3
329+    let i = $t083908450._4
330+    let iCount = $t083908450._5
331+    let end = $t083908450._6
332+    if (if (!(end))
333+        then true
334+        else (iCount > i))
76335         then {
77-            let timeUnitPrice = parseIntValue(timeUnitPriceString)
78-            (timeUnitSeconds * timeUnitPrice)
336+            let $t084889245 = if (contains(next, "{"))
337+                then {
338+                    let _nextLeftCount = (size(split(next, "{")) - 1)
339+                    $Tuple2(_nextLeftCount, 0)
340+                    }
341+                else if (contains(next, "}"))
342+                    then {
343+                        let _nextRightCount = (size(split(next, "}")) - 1)
344+                        $Tuple2(0, _nextRightCount)
345+                        }
346+                    else $Tuple2(0, 0)
347+            let nextLeftCount = $t084889245._1
348+            let nextRightCount = $t084889245._2
349+            let curentLeftCount = (leftCount + nextLeftCount)
350+            let currentRightCount = (rightCount + nextRightCount)
351+            if ((curentLeftCount == currentRightCount))
352+                then $Tuple6(result, curentLeftCount, currentRightCount, (i + 1), iCount, true)
353+                else $Tuple6(((result + ",") + next), curentLeftCount, currentRightCount, (i + 1), iCount, false)
79354             }
80-        else throw("Strict value is not equal to itself.")
355+        else accum
356+    }
357+
358+
359+func readByKeyInternal (json,key) = {
360+    let $t097799895 = getStartAndEndIndexes(json, key)
361+    let keyLen = $t097799895._1
362+    let startIndex = $t097799895._2
363+    let endIndex = $t097799895._3
364+    drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
365+    }
366+
367+
368+func deleteByKeyInternal (json,key) = {
369+    let $t01017610244 = getStartAndEndIndexes(json, key)
370+    let keyLen = $t01017610244._1
371+    let startIndex = $t01017610244._2
372+    let endIndex = $t01017610244._3
373+    let deletedValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
374+    let newJson = if (((size(json) - endIndex) == 1))
375+        then (take(json, (startIndex - 2)) + drop(json, endIndex))
376+        else (take(json, (startIndex - 1)) + drop(json, (endIndex + 1)))
377+    $Tuple2(deletedValue, newJson)
81378     }
82379 
83380 
84381 @Callable(i)
85-func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
382+func makeJSONInternal (arrKeys,arrValues,iterationsCount,lastIterationLen,res) = valueOrElse(onlyInternal(i.caller), if ((iterationsCount > 0))
383+    then {
384+        let $t01188212047 = getPartAndTail(arrKeys)
385+        let currentArrPartKeys = $t01188212047._1
386+        let arrTailKeys = $t01188212047._2
387+        let $t01205612174 = getPartAndTail(arrValues)
388+        let currentArrPartValues = $t01205612174._1
389+        let arrTailValues = $t01205612174._2
390+        let params = prepareParams(currentArrPartKeys, currentArrPartValues, 10)
391+        let newString = iterateMakeJSON(params, res, 10)
392+        let result = invoke(this, "makeJSONInternal", [arrTailKeys, arrTailValues, (iterationsCount - 1), lastIterationLen, newString], nil)
393+        if ((result == result))
394+            then $Tuple2(nil, result)
395+            else throw("Strict value is not equal to itself.")
396+        }
397+    else if ((lastIterationLen != 0))
398+        then {
399+            let params = prepareParams(arrKeys, arrValues, lastIterationLen)
400+            let newString = iterateMakeJSON(params, res, lastIterationLen)
401+            $Tuple2(nil, (("{" + dropRight(newString, 1)) + "}"))
402+            }
403+        else $Tuple2(nil, (("{" + dropRight(res, 1)) + "}")))
86404 
87405 
88406 
89407 @Callable(i)
90-func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
408+func makeJSON (arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
409+    then throw("ArrayKeys and ArrayValues length must be equal")
410+    else {
411+        let len = size(arrKeys)
412+        let iterationsCount = fraction(1, len, 10)
413+        let lastIterationLen = (len % 10)
414+        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, ""], nil)
415+        if ((res == res))
416+            then $Tuple2(nil, res)
417+            else throw("Strict value is not equal to itself.")
418+        }
91419 
92420 
93421 
94422 @Callable(i)
95-func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
423+func addToJSON (json,arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
424+    then throw("ArrayKeys and ArrayValues length must be equal")
425+    else {
426+        let len = size(arrKeys)
427+        let iterationsCount = fraction(1, len, 10)
428+        let lastIterationLen = (len % 10)
429+        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, (drop(dropRight(json, 1), 1) + ",")], nil)
430+        if ((res == res))
431+            then $Tuple2(nil, res)
432+            else throw("Strict value is not equal to itself.")
433+        }
96434 
97435 
98436 
99437 @Callable(i)
100-func init (_collectionName,_symbol,_description,_baseURI) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", _collectionName), StringEntry("symbol", _symbol), StringEntry("description", _description), IntegerEntry("totalAmount", 0), StringEntry("baseURI", _baseURI)])
101-
102-
103-
104-@Callable(i)
105-func setUser (assetId,user,expires) = {
106-    let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
107-    if ((res == res))
108-        then $Tuple2([StringEntry(("userOf-" + assetId), {
109-            let @ = res
110-            if ($isInstanceOf(@, "String"))
111-                then @
112-                else throw(($getType(@) + " couldn't be cast to String"))
113-            })], res)
114-        else throw("Strict value is not equal to itself.")
438+func readByJSONKey (json,key) = {
439+    let valueByKey = readByKeyInternal(json, key)
440+    $Tuple2([StringEntry("valueByKey", valueByKey)], valueByKey)
115441     }
116442 
117443 
118444 
119445 @Callable(i)
120-func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
121-
122-
123-
124-@Callable(i)
125-func mint (to) = {
126-    let tokenId = (totalAmount + 1)
127-    let tokenIdString = toString(tokenId)
128-    let preName = ((symbol + "#") + tokenIdString)
129-    let name = if ((16 >= size(preName)))
130-        then preName
131-        else tokenIdString
132-    let tokenURI = (baseURI + tokenIdString)
133-    let json = {
134-        let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
135-        if ($isInstanceOf(@, "String"))
136-            then @
137-            else throw(($getType(@) + " couldn't be cast to String"))
138-        }
139-    let asset = Issue(name, json, 1, 0, false, unit, height)
140-    let assetId = calculateAssetId(asset)
141-    let toAddress = Address(fromBase58String(to))
142-    let transfer = transferOrNot(toAddress, assetId)
143-    if ((transfer == transfer))
144-        then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
145-        else throw("Strict value is not equal to itself.")
446+func deleteByJSONKey (json,key) = {
447+    let $t01659016949 = deleteByKeyInternal(json, key)
448+    let deletedValueByKey = $t01659016949._1
449+    let newJson = $t01659016949._2
450+    $Tuple2([StringEntry("deletedValue", deletedValueByKey), StringEntry(kJsonRes, newJson)], $Tuple2(deletedValueByKey, newJson))
146451     }
147-
148-
149-
150-@Callable(i)
151-func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
152-    let asset = parseIdtoAsset(assetId)
153-    let tokenURI = {
154-        let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
155-        if ($isInstanceOf(@, "String"))
156-            then @
157-            else throw(($getType(@) + " couldn't be cast to String"))
158-        }
159-    if ((tokenURI == tokenURI))
160-        then {
161-            let lendJson = {
162-                let @ = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", assetId, tokenURI, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0"]], nil)
163-                if ($isInstanceOf(@, "String"))
164-                    then @
165-                    else throw(($getType(@) + " couldn't be cast to String"))
166-                }
167-            if ((lendJson == lendJson))
168-                then {
169-                    let lendIdString = toString(lendCount)
170-[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson)]
171-                    }
172-                else throw("Strict value is not equal to itself.")
173-            }
174-        else throw("Strict value is not equal to itself.")
175-    })
176-
177-
178-
179-@Callable(i)
180-func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
181-    let lendIdString = toString(lendId)
182-    let lendJson = getStringValue(("lend-" + lendIdString))
183-    let rentId = getRentCount(lendId)
184-    let rentIdString = toString(rentId)
185-    let timeUnitSeconds = {
186-        let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
187-        if ($isInstanceOf(@, "String"))
188-            then @
189-            else throw(($getType(@) + " couldn't be cast to String"))
190-        }
191-    if ((timeUnitSeconds == timeUnitSeconds))
192-        then {
193-            let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
194-            if ((timeUnitSecondsInt == timeUnitSecondsInt))
195-                then {
196-                    let rentJson = {
197-                        let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
198-                        if ($isInstanceOf(@, "String"))
199-                            then @
200-                            else throw(($getType(@) + " couldn't be cast to String"))
201-                        }
202-                    if ((rentJson == rentJson))
203-                        then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
204-                        else throw("Strict value is not equal to itself.")
205-                    }
206-                else throw("Strict value is not equal to itself.")
207-            }
208-        else throw("Strict value is not equal to itself.")
209-    })
210452 
211453 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4-let collectionName = getStringValue("collectionName")
4+let kJsonRes = "jsonRes"
55 
6-let symbol = getStringValue("symbol")
6+let quote = toUtf8String(base58'b')
77 
8-let description = getStringValue("description")
8+func makeField (nextValue) = (((((((quote + nextValue._1) + quote) + ":") + quote) + nextValue._2) + quote) + ",")
99 
10-let totalAmount = getIntegerValue("totalAmount")
1110 
12-let baseURI = getStringValue("baseURI")
11+func reducerMakeJSON (accum,nextValue) = (accum + makeField(nextValue))
1312 
14-let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
1513 
16-let tokenPayment = getBinaryValue("tokenPayment")
14+func iterateMakeJSON (params,res,length) = if ((length == 0))
15+    then throw("Empty  params")
16+    else if ((length == 1))
17+        then {
18+            let $l = params
19+            let $s = size($l)
20+            let $acc0 = res
21+            func $f0_1 ($a,$i) =             if (($i >= $s))
22+                then $a
23+                else reducerMakeJSON($a, $l[$i])
1724 
18-let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
25+            func $f0_2 ($a,$i) =             if (($i >= $s))
26+                then $a
27+                else throw("List size exceeds 1")
1928 
20-let lendCount = getIntegerValue("lendCount")
29+            $f0_2($f0_1($acc0, 0), 1)
30+            }
31+        else if ((length == 2))
32+            then {
33+                let $l = params
34+                let $s = size($l)
35+                let $acc0 = res
36+                func $f0_1 ($a,$i) =                 if (($i >= $s))
37+                    then $a
38+                    else reducerMakeJSON($a, $l[$i])
2139 
22-let lendCurrentCount = getIntegerValue("lendCurrentCount")
40+                func $f0_2 ($a,$i) =                 if (($i >= $s))
41+                    then $a
42+                    else throw("List size exceeds 2")
2343 
24-func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
44+                $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
45+                }
46+            else if ((length == 3))
47+                then {
48+                    let $l = params
49+                    let $s = size($l)
50+                    let $acc0 = res
51+                    func $f0_1 ($a,$i) =                     if (($i >= $s))
52+                        then $a
53+                        else reducerMakeJSON($a, $l[$i])
54+
55+                    func $f0_2 ($a,$i) =                     if (($i >= $s))
56+                        then $a
57+                        else throw("List size exceeds 3")
58+
59+                    $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
60+                    }
61+                else if ((length == 4))
62+                    then {
63+                        let $l = params
64+                        let $s = size($l)
65+                        let $acc0 = res
66+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
67+                            then $a
68+                            else reducerMakeJSON($a, $l[$i])
69+
70+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
71+                            then $a
72+                            else throw("List size exceeds 4")
73+
74+                        $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
75+                        }
76+                    else if ((length == 5))
77+                        then {
78+                            let $l = params
79+                            let $s = size($l)
80+                            let $acc0 = res
81+                            func $f0_1 ($a,$i) =                             if (($i >= $s))
82+                                then $a
83+                                else reducerMakeJSON($a, $l[$i])
84+
85+                            func $f0_2 ($a,$i) =                             if (($i >= $s))
86+                                then $a
87+                                else throw("List size exceeds 5")
88+
89+                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
90+                            }
91+                        else if ((length == 6))
92+                            then {
93+                                let $l = params
94+                                let $s = size($l)
95+                                let $acc0 = res
96+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
97+                                    then $a
98+                                    else reducerMakeJSON($a, $l[$i])
99+
100+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
101+                                    then $a
102+                                    else throw("List size exceeds 6")
103+
104+                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
105+                                }
106+                            else if ((length == 7))
107+                                then {
108+                                    let $l = params
109+                                    let $s = size($l)
110+                                    let $acc0 = res
111+                                    func $f0_1 ($a,$i) =                                     if (($i >= $s))
112+                                        then $a
113+                                        else reducerMakeJSON($a, $l[$i])
114+
115+                                    func $f0_2 ($a,$i) =                                     if (($i >= $s))
116+                                        then $a
117+                                        else throw("List size exceeds 7")
118+
119+                                    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
120+                                    }
121+                                else if ((length == 8))
122+                                    then {
123+                                        let $l = params
124+                                        let $s = size($l)
125+                                        let $acc0 = res
126+                                        func $f0_1 ($a,$i) =                                         if (($i >= $s))
127+                                            then $a
128+                                            else reducerMakeJSON($a, $l[$i])
129+
130+                                        func $f0_2 ($a,$i) =                                         if (($i >= $s))
131+                                            then $a
132+                                            else throw("List size exceeds 8")
133+
134+                                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8)
135+                                        }
136+                                    else if ((length == 9))
137+                                        then {
138+                                            let $l = params
139+                                            let $s = size($l)
140+                                            let $acc0 = res
141+                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
142+                                                then $a
143+                                                else reducerMakeJSON($a, $l[$i])
144+
145+                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
146+                                                then $a
147+                                                else throw("List size exceeds 9")
148+
149+                                            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9)
150+                                            }
151+                                        else if ((length == 10))
152+                                            then {
153+                                                let $l = params
154+                                                let $s = size($l)
155+                                                let $acc0 = res
156+                                                func $f0_1 ($a,$i) =                                                 if (($i >= $s))
157+                                                    then $a
158+                                                    else reducerMakeJSON($a, $l[$i])
159+
160+                                                func $f0_2 ($a,$i) =                                                 if (($i >= $s))
161+                                                    then $a
162+                                                    else throw("List size exceeds 10")
163+
164+                                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
165+                                                }
166+                                            else throw("The max number of parameters exceeded")
167+
168+
169+func getPartAndTail (arr) = {
170+    let el0 = arr[0]
171+    let el1 = arr[1]
172+    let el2 = arr[2]
173+    let el3 = arr[3]
174+    let el4 = arr[4]
175+    let el5 = arr[5]
176+    let el6 = arr[6]
177+    let el7 = arr[7]
178+    let el8 = arr[8]
179+    let el9 = arr[9]
180+    let arr0 = removeByIndex(arr, 0)
181+    let arr1 = removeByIndex(arr0, 0)
182+    let arr2 = removeByIndex(arr1, 0)
183+    let arr3 = removeByIndex(arr2, 0)
184+    let arr4 = removeByIndex(arr3, 0)
185+    let arr5 = removeByIndex(arr4, 0)
186+    let arr6 = removeByIndex(arr5, 0)
187+    let arr7 = removeByIndex(arr6, 0)
188+    let arr8 = removeByIndex(arr7, 0)
189+    let arr9 = removeByIndex(arr8, 0)
190+    $Tuple2([el0, el1, el2, el3, el4, el5, el6, el7, el8, el9], arr9)
191+    }
25192 
26193 
27194 func onlyInternal (caller) = if ((caller == this))
28195     then unit
29196     else throw("Only internal call")
30197 
31198 
32-func transferOrNot (to,assetId) = if ((to == this))
33-    then StringEntry("smth", "smth")
34-    else ScriptTransfer(to, 1, assetId)
199+func prepare_1 (arr,arr2) = [$Tuple2(arr[0], arr2[0])]
35200 
36201 
37-func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38-    then unit
39-    else throw("Only asset owner")
202+func prepare_2 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1])]
40203 
41204 
42-func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43-    then unit
44-    else throw("amount less then need")
205+func prepare_3 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2])]
45206 
46207 
47-func getLendJson (lendId) = {
48-    let lendIdString = toString(lendId)
49-    getStringValue(("lend-" + lendIdString))
208+func prepare_4 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3])]
209+
210+
211+func prepare_5 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4])]
212+
213+
214+func prepare_6 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5])]
215+
216+
217+func prepare_7 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6])]
218+
219+
220+func prepare_8 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7])]
221+
222+
223+func prepare_9 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8])]
224+
225+
226+func prepare_10 (arr,arr2) = [$Tuple2(arr[0], arr2[0]), $Tuple2(arr[1], arr2[1]), $Tuple2(arr[2], arr2[2]), $Tuple2(arr[3], arr2[3]), $Tuple2(arr[4], arr2[4]), $Tuple2(arr[5], arr2[5]), $Tuple2(arr[6], arr2[6]), $Tuple2(arr[7], arr2[7]), $Tuple2(arr[8], arr2[8]), $Tuple2(arr[9], arr2[9])]
227+
228+
229+func prepareParams (currentArrPartKeys,currentArrPartValues,length) = if ((length == 0))
230+    then throw("Empty  params")
231+    else if ((length == 1))
232+        then prepare_1(currentArrPartKeys, currentArrPartValues)
233+        else if ((length == 2))
234+            then prepare_2(currentArrPartKeys, currentArrPartValues)
235+            else if ((length == 3))
236+                then prepare_3(currentArrPartKeys, currentArrPartValues)
237+                else if ((length == 4))
238+                    then prepare_4(currentArrPartKeys, currentArrPartValues)
239+                    else if ((length == 5))
240+                        then prepare_5(currentArrPartKeys, currentArrPartValues)
241+                        else if ((length == 6))
242+                            then prepare_6(currentArrPartKeys, currentArrPartValues)
243+                            else if ((length == 7))
244+                                then prepare_7(currentArrPartKeys, currentArrPartValues)
245+                                else if ((length == 8))
246+                                    then prepare_8(currentArrPartKeys, currentArrPartValues)
247+                                    else if ((length == 9))
248+                                        then prepare_9(currentArrPartKeys, currentArrPartValues)
249+                                        else if ((length == 10))
250+                                            then prepare_10(currentArrPartKeys, currentArrPartValues)
251+                                            else throw("Max number of parameters exceeded")
252+
253+
254+func getStartAndEndIndexes (json,key) = {
255+    let keyLen = size(key)
256+    let startIndex = value(indexOf(json, key))
257+    let endIndex = valueOrElse(indexOf(json, ",", startIndex), value(indexOf(json, "}", startIndex)))
258+    $Tuple3(keyLen, startIndex, endIndex)
50259     }
51260 
52261 
53-func getKey (lendJson,key) = {
54-    let timeUnitSeconds = {
55-        let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
56-        if ($isInstanceOf(@, "String"))
57-            then @
58-            else throw(($getType(@) + " couldn't be cast to String"))
59-        }
60-    if ((timeUnitSeconds == timeUnitSeconds))
61-        then timeUnitSeconds
62-        else throw("Strict value is not equal to itself.")
262+func reducerFindObjcetByKey (accum,next) = {
263+    let $t064646786 = accum
264+    let key = $t064646786._1
265+    let levelOn = $t064646786._2
266+    let currentLevelOn = $t064646786._3
267+    let startIndex = $t064646786._4
268+    let endIndex = $t064646786._5
269+    let currentIndex = $t064646786._6
270+    let end = $t064646786._7
271+    if (!(end))
272+        then {
273+            let keyValueList = split(next, ":")
274+            let leftBraceCount = (size(split(next, "{")) - 1)
275+            let rightBraceCount = (size(split(next, "}")) - 1)
276+            let nextCurrentCount = (leftBraceCount - rightBraceCount)
277+            let $t070397239 = if (if ((levelOn == currentLevelOn))
278+                then (keyValueList[0] == key)
279+                else false)
280+                then $Tuple2(currentIndex, true)
281+                else $Tuple2(0, false)
282+            let foundedStartIndex = $t070397239._1
283+            let foundedStart = $t070397239._2
284+            let $t072497445 = if (if ((levelOn == currentLevelOn))
285+                then (keyValueList[0] == key)
286+                else false)
287+                then $Tuple2(currentIndex, true)
288+                else $Tuple2(0, false)
289+            let foundedEndIndex = $t072497445._1
290+            let foundedEnd = $t072497445._2
291+            $Tuple7(key, levelOn, (currentLevelOn + nextCurrentCount), if (foundedStart)
292+                then foundedStartIndex
293+                else startIndex, if (foundedEnd)
294+                then foundedEndIndex
295+                else endIndex, (currentIndex + 1), if (foundedEnd)
296+                then foundedEnd
297+                else end)
298+            }
299+        else accum
63300     }
64301 
65302 
66-func getRentCount (lendId) = {
67-    let lendIdString = toString(lendId)
68-    getIntegerValue(("lend-rentCount-" + lendIdString))
303+func reducerConcatList (accum,next) = {
304+    let $t078917952 = accum
305+    let result = $t078917952._1
306+    let currentIndex = $t078917952._2
307+    let startIndex = $t078917952._3
308+    let endIndex = $t078917952._4
309+    let end = $t078917952._5
310+    if (!(end))
311+        then {
312+            let newResult = if (if ((currentIndex >= startIndex))
313+                then (endIndex >= currentIndex)
314+                else false)
315+                then ((result + ",") + next)
316+                else result
317+            let newEnd = (currentIndex > endIndex)
318+            $Tuple5(newResult, (currentIndex + 1), startIndex, endIndex, newEnd)
319+            }
320+        else accum
69321     }
70322 
71323 
72-func calcLendCost (lendId,timeUnitSeconds) = {
73-    let lendJson = getLendJson(lendId)
74-    let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
75-    if ((timeUnitPriceString == timeUnitPriceString))
324+func reducerTakeObject (accum,next) = {
325+    let $t083908450 = accum
326+    let result = $t083908450._1
327+    let leftCount = $t083908450._2
328+    let rightCount = $t083908450._3
329+    let i = $t083908450._4
330+    let iCount = $t083908450._5
331+    let end = $t083908450._6
332+    if (if (!(end))
333+        then true
334+        else (iCount > i))
76335         then {
77-            let timeUnitPrice = parseIntValue(timeUnitPriceString)
78-            (timeUnitSeconds * timeUnitPrice)
336+            let $t084889245 = if (contains(next, "{"))
337+                then {
338+                    let _nextLeftCount = (size(split(next, "{")) - 1)
339+                    $Tuple2(_nextLeftCount, 0)
340+                    }
341+                else if (contains(next, "}"))
342+                    then {
343+                        let _nextRightCount = (size(split(next, "}")) - 1)
344+                        $Tuple2(0, _nextRightCount)
345+                        }
346+                    else $Tuple2(0, 0)
347+            let nextLeftCount = $t084889245._1
348+            let nextRightCount = $t084889245._2
349+            let curentLeftCount = (leftCount + nextLeftCount)
350+            let currentRightCount = (rightCount + nextRightCount)
351+            if ((curentLeftCount == currentRightCount))
352+                then $Tuple6(result, curentLeftCount, currentRightCount, (i + 1), iCount, true)
353+                else $Tuple6(((result + ",") + next), curentLeftCount, currentRightCount, (i + 1), iCount, false)
79354             }
80-        else throw("Strict value is not equal to itself.")
355+        else accum
356+    }
357+
358+
359+func readByKeyInternal (json,key) = {
360+    let $t097799895 = getStartAndEndIndexes(json, key)
361+    let keyLen = $t097799895._1
362+    let startIndex = $t097799895._2
363+    let endIndex = $t097799895._3
364+    drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
365+    }
366+
367+
368+func deleteByKeyInternal (json,key) = {
369+    let $t01017610244 = getStartAndEndIndexes(json, key)
370+    let keyLen = $t01017610244._1
371+    let startIndex = $t01017610244._2
372+    let endIndex = $t01017610244._3
373+    let deletedValue = drop(take(json, (endIndex - 1)), ((startIndex + keyLen) + 3))
374+    let newJson = if (((size(json) - endIndex) == 1))
375+        then (take(json, (startIndex - 2)) + drop(json, endIndex))
376+        else (take(json, (startIndex - 1)) + drop(json, (endIndex + 1)))
377+    $Tuple2(deletedValue, newJson)
81378     }
82379 
83380 
84381 @Callable(i)
85-func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
382+func makeJSONInternal (arrKeys,arrValues,iterationsCount,lastIterationLen,res) = valueOrElse(onlyInternal(i.caller), if ((iterationsCount > 0))
383+    then {
384+        let $t01188212047 = getPartAndTail(arrKeys)
385+        let currentArrPartKeys = $t01188212047._1
386+        let arrTailKeys = $t01188212047._2
387+        let $t01205612174 = getPartAndTail(arrValues)
388+        let currentArrPartValues = $t01205612174._1
389+        let arrTailValues = $t01205612174._2
390+        let params = prepareParams(currentArrPartKeys, currentArrPartValues, 10)
391+        let newString = iterateMakeJSON(params, res, 10)
392+        let result = invoke(this, "makeJSONInternal", [arrTailKeys, arrTailValues, (iterationsCount - 1), lastIterationLen, newString], nil)
393+        if ((result == result))
394+            then $Tuple2(nil, result)
395+            else throw("Strict value is not equal to itself.")
396+        }
397+    else if ((lastIterationLen != 0))
398+        then {
399+            let params = prepareParams(arrKeys, arrValues, lastIterationLen)
400+            let newString = iterateMakeJSON(params, res, lastIterationLen)
401+            $Tuple2(nil, (("{" + dropRight(newString, 1)) + "}"))
402+            }
403+        else $Tuple2(nil, (("{" + dropRight(res, 1)) + "}")))
86404 
87405 
88406 
89407 @Callable(i)
90-func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
408+func makeJSON (arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
409+    then throw("ArrayKeys and ArrayValues length must be equal")
410+    else {
411+        let len = size(arrKeys)
412+        let iterationsCount = fraction(1, len, 10)
413+        let lastIterationLen = (len % 10)
414+        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, ""], nil)
415+        if ((res == res))
416+            then $Tuple2(nil, res)
417+            else throw("Strict value is not equal to itself.")
418+        }
91419 
92420 
93421 
94422 @Callable(i)
95-func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
423+func addToJSON (json,arrKeys,arrValues) = if ((size(arrKeys) != size(arrValues)))
424+    then throw("ArrayKeys and ArrayValues length must be equal")
425+    else {
426+        let len = size(arrKeys)
427+        let iterationsCount = fraction(1, len, 10)
428+        let lastIterationLen = (len % 10)
429+        let res = invoke(this, "makeJSONInternal", [arrKeys, arrValues, iterationsCount, lastIterationLen, (drop(dropRight(json, 1), 1) + ",")], nil)
430+        if ((res == res))
431+            then $Tuple2(nil, res)
432+            else throw("Strict value is not equal to itself.")
433+        }
96434 
97435 
98436 
99437 @Callable(i)
100-func init (_collectionName,_symbol,_description,_baseURI) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", _collectionName), StringEntry("symbol", _symbol), StringEntry("description", _description), IntegerEntry("totalAmount", 0), StringEntry("baseURI", _baseURI)])
101-
102-
103-
104-@Callable(i)
105-func setUser (assetId,user,expires) = {
106-    let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
107-    if ((res == res))
108-        then $Tuple2([StringEntry(("userOf-" + assetId), {
109-            let @ = res
110-            if ($isInstanceOf(@, "String"))
111-                then @
112-                else throw(($getType(@) + " couldn't be cast to String"))
113-            })], res)
114-        else throw("Strict value is not equal to itself.")
438+func readByJSONKey (json,key) = {
439+    let valueByKey = readByKeyInternal(json, key)
440+    $Tuple2([StringEntry("valueByKey", valueByKey)], valueByKey)
115441     }
116442 
117443 
118444 
119445 @Callable(i)
120-func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
121-
122-
123-
124-@Callable(i)
125-func mint (to) = {
126-    let tokenId = (totalAmount + 1)
127-    let tokenIdString = toString(tokenId)
128-    let preName = ((symbol + "#") + tokenIdString)
129-    let name = if ((16 >= size(preName)))
130-        then preName
131-        else tokenIdString
132-    let tokenURI = (baseURI + tokenIdString)
133-    let json = {
134-        let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
135-        if ($isInstanceOf(@, "String"))
136-            then @
137-            else throw(($getType(@) + " couldn't be cast to String"))
138-        }
139-    let asset = Issue(name, json, 1, 0, false, unit, height)
140-    let assetId = calculateAssetId(asset)
141-    let toAddress = Address(fromBase58String(to))
142-    let transfer = transferOrNot(toAddress, assetId)
143-    if ((transfer == transfer))
144-        then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
145-        else throw("Strict value is not equal to itself.")
446+func deleteByJSONKey (json,key) = {
447+    let $t01659016949 = deleteByKeyInternal(json, key)
448+    let deletedValueByKey = $t01659016949._1
449+    let newJson = $t01659016949._2
450+    $Tuple2([StringEntry("deletedValue", deletedValueByKey), StringEntry(kJsonRes, newJson)], $Tuple2(deletedValueByKey, newJson))
146451     }
147-
148-
149-
150-@Callable(i)
151-func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
152-    let asset = parseIdtoAsset(assetId)
153-    let tokenURI = {
154-        let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
155-        if ($isInstanceOf(@, "String"))
156-            then @
157-            else throw(($getType(@) + " couldn't be cast to String"))
158-        }
159-    if ((tokenURI == tokenURI))
160-        then {
161-            let lendJson = {
162-                let @ = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", assetId, tokenURI, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0"]], nil)
163-                if ($isInstanceOf(@, "String"))
164-                    then @
165-                    else throw(($getType(@) + " couldn't be cast to String"))
166-                }
167-            if ((lendJson == lendJson))
168-                then {
169-                    let lendIdString = toString(lendCount)
170-[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson)]
171-                    }
172-                else throw("Strict value is not equal to itself.")
173-            }
174-        else throw("Strict value is not equal to itself.")
175-    })
176-
177-
178-
179-@Callable(i)
180-func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
181-    let lendIdString = toString(lendId)
182-    let lendJson = getStringValue(("lend-" + lendIdString))
183-    let rentId = getRentCount(lendId)
184-    let rentIdString = toString(rentId)
185-    let timeUnitSeconds = {
186-        let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
187-        if ($isInstanceOf(@, "String"))
188-            then @
189-            else throw(($getType(@) + " couldn't be cast to String"))
190-        }
191-    if ((timeUnitSeconds == timeUnitSeconds))
192-        then {
193-            let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
194-            if ((timeUnitSecondsInt == timeUnitSecondsInt))
195-                then {
196-                    let rentJson = {
197-                        let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
198-                        if ($isInstanceOf(@, "String"))
199-                            then @
200-                            else throw(($getType(@) + " couldn't be cast to String"))
201-                        }
202-                    if ((rentJson == rentJson))
203-                        then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
204-                        else throw("Strict value is not equal to itself.")
205-                    }
206-                else throw("Strict value is not equal to itself.")
207-            }
208-        else throw("Strict value is not equal to itself.")
209-    })
210452 
211453 
github/deemru/w8io/c3f4982 
64.25 ms ◑