tx · 5gTXAN5D6yz9K2MDuva43qqccfU2eKUVWPTBVzLQA6BG

3N4XDqsd3iMrXb6kS7R7Wwd4azMsqUXMvfe:  -0.03800000 Waves

2022.12.01 20:56 [2341600] smart account 3N4XDqsd3iMrXb6kS7R7Wwd4azMsqUXMvfe > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5gTXAN5D6yz9K2MDuva43qqccfU2eKUVWPTBVzLQA6BG",
    "fee": 3800000,
    "feeAssetId": null,
    "timestamp": 1669917400222,
    "version": 2,
    "chainId": 84,
    "sender": "3N4XDqsd3iMrXb6kS7R7Wwd4azMsqUXMvfe",
    "senderPublicKey": "C2mzHuEYRUgN9aEFza8tUYr6jfSWEgS6WvPmA54fejJk",
    "proofs": [
        "4yahwsbkCuELJ4yyosjnGCM7DZ9oEQ3nmBRZG2ePCJZVE9ptXLsFigXBwY5RLapQ66ShWEY46gPQaFf7kE3tSzTG"
    ],
    "script": "base64:BgJhCAISAwoBCBIDCgEIEgMKAQgSBAoCGBESAwoBCBIFCgMIAQESBQoDAQgREgUKAwEIERIGCgQBCAEREgMKAQgSABIXChUICAgBAQEBGAgICAgICAgYGBgYGBgSBAoCCAgSAA8AFG5mdF9jcmVhdGlvbl9hZGRyZXNzCQEHQWRkcmVzcwEBGgFU+NRXhjw+So4GTxfJhBBro3CmzrXdqrQsABVwcmljZV9pbmNyZWFzZV9wZXJpb2QACgAPbWludF9jb2xsZWN0aW9uAhJDbGVmIGdlbmVzaXMgc29uZ3MAEG1pbnRfZGVzY3JpcHRpb24CZEdlbmVzaXMgQ2xlZiBzb25nLiBUaGlzIG1lbG9keSBpcyBjcmFmdGVkIHRvIGJlY29tZSB5b3VyIGVsZWN0cm9uaWMgamFtLiBVc2UgaXQgb24gY2xlZi5vbmUg8J+SmvCfpI0AEWh5YnJpZF9jb2xsZWN0aW9uAgpDbGVmIG1peGVzABJoeWJyaWRfZGVzY3JpcHRpb24CV0NsZWYgbWl4LiBUaGlzIG1lbG9keSB3YXMgY3JlYXRlZCBieSBhbiBhbGdvcml0aG0uIEVuam95IHRoaXMgamFtIG9yIHVzZSBpdCBvbiBjbGVmLm9uZQAKaW5kaWNlc18yMAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQCQDMCAIAEQkAzAgCABIJAMwIAgATBQNuaWwBBnRvX2tleQEBbgkA2AQBCQCaAwEFAW4BDHVuaXF1ZV9ieXRlcwEBaQkAywECCQDLAQIJAMsBAgkAywECCAUBaQ10cmFuc2FjdGlvbklkCAUBaQ9jYWxsZXJQdWJsaWNLZXkIBQlsYXN0QmxvY2sTZ2VuZXJhdGlvblNpZ25hdHVyZQkAmgMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAmgMBCAUJbGFzdEJsb2NrBmhlaWdodAELcmFuZG9tX3VpbnQCBWJ5dGVzBW5vbmNlBAFuCQCxCQEJANQWAQkAywECBQVieXRlcwkAmgMBBQVub25jZQMJAGYCAAAFAW4JAQEtAQUBbgUBbgEIcGlja19vbmUEBWtleV8wBWtleV8xCHJhbmRfaW50CWJpdF9wb3dlcgMJAAACCQBqAgkAaQIFCHJhbmRfaW50BQliaXRfcG93ZXIAAgAABQVrZXlfMAUFa2V5XzEBF2h5YnJpZF9jYWxjdWxhdGVfY2hhbmdlAwFpBXRva2VuBmFtb3VudAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQD///////////8BBAFwCQCRAwIIBQFpCHBheW1lbnRzAAAEB3BfdG9rZW4EByRtYXRjaDAIBQFwB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCaWQFByRtYXRjaDAJANgEAQUCaWQCAAMJAQIhPQIFB3BfdG9rZW4FBXRva2VuAP///////////wEJAGUCCAUBcAZhbW91bnQFBmFtb3VudAEObWFrZV9oeWJyaWRfdHgDAWkGc29uZ18wBnNvbmdfMQQBbgQHJG1hdGNoMAkAnwgBAgVjb3VudAMJAAECBQckbWF0Y2gwAgNJbnQEAWoFByRtYXRjaDAFAWoAAAQKbmFtZV9zaG9ydAkArwICCQCsAgICBUNsZWYgCQCkAwEFAW4AEAQLZGVzY3JpcHRpb24FEmh5YnJpZF9kZXNjcmlwdGlvbgQKY29sbGVjdGlvbgURaHlicmlkX2NvbGxlY3Rpb24EAmlkBAckbWF0Y2gwCQD8BwQFFG5mdF9jcmVhdGlvbl9hZGRyZXNzAgljcmVhdGVORlQJAMwIAgUKbmFtZV9zaG9ydAkAzAgCBQtkZXNjcmlwdGlvbgkAzAgCCQERQGV4dHJOYXRpdmUoMTA1OCkBAhFtYXJrZXRfaW1hZ2VfbGluawkAzAgCBQpjb2xsZWN0aW9uBQNuaWwFA25pbAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAhNORlQgY3JlYXRpb24gZmFpbGVkAwkAAAIFAmlkBQJpZAQEaWRfYgkA2QQBBQJpZAQDa2V5CQEGdG9fa2V5AQUBbgQFYnl0ZXMJAQx1bmlxdWVfYnl0ZXMBBQFpBAZyYW5kXzAJAQtyYW5kb21fdWludAIFBWJ5dGVzAAAEBnJhbmRfMQkBC3JhbmRvbV91aW50AgUFYnl0ZXMAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgIFY291bnQJAGQCBQFuAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgUCaWQFA2tleQkAzAgCCQELU3RyaW5nRW50cnkCBQNrZXkFAmlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQICX0cJAGQCCQCWAwEJAMwIAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkArAICBQZzb25nXzACAl9HCQDMCAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgUGc29uZ18xAgJfRwUDbmlsAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCA19TTAIACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX1NOBQZyYW5kXzAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TUDAFBnNvbmdfMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NQMQUGc29uZ18xCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1NCMAkBEUBleHRyTmF0aXZlKDEwNTUpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAAECBF9TQjAJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUDa2V5AgRfU0IxCQERQGV4dHJOYXRpdmUoMTA1NSkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAAgIEX1NCMQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQNrZXkCBF9TQjIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMAAEAgRfU0IyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX1NUCQERQGV4dHJOYXRpdmUoMTA1NSkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAACAIDX1NUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0MwCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAEAIEX1NDMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDMQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wACACBF9TQzEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TQzIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMABAAgRfU0MyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0MzCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAgAECBF9TQzMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TQzQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMACABAIEX1NDNAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDNQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAIAIAgRfU0M1CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0M2CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAgBACBF9TQzYJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TQzcJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMACAIAIEX1NDNwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIDX1NBCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAgEACA19TQQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAAQIEX1NJMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJMQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAAgIEX1NJMQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJMgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICABAIEX1NJMgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJMwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICACAIEX1NJMwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJNAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAEAIEX1NJNAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJNQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAIAIEX1NJNQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNTAJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMACAgEACBV9TSTUwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1MQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgAECBV9TSTUxCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1MgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgAICBV9TSTUyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1MwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgAQCBV9TSTUzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgAgCBV9TSTU0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgBACBV9TSTU1CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgCACBV9TSTU2CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgEACBV9TSTU3CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgIABAgVfU0kwMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMDEJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMACAgICAAgIFX1NJMDEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTAyCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAgICAgAQCBV9TSTAyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwMwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8wAICAgIAIAgVfU0kwMwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMDQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMACAgICAEAIFX1NJMDQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTA1CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzAAgICAgCACBV9TSTA1CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwNgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAAECBV9TSTA2CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwNwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAAICBV9TSTA3CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAAQCBV9TSTEwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxMQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAAgCBV9TSTExCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxMgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xABACBV9TSTEyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxMwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xACACBV9TSTEzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxNAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAEACBV9TSTE0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxNQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAIABAgVfU0kxNQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMTYJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAAgIFX1NJMTYJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTE3CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgAQCBV9TSTE3CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAIAIAgVfU0kyMAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMjEJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAEAIFX1NJMjEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTIyCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgCACBV9TSTIyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyMwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAIBAAgVfU0kyMwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMjQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAgAECBV9TSTI0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyNQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAAgIFX1NJMjUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTI2CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgIAEAgVfU0kyNgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMjcJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAgAgCBV9TSTI3CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAEAIFX1NJMzAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTMxCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgIAgAgVfU0kzMQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMzIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAgEACBV9TSTMyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzMwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgAECBV9TSTMzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzNAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgAICBV9TSTM0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzNQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgAQCBV9TSTM1CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzNgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgAgCBV9TSTM2CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzNwkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgBACBV9TSTM3CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0MAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgCACBV9TSTQwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0MQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgEACBV9TSTQxCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0MgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgIABAgVfU0k0MgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNDMJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAgICAAgIFX1NJNDMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTQ0CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgICAgAQCBV9TSTQ0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0NQkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQEIcGlja19vbmUEBQZzb25nXzAFBnNvbmdfMQUGcmFuZF8xAICAgIAIAgVfU0k0NQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNDYJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkBCHBpY2tfb25lBAUGc29uZ18wBQZzb25nXzEFBnJhbmRfMQCAgICAEAIFX1NJNDYJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTQ3CQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgIJAQhwaWNrX29uZQQFBnNvbmdfMAUGc29uZ18xBQZyYW5kXzEAgICAgCACBV9TSTQ3CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwABBQRpZF9iBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BD2NoZWNrX3doaXRlbGlzdAEGY2FsbGVyAwkAAAIFBHRoaXMFBmNhbGxlcgYEByRtYXRjaDAJAKAIAQkArAICAgJXXwkA2AQBCAUGY2FsbGVyBWJ5dGVzAwkAAQIFByRtYXRjaDACB0Jvb2xlYW4EAXgFByRtYXRjaDAFAXgHAQ9mb2xkX3NldF9yYXJpdHkCBWFjY3VtBWluZGV4BAskdDA5ODAwOTgzNwUFYWNjdW0EB2VudHJpZXMIBQskdDA5ODAwOTgzNwJfMQQGYXNzZXRzCAULJHQwOTgwMDk4MzcCXzIEBnZhbHVlcwgFCyR0MDk4MDA5ODM3Al8zAwkAZwIFBWluZGV4CQCQAwEFBmFzc2V0cwUFYWNjdW0DAwkAZgIAAAkAkQMCBQZ2YWx1ZXMFBWluZGV4BgkAZgIJAJEDAgUGdmFsdWVzBQVpbmRleABkCQACAQI1SW52YWxpZCByYXJpdHkgdmFsdWUgKG11c3QgYmUgaW4gcmFuZ2UgZnJvbSAwIHRvIDEwMCkJAJUKAwkAzQgCBQdlbnRyaWVzCQEMSW50ZWdlckVudHJ5AgkArAICAgdyYXJpdHlfCQCRAwIFBmFzc2V0cwUFaW5kZXgJAJEDAgUGdmFsdWVzBQVpbmRleAUGYXNzZXRzBQZ2YWx1ZXMOAWkBDXdoaXRlbGlzdF9hZGQBBHVzZXIDCQECIT0CBQR0aGlzCAUBaQZjYWxsZXIJAAIBAhhDYWxsZXIgaXMgbm90IGRBcHAgb3duZXIJAJQKAgkAzAgCCQEMQm9vbGVhbkVudHJ5AgkArAICAgJXXwUEdXNlcgYFA25pbAUEdW5pdAFpARB3aGl0ZWxpc3RfcmVtb3ZlAQR1c2VyAwkBAiE9AgUEdGhpcwgFAWkGY2FsbGVyCQACAQIYQ2FsbGVyIGlzIG5vdCBkQXBwIG93bmVyCQCUCgIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICAgJXXwUEdXNlcgUDbmlsBQR1bml0AWkBCnNldF9kYWVtb24BB2FkZHJlc3MDCQECIT0CBQR0aGlzCAUBaQZjYWxsZXIJAAIBAhhDYWxsZXIgaXMgbm90IGRBcHAgb3duZXIJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgZkYWVtb24FB2FkZHJlc3MFA25pbAUEdW5pdAFpAQpzZXRfcmFyaXR5AgZhc3NldHMGdmFsdWVzAwQHJG1hdGNoMAkAoggBAgZkYWVtb24DCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF4BQckbWF0Y2gwCQECIT0CBQF4CQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMGCQACAQIUQ2FsbGVyIGlzIG5vdCBkYWVtb24DCQAAAgkAkAMBBQZhc3NldHMAAAkAAgECCU5vIGFzc2V0cwMJAGYCCQCQAwEFBmFzc2V0cwAUCQACAQIoVG8gbWFueSBhc3NldHMgKG11c3QgYmUgbm8gbW9yZSB0aGFuIDIwKQMJAQIhPQIJAJADAQUGYXNzZXRzCQCQAwEFBnZhbHVlcwkAAgECJEFzc2V0cyBhbmQgdmFsdWVzIGxpc3Qgc2l6ZSBtaXNtYXRjaAQNJHQwMTExNDAxMTIzNQoAAiRsBQppbmRpY2VzXzIwCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFBmFzc2V0cwUGdmFsdWVzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ9mb2xkX3NldF9yYXJpdHkCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDIwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAQHZW50cmllcwgFDSR0MDExMTQwMTEyMzUCXzEEB2Fzc2V0c18IBQ0kdDAxMTE0MDExMjM1Al8yBAd2YWx1ZXNfCAUNJHQwMTExNDAxMTIzNQJfMwkAlAoCBQdlbnRyaWVzBQR1bml0AWkBEHNldF9tYXJrZXRfaW1hZ2UBA3VybAMJAQEhAQkBD2NoZWNrX3doaXRlbGlzdAEIBQFpBmNhbGxlcgkAAgECF0NhbGxlciBub3QgaW4gd2hpdGVsaXN0CQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgIRbWFya2V0X2ltYWdlX2xpbmsFA3VybAUDbmlsBQR1bml0AWkBEHNldF9wcmljZV9oeWJyaWQDBXRva2VuBmFtb3VudAlpbmNyZW1lbnQDCQEBIQEJAQ9jaGVja193aGl0ZWxpc3QBCAUBaQZjYWxsZXIJAAIBAhdDYWxsZXIgbm90IGluIHdoaXRlbGlzdAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQICEnByaWNlX2h5YnJpZF90b2tlbgUFdG9rZW4JAMwIAgkBDEludGVnZXJFbnRyeQICE3ByaWNlX2h5YnJpZF9hbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIWcHJpY2VfaHlicmlkX2luY3JlbWVudAUJaW5jcmVtZW50BQNuaWwFBHVuaXQBaQEKbWludF9jaG9yZAMFaW5kZXgEbmFtZQVub3RlcwMJAQEhAQkBD2NoZWNrX3doaXRlbGlzdAEIBQFpBmNhbGxlcgkAAgECF0NhbGxlciBub3QgaW4gd2hpdGVsaXN0AwkBAiE9AgkAkAMBBQVub3RlcwAFCQACAQIQV3Jvbmcgbm90ZXMgc2l6ZQQBbgQHJG1hdGNoMAkAnwgBAgVjb3VudAMJAAECBQckbWF0Y2gwAgNJbnQEAWoFByRtYXRjaDAFAWoAAAQDa2V5CQEGdG9fa2V5AQUFaW5kZXgJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgIFY291bnQJAJYDAQkAzAgCCQBkAgUFaW5kZXgAAQkAzAgCBQFuBQNuaWwJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCA19DTAUEbmFtZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQNrZXkCA19DMAkAkQMCBQVub3RlcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX0MxCQCRAwIFBW5vdGVzAAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUDa2V5AgNfQzIJAJEDAgUFbm90ZXMAAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQNrZXkCA19DMwkAkQMCBQVub3RlcwADCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX0M0CQCRAwIFBW5vdGVzAAQFA25pbAUEdW5pdAFpAQ1taW50X2FycGVnZ2lvAwVpbmRleARuYW1lBW5vdGVzAwkBASEBCQEPY2hlY2tfd2hpdGVsaXN0AQgFAWkGY2FsbGVyCQACAQIXQ2FsbGVyIG5vdCBpbiB3aGl0ZWxpc3QDCQECIT0CCQCQAwEFBW5vdGVzABAJAAIBAhBXcm9uZyBub3RlcyBzaXplBAFuBAckbWF0Y2gwCQCfCAECBWNvdW50AwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAABANrZXkJAQZ0b19rZXkBBQVpbmRleAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgVjb3VudAkAlgMBCQDMCAIJAGQCBQVpbmRleAABCQDMCAIFAW4FA25pbAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIDX0FMBQRuYW1lCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwMAkAkQMCBQVub3RlcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwMQkAkQMCBQVub3RlcwABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwMgkAkQMCBQVub3RlcwACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwMwkAkQMCBQVub3RlcwADCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwNAkAkQMCBQVub3RlcwAECQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwNQkAkQMCBQVub3RlcwAFCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwNgkAkQMCBQVub3RlcwAGCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwNwkAkQMCBQVub3RlcwAHCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwOAkAkQMCBQVub3RlcwAICQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0EwOQkAkQMCBQVub3RlcwAJCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExMAkAkQMCBQVub3RlcwAKCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExMQkAkQMCBQVub3RlcwALCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExMgkAkQMCBQVub3RlcwAMCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExMwkAkQMCBQVub3RlcwANCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExNAkAkQMCBQVub3RlcwAOCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX0ExNQkAkQMCBQVub3RlcwAPBQNuaWwFBHVuaXQBaQELbWludF9yaHl0aG0EBWluZGV4BG5hbWUFc2NhbGUFbm90ZXMDCQEBIQEJAQ9jaGVja193aGl0ZWxpc3QBCAUBaQZjYWxsZXIJAAIBAhdDYWxsZXIgbm90IGluIHdoaXRlbGlzdAMJAQIhPQIJAJADAQUFbm90ZXMAEAkAAgECEFdyb25nIG5vdGVzIHNpemUEAW4EByRtYXRjaDAJAJ8IAQIFY291bnQDCQABAgUHJG1hdGNoMAIDSW50BAFqBQckbWF0Y2gwBQFqAAAEA2tleQkBBnRvX2tleQEFBWluZGV4CQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQICBWNvdW50CQCWAwEJAMwIAgkAZAIFBWluZGV4AAEJAMwIAgUBbgUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgNfUkwFBG5hbWUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUDa2V5AgNfUlMFBXNjYWxlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwMAkAkQMCBQVub3RlcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwMQkAkQMCBQVub3RlcwABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwMgkAkQMCBQVub3RlcwACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwMwkAkQMCBQVub3RlcwADCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwNAkAkQMCBQVub3RlcwAECQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwNQkAkQMCBQVub3RlcwAFCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwNgkAkQMCBQVub3RlcwAGCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwNwkAkQMCBQVub3RlcwAHCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwOAkAkQMCBQVub3RlcwAICQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IwOQkAkQMCBQVub3RlcwAJCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxMAkAkQMCBQVub3RlcwAKCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxMQkAkQMCBQVub3RlcwALCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxMgkAkQMCBQVub3RlcwAMCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxMwkAkQMCBQVub3RlcwANCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxNAkAkQMCBQVub3RlcwAOCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1IxNQkAkQMCBQVub3RlcwAPBQNuaWwFBHVuaXQBaQENYnVybl9pbnRlcm5hbAEIYXNzZXRfaWQDCQEBIQEJAQ9jaGVja193aGl0ZWxpc3QBCAUBaQZjYWxsZXIJAAIBAhdDYWxsZXIgbm90IGluIHdoaXRlbGlzdAQFYnVybjAJAPwHBAUUbmZ0X2NyZWF0aW9uX2FkZHJlc3MCB2J1cm5ORlQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQhhc3NldF9pZAABBQNuaWwDCQAAAgUFYnVybjAFBWJ1cm4wCQCUCgIFA25pbAUEdW5pdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQRidXJuAAMJAQEhAQkBD2NoZWNrX3doaXRlbGlzdAEIBQFpBmNhbGxlcgkAAgECF0NhbGxlciBub3QgaW4gd2hpdGVsaXN0BAVidXJuMAkA/AcEBRRuZnRfY3JlYXRpb25fYWRkcmVzcwIHYnVybk5GVAUDbmlsCQDMCAIJAJEDAggFAWkIcGF5bWVudHMAAAUDbmlsAwkAAAIFBWJ1cm4wBQVidXJuMAkAlAoCBQNuaWwFBHVuaXQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJbWludF9zb25nFQRuYW1lCHBhcmVudF8wCHBhcmVudF8xA2JwbQhiYXJfc2l6ZQliZWF0X3NpemUIdG9uYWxpdHkGY2hvcmRzCGFycGVnZ2lvD2tpY2tfaW5zdHJ1bWVudBBzbmFyZV9pbnN0cnVtZW50EGhpaGF0X2luc3RydW1lbnQPYmFzc19pbnN0cnVtZW50D2JhY2tfaW5zdHJ1bWVudA9sZWFkX2luc3RydW1lbnQMa2lja19yaHl0aG1zDXNuYXJlX3JoeXRobXMNaGloYXRfcmh5dGhtcwxiYXNzX3JoeXRobXMMYmFja19yaHl0aG1zDGxlYWRfcmh5dGhtcwMJAQEhAQkBD2NoZWNrX3doaXRlbGlzdAEIBQFpBmNhbGxlcgkAAgECF0NhbGxlciBub3QgaW4gd2hpdGVsaXN0AwkBAiE9AgkAkAMBBQZjaG9yZHMACAkAAgECEVdyb25nIGNob3JkcyBzaXplAwkBAiE9AgkAkAMBBQxraWNrX3JoeXRobXMACAkAAgECF1dyb25nIGtpY2sgcmh5dGhtcyBzaXplAwkBAiE9AgkAkAMBBQ1zbmFyZV9yaHl0aG1zAAgJAAIBAhhXcm9uZyBzbmFyZSByaHl0aG1zIHNpemUDCQECIT0CCQCQAwEFDWhpaGF0X3JoeXRobXMACAkAAgECGFdyb25nIGhpaGF0IHJoeXRobXMgc2l6ZQMJAQIhPQIJAJADAQUMYmFzc19yaHl0aG1zAAgJAAIBAhdXcm9uZyBiYXNzIHJoeXRobXMgc2l6ZQMJAQIhPQIJAJADAQUMYmFja19yaHl0aG1zAAgJAAIBAhdXcm9uZyBiYWNrIHJoeXRobXMgc2l6ZQMJAQIhPQIJAJADAQUMbGVhZF9yaHl0aG1zAAgJAAIBAhdXcm9uZyBsZWFkIHJoeXRobXMgc2l6ZQQBbgQHJG1hdGNoMAkAnwgBAgVjb3VudAMJAAECBQckbWF0Y2gwAgNJbnQEAWoFByRtYXRjaDAFAWoAAAQKbmFtZV9zaG9ydAkArwICBQRuYW1lABAEC2Rlc2NyaXB0aW9uBRBtaW50X2Rlc2NyaXB0aW9uBApjb2xsZWN0aW9uBQ9taW50X2NvbGxlY3Rpb24EAmlkBAckbWF0Y2gwCQD8BwQFFG5mdF9jcmVhdGlvbl9hZGRyZXNzAgljcmVhdGVORlQJAMwIAgUKbmFtZV9zaG9ydAkAzAgCBQtkZXNjcmlwdGlvbgkAzAgCCQERQGV4dHJOYXRpdmUoMTA1OCkBAhFtYXJrZXRfaW1hZ2VfbGluawkAzAgCBQpjb2xsZWN0aW9uBQNuaWwFA25pbAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAFAXgJAAIBAhNORlQgY3JlYXRpb24gZmFpbGVkAwkAAAIFAmlkBQJpZAQDa2V5CQEGdG9fa2V5AQUBbgQLdHhfdHJhbnNmZXIDCQECIT0CBQR0aGlzCAUBaQZjYWxsZXIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzAAEJANkEAQUCaWQFA25pbAUDbmlsCQCUCgIJAM4IAgkAzAgCCQEMSW50ZWdlckVudHJ5AgIFY291bnQJAGQCBQFuAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgUCaWQFA2tleQkAzAgCCQELU3RyaW5nRW50cnkCBQNrZXkFAmlkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQICX0cAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIDX1NMBQRuYW1lCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX1NOAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TUDAFCHBhcmVudF8wCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU1AxBQhwYXJlbnRfMQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQNrZXkCBF9TQjAFA2JwbQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQNrZXkCBF9TQjEFCGJhcl9zaXplCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIEX1NCMgUJYmVhdF9zaXplCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFA2tleQIDX1NUBQh0b25hbGl0eQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDMAkAkQMCBQZjaG9yZHMAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDMQkAkQMCBQZjaG9yZHMAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDMgkAkQMCBQZjaG9yZHMAAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDMwkAkQMCBQZjaG9yZHMAAwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDNAkAkQMCBQZjaG9yZHMABAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDNQkAkQMCBQZjaG9yZHMABQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDNgkAkQMCBQZjaG9yZHMABgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NDNwkAkQMCBQZjaG9yZHMABwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIDX1NBBQhhcnBlZ2dpbwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJMAUPa2lja19pbnN0cnVtZW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0kxBRBzbmFyZV9pbnN0cnVtZW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0kyBRBoaWhhdF9pbnN0cnVtZW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgRfU0kzBQ9iYXNzX2luc3RydW1lbnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBF9TSTQFD2JhY2tfaW5zdHJ1bWVudAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIEX1NJNQUPbGVhZF9pbnN0cnVtZW50CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwMAkAkQMCBQxraWNrX3JoeXRobXMAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMDEJAJEDAgUMa2lja19yaHl0aG1zAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTAyCQCRAwIFDGtpY2tfcmh5dGhtcwACCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwMwkAkQMCBQxraWNrX3JoeXRobXMAAwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMDQJAJEDAgUMa2lja19yaHl0aG1zAAQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTA1CQCRAwIFDGtpY2tfcmh5dGhtcwAFCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kwNgkAkQMCBQxraWNrX3JoeXRobXMABgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMDcJAJEDAgUMa2lja19yaHl0aG1zAAcJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTEwCQCRAwIFDXNuYXJlX3JoeXRobXMAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMTEJAJEDAgUNc25hcmVfcmh5dGhtcwABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxMgkAkQMCBQ1zbmFyZV9yaHl0aG1zAAIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTEzCQCRAwIFDXNuYXJlX3JoeXRobXMAAwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMTQJAJEDAgUNc25hcmVfcmh5dGhtcwAECQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kxNQkAkQMCBQ1zbmFyZV9yaHl0aG1zAAUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTE2CQCRAwIFDXNuYXJlX3JoeXRobXMABgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMTcJAJEDAgUNc25hcmVfcmh5dGhtcwAHCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyMAkAkQMCBQ1oaWhhdF9yaHl0aG1zAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTIxCQCRAwIFDWhpaGF0X3JoeXRobXMAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMjIJAJEDAgUNaGloYXRfcmh5dGhtcwACCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyMwkAkQMCBQ1oaWhhdF9yaHl0aG1zAAMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTI0CQCRAwIFDWhpaGF0X3JoeXRobXMABAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMjUJAJEDAgUNaGloYXRfcmh5dGhtcwAFCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kyNgkAkQMCBQ1oaWhhdF9yaHl0aG1zAAYJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTI3CQCRAwIFDWhpaGF0X3JoeXRobXMABwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMzAJAJEDAgUMYmFzc19yaHl0aG1zAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTMxCQCRAwIFDGJhc3Nfcmh5dGhtcwABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzMgkAkQMCBQxiYXNzX3JoeXRobXMAAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMzMJAJEDAgUMYmFzc19yaHl0aG1zAAMJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTM0CQCRAwIFDGJhc3Nfcmh5dGhtcwAECQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0kzNQkAkQMCBQxiYXNzX3JoeXRobXMABQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJMzYJAJEDAgUMYmFzc19yaHl0aG1zAAYJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTM3CQCRAwIFDGJhc3Nfcmh5dGhtcwAHCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0MAkAkQMCBQxiYWNrX3JoeXRobXMAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNDEJAJEDAgUMYmFja19yaHl0aG1zAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTQyCQCRAwIFDGJhY2tfcmh5dGhtcwACCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0MwkAkQMCBQxiYWNrX3JoeXRobXMAAwkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNDQJAJEDAgUMYmFja19yaHl0aG1zAAQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTQ1CQCRAwIFDGJhY2tfcmh5dGhtcwAFCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k0NgkAkQMCBQxiYWNrX3JoeXRobXMABgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNDcJAJEDAgUMYmFja19yaHl0aG1zAAcJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTUwCQCRAwIFDGxlYWRfcmh5dGhtcwAACQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1MQkAkQMCBQxsZWFkX3JoeXRobXMAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNTIJAJEDAgUMbGVhZF9yaHl0aG1zAAIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTUzCQCRAwIFDGxlYWRfcmh5dGhtcwADCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NAkAkQMCBQxsZWFkX3JoeXRobXMABAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFA2tleQIFX1NJNTUJAJEDAgUMbGVhZF9yaHl0aG1zAAUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQNrZXkCBV9TSTU2CQCRAwIFDGxlYWRfcmh5dGhtcwAGCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUDa2V5AgVfU0k1NwkAkQMCBQxsZWFkX3JoeXRobXMABwUDbmlsBQt0eF90cmFuc2ZlcgUEdW5pdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQttaW50X2h5YnJpZAIGc29uZ18wBnNvbmdfMQQLY2FsbGVyX2FkZHIJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwQJc29uZ18wX2lkCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFBnNvbmdfMAQJc29uZ18xX2lkCQDZBAEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFBnNvbmdfMQQMcHJpY2VfYW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAhNwcmljZV9oeWJyaWRfYW1vdW50BAtwcmljZV90b2tlbgkBEUBleHRyTmF0aXZlKDEwNTgpAQIScHJpY2VfaHlicmlkX3Rva2VuBAxwcmljZV9jaGFuZ2UJARdoeWJyaWRfY2FsY3VsYXRlX2NoYW5nZQMFAWkFC3ByaWNlX3Rva2VuBQxwcmljZV9hbW91bnQDCQBmAgAABQxwcmljZV9jaGFuZ2UJAAIBAg1Xcm9uZyBwYXltZW50AwkAAAIFCXNvbmdfMF9pZAUJc29uZ18xX2lkCQACAQIZU29uZ3Mgc2hvdWxkIGJlIGRpZmZlcmVudAMJAGYCAAEJAPAHAgULY2FsbGVyX2FkZHIFCXNvbmdfMF9pZAkAAgECHENhbGxlciBkbyBub3Qgb3duIGZpcnN0IHNvbmcDCQBmAgABCQDwBwIFC2NhbGxlcl9hZGRyBQlzb25nXzFfaWQJAAIBAh1DYWxsZXIgZG8gbm90IG93biBzZWNvbmQgc29uZwQKbWludF9jb3VudAQHJG1hdGNoMAkAnwgBAgptaW50X2NvdW50AwkAAQIFByRtYXRjaDACA0ludAQBagUHJG1hdGNoMAUBagAABA9wcmljZV9jb3VudF9pbmMJAQxJbnRlZ2VyRW50cnkCAgptaW50X2NvdW50CQBkAgUKbWludF9jb3VudAABBA5wcmljZV9pbmNyZWFzZQMJAAACCQBqAgUKbWludF9jb3VudAUVcHJpY2VfaW5jcmVhc2VfcGVyaW9kCQBlAgUVcHJpY2VfaW5jcmVhc2VfcGVyaW9kAAEJAMwIAgUPcHJpY2VfY291bnRfaW5jCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhNwcmljZV9oeWJyaWRfYW1vdW50CQBkAgUMcHJpY2VfYW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAhZwcmljZV9oeWJyaWRfaW5jcmVtZW50BQNuaWwJAMwIAgUPcHJpY2VfY291bnRfaW5jBQNuaWwDCQBmAgUMcHJpY2VfY2hhbmdlAAAJAJQKAgkAzggCCQDOCAIJAQ5tYWtlX2h5YnJpZF90eAMFAWkFBnNvbmdfMAUGc29uZ18xBQ5wcmljZV9pbmNyZWFzZQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEICAUBaQZjYWxsZXIFYnl0ZXMFDHByaWNlX2NoYW5nZQMJAAACBQtwcmljZV90b2tlbgIABQR1bml0CQDZBAEFC3ByaWNlX3Rva2VuBQNuaWwFBHVuaXQJAJQKAgkAzggCCQEObWFrZV9oeWJyaWRfdHgDBQFpBQZzb25nXzAFBnNvbmdfMQUOcHJpY2VfaW5jcmVhc2UFBHVuaXQBaQEUbWludF9oeWJyaWRfYW5kX2J1cm4AAwMDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAIGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAABBgkBAiE9AggJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQAAQkAAgECDVdyb25nIHBheW1lbnQECXNvbmdfMF9pZAQHJG1hdGNoMAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAWIFByRtYXRjaDAFAWIJAAIBAg1Xcm9uZyBwYXltZW50BAlzb25nXzFfaWQEByRtYXRjaDAICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwBQFiCQACAQINV3JvbmcgcGF5bWVudAMJAAACBQlzb25nXzBfaWQFCXNvbmdfMV9pZAkAAgECGVNvbmdzIHNob3VsZCBiZSBkaWZmZXJlbnQEBnNvbmdfMAkBEUBleHRyTmF0aXZlKDEwNTgpAQkA2AQBBQlzb25nXzBfaWQEBnNvbmdfMQkBEUBleHRyTmF0aXZlKDEwNTgpAQkA2AQBBQlzb25nXzFfaWQEBWJ1cm4wCQD8BwQFFG5mdF9jcmVhdGlvbl9hZGRyZXNzAgdidXJuTkZUBQNuaWwJAMwIAgkAkQMCCAUBaQhwYXltZW50cwAABQNuaWwDCQAAAgUFYnVybjAFBWJ1cm4wBAVidXJuMQkA/AcEBRRuZnRfY3JlYXRpb25fYWRkcmVzcwIHYnVybk5GVAUDbmlsCQDMCAIJAJEDAggFAWkIcGF5bWVudHMAAQUDbmlsAwkAAAIFBWJ1cm4xBQVidXJuMQkAlAoCCQEObWFrZV9oeWJyaWRfdHgDBQFpBQZzb25nXzAFBnNvbmdfMQUEdW5pdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgDOTJPj",
    "height": 2341600,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2YBSEHGp3bbumVgnFHn6jW4cAg2wB76CZdiqQwephjfo
