w8 · tx · QQg···UXW

tx · QQgwnMjhLeCsVEBwnmSpkCYX32MGVkdZgASC5HfiUXW

3N7J6mMMkjVViBREz9y53JmcX7r7KZRXQpL:  -0.04000000 Waves

2022.04.20 17:00 [2016955] smart account 3N7J6mMMkjVViBREz9y53JmcX7r7KZRXQpL > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "QQgwnMjhLeCsVEBwnmSpkCYX32MGVkdZgASC5HfiUXW",
    "fee": 4000000,
    "feeAssetId": null,
    "timestamp": 1650463217499,
    "version": 2,
    "chainId": 84,
    "sender": "3N7J6mMMkjVViBREz9y53JmcX7r7KZRXQpL",
    "senderPublicKey": "G6aSmaqLJ4p7jzm7BnQcZuqa2NRRLVtzqdYNjYErnEZZ",
    "proofs": [
        "3SNDT2DRnvLcYeHLmE12Kw8E8ipx3EJKKtYp1bGQuvg33n3mhV54oN3uWcefSybYyCnT83G9nr7DWxkmJ2jsqVc7"
    ],
    "script": "base64:AAIFAAAAAAAAADUIAhIFCgMICAgSBAoCCAgSBQoDCAgIEgMKAQgSBAoCCAESBQoDCAgIEgUKAwgICBIECgIICAAAABMAAAAABENPTFMAAAAAAAAABAAAAAAABFJPV1MAAAAAAAAABAAAAAAACW5mdERvbWFpbgIAAAAYaHR0cHM6Ly9uZnQuZ3JpZGdhbmcuaW8vAAAAABVhZGRPd25lckFuZEFtb3VudEZ1bmMCAAAAEWFkZE93bmVyQW5kQW1vdW50AAAAAAVERUJVRwYAAAAAEW1pbkZvclNhbGVXYXZsZXRzAAAAAAAF9eEAAAAAABBtaW5QdXJjaGFzZVByaWNlAAAAAAAAD0JAAAAAAARkYXBwAgAAACMzTjdKNm1NTWtqVlZpQlJFejl5NTNKbWNYN3I3S1pSWFFwTAAAAAALZGFwcEFkZHJlc3MJAQAAAAdBZGRyZXNzAAAAAQkAAlkAAAABBQAAAARkYXBwAAAAABFob2xkaW5nc1B1YmxpY0tleQIAAAAsQXlBd1diTVBNN2E0VllrbjFiaEVCZnRDNVdaZ2Z2VVhncllEZTk4bXZMc3YAAAAACGhvbGRpbmdzAgAAACMzTXdQc0x5OUYxbVVRcmRQMzdzQ0FLdkh1RTVIdlBFNjc0WQAAAAAPaG9sZGluZ3NBZGRyZXNzCQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAAIaG9sZGluZ3MBAAAADGdldEFzc2V0TmFtZQAAAAIAAAABeAAAAAF5CQABLAAAAAIJAAEsAAAAAgUAAAABeAIAAAABLAUAAAABeQEAAAAQZ2V0RGF0YUtleVByZWZpeAAAAAIAAAABeAAAAAF5CQEAAAAMZ2V0QXNzZXROYW1lAAAAAgUAAAABeAUAAAABeQEAAAAQZ2V0WFlHZW5Gcm9tTmFtZQAAAAEAAAAEbmFtZQQAAAAFcGFydHMJAAS1AAAAAgUAAAAEbmFtZQIAAAABLAQAAAAFdHVwbGUJAAUUAAAAAgkAAZEAAAACBQAAAAVwYXJ0cwAAAAAAAAAAAAkAAZEAAAACBQAAAAVwYXJ0cwAAAAAAAAAAAQUAAAAFdHVwbGUBAAAAHWdldERhdGFLZXlQcmVmaXhGcm9tQXNzZXROYW1lAAAAAQAAAARuYW1lBAAAAAkkdDA5MDY5NDEJAQAAABBnZXRYWUdlbkZyb21OYW1lAAAAAQUAAAAEbmFtZQQAAAABeAgFAAAACSR0MDkwNjk0MQAAAAJfMQQAAAABeQgFAAAACSR0MDkwNjk0MQAAAAJfMgQAAAAGcHJlZml4CQEAAAAQZ2V0RGF0YUtleVByZWZpeAAAAAIFAAAAAXgFAAAAAXkFAAAABnByZWZpeAEAAAALY2xhaW1TcXVhcmUAAAAFAAAAAXgAAAABeQAAAANnZW4AAAAHb3duZXJJZAAAAA10cmFuc2FjdGlvbklkBAAAAAxyZXNvbHZlZFhTdHIFAAAAAXgEAAAADHJlc29sdmVkWVN0cgUAAAABeQQAAAAOcmVzb2x2ZWRHZW5TdHIFAAAAA2dlbgQAAAAJYXNzZXROYW1lCQEAAAAMZ2V0QXNzZXROYW1lAAAAAgUAAAAMcmVzb2x2ZWRYU3RyBQAAAAxyZXNvbHZlZFlTdHIEAAAACGFzc2V0VXJsCQABLAAAAAIJAAEsAAAAAgUAAAAJbmZ0RG9tYWluBQAAAA10cmFuc2FjdGlvbklkAgAAAAQucG5nBAAAAAVhc3NldAkABEIAAAAFBQAAAAlhc3NldE5hbWUFAAAACGFzc2V0VXJsAAAAAAAAAAABAAAAAAAAAAAABwQAAAAHYXNzZXRJZAkABDgAAAABBQAAAAVhc3NldAQAAAANZGF0YUtleVByZWZpeAkBAAAAEGdldERhdGFLZXlQcmVmaXgAAAACBQAAAAxyZXNvbHZlZFhTdHIFAAAADHJlc29sdmVkWVN0cgkABRYAAAAEBQAAAAVhc3NldAUAAAAHYXNzZXRJZAUAAAAIYXNzZXRVcmwFAAAADWRhdGFLZXlQcmVmaXgBAAAAFWdldFRyYW5zYWN0aW9uRW50cmllcwAAAAUAAAAGcHJlZml4AAAAB2Fzc2V0SWQAAAAFYXNzZXQAAAAFb3duZXIAAAADZ2VuCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAAGcHJlZml4AgAAAAhfYXNzZXRJZAUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAABnByZWZpeAIAAAAGX2Fzc2V0BQAAAAVhc3NldAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAABnByZWZpeAIAAAAGX293bmVyBQAAAAVvd25lcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAABnByZWZpeAIAAAAEX2dlbgUAAAADZ2VuBQAAAANuaWwBAAAACGJ1cm5Gb2xkAAAAAgAAAAVhY2N1bQAAAARuZXh0BAAAAAxyZXNvbHZlZE5leHQEAAAAByRtYXRjaDAFAAAABG5leHQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQCAAAABXVuc2V0AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAA3ZhbAUAAAAHJG1hdGNoMAUAAAADdmFsCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAwkAAAAAAAACBQAAAAxyZXNvbHZlZE5leHQCAAAABXVuc2V0BQAAAAVhY2N1bQQAAAAHYXNzZXRJZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAADHJlc29sdmVkTmV4dAIAAAAIX2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABFVuaXQCAAAABXVuc2V0AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAA3ZhbAUAAAAHJG1hdGNoMAUAAAADdmFsCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAwkAAAAAAAACBQAAAAdhc3NldElkAgAAAAV1bnNldAUAAAAFYWNjdW0JAAROAAAAAgUAAAAFYWNjdW0JAARMAAAAAgkBAAAABEJ1cm4AAAACCQACWQAAAAEFAAAAB2Fzc2V0SWQAAAAAAAAAAAEFAAAAA25pbAAAAAgAAAABaQEAAAAIcHVyY2hhc2UAAAADAAAAAXgAAAABeQAAAAh1c2VyVGV4dAQAAAAGcHJlZml4CQEAAAAQZ2V0RGF0YUtleVByZWZpeAAAAAIFAAAAAXgFAAAAAXkEAAAADXBheW1lbnRBbW91bnQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAAAQAAAAPZXhpc3RpbmdBc3NldElkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAGcHJlZml4AgAAAAhfYXNzZXRJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAIAAAAFdW5zZXQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAADZXJyBQAAAAckbWF0Y2gwCQAAAgAAAAECAAAAJlRoaXMgc3F1YXJlIGhhcyBhbHJlYWR5IGJlZW4gcHVyY2hhc2VkCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAwkAAGYAAAACBQAAABBtaW5QdXJjaGFzZVByaWNlBQAAAA1wYXltZW50QW1vdW50CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABpZb3UgbmVlZCB0byBzZW5kIGF0IGxlYXN0IAkAAaQAAAABBQAAABBtaW5QdXJjaGFzZVByaWNlAgAAABxXQVZMRVRTIHRvIHB1cmNoYXNlIGEgc3F1YXJlBAAAAAdvd25lcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADXRyYW5zYWN0aW9uSWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAALJHQwMjg2MTI5NTYJAQAAAAtjbGFpbVNxdWFyZQAAAAUFAAAAAXgFAAAAAXkCAAAAATEFAAAAB293bmVySWQFAAAADXRyYW5zYWN0aW9uSWQEAAAABWFzc2V0CAUAAAALJHQwMjg2MTI5NTYAAAACXzEEAAAAB2Fzc2V0SWQIBQAAAAskdDAyODYxMjk1NgAAAAJfMgQAAAAIYXNzZXRVcmwIBQAAAAskdDAyODYxMjk1NgAAAAJfMwQAAAANZGF0YUtleVByZWZpeAgFAAAACyR0MDI4NjEyOTU2AAAAAl80CQAETgAAAAIJAQAAABVnZXRUcmFuc2FjdGlvbkVudHJpZXMAAAAFBQAAAA1kYXRhS2V5UHJlZml4CQACWAAAAAEFAAAAB2Fzc2V0SWQFAAAACGFzc2V0VXJsBQAAAAdvd25lcklkAgAAAAExCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAAHb3duZXJJZAIAAAAHX2hhbmRsZQUAAAAIdXNlclRleHQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAANdHJhbnNhY3Rpb25JZAUAAAANZGF0YUtleVByZWZpeAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIAAAAAAAAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAAAAAFpAQAAAAdhdXRvQnV5AAAAAgAAAAF4AAAAAXkEAAAACGNhbGxlcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDAwkBAAAAAiE9AAAAAgUAAAAIY2FsbGVySWQFAAAACGhvbGRpbmdzCQEAAAACIT0AAAACBQAAAAhjYWxsZXJJZAUAAAAEZGFwcAcJAAACAAAAAQIAAAAmVGhpcyBjYW4gb25seSBiZSB0cmlnZ2VyaW5nIGludGVybmFsbHkEAAAADXRyYW5zYWN0aW9uSWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAALJHQwMzQ5MTM1ODcJAQAAAAtjbGFpbVNxdWFyZQAAAAUFAAAAAXgFAAAAAXkCAAAAATEFAAAACGhvbGRpbmdzBQAAAA10cmFuc2FjdGlvbklkBAAAAAVhc3NldAgFAAAACyR0MDM0OTEzNTg3AAAAAl8xBAAAAAdhc3NldElkCAUAAAALJHQwMzQ5MTM1ODcAAAACXzIEAAAACGFzc2V0VXJsCAUAAAALJHQwMzQ5MTM1ODcAAAACXzMEAAAADWRhdGFLZXlQcmVmaXgIBQAAAAskdDAzNDkxMzU4NwAAAAJfNAQAAAAKYXNzZXRJZFN0cgkAAlgAAAABBQAAAAdhc3NldElkBAAAAANyZXMJAAP8AAAABAUAAAAPaG9sZGluZ3NBZGRyZXNzBQAAABVhZGRPd25lckFuZEFtb3VudEZ1bmMJAARMAAAAAgUAAAAIaG9sZGluZ3MJAARMAAAAAgUAAAAKYXNzZXRJZFN0cgkABEwAAAACAAAAAAAAAAADBQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAABHVuaXQAAAAAAAAAAAAFAAAAA25pbAMJAAAAAAAAAgUAAAADcmVzBQAAAANyZXMJAAROAAAAAgkBAAAAFWdldFRyYW5zYWN0aW9uRW50cmllcwAAAAUFAAAADWRhdGFLZXlQcmVmaXgFAAAACmFzc2V0SWRTdHIFAAAACGFzc2V0VXJsBQAAAAhob2xkaW5ncwIAAAABMQkABEwAAAACBQAAAAVhc3NldAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAA10cmFuc2FjdGlvbklkBQAAAA1kYXRhS2V5UHJlZml4CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAD2hvbGRpbmdzQWRkcmVzcwAAAAAAAAAAAQUAAAAHYXNzZXRJZAUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAAZldm9sdmUAAAADAAAAAXgAAAABeQAAAANnZW4EAAAACGNhbGxlcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADXRyYW5zYWN0aW9uSWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAALJHQwNDEzMzQyMjkJAQAAAAtjbGFpbVNxdWFyZQAAAAUFAAAAAXgFAAAAAXkFAAAAA2dlbgUAAAAIY2FsbGVySWQFAAAADXRyYW5zYWN0aW9uSWQEAAAABWFzc2V0CAUAAAALJHQwNDEzMzQyMjkAAAACXzEEAAAAB2Fzc2V0SWQIBQAAAAskdDA0MTMzNDIyOQAAAAJfMgQAAAAIYXNzZXRVcmwIBQAAAAskdDA0MTMzNDIyOQAAAAJfMwQAAAANZGF0YUtleVByZWZpeAgFAAAACyR0MDQxMzM0MjI5AAAAAl80CQAETgAAAAIJAQAAABVnZXRUcmFuc2FjdGlvbkVudHJpZXMAAAAFBQAAAA1kYXRhS2V5UHJlZml4CQACWAAAAAEFAAAAB2Fzc2V0SWQFAAAACGFzc2V0VXJsBQAAAAhjYWxsZXJJZAUAAAADZ2VuCQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAADXRyYW5zYWN0aW9uSWQFAAAADWRhdGFLZXlQcmVmaXgJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyAAAAAAAAAAABBQAAAAdhc3NldElkBQAAAANuaWwAAAABaQEAAAANYnVybkZvckV2b2x2ZQAAAAEAAAAMY29vcmRzVG9CdXJuCgAAAAACJGwJAAS1AAAAAgUAAAAMY29vcmRzVG9CdXJuAgAAAAF8CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAIYnVybkZvbGQAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAVTGlzdCBzaXplIGV4Y2VlZHMgMTEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgAAAAAAAAAACwAAAAAAAAAADAAAAAAAAAAADQAAAAAAAAAADgAAAAAAAAAADwAAAAAAAAAAEAAAAAAAAAAAEQAAAAAAAAAAEgAAAAAAAAAAEwAAAAAAAAAAFAAAAAAAAAAAFQAAAAAAAAAAFgAAAAAAAAAAFwAAAAAAAAAAGAAAAAAAAAAAGQAAAAAAAAAAGgAAAAAAAAAAGwAAAAAAAAAAHAAAAAAAAAAAHQAAAAAAAAAAHgAAAAAAAAAAHwAAAAAAAAAAIAAAAAAAAAAAIQAAAAAAAAAAIgAAAAAAAAAAIwAAAAAAAAAAJAAAAAAAAAAAJQAAAAAAAAAAJgAAAAAAAAAAJwAAAAAAAAAAKAAAAAAAAAAAKQAAAAAAAAAAKgAAAAAAAAAAKwAAAAAAAAAALAAAAAAAAAAALQAAAAAAAAAALgAAAAAAAAAALwAAAAAAAAAAMAAAAAAAAAAAMQAAAAAAAAAAMgAAAAAAAAAAMwAAAAAAAAAANAAAAAAAAAAANQAAAAAAAAAANgAAAAAAAAAANwAAAAAAAAAAOAAAAAAAAAAAOQAAAAAAAAAAOgAAAAAAAAAAOwAAAAAAAAAAPAAAAAAAAAAAPQAAAAAAAAAAPgAAAAAAAAAAPwAAAAAAAAAAQAAAAAAAAAAAQQAAAAAAAAAAQgAAAAAAAAAAQwAAAAAAAAAARAAAAAAAAAAARQAAAAAAAAAARgAAAAAAAAAARwAAAAAAAAAASAAAAAAAAAAASQAAAAAAAAAASgAAAAAAAAAASwAAAAAAAAAATAAAAAAAAAAATQAAAAAAAAAATgAAAAAAAAAATwAAAAAAAAAAUAAAAAAAAAAAUQAAAAAAAAAAUgAAAAAAAAAAUwAAAAAAAAAAVAAAAAAAAAAAVQAAAAAAAAAAVgAAAAAAAAAAVwAAAAAAAAAAWAAAAAAAAAAAWQAAAAAAAAAAWgAAAAAAAAAAWwAAAAAAAAAAXAAAAAAAAAAAXQAAAAAAAAAAXgAAAAAAAAAAXwAAAAAAAAAAYAAAAAAAAAAAYQAAAAAAAAAAYgAAAAAAAAAAYwAAAAAAAAAAZAAAAAAAAAAAZQAAAAAAAAAAZgAAAAAAAAAAZwAAAAAAAAAAaAAAAAAAAAAAaQAAAAAAAAAAagAAAAAAAAAAawAAAAAAAAAAbAAAAAAAAAAAbQAAAAAAAAAAbgAAAAFpAQAAAApwdXRGb3JTYWxlAAAAAgAAAAdhc3NldElkAAAABmFtb3VudAQAAAAIY2FsbGVySWQJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAJYXNzZXREYXRhBAAAAAckbWF0Y2gwCQAD7AAAAAEJAAJZAAAAAQUAAAAHYXNzZXRJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAFQXNzZXQEAAAAA2FzcwUAAAAHJG1hdGNoMAUAAAADYXNzCQAAAgAAAAECAAAAD0Fzc2V0IG5vdCBmb3VuZAQAAAAKZGF0YVByZWZpeAkBAAAAHWdldERhdGFLZXlQcmVmaXhGcm9tQXNzZXROYW1lAAAAAQgFAAAACWFzc2V0RGF0YQAAAARuYW1lBAAAAAdvd25lcklkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgUAAAAKZGF0YVByZWZpeAIAAAAGX293bmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXMFAAAAByRtYXRjaDAFAAAAAXMJAAACAAAAAQIAAAAXT3duZXIgbm90IGZvdW5kIGluIGRhdGEDCQAAZgAAAAIFAAAAEW1pbkZvclNhbGVXYXZsZXRzBQAAAAZhbW91bnQJAAACAAAAAQIAAAAjQW1vdW50IG5lZWRzIHRvIGJlIG1vcmUgdGhhbiAxIHdhdmUDAwkBAAAAAiE9AAAAAgUAAAAIY2FsbGVySWQFAAAAB293bmVySWQJAQAAAAIhPQAAAAIFAAAACGNhbGxlcklkBQAAAAhob2xkaW5ncwcJAAACAAAAAQIAAAAuWW91IGFyZSBub3QgYWJsZSB0byBwdXQgdGhpcyBhc3NldCB1cCBmb3Igc2FsZQQAAAADcmVzCQAD/AAAAAQFAAAAD2hvbGRpbmdzQWRkcmVzcwUAAAAVYWRkT3duZXJBbmRBbW91bnRGdW5jCQAETAAAAAIFAAAACGNhbGxlcklkCQAETAAAAAIFAAAAB2Fzc2V0SWQJAARMAAAAAgUAAAAGYW1vdW50BQAAAANuaWwJAARMAAAAAgkBAAAAD0F0dGFjaGVkUGF5bWVudAAAAAIFAAAABHVuaXQAAAAAAAAAAAAFAAAAA25pbAMJAAAAAAAAAgUAAAADcmVzBQAAAANyZXMJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAPaG9sZGluZ3NBZGRyZXNzAAAAAAAAAAABCQACWQAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAMZmluYWxpemVTYWxlAAAAAwAAAAdhc3NldElkAAAAB293bmVySWQAAAAIdXNlclRleHQEAAAACGNhbGxlcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAACIT0AAAACBQAAAAhjYWxsZXJJZAUAAAAIaG9sZGluZ3MJAAACAAAAAQIAAAAmVGhpcyBjYW4gb25seSBiZSB0cmlnZ2VyaW5nIGludGVybmFsbHkEAAAABnByZWZpeAQAAAAHJG1hdGNoMAkAA+wAAAABCQACWQAAAAEFAAAAB2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABUFzc2V0BAAAAAVhc3NldAUAAAAHJG1hdGNoMAgFAAAABWFzc2V0AAAABG5hbWUJAAACAAAAAQIAAAAQQ2FuJ3QgZmluZCBhc3NldAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAABnByZWZpeAIAAAAGX293bmVyBQAAAAdvd25lcklkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAAHb3duZXJJZAIAAAAHX2hhbmRsZQUAAAAIdXNlclRleHQFAAAAA25pbAAAAAFpAQAAABZhZG1pblByb21vdGlvblB1cmNoYXNlAAAAAwAAAAF4AAAAAXkAAAARZGVzaW5hdGlvbkFkZHJlc3MEAAAACGNhbGxlcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAACIT0AAAACBQAAAAhjYWxsZXJJZAUAAAAIaG9sZGluZ3MJAAACAAAAAQIAAAAmVGhpcyBjYW4gb25seSBiZSB0cmlnZ2VyaW5nIGludGVybmFsbHkEAAAADXRyYW5zYWN0aW9uSWQJAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAQAAAALJHQwNjQ1NTY1NjAJAQAAAAtjbGFpbVNxdWFyZQAAAAUFAAAAAXgFAAAAAXkCAAAAATEFAAAAEWRlc2luYXRpb25BZGRyZXNzBQAAAA10cmFuc2FjdGlvbklkBAAAAAVhc3NldAgFAAAACyR0MDY0NTU2NTYwAAAAAl8xBAAAAAdhc3NldElkCAUAAAALJHQwNjQ1NTY1NjAAAAACXzIEAAAACGFzc2V0VXJsCAUAAAALJHQwNjQ1NTY1NjAAAAACXzMEAAAADWRhdGFLZXlQcmVmaXgIBQAAAAskdDA2NDU1NjU2MAAAAAJfNAQAAAAKYXNzZXRJZFN0cgkAAlgAAAABBQAAAAdhc3NldElkCQAETgAAAAIJAQAAABVnZXRUcmFuc2FjdGlvbkVudHJpZXMAAAAFBQAAAA1kYXRhS2V5UHJlZml4BQAAAAphc3NldElkU3RyBQAAAAhhc3NldFVybAUAAAARZGVzaW5hdGlvbkFkZHJlc3MCAAAAATEJAARMAAAAAgUAAAAFYXNzZXQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAANdHJhbnNhY3Rpb25JZAUAAAANZGF0YUtleVByZWZpeAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAHQWRkcmVzcwAAAAEJAAJZAAAAAQUAAAARZGVzaW5hdGlvbkFkZHJlc3MAAAAAAAAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAAAAAFpAQAAAA5hZG1pblNldEhhbmRsZQAAAAIAAAAHb3duZXJJZAAAAAZoYW5kbGUEAAAACGNhbGxlcklkCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMDCQEAAAACIT0AAAACBQAAAAhjYWxsZXJJZAUAAAAIaG9sZGluZ3MJAAACAAAAAQIAAAAmVGhpcyBjYW4gb25seSBiZSB0cmlnZ2VyaW5nIGludGVybmFsbHkJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAdvd25lcklkAgAAAAdfaGFuZGxlBQAAAAZoYW5kbGUFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAADAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkGCQAAAAAAAAIJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkFAAAAD2hvbGRpbmdzQWRkcmVzcwYJAAAAAAAAAgkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQUAAAALZGFwcEFkZHJlc3NKy/Tl",
    "height": 2016955,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FxUFGsw1FwwuA9TEjrbyEDnpo4CLPca9tbDKrBHmhHGy