Next: 39aJpSPJa1z3HMgnmGpTcRJaDriytfsrXzrGpX7cpkPh

Diff: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let nft_creation_address = Address(base58'3NCbmjGV7YHKdkHEfWkfGhmZyXsJbymQ5Z5')
5+
6+let price_increase_period = 10
7+
8+let mint_collection = "Clef genesis songs"
9+
10+let mint_description = "Genesis Clef song. This melody is crafted to become your electronic jam. Use it on clef.one 💚🤍"
11+
12+let hybrid_collection = "Clef mixes"
13+
14+let hybrid_description = "Clef mix. This melody was created by an algorithm. Enjoy this jam or use it on clef.one"
15+
16+let indices_20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
17+
418 func to_key (n) = toBase58String(toBytes(n))
519 
620 
2034     else key_1
2135 
2236 
23-func check_hybrid_payment (i) = if ((size(i.payments) != 1))
24-    then false
37+func hybrid_calculate_change (i,token,amount) = if ((size(i.payments) != 1))
38+    then -1
2539     else {
2640         let p = i.payments[0]
2741         let p_token =         match p.assetId {
3044             case _ => 
3145                 ""
3246         }
33-        let token = getStringValue("price_hybrid_token")
34-        let amount = getIntegerValue("price_hybrid_amount")
3547         if ((p_token != token))
36-            then false
37-            else if ((amount != p.amount))
38-                then false
39-                else true
48+            then -1
49+            else (p.amount - amount)
4050         }
4151 
4252 
4757         case _ => 
4858             0
4959     }
50-    let issue = Issue(("Clef " + toString(n)), "Clef song.", 1, 0, false)
51-    let id_b = calculateAssetId(issue)
52-    let id = toBase58String(id_b)
53-    let key = to_key(n)
54-    let bytes = unique_bytes(i)
55-    let rand_0 = random_uint(bytes, 0)
56-    let rand_1 = random_uint(bytes, 1)
57-[issue, IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), (max([getIntegerValue((song_0 + "_G")), getIntegerValue((song_1 + "_G"))]) + 1)), StringEntry((key + "_SL"), ""), IntegerEntry((key + "_SN"), rand_0), StringEntry((key + "_SP0"), song_0), StringEntry((key + "_SP1"), song_1), IntegerEntry((key + "_SB0"), getIntegerValue((pick_one(song_0, song_1, rand_0, 1) + "_SB0"))), IntegerEntry((key + "_SB1"), getIntegerValue((pick_one(song_0, song_1, rand_0, 2) + "_SB1"))), IntegerEntry((key + "_SB2"), getIntegerValue((pick_one(song_0, song_1, rand_0, 4) + "_SB2"))), IntegerEntry((key + "_ST"), getIntegerValue((pick_one(song_0, song_1, rand_0, 8) + "_ST"))), StringEntry((key + "_SC0"), getStringValue((pick_one(song_0, song_1, rand_0, 16) + "_SC0"))), StringEntry((key + "_SC1"), getStringValue((pick_one(song_0, song_1, rand_0, 32) + "_SC1"))), StringEntry((key + "_SC2"), getStringValue((pick_one(song_0, song_1, rand_0, 64) + "_SC2"))), StringEntry((key + "_SC3"), getStringValue((pick_one(song_0, song_1, rand_0, 128) + "_SC3"))), StringEntry((key + "_SC4"), getStringValue((pick_one(song_0, song_1, rand_0, 512) + "_SC4"))), StringEntry((key + "_SC5"), getStringValue((pick_one(song_0, song_1, rand_0, 1024) + "_SC5"))), StringEntry((key + "_SC6"), getStringValue((pick_one(song_0, song_1, rand_0, 2048) + "_SC6"))), StringEntry((key + "_SC7"), getStringValue((pick_one(song_0, song_1, rand_0, 4096) + "_SC7"))), StringEntry((key + "_SM"), getStringValue((pick_one(song_0, song_1, rand_0, 8192) + "_SM"))), StringEntry((key + "_SI0"), getStringValue((pick_one(song_0, song_1, rand_0, 16384) + "_SI0"))), StringEntry((key + "_SI1"), getStringValue((pick_one(song_0, song_1, rand_0, 32768) + "_SI1"))), StringEntry((key + "_SI2"), getStringValue((pick_one(song_0, song_1, rand_0, 65536) + "_SI2"))), StringEntry((key + "_SI3"), getStringValue((pick_one(song_0, song_1, rand_0, 131072) + "_SI3"))), StringEntry((key + "_SI4"), getStringValue((pick_one(song_0, song_1, rand_0, 262144) + "_SI4"))), StringEntry((key + "_SI5"), getStringValue((pick_one(song_0, song_1, rand_0, 524288) + "_SI5"))), StringEntry((key + "_SI50"), getStringValue((pick_one(song_0, song_1, rand_0, 1048576) + "_SI50"))), StringEntry((key + "_SI51"), getStringValue((pick_one(song_0, song_1, rand_0, 2097152) + "_SI51"))), StringEntry((key + "_SI52"), getStringValue((pick_one(song_0, song_1, rand_0, 4194304) + "_SI52"))), StringEntry((key + "_SI53"), getStringValue((pick_one(song_0, song_1, rand_0, 8388608) + "_SI53"))), StringEntry((key + "_SI54"), getStringValue((pick_one(song_0, song_1, rand_0, 16777216) + "_SI54"))), StringEntry((key + "_SI55"), getStringValue((pick_one(song_0, song_1, rand_0, 33554432) + "_SI55"))), StringEntry((key + "_SI56"), getStringValue((pick_one(song_0, song_1, rand_0, 67108864) + "_SI56"))), StringEntry((key + "_SI57"), getStringValue((pick_one(song_0, song_1, rand_0, 134217728) + "_SI57"))), StringEntry((key + "_SI00"), getStringValue((pick_one(song_0, song_1, rand_0, 268435456) + "_SI00"))), StringEntry((key + "_SI01"), getStringValue((pick_one(song_0, song_1, rand_0, 536870912) + "_SI01"))), StringEntry((key + "_SI02"), getStringValue((pick_one(song_0, song_1, rand_0, 1073741824) + "_SI02"))), StringEntry((key + "_SI03"), getStringValue((pick_one(song_0, song_1, rand_0, 2147483648) + "_SI03"))), StringEntry((key + "_SI04"), getStringValue((pick_one(song_0, song_1, rand_0, 4294967296) + "_SI04"))), StringEntry((key + "_SI05"), getStringValue((pick_one(song_0, song_1, rand_0, 8589934592) + "_SI05"))), StringEntry((key + "_SI06"), getStringValue((pick_one(song_0, song_1, rand_1, 1) + "_SI06"))), StringEntry((key + "_SI07"), getStringValue((pick_one(song_0, song_1, rand_1, 2) + "_SI07"))), StringEntry((key + "_SI10"), getStringValue((pick_one(song_0, song_1, rand_1, 4) + "_SI10"))), StringEntry((key + "_SI11"), getStringValue((pick_one(song_0, song_1, rand_1, 8) + "_SI11"))), StringEntry((key + "_SI12"), getStringValue((pick_one(song_0, song_1, rand_1, 16) + "_SI12"))), StringEntry((key + "_SI13"), getStringValue((pick_one(song_0, song_1, rand_1, 32) + "_SI13"))), StringEntry((key + "_SI14"), getStringValue((pick_one(song_0, song_1, rand_1, 64) + "_SI14"))), StringEntry((key + "_SI15"), getStringValue((pick_one(song_0, song_1, rand_1, 128) + "_SI15"))), StringEntry((key + "_SI16"), getStringValue((pick_one(song_0, song_1, rand_1, 256) + "_SI16"))), StringEntry((key + "_SI17"), getStringValue((pick_one(song_0, song_1, rand_1, 512) + "_SI17"))), StringEntry((key + "_SI20"), getStringValue((pick_one(song_0, song_1, rand_1, 1024) + "_SI20"))), StringEntry((key + "_SI21"), getStringValue((pick_one(song_0, song_1, rand_1, 2048) + "_SI21"))), StringEntry((key + "_SI22"), getStringValue((pick_one(song_0, song_1, rand_1, 4096) + "_SI22"))), StringEntry((key + "_SI23"), getStringValue((pick_one(song_0, song_1, rand_1, 8192) + "_SI23"))), StringEntry((key + "_SI24"), getStringValue((pick_one(song_0, song_1, rand_1, 16384) + "_SI24"))), StringEntry((key + "_SI25"), getStringValue((pick_one(song_0, song_1, rand_1, 32768) + "_SI25"))), StringEntry((key + "_SI26"), getStringValue((pick_one(song_0, song_1, rand_1, 65536) + "_SI26"))), StringEntry((key + "_SI27"), getStringValue((pick_one(song_0, song_1, rand_1, 131072) + "_SI27"))), StringEntry((key + "_SI30"), getStringValue((pick_one(song_0, song_1, rand_1, 262144) + "_SI30"))), StringEntry((key + "_SI31"), getStringValue((pick_one(song_0, song_1, rand_1, 524288) + "_SI31"))), StringEntry((key + "_SI32"), getStringValue((pick_one(song_0, song_1, rand_1, 1048576) + "_SI32"))), StringEntry((key + "_SI33"), getStringValue((pick_one(song_0, song_1, rand_1, 2097152) + "_SI33"))), StringEntry((key + "_SI34"), getStringValue((pick_one(song_0, song_1, rand_1, 4194304) + "_SI34"))), StringEntry((key + "_SI35"), getStringValue((pick_one(song_0, song_1, rand_1, 8388608) + "_SI35"))), StringEntry((key + "_SI36"), getStringValue((pick_one(song_0, song_1, rand_1, 16777216) + "_SI36"))), StringEntry((key + "_SI37"), getStringValue((pick_one(song_0, song_1, rand_1, 33554432) + "_SI37"))), StringEntry((key + "_SI40"), getStringValue((pick_one(song_0, song_1, rand_1, 67108864) + "_SI40"))), StringEntry((key + "_SI41"), getStringValue((pick_one(song_0, song_1, rand_1, 134217728) + "_SI41"))), StringEntry((key + "_SI42"), getStringValue((pick_one(song_0, song_1, rand_1, 268435456) + "_SI42"))), StringEntry((key + "_SI43"), getStringValue((pick_one(song_0, song_1, rand_1, 536870912) + "_SI43"))), StringEntry((key + "_SI44"), getStringValue((pick_one(song_0, song_1, rand_1, 1073741824) + "_SI44"))), StringEntry((key + "_SI45"), getStringValue((pick_one(song_0, song_1, rand_1, 2147483648) + "_SI45"))), StringEntry((key + "_SI46"), getStringValue((pick_one(song_0, song_1, rand_1, 4294967296) + "_SI46"))), StringEntry((key + "_SI47"), getStringValue((pick_one(song_0, song_1, rand_1, 8589934592) + "_SI47"))), ScriptTransfer(Address(i.caller.bytes), 1, id_b)]
60+    let name_short = take(("Clef " + toString(n)), 16)
61+    let description = hybrid_description
62+    let collection = hybrid_collection
63+    let id =     match invoke(nft_creation_address, "createNFT", [name_short, description, getStringValue("market_image_link"), collection], nil) {
64+        case x: String => 
65+            x
66+        case _ => 
67+            throw("NFT creation failed")
68+    }
69+    if ((id == id))
70+        then {
71+            let id_b = fromBase58String(id)
72+            let key = to_key(n)
73+            let bytes = unique_bytes(i)
74+            let rand_0 = random_uint(bytes, 0)
75+            let rand_1 = random_uint(bytes, 1)
76+[IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), (max([getIntegerValue((song_0 + "_G")), getIntegerValue((song_1 + "_G"))]) + 1)), StringEntry((key + "_SL"), ""), IntegerEntry((key + "_SN"), rand_0), StringEntry((key + "_SP0"), song_0), StringEntry((key + "_SP1"), song_1), IntegerEntry((key + "_SB0"), getIntegerValue((pick_one(song_0, song_1, rand_0, 1) + "_SB0"))), IntegerEntry((key + "_SB1"), getIntegerValue((pick_one(song_0, song_1, rand_0, 2) + "_SB1"))), IntegerEntry((key + "_SB2"), getIntegerValue((pick_one(song_0, song_1, rand_0, 4) + "_SB2"))), IntegerEntry((key + "_ST"), getIntegerValue((pick_one(song_0, song_1, rand_0, 8) + "_ST"))), StringEntry((key + "_SC0"), getStringValue((pick_one(song_0, song_1, rand_0, 16) + "_SC0"))), StringEntry((key + "_SC1"), getStringValue((pick_one(song_0, song_1, rand_0, 32) + "_SC1"))), StringEntry((key + "_SC2"), getStringValue((pick_one(song_0, song_1, rand_0, 64) + "_SC2"))), StringEntry((key + "_SC3"), getStringValue((pick_one(song_0, song_1, rand_0, 128) + "_SC3"))), StringEntry((key + "_SC4"), getStringValue((pick_one(song_0, song_1, rand_0, 512) + "_SC4"))), StringEntry((key + "_SC5"), getStringValue((pick_one(song_0, song_1, rand_0, 1024) + "_SC5"))), StringEntry((key + "_SC6"), getStringValue((pick_one(song_0, song_1, rand_0, 2048) + "_SC6"))), StringEntry((key + "_SC7"), getStringValue((pick_one(song_0, song_1, rand_0, 4096) + "_SC7"))), StringEntry((key + "_SA"), getStringValue((pick_one(song_0, song_1, rand_0, 8192) + "_SA"))), StringEntry((key + "_SI0"), getStringValue((pick_one(song_0, song_1, rand_0, 16384) + "_SI0"))), StringEntry((key + "_SI1"), getStringValue((pick_one(song_0, song_1, rand_0, 32768) + "_SI1"))), StringEntry((key + "_SI2"), getStringValue((pick_one(song_0, song_1, rand_0, 65536) + "_SI2"))), StringEntry((key + "_SI3"), getStringValue((pick_one(song_0, song_1, rand_0, 131072) + "_SI3"))), StringEntry((key + "_SI4"), getStringValue((pick_one(song_0, song_1, rand_0, 262144) + "_SI4"))), StringEntry((key + "_SI5"), getStringValue((pick_one(song_0, song_1, rand_0, 524288) + "_SI5"))), StringEntry((key + "_SI50"), getStringValue((pick_one(song_0, song_1, rand_0, 1048576) + "_SI50"))), StringEntry((key + "_SI51"), getStringValue((pick_one(song_0, song_1, rand_0, 2097152) + "_SI51"))), StringEntry((key + "_SI52"), getStringValue((pick_one(song_0, song_1, rand_0, 4194304) + "_SI52"))), StringEntry((key + "_SI53"), getStringValue((pick_one(song_0, song_1, rand_0, 8388608) + "_SI53"))), StringEntry((key + "_SI54"), getStringValue((pick_one(song_0, song_1, rand_0, 16777216) + "_SI54"))), StringEntry((key + "_SI55"), getStringValue((pick_one(song_0, song_1, rand_0, 33554432) + "_SI55"))), StringEntry((key + "_SI56"), getStringValue((pick_one(song_0, song_1, rand_0, 67108864) + "_SI56"))), StringEntry((key + "_SI57"), getStringValue((pick_one(song_0, song_1, rand_0, 134217728) + "_SI57"))), StringEntry((key + "_SI00"), getStringValue((pick_one(song_0, song_1, rand_0, 268435456) + "_SI00"))), StringEntry((key + "_SI01"), getStringValue((pick_one(song_0, song_1, rand_0, 536870912) + "_SI01"))), StringEntry((key + "_SI02"), getStringValue((pick_one(song_0, song_1, rand_0, 1073741824) + "_SI02"))), StringEntry((key + "_SI03"), getStringValue((pick_one(song_0, song_1, rand_0, 2147483648) + "_SI03"))), StringEntry((key + "_SI04"), getStringValue((pick_one(song_0, song_1, rand_0, 4294967296) + "_SI04"))), StringEntry((key + "_SI05"), getStringValue((pick_one(song_0, song_1, rand_0, 8589934592) + "_SI05"))), StringEntry((key + "_SI06"), getStringValue((pick_one(song_0, song_1, rand_1, 1) + "_SI06"))), StringEntry((key + "_SI07"), getStringValue((pick_one(song_0, song_1, rand_1, 2) + "_SI07"))), StringEntry((key + "_SI10"), getStringValue((pick_one(song_0, song_1, rand_1, 4) + "_SI10"))), StringEntry((key + "_SI11"), getStringValue((pick_one(song_0, song_1, rand_1, 8) + "_SI11"))), StringEntry((key + "_SI12"), getStringValue((pick_one(song_0, song_1, rand_1, 16) + "_SI12"))), StringEntry((key + "_SI13"), getStringValue((pick_one(song_0, song_1, rand_1, 32) + "_SI13"))), StringEntry((key + "_SI14"), getStringValue((pick_one(song_0, song_1, rand_1, 64) + "_SI14"))), StringEntry((key + "_SI15"), getStringValue((pick_one(song_0, song_1, rand_1, 128) + "_SI15"))), StringEntry((key + "_SI16"), getStringValue((pick_one(song_0, song_1, rand_1, 256) + "_SI16"))), StringEntry((key + "_SI17"), getStringValue((pick_one(song_0, song_1, rand_1, 512) + "_SI17"))), StringEntry((key + "_SI20"), getStringValue((pick_one(song_0, song_1, rand_1, 1024) + "_SI20"))), StringEntry((key + "_SI21"), getStringValue((pick_one(song_0, song_1, rand_1, 2048) + "_SI21"))), StringEntry((key + "_SI22"), getStringValue((pick_one(song_0, song_1, rand_1, 4096) + "_SI22"))), StringEntry((key + "_SI23"), getStringValue((pick_one(song_0, song_1, rand_1, 8192) + "_SI23"))), StringEntry((key + "_SI24"), getStringValue((pick_one(song_0, song_1, rand_1, 16384) + "_SI24"))), StringEntry((key + "_SI25"), getStringValue((pick_one(song_0, song_1, rand_1, 32768) + "_SI25"))), StringEntry((key + "_SI26"), getStringValue((pick_one(song_0, song_1, rand_1, 65536) + "_SI26"))), StringEntry((key + "_SI27"), getStringValue((pick_one(song_0, song_1, rand_1, 131072) + "_SI27"))), StringEntry((key + "_SI30"), getStringValue((pick_one(song_0, song_1, rand_1, 262144) + "_SI30"))), StringEntry((key + "_SI31"), getStringValue((pick_one(song_0, song_1, rand_1, 524288) + "_SI31"))), StringEntry((key + "_SI32"), getStringValue((pick_one(song_0, song_1, rand_1, 1048576) + "_SI32"))), StringEntry((key + "_SI33"), getStringValue((pick_one(song_0, song_1, rand_1, 2097152) + "_SI33"))), StringEntry((key + "_SI34"), getStringValue((pick_one(song_0, song_1, rand_1, 4194304) + "_SI34"))), StringEntry((key + "_SI35"), getStringValue((pick_one(song_0, song_1, rand_1, 8388608) + "_SI35"))), StringEntry((key + "_SI36"), getStringValue((pick_one(song_0, song_1, rand_1, 16777216) + "_SI36"))), StringEntry((key + "_SI37"), getStringValue((pick_one(song_0, song_1, rand_1, 33554432) + "_SI37"))), StringEntry((key + "_SI40"), getStringValue((pick_one(song_0, song_1, rand_1, 67108864) + "_SI40"))), StringEntry((key + "_SI41"), getStringValue((pick_one(song_0, song_1, rand_1, 134217728) + "_SI41"))), StringEntry((key + "_SI42"), getStringValue((pick_one(song_0, song_1, rand_1, 268435456) + "_SI42"))), StringEntry((key + "_SI43"), getStringValue((pick_one(song_0, song_1, rand_1, 536870912) + "_SI43"))), StringEntry((key + "_SI44"), getStringValue((pick_one(song_0, song_1, rand_1, 1073741824) + "_SI44"))), StringEntry((key + "_SI45"), getStringValue((pick_one(song_0, song_1, rand_1, 2147483648) + "_SI45"))), StringEntry((key + "_SI46"), getStringValue((pick_one(song_0, song_1, rand_1, 4294967296) + "_SI46"))), StringEntry((key + "_SI47"), getStringValue((pick_one(song_0, song_1, rand_1, 8589934592) + "_SI47"))), ScriptTransfer(Address(i.caller.bytes), 1, id_b)]
77+            }
78+        else throw("Strict value is not equal to itself.")
79+    }
80+
81+
82+func check_whitelist (caller) = if ((this == caller))
83+    then true
84+    else     match getBoolean(("W_" + toBase58String(caller.bytes))) {
85+        case x: Boolean => 
86+            x
87+        case _ => 
88+            false
89+    }
90+
91+
92+func fold_set_rarity (accum,index) = {
93+    let $t098009837 = accum
94+    let entries = $t098009837._1
95+    let assets = $t098009837._2
96+    let values = $t098009837._3
97+    if ((index >= size(assets)))
98+        then accum
99+        else if (if ((0 > values[index]))
100+            then true
101+            else (values[index] > 100))
102+            then throw("Invalid rarity value (must be in range from 0 to 100)")
103+            else $Tuple3((entries :+ IntegerEntry(("rarity_" + assets[index]), values[index])), assets, values)
58104     }
59105 
60106 
61107 @Callable(i)
62-func set_price_hybrid (token,amount) = if ((this != i.caller))
108+func whitelist_add (user) = if ((this != i.caller))
63109     then throw("Caller is not dApp owner")
64-    else $Tuple2([StringEntry("price_hybrid_token", token), IntegerEntry("price_hybrid_amount", amount)], unit)
110+    else $Tuple2([BooleanEntry(("W_" + user), true)], unit)
65111 
66112 
67113 
68114 @Callable(i)
69-func mint_chord (name,notes) = if ((this != i.caller))
115+func whitelist_remove (user) = if ((this != i.caller))
70116     then throw("Caller is not dApp owner")
117+    else $Tuple2([DeleteEntry(("W_" + user))], unit)
118+
119+
120+
121+@Callable(i)
122+func set_daemon (address) = if ((this != i.caller))
123+    then throw("Caller is not dApp owner")
124+    else $Tuple2([StringEntry("daemon", address)], unit)
125+
126+
127+
128+@Callable(i)
129+func set_rarity (assets,values) = if (match getString("daemon") {
130+    case x: String => 
131+        (x != toBase58String(i.caller.bytes))
132+    case _ => 
133+        true
134+})
135+    then throw("Caller is not daemon")
136+    else if ((size(assets) == 0))
137+        then throw("No assets")
138+        else if ((size(assets) > 20))
139+            then throw("To many assets (must be no more than 20)")
140+            else if ((size(assets) != size(values)))
141+                then throw("Assets and values list size mismatch")
142+                else {
143+                    let $t01114011235 = {
144+                        let $l = indices_20
145+                        let $s = size($l)
146+                        let $acc0 = $Tuple3(nil, assets, values)
147+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
148+                            then $a
149+                            else fold_set_rarity($a, $l[$i])
150+
151+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
152+                            then $a
153+                            else throw("List size exceeds 20")
154+
155+                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
156+                        }
157+                    let entries = $t01114011235._1
158+                    let assets_ = $t01114011235._2
159+                    let values_ = $t01114011235._3
160+                    $Tuple2(entries, unit)
161+                    }
162+
163+
164+
165+@Callable(i)
166+func set_market_image (url) = if (!(check_whitelist(i.caller)))
167+    then throw("Caller not in whitelist")
168+    else $Tuple2([StringEntry("market_image_link", url)], unit)
169+
170+
171+
172+@Callable(i)
173+func set_price_hybrid (token,amount,increment) = if (!(check_whitelist(i.caller)))
174+    then throw("Caller not in whitelist")
175+    else $Tuple2([StringEntry("price_hybrid_token", token), IntegerEntry("price_hybrid_amount", amount), IntegerEntry("price_hybrid_increment", increment)], unit)
176+
177+
178+
179+@Callable(i)
180+func mint_chord (index,name,notes) = if (!(check_whitelist(i.caller)))
181+    then throw("Caller not in whitelist")
71182     else if ((size(notes) != 5))
72183         then throw("Wrong notes size")
73184         else {
77188                 case _ => 
78189                     0
79190             }
80-            let key = to_key(n)
81-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_CL"), name), IntegerEntry((key + "_C0"), notes[0]), IntegerEntry((key + "_C1"), notes[1]), IntegerEntry((key + "_C2"), notes[2]), IntegerEntry((key + "_C3"), notes[3]), IntegerEntry((key + "_C4"), notes[4])], unit)
191+            let key = to_key(index)
192+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_CL"), name), IntegerEntry((key + "_C0"), notes[0]), IntegerEntry((key + "_C1"), notes[1]), IntegerEntry((key + "_C2"), notes[2]), IntegerEntry((key + "_C3"), notes[3]), IntegerEntry((key + "_C4"), notes[4])], unit)
82193             }
83194 
84195 
85196 
86197 @Callable(i)
87-func mint_melody (name,notes) = if ((this != i.caller))
88-    then throw("Caller is not dApp owner")
198+func mint_arpeggio (index,name,notes) = if (!(check_whitelist(i.caller)))
199+    then throw("Caller not in whitelist")
89200     else if ((size(notes) != 16))
90201         then throw("Wrong notes size")
91202         else {
95206                 case _ => 
96207                     0
97208             }
98-            let key = to_key(n)
99-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_ML"), name), IntegerEntry((key + "_M00"), notes[0]), IntegerEntry((key + "_M01"), notes[1]), IntegerEntry((key + "_M02"), notes[2]), IntegerEntry((key + "_M03"), notes[3]), IntegerEntry((key + "_M04"), notes[4]), IntegerEntry((key + "_M05"), notes[5]), IntegerEntry((key + "_M06"), notes[6]), IntegerEntry((key + "_M07"), notes[7]), IntegerEntry((key + "_M08"), notes[8]), IntegerEntry((key + "_M09"), notes[9]), IntegerEntry((key + "_M10"), notes[10]), IntegerEntry((key + "_M11"), notes[11]), IntegerEntry((key + "_M12"), notes[12]), IntegerEntry((key + "_M13"), notes[13]), IntegerEntry((key + "_M14"), notes[14]), IntegerEntry((key + "_M15"), notes[15])], unit)
209+            let key = to_key(index)
210+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_AL"), name), IntegerEntry((key + "_A00"), notes[0]), IntegerEntry((key + "_A01"), notes[1]), IntegerEntry((key + "_A02"), notes[2]), IntegerEntry((key + "_A03"), notes[3]), IntegerEntry((key + "_A04"), notes[4]), IntegerEntry((key + "_A05"), notes[5]), IntegerEntry((key + "_A06"), notes[6]), IntegerEntry((key + "_A07"), notes[7]), IntegerEntry((key + "_A08"), notes[8]), IntegerEntry((key + "_A09"), notes[9]), IntegerEntry((key + "_A10"), notes[10]), IntegerEntry((key + "_A11"), notes[11]), IntegerEntry((key + "_A12"), notes[12]), IntegerEntry((key + "_A13"), notes[13]), IntegerEntry((key + "_A14"), notes[14]), IntegerEntry((key + "_A15"), notes[15])], unit)
100211             }
101212 
102213 
103214 
104215 @Callable(i)
105-func mint_rhythm (name,scale,notes) = if ((this != i.caller))
106-    then throw("Caller is not dApp owner")
216+func mint_rhythm (index,name,scale,notes) = if (!(check_whitelist(i.caller)))
217+    then throw("Caller not in whitelist")
107218     else if ((size(notes) != 16))
108219         then throw("Wrong notes size")
109220         else {
113224                 case _ => 
114225                     0
115226             }
116-            let key = to_key(n)
117-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_RL"), name), IntegerEntry((key + "_RS"), scale), IntegerEntry((key + "_R00"), notes[0]), IntegerEntry((key + "_R01"), notes[1]), IntegerEntry((key + "_R02"), notes[2]), IntegerEntry((key + "_R03"), notes[3]), IntegerEntry((key + "_R04"), notes[4]), IntegerEntry((key + "_R05"), notes[5]), IntegerEntry((key + "_R06"), notes[6]), IntegerEntry((key + "_R07"), notes[7]), IntegerEntry((key + "_R08"), notes[8]), IntegerEntry((key + "_R09"), notes[9]), IntegerEntry((key + "_R10"), notes[10]), IntegerEntry((key + "_R11"), notes[11]), IntegerEntry((key + "_R12"), notes[12]), IntegerEntry((key + "_R13"), notes[13]), IntegerEntry((key + "_R14"), notes[14]), IntegerEntry((key + "_R15"), notes[15])], unit)
227+            let key = to_key(index)
228+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_RL"), name), IntegerEntry((key + "_RS"), scale), IntegerEntry((key + "_R00"), notes[0]), IntegerEntry((key + "_R01"), notes[1]), IntegerEntry((key + "_R02"), notes[2]), IntegerEntry((key + "_R03"), notes[3]), IntegerEntry((key + "_R04"), notes[4]), IntegerEntry((key + "_R05"), notes[5]), IntegerEntry((key + "_R06"), notes[6]), IntegerEntry((key + "_R07"), notes[7]), IntegerEntry((key + "_R08"), notes[8]), IntegerEntry((key + "_R09"), notes[9]), IntegerEntry((key + "_R10"), notes[10]), IntegerEntry((key + "_R11"), notes[11]), IntegerEntry((key + "_R12"), notes[12]), IntegerEntry((key + "_R13"), notes[13]), IntegerEntry((key + "_R14"), notes[14]), IntegerEntry((key + "_R15"), notes[15])], unit)
118229             }
119230 
120231 
121232 
122233 @Callable(i)
123-func mint_song (name,parent_0,parent_1,bpm,bar_size,beat_size,tonality,chords,melody,kick_instrument,snare_instrument,hihat_instrument,bass_instrument,back_instrument,lead_instrument,kick_rhythms,snare_rhythms,hihat_rhythms,bass_rhythms,back_rhythms,lead_rhythms) = if ((this != i.caller))
124-    then throw("Caller is not dApp owner")
234+func burn_internal (asset_id) = if (!(check_whitelist(i.caller)))
235+    then throw("Caller not in whitelist")
236+    else {
237+        let burn0 = invoke(nft_creation_address, "burnNFT", nil, [AttachedPayment(fromBase58String(asset_id), 1)])
238+        if ((burn0 == burn0))
239+            then $Tuple2(nil, unit)
240+            else throw("Strict value is not equal to itself.")
241+        }
242+
243+
244+
245+@Callable(i)
246+func burn () = if (!(check_whitelist(i.caller)))
247+    then throw("Caller not in whitelist")
248+    else {
249+        let burn0 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[0]])
250+        if ((burn0 == burn0))
251+            then $Tuple2(nil, unit)
252+            else throw("Strict value is not equal to itself.")
253+        }
254+
255+
256+
257+@Callable(i)
258+func mint_song (name,parent_0,parent_1,bpm,bar_size,beat_size,tonality,chords,arpeggio,kick_instrument,snare_instrument,hihat_instrument,bass_instrument,back_instrument,lead_instrument,kick_rhythms,snare_rhythms,hihat_rhythms,bass_rhythms,back_rhythms,lead_rhythms) = if (!(check_whitelist(i.caller)))
259+    then throw("Caller not in whitelist")
125260     else if ((size(chords) != 8))
126261         then throw("Wrong chords size")
127262         else if ((size(kick_rhythms) != 8))
143278                                         case _ => 
144279                                             0
145280                                     }
146-                                    let issue = Issue(take(name, 16), "Clef song.", 1, 0, false)
147-                                    let id = toBase58String(calculateAssetId(issue))
148-                                    let key = to_key(n)
149-                                    $Tuple2([issue, IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), 1), StringEntry((key + "_SL"), name), IntegerEntry((key + "_SN"), 0), StringEntry((key + "_SP0"), parent_0), StringEntry((key + "_SP1"), parent_1), IntegerEntry((key + "_SB0"), bpm), IntegerEntry((key + "_SB1"), bar_size), IntegerEntry((key + "_SB2"), beat_size), IntegerEntry((key + "_ST"), tonality), StringEntry((key + "_SC0"), chords[0]), StringEntry((key + "_SC1"), chords[1]), StringEntry((key + "_SC2"), chords[2]), StringEntry((key + "_SC3"), chords[3]), StringEntry((key + "_SC4"), chords[4]), StringEntry((key + "_SC5"), chords[5]), StringEntry((key + "_SC6"), chords[6]), StringEntry((key + "_SC7"), chords[7]), StringEntry((key + "_SM"), melody), StringEntry((key + "_SI0"), kick_instrument), StringEntry((key + "_SI1"), snare_instrument), StringEntry((key + "_SI2"), hihat_instrument), StringEntry((key + "_SI3"), bass_instrument), StringEntry((key + "_SI4"), back_instrument), StringEntry((key + "_SI5"), lead_instrument), StringEntry((key + "_SI00"), kick_rhythms[0]), StringEntry((key + "_SI01"), kick_rhythms[1]), StringEntry((key + "_SI02"), kick_rhythms[2]), StringEntry((key + "_SI03"), kick_rhythms[3]), StringEntry((key + "_SI04"), kick_rhythms[4]), StringEntry((key + "_SI05"), kick_rhythms[5]), StringEntry((key + "_SI06"), kick_rhythms[6]), StringEntry((key + "_SI07"), kick_rhythms[7]), StringEntry((key + "_SI10"), snare_rhythms[0]), StringEntry((key + "_SI11"), snare_rhythms[1]), StringEntry((key + "_SI12"), snare_rhythms[2]), StringEntry((key + "_SI13"), snare_rhythms[3]), StringEntry((key + "_SI14"), snare_rhythms[4]), StringEntry((key + "_SI15"), snare_rhythms[5]), StringEntry((key + "_SI16"), snare_rhythms[6]), StringEntry((key + "_SI17"), snare_rhythms[7]), StringEntry((key + "_SI20"), hihat_rhythms[0]), StringEntry((key + "_SI21"), hihat_rhythms[1]), StringEntry((key + "_SI22"), hihat_rhythms[2]), StringEntry((key + "_SI23"), hihat_rhythms[3]), StringEntry((key + "_SI24"), hihat_rhythms[4]), StringEntry((key + "_SI25"), hihat_rhythms[5]), StringEntry((key + "_SI26"), hihat_rhythms[6]), StringEntry((key + "_SI27"), hihat_rhythms[7]), StringEntry((key + "_SI30"), bass_rhythms[0]), StringEntry((key + "_SI31"), bass_rhythms[1]), StringEntry((key + "_SI32"), bass_rhythms[2]), StringEntry((key + "_SI33"), bass_rhythms[3]), StringEntry((key + "_SI34"), bass_rhythms[4]), StringEntry((key + "_SI35"), bass_rhythms[5]), StringEntry((key + "_SI36"), bass_rhythms[6]), StringEntry((key + "_SI37"), bass_rhythms[7]), StringEntry((key + "_SI40"), back_rhythms[0]), StringEntry((key + "_SI41"), back_rhythms[1]), StringEntry((key + "_SI42"), back_rhythms[2]), StringEntry((key + "_SI43"), back_rhythms[3]), StringEntry((key + "_SI44"), back_rhythms[4]), StringEntry((key + "_SI45"), back_rhythms[5]), StringEntry((key + "_SI46"), back_rhythms[6]), StringEntry((key + "_SI47"), back_rhythms[7]), StringEntry((key + "_SI50"), lead_rhythms[0]), StringEntry((key + "_SI51"), lead_rhythms[1]), StringEntry((key + "_SI52"), lead_rhythms[2]), StringEntry((key + "_SI53"), lead_rhythms[3]), StringEntry((key + "_SI54"), lead_rhythms[4]), StringEntry((key + "_SI55"), lead_rhythms[5]), StringEntry((key + "_SI56"), lead_rhythms[6]), StringEntry((key + "_SI57"), lead_rhythms[7])], unit)
281+                                    let name_short = take(name, 16)
282+                                    let description = mint_description
283+                                    let collection = mint_collection
284+                                    let id =                                     match invoke(nft_creation_address, "createNFT", [name_short, description, getStringValue("market_image_link"), collection], nil) {
285+                                        case x: String => 
286+                                            x
287+                                        case _ => 
288+                                            throw("NFT creation failed")
289+                                    }
290+                                    if ((id == id))
291+                                        then {
292+                                            let key = to_key(n)
293+                                            let tx_transfer = if ((this != i.caller))
294+                                                then [ScriptTransfer(Address(i.caller.bytes), 1, fromBase58String(id))]
295+                                                else nil
296+                                            $Tuple2(([IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), 1), StringEntry((key + "_SL"), name), IntegerEntry((key + "_SN"), 0), StringEntry((key + "_SP0"), parent_0), StringEntry((key + "_SP1"), parent_1), IntegerEntry((key + "_SB0"), bpm), IntegerEntry((key + "_SB1"), bar_size), IntegerEntry((key + "_SB2"), beat_size), IntegerEntry((key + "_ST"), tonality), StringEntry((key + "_SC0"), chords[0]), StringEntry((key + "_SC1"), chords[1]), StringEntry((key + "_SC2"), chords[2]), StringEntry((key + "_SC3"), chords[3]), StringEntry((key + "_SC4"), chords[4]), StringEntry((key + "_SC5"), chords[5]), StringEntry((key + "_SC6"), chords[6]), StringEntry((key + "_SC7"), chords[7]), StringEntry((key + "_SA"), arpeggio), StringEntry((key + "_SI0"), kick_instrument), StringEntry((key + "_SI1"), snare_instrument), StringEntry((key + "_SI2"), hihat_instrument), StringEntry((key + "_SI3"), bass_instrument), StringEntry((key + "_SI4"), back_instrument), StringEntry((key + "_SI5"), lead_instrument), StringEntry((key + "_SI00"), kick_rhythms[0]), StringEntry((key + "_SI01"), kick_rhythms[1]), StringEntry((key + "_SI02"), kick_rhythms[2]), StringEntry((key + "_SI03"), kick_rhythms[3]), StringEntry((key + "_SI04"), kick_rhythms[4]), StringEntry((key + "_SI05"), kick_rhythms[5]), StringEntry((key + "_SI06"), kick_rhythms[6]), StringEntry((key + "_SI07"), kick_rhythms[7]), StringEntry((key + "_SI10"), snare_rhythms[0]), StringEntry((key + "_SI11"), snare_rhythms[1]), StringEntry((key + "_SI12"), snare_rhythms[2]), StringEntry((key + "_SI13"), snare_rhythms[3]), StringEntry((key + "_SI14"), snare_rhythms[4]), StringEntry((key + "_SI15"), snare_rhythms[5]), StringEntry((key + "_SI16"), snare_rhythms[6]), StringEntry((key + "_SI17"), snare_rhythms[7]), StringEntry((key + "_SI20"), hihat_rhythms[0]), StringEntry((key + "_SI21"), hihat_rhythms[1]), StringEntry((key + "_SI22"), hihat_rhythms[2]), StringEntry((key + "_SI23"), hihat_rhythms[3]), StringEntry((key + "_SI24"), hihat_rhythms[4]), StringEntry((key + "_SI25"), hihat_rhythms[5]), StringEntry((key + "_SI26"), hihat_rhythms[6]), StringEntry((key + "_SI27"), hihat_rhythms[7]), StringEntry((key + "_SI30"), bass_rhythms[0]), StringEntry((key + "_SI31"), bass_rhythms[1]), StringEntry((key + "_SI32"), bass_rhythms[2]), StringEntry((key + "_SI33"), bass_rhythms[3]), StringEntry((key + "_SI34"), bass_rhythms[4]), StringEntry((key + "_SI35"), bass_rhythms[5]), StringEntry((key + "_SI36"), bass_rhythms[6]), StringEntry((key + "_SI37"), bass_rhythms[7]), StringEntry((key + "_SI40"), back_rhythms[0]), StringEntry((key + "_SI41"), back_rhythms[1]), StringEntry((key + "_SI42"), back_rhythms[2]), StringEntry((key + "_SI43"), back_rhythms[3]), StringEntry((key + "_SI44"), back_rhythms[4]), StringEntry((key + "_SI45"), back_rhythms[5]), StringEntry((key + "_SI46"), back_rhythms[6]), StringEntry((key + "_SI47"), back_rhythms[7]), StringEntry((key + "_SI50"), lead_rhythms[0]), StringEntry((key + "_SI51"), lead_rhythms[1]), StringEntry((key + "_SI52"), lead_rhythms[2]), StringEntry((key + "_SI53"), lead_rhythms[3]), StringEntry((key + "_SI54"), lead_rhythms[4]), StringEntry((key + "_SI55"), lead_rhythms[5]), StringEntry((key + "_SI56"), lead_rhythms[6]), StringEntry((key + "_SI57"), lead_rhythms[7])] ++ tx_transfer), unit)
297+                                            }
298+                                        else throw("Strict value is not equal to itself.")
150299                                     }
151300 
152301 
156305     let caller_addr = Address(i.caller.bytes)
157306     let song_0_id = fromBase58String(getStringValue(song_0))
158307     let song_1_id = fromBase58String(getStringValue(song_1))
159-    if (!(check_hybrid_payment(i)))
308+    let price_amount = getIntegerValue("price_hybrid_amount")
309+    let price_token = getStringValue("price_hybrid_token")
310+    let price_change = hybrid_calculate_change(i, price_token, price_amount)
311+    if ((0 > price_change))
160312         then throw("Wrong payment")
161313         else if ((song_0_id == song_1_id))
162314             then throw("Songs should be different")
164316                 then throw("Caller do not own first song")
165317                 else if ((1 > assetBalance(caller_addr, song_1_id)))
166318                     then throw("Caller do not own second song")
167-                    else $Tuple2(make_hybrid_tx(i, song_0, song_1), unit)
319+                    else {
320+                        let mint_count =                         match getInteger("mint_count") {
321+                            case j: Int => 
322+                                j
323+                            case _ => 
324+                                0
325+                        }
326+                        let price_count_inc = IntegerEntry("mint_count", (mint_count + 1))
327+                        let price_increase = if (((mint_count % price_increase_period) == (price_increase_period - 1)))
328+                            then [price_count_inc, IntegerEntry("price_hybrid_amount", (price_amount + getIntegerValue("price_hybrid_increment")))]
329+                            else [price_count_inc]
330+                        if ((price_change > 0))
331+                            then $Tuple2(((make_hybrid_tx(i, song_0, song_1) ++ price_increase) ++ [ScriptTransfer(Address(i.caller.bytes), price_change, if ((price_token == ""))
332+                                then unit
333+                                else fromBase58String(price_token))]), unit)
334+                            else $Tuple2((make_hybrid_tx(i, song_0, song_1) ++ price_increase), unit)
335+                        }
168336     }
169337 
170338 
194362             else {
195363                 let song_0 = getStringValue(toBase58String(song_0_id))
196364                 let song_1 = getStringValue(toBase58String(song_1_id))
197-                $Tuple2((make_hybrid_tx(i, song_0, song_1) ++ [Burn(song_0_id, 1), Burn(song_1_id, 1)]), unit)
365+                let burn0 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[0]])
366+                if ((burn0 == burn0))
367+                    then {
368+                        let burn1 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[1]])
369+                        if ((burn1 == burn1))
370+                            then $Tuple2(make_hybrid_tx(i, song_0, song_1), unit)
371+                            else throw("Strict value is not equal to itself.")
372+                        }
373+                    else throw("Strict value is not equal to itself.")
198374                 }
199375         }
200376 

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 5 #-}
1+{-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
4+let nft_creation_address = Address(base58'3NCbmjGV7YHKdkHEfWkfGhmZyXsJbymQ5Z5')
5+
6+let price_increase_period = 10
7+
8+let mint_collection = "Clef genesis songs"
9+
10+let mint_description = "Genesis Clef song. This melody is crafted to become your electronic jam. Use it on clef.one 💚🤍"
11+
12+let hybrid_collection = "Clef mixes"
13+
14+let hybrid_description = "Clef mix. This melody was created by an algorithm. Enjoy this jam or use it on clef.one"
15+
16+let indices_20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
17+
418 func to_key (n) = toBase58String(toBytes(n))
519 
620 
721 func unique_bytes (i) = ((((i.transactionId + i.callerPublicKey) + lastBlock.generationSignature) + toBytes(lastBlock.timestamp)) + toBytes(lastBlock.height))
822 
923 
1024 func random_uint (bytes,nonce) = {
1125     let n = toInt(sha256_16Kb((bytes + toBytes(nonce))))
1226     if ((0 > n))
1327         then -(n)
1428         else n
1529     }
1630 
1731 
1832 func pick_one (key_0,key_1,rand_int,bit_power) = if ((((rand_int / bit_power) % 2) == 0))
1933     then key_0
2034     else key_1
2135 
2236 
23-func check_hybrid_payment (i) = if ((size(i.payments) != 1))
24-    then false
37+func hybrid_calculate_change (i,token,amount) = if ((size(i.payments) != 1))
38+    then -1
2539     else {
2640         let p = i.payments[0]
2741         let p_token =         match p.assetId {
2842             case id: ByteVector => 
2943                 toBase58String(id)
3044             case _ => 
3145                 ""
3246         }
33-        let token = getStringValue("price_hybrid_token")
34-        let amount = getIntegerValue("price_hybrid_amount")
3547         if ((p_token != token))
36-            then false
37-            else if ((amount != p.amount))
38-                then false
39-                else true
48+            then -1
49+            else (p.amount - amount)
4050         }
4151 
4252 
4353 func make_hybrid_tx (i,song_0,song_1) = {
4454     let n =     match getInteger("count") {
4555         case j: Int => 
4656             j
4757         case _ => 
4858             0
4959     }
50-    let issue = Issue(("Clef " + toString(n)), "Clef song.", 1, 0, false)
51-    let id_b = calculateAssetId(issue)
52-    let id = toBase58String(id_b)
53-    let key = to_key(n)
54-    let bytes = unique_bytes(i)
55-    let rand_0 = random_uint(bytes, 0)
56-    let rand_1 = random_uint(bytes, 1)
57-[issue, IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), (max([getIntegerValue((song_0 + "_G")), getIntegerValue((song_1 + "_G"))]) + 1)), StringEntry((key + "_SL"), ""), IntegerEntry((key + "_SN"), rand_0), StringEntry((key + "_SP0"), song_0), StringEntry((key + "_SP1"), song_1), IntegerEntry((key + "_SB0"), getIntegerValue((pick_one(song_0, song_1, rand_0, 1) + "_SB0"))), IntegerEntry((key + "_SB1"), getIntegerValue((pick_one(song_0, song_1, rand_0, 2) + "_SB1"))), IntegerEntry((key + "_SB2"), getIntegerValue((pick_one(song_0, song_1, rand_0, 4) + "_SB2"))), IntegerEntry((key + "_ST"), getIntegerValue((pick_one(song_0, song_1, rand_0, 8) + "_ST"))), StringEntry((key + "_SC0"), getStringValue((pick_one(song_0, song_1, rand_0, 16) + "_SC0"))), StringEntry((key + "_SC1"), getStringValue((pick_one(song_0, song_1, rand_0, 32) + "_SC1"))), StringEntry((key + "_SC2"), getStringValue((pick_one(song_0, song_1, rand_0, 64) + "_SC2"))), StringEntry((key + "_SC3"), getStringValue((pick_one(song_0, song_1, rand_0, 128) + "_SC3"))), StringEntry((key + "_SC4"), getStringValue((pick_one(song_0, song_1, rand_0, 512) + "_SC4"))), StringEntry((key + "_SC5"), getStringValue((pick_one(song_0, song_1, rand_0, 1024) + "_SC5"))), StringEntry((key + "_SC6"), getStringValue((pick_one(song_0, song_1, rand_0, 2048) + "_SC6"))), StringEntry((key + "_SC7"), getStringValue((pick_one(song_0, song_1, rand_0, 4096) + "_SC7"))), StringEntry((key + "_SM"), getStringValue((pick_one(song_0, song_1, rand_0, 8192) + "_SM"))), StringEntry((key + "_SI0"), getStringValue((pick_one(song_0, song_1, rand_0, 16384) + "_SI0"))), StringEntry((key + "_SI1"), getStringValue((pick_one(song_0, song_1, rand_0, 32768) + "_SI1"))), StringEntry((key + "_SI2"), getStringValue((pick_one(song_0, song_1, rand_0, 65536) + "_SI2"))), StringEntry((key + "_SI3"), getStringValue((pick_one(song_0, song_1, rand_0, 131072) + "_SI3"))), StringEntry((key + "_SI4"), getStringValue((pick_one(song_0, song_1, rand_0, 262144) + "_SI4"))), StringEntry((key + "_SI5"), getStringValue((pick_one(song_0, song_1, rand_0, 524288) + "_SI5"))), StringEntry((key + "_SI50"), getStringValue((pick_one(song_0, song_1, rand_0, 1048576) + "_SI50"))), StringEntry((key + "_SI51"), getStringValue((pick_one(song_0, song_1, rand_0, 2097152) + "_SI51"))), StringEntry((key + "_SI52"), getStringValue((pick_one(song_0, song_1, rand_0, 4194304) + "_SI52"))), StringEntry((key + "_SI53"), getStringValue((pick_one(song_0, song_1, rand_0, 8388608) + "_SI53"))), StringEntry((key + "_SI54"), getStringValue((pick_one(song_0, song_1, rand_0, 16777216) + "_SI54"))), StringEntry((key + "_SI55"), getStringValue((pick_one(song_0, song_1, rand_0, 33554432) + "_SI55"))), StringEntry((key + "_SI56"), getStringValue((pick_one(song_0, song_1, rand_0, 67108864) + "_SI56"))), StringEntry((key + "_SI57"), getStringValue((pick_one(song_0, song_1, rand_0, 134217728) + "_SI57"))), StringEntry((key + "_SI00"), getStringValue((pick_one(song_0, song_1, rand_0, 268435456) + "_SI00"))), StringEntry((key + "_SI01"), getStringValue((pick_one(song_0, song_1, rand_0, 536870912) + "_SI01"))), StringEntry((key + "_SI02"), getStringValue((pick_one(song_0, song_1, rand_0, 1073741824) + "_SI02"))), StringEntry((key + "_SI03"), getStringValue((pick_one(song_0, song_1, rand_0, 2147483648) + "_SI03"))), StringEntry((key + "_SI04"), getStringValue((pick_one(song_0, song_1, rand_0, 4294967296) + "_SI04"))), StringEntry((key + "_SI05"), getStringValue((pick_one(song_0, song_1, rand_0, 8589934592) + "_SI05"))), StringEntry((key + "_SI06"), getStringValue((pick_one(song_0, song_1, rand_1, 1) + "_SI06"))), StringEntry((key + "_SI07"), getStringValue((pick_one(song_0, song_1, rand_1, 2) + "_SI07"))), StringEntry((key + "_SI10"), getStringValue((pick_one(song_0, song_1, rand_1, 4) + "_SI10"))), StringEntry((key + "_SI11"), getStringValue((pick_one(song_0, song_1, rand_1, 8) + "_SI11"))), StringEntry((key + "_SI12"), getStringValue((pick_one(song_0, song_1, rand_1, 16) + "_SI12"))), StringEntry((key + "_SI13"), getStringValue((pick_one(song_0, song_1, rand_1, 32) + "_SI13"))), StringEntry((key + "_SI14"), getStringValue((pick_one(song_0, song_1, rand_1, 64) + "_SI14"))), StringEntry((key + "_SI15"), getStringValue((pick_one(song_0, song_1, rand_1, 128) + "_SI15"))), StringEntry((key + "_SI16"), getStringValue((pick_one(song_0, song_1, rand_1, 256) + "_SI16"))), StringEntry((key + "_SI17"), getStringValue((pick_one(song_0, song_1, rand_1, 512) + "_SI17"))), StringEntry((key + "_SI20"), getStringValue((pick_one(song_0, song_1, rand_1, 1024) + "_SI20"))), StringEntry((key + "_SI21"), getStringValue((pick_one(song_0, song_1, rand_1, 2048) + "_SI21"))), StringEntry((key + "_SI22"), getStringValue((pick_one(song_0, song_1, rand_1, 4096) + "_SI22"))), StringEntry((key + "_SI23"), getStringValue((pick_one(song_0, song_1, rand_1, 8192) + "_SI23"))), StringEntry((key + "_SI24"), getStringValue((pick_one(song_0, song_1, rand_1, 16384) + "_SI24"))), StringEntry((key + "_SI25"), getStringValue((pick_one(song_0, song_1, rand_1, 32768) + "_SI25"))), StringEntry((key + "_SI26"), getStringValue((pick_one(song_0, song_1, rand_1, 65536) + "_SI26"))), StringEntry((key + "_SI27"), getStringValue((pick_one(song_0, song_1, rand_1, 131072) + "_SI27"))), StringEntry((key + "_SI30"), getStringValue((pick_one(song_0, song_1, rand_1, 262144) + "_SI30"))), StringEntry((key + "_SI31"), getStringValue((pick_one(song_0, song_1, rand_1, 524288) + "_SI31"))), StringEntry((key + "_SI32"), getStringValue((pick_one(song_0, song_1, rand_1, 1048576) + "_SI32"))), StringEntry((key + "_SI33"), getStringValue((pick_one(song_0, song_1, rand_1, 2097152) + "_SI33"))), StringEntry((key + "_SI34"), getStringValue((pick_one(song_0, song_1, rand_1, 4194304) + "_SI34"))), StringEntry((key + "_SI35"), getStringValue((pick_one(song_0, song_1, rand_1, 8388608) + "_SI35"))), StringEntry((key + "_SI36"), getStringValue((pick_one(song_0, song_1, rand_1, 16777216) + "_SI36"))), StringEntry((key + "_SI37"), getStringValue((pick_one(song_0, song_1, rand_1, 33554432) + "_SI37"))), StringEntry((key + "_SI40"), getStringValue((pick_one(song_0, song_1, rand_1, 67108864) + "_SI40"))), StringEntry((key + "_SI41"), getStringValue((pick_one(song_0, song_1, rand_1, 134217728) + "_SI41"))), StringEntry((key + "_SI42"), getStringValue((pick_one(song_0, song_1, rand_1, 268435456) + "_SI42"))), StringEntry((key + "_SI43"), getStringValue((pick_one(song_0, song_1, rand_1, 536870912) + "_SI43"))), StringEntry((key + "_SI44"), getStringValue((pick_one(song_0, song_1, rand_1, 1073741824) + "_SI44"))), StringEntry((key + "_SI45"), getStringValue((pick_one(song_0, song_1, rand_1, 2147483648) + "_SI45"))), StringEntry((key + "_SI46"), getStringValue((pick_one(song_0, song_1, rand_1, 4294967296) + "_SI46"))), StringEntry((key + "_SI47"), getStringValue((pick_one(song_0, song_1, rand_1, 8589934592) + "_SI47"))), ScriptTransfer(Address(i.caller.bytes), 1, id_b)]
60+    let name_short = take(("Clef " + toString(n)), 16)
61+    let description = hybrid_description
62+    let collection = hybrid_collection
63+    let id =     match invoke(nft_creation_address, "createNFT", [name_short, description, getStringValue("market_image_link"), collection], nil) {
64+        case x: String => 
65+            x
66+        case _ => 
67+            throw("NFT creation failed")
68+    }
69+    if ((id == id))
70+        then {
71+            let id_b = fromBase58String(id)
72+            let key = to_key(n)
73+            let bytes = unique_bytes(i)
74+            let rand_0 = random_uint(bytes, 0)
75+            let rand_1 = random_uint(bytes, 1)
76+[IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), (max([getIntegerValue((song_0 + "_G")), getIntegerValue((song_1 + "_G"))]) + 1)), StringEntry((key + "_SL"), ""), IntegerEntry((key + "_SN"), rand_0), StringEntry((key + "_SP0"), song_0), StringEntry((key + "_SP1"), song_1), IntegerEntry((key + "_SB0"), getIntegerValue((pick_one(song_0, song_1, rand_0, 1) + "_SB0"))), IntegerEntry((key + "_SB1"), getIntegerValue((pick_one(song_0, song_1, rand_0, 2) + "_SB1"))), IntegerEntry((key + "_SB2"), getIntegerValue((pick_one(song_0, song_1, rand_0, 4) + "_SB2"))), IntegerEntry((key + "_ST"), getIntegerValue((pick_one(song_0, song_1, rand_0, 8) + "_ST"))), StringEntry((key + "_SC0"), getStringValue((pick_one(song_0, song_1, rand_0, 16) + "_SC0"))), StringEntry((key + "_SC1"), getStringValue((pick_one(song_0, song_1, rand_0, 32) + "_SC1"))), StringEntry((key + "_SC2"), getStringValue((pick_one(song_0, song_1, rand_0, 64) + "_SC2"))), StringEntry((key + "_SC3"), getStringValue((pick_one(song_0, song_1, rand_0, 128) + "_SC3"))), StringEntry((key + "_SC4"), getStringValue((pick_one(song_0, song_1, rand_0, 512) + "_SC4"))), StringEntry((key + "_SC5"), getStringValue((pick_one(song_0, song_1, rand_0, 1024) + "_SC5"))), StringEntry((key + "_SC6"), getStringValue((pick_one(song_0, song_1, rand_0, 2048) + "_SC6"))), StringEntry((key + "_SC7"), getStringValue((pick_one(song_0, song_1, rand_0, 4096) + "_SC7"))), StringEntry((key + "_SA"), getStringValue((pick_one(song_0, song_1, rand_0, 8192) + "_SA"))), StringEntry((key + "_SI0"), getStringValue((pick_one(song_0, song_1, rand_0, 16384) + "_SI0"))), StringEntry((key + "_SI1"), getStringValue((pick_one(song_0, song_1, rand_0, 32768) + "_SI1"))), StringEntry((key + "_SI2"), getStringValue((pick_one(song_0, song_1, rand_0, 65536) + "_SI2"))), StringEntry((key + "_SI3"), getStringValue((pick_one(song_0, song_1, rand_0, 131072) + "_SI3"))), StringEntry((key + "_SI4"), getStringValue((pick_one(song_0, song_1, rand_0, 262144) + "_SI4"))), StringEntry((key + "_SI5"), getStringValue((pick_one(song_0, song_1, rand_0, 524288) + "_SI5"))), StringEntry((key + "_SI50"), getStringValue((pick_one(song_0, song_1, rand_0, 1048576) + "_SI50"))), StringEntry((key + "_SI51"), getStringValue((pick_one(song_0, song_1, rand_0, 2097152) + "_SI51"))), StringEntry((key + "_SI52"), getStringValue((pick_one(song_0, song_1, rand_0, 4194304) + "_SI52"))), StringEntry((key + "_SI53"), getStringValue((pick_one(song_0, song_1, rand_0, 8388608) + "_SI53"))), StringEntry((key + "_SI54"), getStringValue((pick_one(song_0, song_1, rand_0, 16777216) + "_SI54"))), StringEntry((key + "_SI55"), getStringValue((pick_one(song_0, song_1, rand_0, 33554432) + "_SI55"))), StringEntry((key + "_SI56"), getStringValue((pick_one(song_0, song_1, rand_0, 67108864) + "_SI56"))), StringEntry((key + "_SI57"), getStringValue((pick_one(song_0, song_1, rand_0, 134217728) + "_SI57"))), StringEntry((key + "_SI00"), getStringValue((pick_one(song_0, song_1, rand_0, 268435456) + "_SI00"))), StringEntry((key + "_SI01"), getStringValue((pick_one(song_0, song_1, rand_0, 536870912) + "_SI01"))), StringEntry((key + "_SI02"), getStringValue((pick_one(song_0, song_1, rand_0, 1073741824) + "_SI02"))), StringEntry((key + "_SI03"), getStringValue((pick_one(song_0, song_1, rand_0, 2147483648) + "_SI03"))), StringEntry((key + "_SI04"), getStringValue((pick_one(song_0, song_1, rand_0, 4294967296) + "_SI04"))), StringEntry((key + "_SI05"), getStringValue((pick_one(song_0, song_1, rand_0, 8589934592) + "_SI05"))), StringEntry((key + "_SI06"), getStringValue((pick_one(song_0, song_1, rand_1, 1) + "_SI06"))), StringEntry((key + "_SI07"), getStringValue((pick_one(song_0, song_1, rand_1, 2) + "_SI07"))), StringEntry((key + "_SI10"), getStringValue((pick_one(song_0, song_1, rand_1, 4) + "_SI10"))), StringEntry((key + "_SI11"), getStringValue((pick_one(song_0, song_1, rand_1, 8) + "_SI11"))), StringEntry((key + "_SI12"), getStringValue((pick_one(song_0, song_1, rand_1, 16) + "_SI12"))), StringEntry((key + "_SI13"), getStringValue((pick_one(song_0, song_1, rand_1, 32) + "_SI13"))), StringEntry((key + "_SI14"), getStringValue((pick_one(song_0, song_1, rand_1, 64) + "_SI14"))), StringEntry((key + "_SI15"), getStringValue((pick_one(song_0, song_1, rand_1, 128) + "_SI15"))), StringEntry((key + "_SI16"), getStringValue((pick_one(song_0, song_1, rand_1, 256) + "_SI16"))), StringEntry((key + "_SI17"), getStringValue((pick_one(song_0, song_1, rand_1, 512) + "_SI17"))), StringEntry((key + "_SI20"), getStringValue((pick_one(song_0, song_1, rand_1, 1024) + "_SI20"))), StringEntry((key + "_SI21"), getStringValue((pick_one(song_0, song_1, rand_1, 2048) + "_SI21"))), StringEntry((key + "_SI22"), getStringValue((pick_one(song_0, song_1, rand_1, 4096) + "_SI22"))), StringEntry((key + "_SI23"), getStringValue((pick_one(song_0, song_1, rand_1, 8192) + "_SI23"))), StringEntry((key + "_SI24"), getStringValue((pick_one(song_0, song_1, rand_1, 16384) + "_SI24"))), StringEntry((key + "_SI25"), getStringValue((pick_one(song_0, song_1, rand_1, 32768) + "_SI25"))), StringEntry((key + "_SI26"), getStringValue((pick_one(song_0, song_1, rand_1, 65536) + "_SI26"))), StringEntry((key + "_SI27"), getStringValue((pick_one(song_0, song_1, rand_1, 131072) + "_SI27"))), StringEntry((key + "_SI30"), getStringValue((pick_one(song_0, song_1, rand_1, 262144) + "_SI30"))), StringEntry((key + "_SI31"), getStringValue((pick_one(song_0, song_1, rand_1, 524288) + "_SI31"))), StringEntry((key + "_SI32"), getStringValue((pick_one(song_0, song_1, rand_1, 1048576) + "_SI32"))), StringEntry((key + "_SI33"), getStringValue((pick_one(song_0, song_1, rand_1, 2097152) + "_SI33"))), StringEntry((key + "_SI34"), getStringValue((pick_one(song_0, song_1, rand_1, 4194304) + "_SI34"))), StringEntry((key + "_SI35"), getStringValue((pick_one(song_0, song_1, rand_1, 8388608) + "_SI35"))), StringEntry((key + "_SI36"), getStringValue((pick_one(song_0, song_1, rand_1, 16777216) + "_SI36"))), StringEntry((key + "_SI37"), getStringValue((pick_one(song_0, song_1, rand_1, 33554432) + "_SI37"))), StringEntry((key + "_SI40"), getStringValue((pick_one(song_0, song_1, rand_1, 67108864) + "_SI40"))), StringEntry((key + "_SI41"), getStringValue((pick_one(song_0, song_1, rand_1, 134217728) + "_SI41"))), StringEntry((key + "_SI42"), getStringValue((pick_one(song_0, song_1, rand_1, 268435456) + "_SI42"))), StringEntry((key + "_SI43"), getStringValue((pick_one(song_0, song_1, rand_1, 536870912) + "_SI43"))), StringEntry((key + "_SI44"), getStringValue((pick_one(song_0, song_1, rand_1, 1073741824) + "_SI44"))), StringEntry((key + "_SI45"), getStringValue((pick_one(song_0, song_1, rand_1, 2147483648) + "_SI45"))), StringEntry((key + "_SI46"), getStringValue((pick_one(song_0, song_1, rand_1, 4294967296) + "_SI46"))), StringEntry((key + "_SI47"), getStringValue((pick_one(song_0, song_1, rand_1, 8589934592) + "_SI47"))), ScriptTransfer(Address(i.caller.bytes), 1, id_b)]
77+            }
78+        else throw("Strict value is not equal to itself.")
79+    }
80+
81+
82+func check_whitelist (caller) = if ((this == caller))
83+    then true
84+    else     match getBoolean(("W_" + toBase58String(caller.bytes))) {
85+        case x: Boolean => 
86+            x
87+        case _ => 
88+            false
89+    }
90+
91+
92+func fold_set_rarity (accum,index) = {
93+    let $t098009837 = accum
94+    let entries = $t098009837._1
95+    let assets = $t098009837._2
96+    let values = $t098009837._3
97+    if ((index >= size(assets)))
98+        then accum
99+        else if (if ((0 > values[index]))
100+            then true
101+            else (values[index] > 100))
102+            then throw("Invalid rarity value (must be in range from 0 to 100)")
103+            else $Tuple3((entries :+ IntegerEntry(("rarity_" + assets[index]), values[index])), assets, values)
58104     }
59105 
60106 
61107 @Callable(i)
62-func set_price_hybrid (token,amount) = if ((this != i.caller))
108+func whitelist_add (user) = if ((this != i.caller))
63109     then throw("Caller is not dApp owner")
64-    else $Tuple2([StringEntry("price_hybrid_token", token), IntegerEntry("price_hybrid_amount", amount)], unit)
110+    else $Tuple2([BooleanEntry(("W_" + user), true)], unit)
65111 
66112 
67113 
68114 @Callable(i)
69-func mint_chord (name,notes) = if ((this != i.caller))
115+func whitelist_remove (user) = if ((this != i.caller))
70116     then throw("Caller is not dApp owner")
117+    else $Tuple2([DeleteEntry(("W_" + user))], unit)
118+
119+
120+
121+@Callable(i)
122+func set_daemon (address) = if ((this != i.caller))
123+    then throw("Caller is not dApp owner")
124+    else $Tuple2([StringEntry("daemon", address)], unit)
125+
126+
127+
128+@Callable(i)
129+func set_rarity (assets,values) = if (match getString("daemon") {
130+    case x: String => 
131+        (x != toBase58String(i.caller.bytes))
132+    case _ => 
133+        true
134+})
135+    then throw("Caller is not daemon")
136+    else if ((size(assets) == 0))
137+        then throw("No assets")
138+        else if ((size(assets) > 20))
139+            then throw("To many assets (must be no more than 20)")
140+            else if ((size(assets) != size(values)))
141+                then throw("Assets and values list size mismatch")
142+                else {
143+                    let $t01114011235 = {
144+                        let $l = indices_20
145+                        let $s = size($l)
146+                        let $acc0 = $Tuple3(nil, assets, values)
147+                        func $f0_1 ($a,$i) =                         if (($i >= $s))
148+                            then $a
149+                            else fold_set_rarity($a, $l[$i])
150+
151+                        func $f0_2 ($a,$i) =                         if (($i >= $s))
152+                            then $a
153+                            else throw("List size exceeds 20")
154+
155+                        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
156+                        }
157+                    let entries = $t01114011235._1
158+                    let assets_ = $t01114011235._2
159+                    let values_ = $t01114011235._3
160+                    $Tuple2(entries, unit)
161+                    }
162+
163+
164+
165+@Callable(i)
166+func set_market_image (url) = if (!(check_whitelist(i.caller)))
167+    then throw("Caller not in whitelist")
168+    else $Tuple2([StringEntry("market_image_link", url)], unit)
169+
170+
171+
172+@Callable(i)
173+func set_price_hybrid (token,amount,increment) = if (!(check_whitelist(i.caller)))
174+    then throw("Caller not in whitelist")
175+    else $Tuple2([StringEntry("price_hybrid_token", token), IntegerEntry("price_hybrid_amount", amount), IntegerEntry("price_hybrid_increment", increment)], unit)
176+
177+
178+
179+@Callable(i)
180+func mint_chord (index,name,notes) = if (!(check_whitelist(i.caller)))
181+    then throw("Caller not in whitelist")
71182     else if ((size(notes) != 5))
72183         then throw("Wrong notes size")
73184         else {
74185             let n =             match getInteger("count") {
75186                 case j: Int => 
76187                     j
77188                 case _ => 
78189                     0
79190             }
80-            let key = to_key(n)
81-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_CL"), name), IntegerEntry((key + "_C0"), notes[0]), IntegerEntry((key + "_C1"), notes[1]), IntegerEntry((key + "_C2"), notes[2]), IntegerEntry((key + "_C3"), notes[3]), IntegerEntry((key + "_C4"), notes[4])], unit)
191+            let key = to_key(index)
192+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_CL"), name), IntegerEntry((key + "_C0"), notes[0]), IntegerEntry((key + "_C1"), notes[1]), IntegerEntry((key + "_C2"), notes[2]), IntegerEntry((key + "_C3"), notes[3]), IntegerEntry((key + "_C4"), notes[4])], unit)
82193             }
83194 
84195 
85196 
86197 @Callable(i)
87-func mint_melody (name,notes) = if ((this != i.caller))
88-    then throw("Caller is not dApp owner")
198+func mint_arpeggio (index,name,notes) = if (!(check_whitelist(i.caller)))
199+    then throw("Caller not in whitelist")
89200     else if ((size(notes) != 16))
90201         then throw("Wrong notes size")
91202         else {
92203             let n =             match getInteger("count") {
93204                 case j: Int => 
94205                     j
95206                 case _ => 
96207                     0
97208             }
98-            let key = to_key(n)
99-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_ML"), name), IntegerEntry((key + "_M00"), notes[0]), IntegerEntry((key + "_M01"), notes[1]), IntegerEntry((key + "_M02"), notes[2]), IntegerEntry((key + "_M03"), notes[3]), IntegerEntry((key + "_M04"), notes[4]), IntegerEntry((key + "_M05"), notes[5]), IntegerEntry((key + "_M06"), notes[6]), IntegerEntry((key + "_M07"), notes[7]), IntegerEntry((key + "_M08"), notes[8]), IntegerEntry((key + "_M09"), notes[9]), IntegerEntry((key + "_M10"), notes[10]), IntegerEntry((key + "_M11"), notes[11]), IntegerEntry((key + "_M12"), notes[12]), IntegerEntry((key + "_M13"), notes[13]), IntegerEntry((key + "_M14"), notes[14]), IntegerEntry((key + "_M15"), notes[15])], unit)
209+            let key = to_key(index)
210+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_AL"), name), IntegerEntry((key + "_A00"), notes[0]), IntegerEntry((key + "_A01"), notes[1]), IntegerEntry((key + "_A02"), notes[2]), IntegerEntry((key + "_A03"), notes[3]), IntegerEntry((key + "_A04"), notes[4]), IntegerEntry((key + "_A05"), notes[5]), IntegerEntry((key + "_A06"), notes[6]), IntegerEntry((key + "_A07"), notes[7]), IntegerEntry((key + "_A08"), notes[8]), IntegerEntry((key + "_A09"), notes[9]), IntegerEntry((key + "_A10"), notes[10]), IntegerEntry((key + "_A11"), notes[11]), IntegerEntry((key + "_A12"), notes[12]), IntegerEntry((key + "_A13"), notes[13]), IntegerEntry((key + "_A14"), notes[14]), IntegerEntry((key + "_A15"), notes[15])], unit)
100211             }
101212 
102213 
103214 
104215 @Callable(i)
105-func mint_rhythm (name,scale,notes) = if ((this != i.caller))
106-    then throw("Caller is not dApp owner")
216+func mint_rhythm (index,name,scale,notes) = if (!(check_whitelist(i.caller)))
217+    then throw("Caller not in whitelist")
107218     else if ((size(notes) != 16))
108219         then throw("Wrong notes size")
109220         else {
110221             let n =             match getInteger("count") {
111222                 case j: Int => 
112223                     j
113224                 case _ => 
114225                     0
115226             }
116-            let key = to_key(n)
117-            $Tuple2([IntegerEntry("count", (n + 1)), StringEntry((key + "_RL"), name), IntegerEntry((key + "_RS"), scale), IntegerEntry((key + "_R00"), notes[0]), IntegerEntry((key + "_R01"), notes[1]), IntegerEntry((key + "_R02"), notes[2]), IntegerEntry((key + "_R03"), notes[3]), IntegerEntry((key + "_R04"), notes[4]), IntegerEntry((key + "_R05"), notes[5]), IntegerEntry((key + "_R06"), notes[6]), IntegerEntry((key + "_R07"), notes[7]), IntegerEntry((key + "_R08"), notes[8]), IntegerEntry((key + "_R09"), notes[9]), IntegerEntry((key + "_R10"), notes[10]), IntegerEntry((key + "_R11"), notes[11]), IntegerEntry((key + "_R12"), notes[12]), IntegerEntry((key + "_R13"), notes[13]), IntegerEntry((key + "_R14"), notes[14]), IntegerEntry((key + "_R15"), notes[15])], unit)
227+            let key = to_key(index)
228+            $Tuple2([IntegerEntry("count", max([(index + 1), n])), StringEntry((key + "_RL"), name), IntegerEntry((key + "_RS"), scale), IntegerEntry((key + "_R00"), notes[0]), IntegerEntry((key + "_R01"), notes[1]), IntegerEntry((key + "_R02"), notes[2]), IntegerEntry((key + "_R03"), notes[3]), IntegerEntry((key + "_R04"), notes[4]), IntegerEntry((key + "_R05"), notes[5]), IntegerEntry((key + "_R06"), notes[6]), IntegerEntry((key + "_R07"), notes[7]), IntegerEntry((key + "_R08"), notes[8]), IntegerEntry((key + "_R09"), notes[9]), IntegerEntry((key + "_R10"), notes[10]), IntegerEntry((key + "_R11"), notes[11]), IntegerEntry((key + "_R12"), notes[12]), IntegerEntry((key + "_R13"), notes[13]), IntegerEntry((key + "_R14"), notes[14]), IntegerEntry((key + "_R15"), notes[15])], unit)
118229             }
119230 
120231 
121232 
122233 @Callable(i)
123-func mint_song (name,parent_0,parent_1,bpm,bar_size,beat_size,tonality,chords,melody,kick_instrument,snare_instrument,hihat_instrument,bass_instrument,back_instrument,lead_instrument,kick_rhythms,snare_rhythms,hihat_rhythms,bass_rhythms,back_rhythms,lead_rhythms) = if ((this != i.caller))
124-    then throw("Caller is not dApp owner")
234+func burn_internal (asset_id) = if (!(check_whitelist(i.caller)))
235+    then throw("Caller not in whitelist")
236+    else {
237+        let burn0 = invoke(nft_creation_address, "burnNFT", nil, [AttachedPayment(fromBase58String(asset_id), 1)])
238+        if ((burn0 == burn0))
239+            then $Tuple2(nil, unit)
240+            else throw("Strict value is not equal to itself.")
241+        }
242+
243+
244+
245+@Callable(i)
246+func burn () = if (!(check_whitelist(i.caller)))
247+    then throw("Caller not in whitelist")
248+    else {
249+        let burn0 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[0]])
250+        if ((burn0 == burn0))
251+            then $Tuple2(nil, unit)
252+            else throw("Strict value is not equal to itself.")
253+        }
254+
255+
256+
257+@Callable(i)
258+func mint_song (name,parent_0,parent_1,bpm,bar_size,beat_size,tonality,chords,arpeggio,kick_instrument,snare_instrument,hihat_instrument,bass_instrument,back_instrument,lead_instrument,kick_rhythms,snare_rhythms,hihat_rhythms,bass_rhythms,back_rhythms,lead_rhythms) = if (!(check_whitelist(i.caller)))
259+    then throw("Caller not in whitelist")
125260     else if ((size(chords) != 8))
126261         then throw("Wrong chords size")
127262         else if ((size(kick_rhythms) != 8))
128263             then throw("Wrong kick rhythms size")
129264             else if ((size(snare_rhythms) != 8))
130265                 then throw("Wrong snare rhythms size")
131266                 else if ((size(hihat_rhythms) != 8))
132267                     then throw("Wrong hihat rhythms size")
133268                     else if ((size(bass_rhythms) != 8))
134269                         then throw("Wrong bass rhythms size")
135270                         else if ((size(back_rhythms) != 8))
136271                             then throw("Wrong back rhythms size")
137272                             else if ((size(lead_rhythms) != 8))
138273                                 then throw("Wrong lead rhythms size")
139274                                 else {
140275                                     let n =                                     match getInteger("count") {
141276                                         case j: Int => 
142277                                             j
143278                                         case _ => 
144279                                             0
145280                                     }
146-                                    let issue = Issue(take(name, 16), "Clef song.", 1, 0, false)
147-                                    let id = toBase58String(calculateAssetId(issue))
148-                                    let key = to_key(n)
149-                                    $Tuple2([issue, IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), 1), StringEntry((key + "_SL"), name), IntegerEntry((key + "_SN"), 0), StringEntry((key + "_SP0"), parent_0), StringEntry((key + "_SP1"), parent_1), IntegerEntry((key + "_SB0"), bpm), IntegerEntry((key + "_SB1"), bar_size), IntegerEntry((key + "_SB2"), beat_size), IntegerEntry((key + "_ST"), tonality), StringEntry((key + "_SC0"), chords[0]), StringEntry((key + "_SC1"), chords[1]), StringEntry((key + "_SC2"), chords[2]), StringEntry((key + "_SC3"), chords[3]), StringEntry((key + "_SC4"), chords[4]), StringEntry((key + "_SC5"), chords[5]), StringEntry((key + "_SC6"), chords[6]), StringEntry((key + "_SC7"), chords[7]), StringEntry((key + "_SM"), melody), StringEntry((key + "_SI0"), kick_instrument), StringEntry((key + "_SI1"), snare_instrument), StringEntry((key + "_SI2"), hihat_instrument), StringEntry((key + "_SI3"), bass_instrument), StringEntry((key + "_SI4"), back_instrument), StringEntry((key + "_SI5"), lead_instrument), StringEntry((key + "_SI00"), kick_rhythms[0]), StringEntry((key + "_SI01"), kick_rhythms[1]), StringEntry((key + "_SI02"), kick_rhythms[2]), StringEntry((key + "_SI03"), kick_rhythms[3]), StringEntry((key + "_SI04"), kick_rhythms[4]), StringEntry((key + "_SI05"), kick_rhythms[5]), StringEntry((key + "_SI06"), kick_rhythms[6]), StringEntry((key + "_SI07"), kick_rhythms[7]), StringEntry((key + "_SI10"), snare_rhythms[0]), StringEntry((key + "_SI11"), snare_rhythms[1]), StringEntry((key + "_SI12"), snare_rhythms[2]), StringEntry((key + "_SI13"), snare_rhythms[3]), StringEntry((key + "_SI14"), snare_rhythms[4]), StringEntry((key + "_SI15"), snare_rhythms[5]), StringEntry((key + "_SI16"), snare_rhythms[6]), StringEntry((key + "_SI17"), snare_rhythms[7]), StringEntry((key + "_SI20"), hihat_rhythms[0]), StringEntry((key + "_SI21"), hihat_rhythms[1]), StringEntry((key + "_SI22"), hihat_rhythms[2]), StringEntry((key + "_SI23"), hihat_rhythms[3]), StringEntry((key + "_SI24"), hihat_rhythms[4]), StringEntry((key + "_SI25"), hihat_rhythms[5]), StringEntry((key + "_SI26"), hihat_rhythms[6]), StringEntry((key + "_SI27"), hihat_rhythms[7]), StringEntry((key + "_SI30"), bass_rhythms[0]), StringEntry((key + "_SI31"), bass_rhythms[1]), StringEntry((key + "_SI32"), bass_rhythms[2]), StringEntry((key + "_SI33"), bass_rhythms[3]), StringEntry((key + "_SI34"), bass_rhythms[4]), StringEntry((key + "_SI35"), bass_rhythms[5]), StringEntry((key + "_SI36"), bass_rhythms[6]), StringEntry((key + "_SI37"), bass_rhythms[7]), StringEntry((key + "_SI40"), back_rhythms[0]), StringEntry((key + "_SI41"), back_rhythms[1]), StringEntry((key + "_SI42"), back_rhythms[2]), StringEntry((key + "_SI43"), back_rhythms[3]), StringEntry((key + "_SI44"), back_rhythms[4]), StringEntry((key + "_SI45"), back_rhythms[5]), StringEntry((key + "_SI46"), back_rhythms[6]), StringEntry((key + "_SI47"), back_rhythms[7]), StringEntry((key + "_SI50"), lead_rhythms[0]), StringEntry((key + "_SI51"), lead_rhythms[1]), StringEntry((key + "_SI52"), lead_rhythms[2]), StringEntry((key + "_SI53"), lead_rhythms[3]), StringEntry((key + "_SI54"), lead_rhythms[4]), StringEntry((key + "_SI55"), lead_rhythms[5]), StringEntry((key + "_SI56"), lead_rhythms[6]), StringEntry((key + "_SI57"), lead_rhythms[7])], unit)
281+                                    let name_short = take(name, 16)
282+                                    let description = mint_description
283+                                    let collection = mint_collection
284+                                    let id =                                     match invoke(nft_creation_address, "createNFT", [name_short, description, getStringValue("market_image_link"), collection], nil) {
285+                                        case x: String => 
286+                                            x
287+                                        case _ => 
288+                                            throw("NFT creation failed")
289+                                    }
290+                                    if ((id == id))
291+                                        then {
292+                                            let key = to_key(n)
293+                                            let tx_transfer = if ((this != i.caller))
294+                                                then [ScriptTransfer(Address(i.caller.bytes), 1, fromBase58String(id))]
295+                                                else nil
296+                                            $Tuple2(([IntegerEntry("count", (n + 1)), StringEntry(id, key), StringEntry(key, id), IntegerEntry((key + "_G"), 1), StringEntry((key + "_SL"), name), IntegerEntry((key + "_SN"), 0), StringEntry((key + "_SP0"), parent_0), StringEntry((key + "_SP1"), parent_1), IntegerEntry((key + "_SB0"), bpm), IntegerEntry((key + "_SB1"), bar_size), IntegerEntry((key + "_SB2"), beat_size), IntegerEntry((key + "_ST"), tonality), StringEntry((key + "_SC0"), chords[0]), StringEntry((key + "_SC1"), chords[1]), StringEntry((key + "_SC2"), chords[2]), StringEntry((key + "_SC3"), chords[3]), StringEntry((key + "_SC4"), chords[4]), StringEntry((key + "_SC5"), chords[5]), StringEntry((key + "_SC6"), chords[6]), StringEntry((key + "_SC7"), chords[7]), StringEntry((key + "_SA"), arpeggio), StringEntry((key + "_SI0"), kick_instrument), StringEntry((key + "_SI1"), snare_instrument), StringEntry((key + "_SI2"), hihat_instrument), StringEntry((key + "_SI3"), bass_instrument), StringEntry((key + "_SI4"), back_instrument), StringEntry((key + "_SI5"), lead_instrument), StringEntry((key + "_SI00"), kick_rhythms[0]), StringEntry((key + "_SI01"), kick_rhythms[1]), StringEntry((key + "_SI02"), kick_rhythms[2]), StringEntry((key + "_SI03"), kick_rhythms[3]), StringEntry((key + "_SI04"), kick_rhythms[4]), StringEntry((key + "_SI05"), kick_rhythms[5]), StringEntry((key + "_SI06"), kick_rhythms[6]), StringEntry((key + "_SI07"), kick_rhythms[7]), StringEntry((key + "_SI10"), snare_rhythms[0]), StringEntry((key + "_SI11"), snare_rhythms[1]), StringEntry((key + "_SI12"), snare_rhythms[2]), StringEntry((key + "_SI13"), snare_rhythms[3]), StringEntry((key + "_SI14"), snare_rhythms[4]), StringEntry((key + "_SI15"), snare_rhythms[5]), StringEntry((key + "_SI16"), snare_rhythms[6]), StringEntry((key + "_SI17"), snare_rhythms[7]), StringEntry((key + "_SI20"), hihat_rhythms[0]), StringEntry((key + "_SI21"), hihat_rhythms[1]), StringEntry((key + "_SI22"), hihat_rhythms[2]), StringEntry((key + "_SI23"), hihat_rhythms[3]), StringEntry((key + "_SI24"), hihat_rhythms[4]), StringEntry((key + "_SI25"), hihat_rhythms[5]), StringEntry((key + "_SI26"), hihat_rhythms[6]), StringEntry((key + "_SI27"), hihat_rhythms[7]), StringEntry((key + "_SI30"), bass_rhythms[0]), StringEntry((key + "_SI31"), bass_rhythms[1]), StringEntry((key + "_SI32"), bass_rhythms[2]), StringEntry((key + "_SI33"), bass_rhythms[3]), StringEntry((key + "_SI34"), bass_rhythms[4]), StringEntry((key + "_SI35"), bass_rhythms[5]), StringEntry((key + "_SI36"), bass_rhythms[6]), StringEntry((key + "_SI37"), bass_rhythms[7]), StringEntry((key + "_SI40"), back_rhythms[0]), StringEntry((key + "_SI41"), back_rhythms[1]), StringEntry((key + "_SI42"), back_rhythms[2]), StringEntry((key + "_SI43"), back_rhythms[3]), StringEntry((key + "_SI44"), back_rhythms[4]), StringEntry((key + "_SI45"), back_rhythms[5]), StringEntry((key + "_SI46"), back_rhythms[6]), StringEntry((key + "_SI47"), back_rhythms[7]), StringEntry((key + "_SI50"), lead_rhythms[0]), StringEntry((key + "_SI51"), lead_rhythms[1]), StringEntry((key + "_SI52"), lead_rhythms[2]), StringEntry((key + "_SI53"), lead_rhythms[3]), StringEntry((key + "_SI54"), lead_rhythms[4]), StringEntry((key + "_SI55"), lead_rhythms[5]), StringEntry((key + "_SI56"), lead_rhythms[6]), StringEntry((key + "_SI57"), lead_rhythms[7])] ++ tx_transfer), unit)
297+                                            }
298+                                        else throw("Strict value is not equal to itself.")
150299                                     }
151300 
152301 
153302 
154303 @Callable(i)
155304 func mint_hybrid (song_0,song_1) = {
156305     let caller_addr = Address(i.caller.bytes)
157306     let song_0_id = fromBase58String(getStringValue(song_0))
158307     let song_1_id = fromBase58String(getStringValue(song_1))
159-    if (!(check_hybrid_payment(i)))
308+    let price_amount = getIntegerValue("price_hybrid_amount")
309+    let price_token = getStringValue("price_hybrid_token")
310+    let price_change = hybrid_calculate_change(i, price_token, price_amount)
311+    if ((0 > price_change))
160312         then throw("Wrong payment")
161313         else if ((song_0_id == song_1_id))
162314             then throw("Songs should be different")
163315             else if ((1 > assetBalance(caller_addr, song_0_id)))
164316                 then throw("Caller do not own first song")
165317                 else if ((1 > assetBalance(caller_addr, song_1_id)))
166318                     then throw("Caller do not own second song")
167-                    else $Tuple2(make_hybrid_tx(i, song_0, song_1), unit)
319+                    else {
320+                        let mint_count =                         match getInteger("mint_count") {
321+                            case j: Int => 
322+                                j
323+                            case _ => 
324+                                0
325+                        }
326+                        let price_count_inc = IntegerEntry("mint_count", (mint_count + 1))
327+                        let price_increase = if (((mint_count % price_increase_period) == (price_increase_period - 1)))
328+                            then [price_count_inc, IntegerEntry("price_hybrid_amount", (price_amount + getIntegerValue("price_hybrid_increment")))]
329+                            else [price_count_inc]
330+                        if ((price_change > 0))
331+                            then $Tuple2(((make_hybrid_tx(i, song_0, song_1) ++ price_increase) ++ [ScriptTransfer(Address(i.caller.bytes), price_change, if ((price_token == ""))
332+                                then unit
333+                                else fromBase58String(price_token))]), unit)
334+                            else $Tuple2((make_hybrid_tx(i, song_0, song_1) ++ price_increase), unit)
335+                        }
168336     }
169337 
170338 
171339 
172340 @Callable(i)
173341 func mint_hybrid_and_burn () = if (if (if ((size(i.payments) != 2))
174342     then true
175343     else (i.payments[0].amount != 1))
176344     then true
177345     else (i.payments[1].amount != 1))
178346     then throw("Wrong payment")
179347     else {
180348         let song_0_id =         match i.payments[0].assetId {
181349             case b: ByteVector => 
182350                 b
183351             case _ => 
184352                 throw("Wrong payment")
185353         }
186354         let song_1_id =         match i.payments[1].assetId {
187355             case b: ByteVector => 
188356                 b
189357             case _ => 
190358                 throw("Wrong payment")
191359         }
192360         if ((song_0_id == song_1_id))
193361             then throw("Songs should be different")
194362             else {
195363                 let song_0 = getStringValue(toBase58String(song_0_id))
196364                 let song_1 = getStringValue(toBase58String(song_1_id))
197-                $Tuple2((make_hybrid_tx(i, song_0, song_1) ++ [Burn(song_0_id, 1), Burn(song_1_id, 1)]), unit)
365+                let burn0 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[0]])
366+                if ((burn0 == burn0))
367+                    then {
368+                        let burn1 = invoke(nft_creation_address, "burnNFT", nil, [i.payments[1]])
369+                        if ((burn1 == burn1))
370+                            then $Tuple2(make_hybrid_tx(i, song_0, song_1), unit)
371+                            else throw("Strict value is not equal to itself.")
372+                        }
373+                    else throw("Strict value is not equal to itself.")
198374                 }
199375         }
200376 
201377 
github/deemru/w8io/873ac7e 
113.27 ms ◑