Next: 5iTDoEFBk4VZKk9z8DpDarYmtf9EkqZHNNZdWKBW8Aao

Diff: 
Old New Differences
143 143  
144 144  
145 145  @Callable(i)
146 - func evolve (x,y,gen,coordsToBurn) = {
146 + func evolve (x,y,gen) = {
147 147      let callerId = toBase58String(i.caller.bytes)
148 148      let transactionId = toBase58String(i.transactionId)
149 -     let $t041554518 = claimSquare(x, y, gen, callerId, transactionId)
150 -     let asset = $t041554518._1
151 -     let assetId = $t041554518._2
152 -     let assetUrl = $t041554518._3
153 -     let dataKeyPrefix = $t041554518._4
154 -     let burnTransactions = {
155 -         let $l = split(coordsToBurn, "|")
156 -         let $s = size($l)
157 -         let $acc0 = nil
158 -         func $f0_1 ($a,$i) =         if (($i >= $s))
159 -             then $a
160 -             else burnFold($a, $l[$i])
149 +     let $t041334229 = claimSquare(x, y, gen, callerId, transactionId)
150 +     let asset = $t041334229._1
151 +     let assetId = $t041334229._2
152 +     let assetUrl = $t041334229._3
153 +     let dataKeyPrefix = $t041334229._4
154 +     (getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
155 +     }
161 156  
162 -         func $f0_2 ($a,$i) =         if (($i >= $s))
163 -             then $a
164 -             else throw("List size exceeds 110")
165 157  
166 -         $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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
167 -         }
168 -     ((burnTransactions ++ getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen)) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
158 + 
159 + @Callable(i)
160 + func burnForEvolve (coordsToBurn) = {
161 +     let $l = split(coordsToBurn, "|")
162 +     let $s = size($l)
163 +     let $acc0 = nil
164 +     func $f0_1 ($a,$i) =     if (($i >= $s))
165 +         then $a
166 +         else burnFold($a, $l[$i])
167 + 
168 +     func $f0_2 ($a,$i) =     if (($i >= $s))
169 +         then $a
170 +         else throw("List size exceeds 110")
171 + 
172 +     $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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
169 173      }
170 174  
171 175  
227 231          then throw("This can only be triggering internally")
228 232          else {
229 233              let transactionId = toBase58String(i.transactionId)
230 -             let $t064606565 = claimSquare(x, y, "1", desinationAddress, transactionId)
231 -             let asset = $t064606565._1
232 -             let assetId = $t064606565._2
233 -             let assetUrl = $t064606565._3
234 -             let dataKeyPrefix = $t064606565._4
234 +             let $t064556560 = claimSquare(x, y, "1", desinationAddress, transactionId)
235 +             let asset = $t064556560._1
236 +             let assetId = $t064556560._2
237 +             let assetUrl = $t064556560._3
238 +             let dataKeyPrefix = $t064556560._4
235 239              let assetIdStr = toBase58String(assetId)
236 240              (getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, desinationAddress, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(desinationAddress)), 1, assetId)])
237 241              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let COLS = 1024
5 5  
6 6  let ROWS = 1024
7 7  
8 8  let nftDomain = "https://nft.gridgang.io/"
9 9  
10 10  let addOwnerAndAmountFunc = "addOwnerAndAmount"
11 11  
12 12  let DEBUG = true
13 13  
14 14  let minForSaleWavlets = 100000000
15 15  
16 16  let minPurchasePrice = 1000000
17 17  
18 18  let dapp = "3N7J6mMMkjVViBREz9y53JmcX7r7KZRXQpL"
19 19  
20 20  let dappAddress = Address(fromBase58String(dapp))
21 21  
22 22  let holdingsPublicKey = "AyAwWbMPM7a4VYkn1bhEBftC5WZgfvUXgrYDe98mvLsv"
23 23  
24 24  let holdings = "3MwPsLy9F1mUQrdP37sCAKvHuE5HvPE674Y"
25 25  
26 26  let holdingsAddress = Address(fromBase58String(holdings))
27 27  
28 28  func getAssetName (x,y) = ((x + ",") + y)
29 29  
30 30  
31 31  func getDataKeyPrefix (x,y) = getAssetName(x, y)
32 32  
33 33  
34 34  func getXYGenFromName (name) = {
35 35      let parts = split(name, ",")
36 36      let tuple = $Tuple2(parts[0], parts[1])
37 37      tuple
38 38      }
39 39  
40 40  
41 41  func getDataKeyPrefixFromAssetName (name) = {
42 42      let $t0906941 = getXYGenFromName(name)
43 43      let x = $t0906941._1
44 44      let y = $t0906941._2
45 45      let prefix = getDataKeyPrefix(x, y)
46 46      prefix
47 47      }
48 48  
49 49  
50 50  func claimSquare (x,y,gen,ownerId,transactionId) = {
51 51      let resolvedXStr = x
52 52      let resolvedYStr = y
53 53      let resolvedGenStr = gen
54 54      let assetName = getAssetName(resolvedXStr, resolvedYStr)
55 55      let assetUrl = ((nftDomain + transactionId) + ".png")
56 56      let asset = Issue(assetName, assetUrl, 1, 0, false)
57 57      let assetId = calculateAssetId(asset)
58 58      let dataKeyPrefix = getDataKeyPrefix(resolvedXStr, resolvedYStr)
59 59      $Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
60 60      }
61 61  
62 62  
63 63  func getTransactionEntries (prefix,assetId,asset,owner,gen) = [StringEntry((prefix + "_assetId"), assetId), StringEntry((prefix + "_asset"), asset), StringEntry((prefix + "_owner"), owner), StringEntry((prefix + "_gen"), gen)]
64 64  
65 65  
66 66  func burnFold (accum,next) = {
67 67      let resolvedNext =     match next {
68 68          case _: Unit => 
69 69              "unset"
70 70          case val: String => 
71 71              val
72 72          case _ => 
73 73              throw("Match error")
74 74      }
75 75      if ((resolvedNext == "unset"))
76 76          then accum
77 77          else {
78 78              let assetId =             match getString(this, (resolvedNext + "_assetId")) {
79 79                  case _: Unit => 
80 80                      "unset"
81 81                  case val: String => 
82 82                      val
83 83                  case _ => 
84 84                      throw("Match error")
85 85              }
86 86              if ((assetId == "unset"))
87 87                  then accum
88 88                  else (accum ++ [Burn(fromBase58String(assetId), 1)])
89 89              }
90 90      }
91 91  
92 92  
93 93  @Callable(i)
94 94  func purchase (x,y,userText) = {
95 95      let prefix = getDataKeyPrefix(x, y)
96 96      let paymentAmount = valueOrElse(i.payments[0].amount, 0)
97 97      let existingAssetId =     match getString(this, (prefix + "_assetId")) {
98 98          case _: Unit => 
99 99              "unset"
100 100          case err: String => 
101 101              throw("This square has already been purchased")
102 102          case _ => 
103 103              throw("Match error")
104 104      }
105 105      if ((minPurchasePrice > paymentAmount))
106 106          then throw((("You need to send at least " + toString(minPurchasePrice)) + "WAVLETS to purchase a square"))
107 107          else {
108 108              let ownerId = toBase58String(i.caller.bytes)
109 109              let transactionId = toBase58String(i.transactionId)
110 110              let $t028612956 = claimSquare(x, y, "1", ownerId, transactionId)
111 111              let asset = $t028612956._1
112 112              let assetId = $t028612956._2
113 113              let assetUrl = $t028612956._3
114 114              let dataKeyPrefix = $t028612956._4
115 115              (getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, ownerId, "1") ++ [asset, StringEntry((ownerId + "_handle"), userText), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
116 116              }
117 117      }
118 118  
119 119  
120 120  
121 121  @Callable(i)
122 122  func autoBuy (x,y) = {
123 123      let callerId = toBase58String(i.caller.bytes)
124 124      if (if ((callerId != holdings))
125 125          then (callerId != dapp)
126 126          else false)
127 127          then throw("This can only be triggering internally")
128 128          else {
129 129              let transactionId = toBase58String(i.transactionId)
130 130              let $t034913587 = claimSquare(x, y, "1", holdings, transactionId)
131 131              let asset = $t034913587._1
132 132              let assetId = $t034913587._2
133 133              let assetUrl = $t034913587._3
134 134              let dataKeyPrefix = $t034913587._4
135 135              let assetIdStr = toBase58String(assetId)
136 136              let res = invoke(holdingsAddress, addOwnerAndAmountFunc, [holdings, assetIdStr, 3], [AttachedPayment(unit, 0)])
137 137              if ((res == res))
138 138                  then (getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, holdings, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)])
139 139                  else throw("Strict value is not equal to itself.")
140 140              }
141 141      }
142 142  
143 143  
144 144  
145 145  @Callable(i)
146 - func evolve (x,y,gen,coordsToBurn) = {
146 + func evolve (x,y,gen) = {
147 147      let callerId = toBase58String(i.caller.bytes)
148 148      let transactionId = toBase58String(i.transactionId)
149 -     let $t041554518 = claimSquare(x, y, gen, callerId, transactionId)
150 -     let asset = $t041554518._1
151 -     let assetId = $t041554518._2
152 -     let assetUrl = $t041554518._3
153 -     let dataKeyPrefix = $t041554518._4
154 -     let burnTransactions = {
155 -         let $l = split(coordsToBurn, "|")
156 -         let $s = size($l)
157 -         let $acc0 = nil
158 -         func $f0_1 ($a,$i) =         if (($i >= $s))
159 -             then $a
160 -             else burnFold($a, $l[$i])
149 +     let $t041334229 = claimSquare(x, y, gen, callerId, transactionId)
150 +     let asset = $t041334229._1
151 +     let assetId = $t041334229._2
152 +     let assetUrl = $t041334229._3
153 +     let dataKeyPrefix = $t041334229._4
154 +     (getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
155 +     }
161 156  
162 -         func $f0_2 ($a,$i) =         if (($i >= $s))
163 -             then $a
164 -             else throw("List size exceeds 110")
165 157  
166 -         $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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
167 -         }
168 -     ((burnTransactions ++ getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen)) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
158 + 
159 + @Callable(i)
160 + func burnForEvolve (coordsToBurn) = {
161 +     let $l = split(coordsToBurn, "|")
162 +     let $s = size($l)
163 +     let $acc0 = nil
164 +     func $f0_1 ($a,$i) =     if (($i >= $s))
165 +         then $a
166 +         else burnFold($a, $l[$i])
167 + 
168 +     func $f0_2 ($a,$i) =     if (($i >= $s))
169 +         then $a
170 +         else throw("List size exceeds 110")
171 + 
172 +     $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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
169 173      }
170 174  
171 175  
172 176  
173 177  @Callable(i)
174 178  func putForSale (assetId,amount) = {
175 179      let callerId = toBase58String(i.caller.bytes)
176 180      let assetData =     match assetInfo(fromBase58String(assetId)) {
177 181          case ass: Asset => 
178 182              ass
179 183          case _ => 
180 184              throw("Asset not found")
181 185      }
182 186      let dataPrefix = getDataKeyPrefixFromAssetName(assetData.name)
183 187      let ownerId =     match getString(this, (dataPrefix + "_owner")) {
184 188          case s: String => 
185 189              s
186 190          case _ => 
187 191              throw("Owner not found in data")
188 192      }
189 193      if ((minForSaleWavlets > amount))
190 194          then throw("Amount needs to be more than 1 wave")
191 195          else if (if ((callerId != ownerId))
192 196              then (callerId != holdings)
193 197              else false)
194 198              then throw("You are not able to put this asset up for sale")
195 199              else {
196 200                  let res = invoke(holdingsAddress, addOwnerAndAmountFunc, [callerId, assetId, amount], [AttachedPayment(unit, 0)])
197 201                  if ((res == res))
198 202                      then [ScriptTransfer(holdingsAddress, 1, fromBase58String(assetId))]
199 203                      else throw("Strict value is not equal to itself.")
200 204                  }
201 205      }
202 206  
203 207  
204 208  
205 209  @Callable(i)
206 210  func finalizeSale (assetId,ownerId,userText) = {
207 211      let callerId = toBase58String(i.caller.bytes)
208 212      if ((callerId != holdings))
209 213          then throw("This can only be triggering internally")
210 214          else {
211 215              let prefix =             match assetInfo(fromBase58String(assetId)) {
212 216                  case asset: Asset => 
213 217                      asset.name
214 218                  case _ => 
215 219                      throw("Can't find asset")
216 220              }
217 221  [StringEntry((prefix + "_owner"), ownerId), StringEntry((ownerId + "_handle"), userText)]
218 222              }
219 223      }
220 224  
221 225  
222 226  
223 227  @Callable(i)
224 228  func adminPromotionPurchase (x,y,desinationAddress) = {
225 229      let callerId = toBase58String(i.caller.bytes)
226 230      if ((callerId != holdings))
227 231          then throw("This can only be triggering internally")
228 232          else {
229 233              let transactionId = toBase58String(i.transactionId)
230 -             let $t064606565 = claimSquare(x, y, "1", desinationAddress, transactionId)
231 -             let asset = $t064606565._1
232 -             let assetId = $t064606565._2
233 -             let assetUrl = $t064606565._3
234 -             let dataKeyPrefix = $t064606565._4
234 +             let $t064556560 = claimSquare(x, y, "1", desinationAddress, transactionId)
235 +             let asset = $t064556560._1
236 +             let assetId = $t064556560._2
237 +             let assetUrl = $t064556560._3
238 +             let dataKeyPrefix = $t064556560._4
235 239              let assetIdStr = toBase58String(assetId)
236 240              (getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, desinationAddress, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(desinationAddress)), 1, assetId)])
237 241              }
238 242      }
239 243  
240 244  
241 245  
242 246  @Callable(i)
243 247  func adminSetHandle (ownerId,handle) = {
244 248      let callerId = toBase58String(i.caller.bytes)
245 249      if ((callerId != holdings))
246 250          then throw("This can only be triggering internally")
247 251          else [StringEntry((ownerId + "_handle"), handle)]
248 252      }
249 253  
250 254  
251 255  @Verifier(tx)
252 256  func verify () = if (if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
253 257      then true
254 258      else (addressFromPublicKey(tx.senderPublicKey) == holdingsAddress))
255 259      then true
256 260      else (addressFromPublicKey(tx.senderPublicKey) == dappAddress)
257 261

Old	New		Differences
143	143
144	144
145	145		@Callable(i)
146		-	func evolve (x,y,gen~~,coordsToBurn~~) = {
	146	+	func evolve (x,y,gen) = {
147	147		let callerId = toBase58String(i.caller.bytes)
148	148		let transactionId = toBase58String(i.transactionId)
149		-	let $t041554518 = claimSquare(x, y, gen, callerId, transactionId)
150		-	let asset = $t041554518._1
151		-	let assetId = $t041554518._2
152		-	let assetUrl = $t041554518._3
153		-	let dataKeyPrefix = $t041554518._4
154		-	let burnTransactions = {
155		-	let $l = split(coordsToBurn, "\|")
156		-	let $s = size($l)
157		-	let $acc0 = nil
158		-	func $f0_1 ($a,$i) = if (($i >= $s))
159		-	then $a
160		-	else burnFold($a, $l[$i])
	149	+	let $t041334229 = claimSquare(x, y, gen, callerId, transactionId)
	150	+	let asset = $t041334229._1
	151	+	let assetId = $t041334229._2
	152	+	let assetUrl = $t041334229._3
	153	+	let dataKeyPrefix = $t041334229._4
	154	+	(getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
	155	+	}
161	156
162		-	func $f0_2 ($a,$i) = if (($i >= $s))
163		-	then $a
164		-	else throw("List size exceeds 110")
165	157
166		-	$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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
167		-	}
168		-	((burnTransactions ++ getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen)) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
	158	+
	159	+	@Callable(i)
	160	+	func burnForEvolve (coordsToBurn) = {
	161	+	let $l = split(coordsToBurn, "\|")
	162	+	let $s = size($l)
	163	+	let $acc0 = nil
	164	+	func $f0_1 ($a,$i) = if (($i >= $s))
	165	+	then $a
	166	+	else burnFold($a, $l[$i])
	167	+
	168	+	func $f0_2 ($a,$i) = if (($i >= $s))
	169	+	then $a
	170	+	else throw("List size exceeds 110")
	171	+
	172	+	$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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
169	173		}
170	174
171	175

227	231		then throw("This can only be triggering internally")
228	232		else {
229	233		let transactionId = toBase58String(i.transactionId)
230		-	let $~~t064606565~~ = claimSquare(x, y, "1", desinationAddress, transactionId)
231		-	let asset = $~~t064606565~~._1
232		-	let assetId = $~~t064606565~~._2
233		-	let assetUrl = $~~t064606565~~._3
234		-	let dataKeyPrefix = $~~t064606565~~._4
	234	+	let $t064556560 = claimSquare(x, y, "1", desinationAddress, transactionId)
	235	+	let asset = $t064556560._1
	236	+	let assetId = $t064556560._2
	237	+	let assetUrl = $t064556560._3
	238	+	let dataKeyPrefix = $t064556560._4
235	239		let assetIdStr = toBase58String(assetId)
236	240		(getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, desinationAddress, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(desinationAddress)), 1, assetId)])
237	241		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let COLS = 1024
5	5
6	6		let ROWS = 1024
7	7
8	8		let nftDomain = "https://nft.gridgang.io/"
9	9
10	10		let addOwnerAndAmountFunc = "addOwnerAndAmount"
11	11
12	12		let DEBUG = true
13	13
14	14		let minForSaleWavlets = 100000000
15	15
16	16		let minPurchasePrice = 1000000
17	17
18	18		let dapp = "3N7J6mMMkjVViBREz9y53JmcX7r7KZRXQpL"
19	19
20	20		let dappAddress = Address(fromBase58String(dapp))
21	21
22	22		let holdingsPublicKey = "AyAwWbMPM7a4VYkn1bhEBftC5WZgfvUXgrYDe98mvLsv"
23	23
24	24		let holdings = "3MwPsLy9F1mUQrdP37sCAKvHuE5HvPE674Y"
25	25
26	26		let holdingsAddress = Address(fromBase58String(holdings))
27	27
28	28		func getAssetName (x,y) = ((x + ",") + y)
29	29
30	30
31	31		func getDataKeyPrefix (x,y) = getAssetName(x, y)
32	32
33	33
34	34		func getXYGenFromName (name) = {
35	35		let parts = split(name, ",")
36	36		let tuple = $Tuple2(parts[0], parts[1])
37	37		tuple
38	38		}
39	39
40	40
41	41		func getDataKeyPrefixFromAssetName (name) = {
42	42		let $t0906941 = getXYGenFromName(name)
43	43		let x = $t0906941._1
44	44		let y = $t0906941._2
45	45		let prefix = getDataKeyPrefix(x, y)
46	46		prefix
47	47		}
48	48
49	49
50	50		func claimSquare (x,y,gen,ownerId,transactionId) = {
51	51		let resolvedXStr = x
52	52		let resolvedYStr = y
53	53		let resolvedGenStr = gen
54	54		let assetName = getAssetName(resolvedXStr, resolvedYStr)
55	55		let assetUrl = ((nftDomain + transactionId) + ".png")
56	56		let asset = Issue(assetName, assetUrl, 1, 0, false)
57	57		let assetId = calculateAssetId(asset)
58	58		let dataKeyPrefix = getDataKeyPrefix(resolvedXStr, resolvedYStr)
59	59		$Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
60	60		}
61	61
62	62
63	63		func getTransactionEntries (prefix,assetId,asset,owner,gen) = [StringEntry((prefix + "_assetId"), assetId), StringEntry((prefix + "_asset"), asset), StringEntry((prefix + "_owner"), owner), StringEntry((prefix + "_gen"), gen)]
64	64
65	65
66	66		func burnFold (accum,next) = {
67	67		let resolvedNext = match next {
68	68		case _: Unit =>
69	69		"unset"
70	70		case val: String =>
71	71		val
72	72		case _ =>
73	73		throw("Match error")
74	74		}
75	75		if ((resolvedNext == "unset"))
76	76		then accum
77	77		else {
78	78		let assetId = match getString(this, (resolvedNext + "_assetId")) {
79	79		case _: Unit =>
80	80		"unset"
81	81		case val: String =>
82	82		val
83	83		case _ =>
84	84		throw("Match error")
85	85		}
86	86		if ((assetId == "unset"))
87	87		then accum
88	88		else (accum ++ [Burn(fromBase58String(assetId), 1)])
89	89		}
90	90		}
91	91
92	92
93	93		@Callable(i)
94	94		func purchase (x,y,userText) = {
95	95		let prefix = getDataKeyPrefix(x, y)
96	96		let paymentAmount = valueOrElse(i.payments[0].amount, 0)
97	97		let existingAssetId = match getString(this, (prefix + "_assetId")) {
98	98		case _: Unit =>
99	99		"unset"
100	100		case err: String =>
101	101		throw("This square has already been purchased")
102	102		case _ =>
103	103		throw("Match error")
104	104		}
105	105		if ((minPurchasePrice > paymentAmount))
106	106		then throw((("You need to send at least " + toString(minPurchasePrice)) + "WAVLETS to purchase a square"))
107	107		else {
108	108		let ownerId = toBase58String(i.caller.bytes)
109	109		let transactionId = toBase58String(i.transactionId)
110	110		let $t028612956 = claimSquare(x, y, "1", ownerId, transactionId)
111	111		let asset = $t028612956._1
112	112		let assetId = $t028612956._2
113	113		let assetUrl = $t028612956._3
114	114		let dataKeyPrefix = $t028612956._4
115	115		(getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, ownerId, "1") ++ [asset, StringEntry((ownerId + "_handle"), userText), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
116	116		}
117	117		}
118	118
119	119
120	120
121	121		@Callable(i)
122	122		func autoBuy (x,y) = {
123	123		let callerId = toBase58String(i.caller.bytes)
124	124		if (if ((callerId != holdings))
125	125		then (callerId != dapp)
126	126		else false)
127	127		then throw("This can only be triggering internally")
128	128		else {
129	129		let transactionId = toBase58String(i.transactionId)
130	130		let $t034913587 = claimSquare(x, y, "1", holdings, transactionId)
131	131		let asset = $t034913587._1
132	132		let assetId = $t034913587._2
133	133		let assetUrl = $t034913587._3
134	134		let dataKeyPrefix = $t034913587._4
135	135		let assetIdStr = toBase58String(assetId)
136	136		let res = invoke(holdingsAddress, addOwnerAndAmountFunc, [holdings, assetIdStr, 3], [AttachedPayment(unit, 0)])
137	137		if ((res == res))
138	138		then (getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, holdings, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)])
139	139		else throw("Strict value is not equal to itself.")
140	140		}
141	141		}
142	142
143	143
144	144
145	145		@Callable(i)
146		-	func evolve (x,y,gen~~,coordsToBurn~~) = {
	146	+	func evolve (x,y,gen) = {
147	147		let callerId = toBase58String(i.caller.bytes)
148	148		let transactionId = toBase58String(i.transactionId)
149		-	let $t041554518 = claimSquare(x, y, gen, callerId, transactionId)
150		-	let asset = $t041554518._1
151		-	let assetId = $t041554518._2
152		-	let assetUrl = $t041554518._3
153		-	let dataKeyPrefix = $t041554518._4
154		-	let burnTransactions = {
155		-	let $l = split(coordsToBurn, "\|")
156		-	let $s = size($l)
157		-	let $acc0 = nil
158		-	func $f0_1 ($a,$i) = if (($i >= $s))
159		-	then $a
160		-	else burnFold($a, $l[$i])
	149	+	let $t041334229 = claimSquare(x, y, gen, callerId, transactionId)
	150	+	let asset = $t041334229._1
	151	+	let assetId = $t041334229._2
	152	+	let assetUrl = $t041334229._3
	153	+	let dataKeyPrefix = $t041334229._4
	154	+	(getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
	155	+	}
161	156
162		-	func $f0_2 ($a,$i) = if (($i >= $s))
163		-	then $a
164		-	else throw("List size exceeds 110")
165	157
166		-	$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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
167		-	}
168		-	((burnTransactions ++ getTransactionEntries(dataKeyPrefix, toBase58String(assetId), assetUrl, callerId, gen)) ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)])
	158	+
	159	+	@Callable(i)
	160	+	func burnForEvolve (coordsToBurn) = {
	161	+	let $l = split(coordsToBurn, "\|")
	162	+	let $s = size($l)
	163	+	let $acc0 = nil
	164	+	func $f0_1 ($a,$i) = if (($i >= $s))
	165	+	then $a
	166	+	else burnFold($a, $l[$i])
	167	+
	168	+	func $f0_2 ($a,$i) = if (($i >= $s))
	169	+	then $a
	170	+	else throw("List size exceeds 110")
	171	+
	172	+	$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($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($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($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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100), 101), 102), 103), 104), 105), 106), 107), 108), 109), 110)
169	173		}
170	174
171	175
172	176
173	177		@Callable(i)
174	178		func putForSale (assetId,amount) = {
175	179		let callerId = toBase58String(i.caller.bytes)
176	180		let assetData = match assetInfo(fromBase58String(assetId)) {
177	181		case ass: Asset =>
178	182		ass
179	183		case _ =>
180	184		throw("Asset not found")
181	185		}
182	186		let dataPrefix = getDataKeyPrefixFromAssetName(assetData.name)
183	187		let ownerId = match getString(this, (dataPrefix + "_owner")) {
184	188		case s: String =>
185	189		s
186	190		case _ =>
187	191		throw("Owner not found in data")
188	192		}
189	193		if ((minForSaleWavlets > amount))
190	194		then throw("Amount needs to be more than 1 wave")
191	195		else if (if ((callerId != ownerId))
192	196		then (callerId != holdings)
193	197		else false)
194	198		then throw("You are not able to put this asset up for sale")
195	199		else {
196	200		let res = invoke(holdingsAddress, addOwnerAndAmountFunc, [callerId, assetId, amount], [AttachedPayment(unit, 0)])
197	201		if ((res == res))
198	202		then [ScriptTransfer(holdingsAddress, 1, fromBase58String(assetId))]
199	203		else throw("Strict value is not equal to itself.")
200	204		}
201	205		}
202	206
203	207
204	208
205	209		@Callable(i)
206	210		func finalizeSale (assetId,ownerId,userText) = {
207	211		let callerId = toBase58String(i.caller.bytes)
208	212		if ((callerId != holdings))
209	213		then throw("This can only be triggering internally")
210	214		else {
211	215		let prefix = match assetInfo(fromBase58String(assetId)) {
212	216		case asset: Asset =>
213	217		asset.name
214	218		case _ =>
215	219		throw("Can't find asset")
216	220		}
217	221		[StringEntry((prefix + "_owner"), ownerId), StringEntry((ownerId + "_handle"), userText)]
218	222		}
219	223		}
220	224
221	225
222	226
223	227		@Callable(i)
224	228		func adminPromotionPurchase (x,y,desinationAddress) = {
225	229		let callerId = toBase58String(i.caller.bytes)
226	230		if ((callerId != holdings))
227	231		then throw("This can only be triggering internally")
228	232		else {
229	233		let transactionId = toBase58String(i.transactionId)
230		-	let $~~t064606565~~ = claimSquare(x, y, "1", desinationAddress, transactionId)
231		-	let asset = $~~t064606565~~._1
232		-	let assetId = $~~t064606565~~._2
233		-	let assetUrl = $~~t064606565~~._3
234		-	let dataKeyPrefix = $~~t064606565~~._4
	234	+	let $t064556560 = claimSquare(x, y, "1", desinationAddress, transactionId)
	235	+	let asset = $t064556560._1
	236	+	let assetId = $t064556560._2
	237	+	let assetUrl = $t064556560._3
	238	+	let dataKeyPrefix = $t064556560._4
235	239		let assetIdStr = toBase58String(assetId)
236	240		(getTransactionEntries(dataKeyPrefix, assetIdStr, assetUrl, desinationAddress, "1") ++ [asset, StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(desinationAddress)), 1, assetId)])
237	241		}
238	242		}
239	243
240	244
241	245
242	246		@Callable(i)
243	247		func adminSetHandle (ownerId,handle) = {
244	248		let callerId = toBase58String(i.caller.bytes)
245	249		if ((callerId != holdings))
246	250		then throw("This can only be triggering internally")
247	251		else [StringEntry((ownerId + "_handle"), handle)]
248	252		}
249	253
250	254
251	255		@Verifier(tx)
252	256		func verify () = if (if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
253	257		then true
254	258		else (addressFromPublicKey(tx.senderPublicKey) == holdingsAddress))
255	259		then true
256	260		else (addressFromPublicKey(tx.senderPublicKey) == dappAddress)
257	261

github/deemru/w8io/026f985 
42.10 ms ◑