w8 · tx · 5Qb···Pw7

tx · 5QbQyKugkSUmMMhtJP8nFdMq3sPqF1vdEAwCmbi1tPw7

3N4vqUXWw8tf23LDWDbSEpJZH6dent3ETFu:  -0.04000000 Waves

2022.01.23 22:52 [1892000] smart account 3N4vqUXWw8tf23LDWDbSEpJZH6dent3ETFu > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5QbQyKugkSUmMMhtJP8nFdMq3sPqF1vdEAwCmbi1tPw7",
    "fee": 4000000,
    "feeAssetId": null,
    "timestamp": 1642967573578,
    "version": 2,
    "chainId": 84,
    "sender": "3N4vqUXWw8tf23LDWDbSEpJZH6dent3ETFu",
    "senderPublicKey": "D4v2S9mjah7eEEmuQVBNd4WipC3scs8V4PjuDBweWatE",
    "proofs": [
        "3BDpRX4qHrRpnd8Zojtyd1CTxko4mkKUTcDZuiVrzt4NdrDdmb5VqV3DE3YHHUm4qvwjasoAJMjHXZu3LVkn154K"
    ],
    "script": "base64:AAIFAAAAAAAABMgIAhIECgIICBIECgIICBIGCgQICAgIEgQKAggIEgQKAggIGggKAUESA3h5MhoICgFCEgN4eTMaCwoBQxIGeHkxS2V5GgsKAUQSBnh5MktleRoLCgFFEgZ4eTNLZXkaCwoBRhIGeHlWYWwxGgwKAUcSByRtYXRjaDAaCwoBSBIGeHlWYWwyGgsKAUkSBnh5VmFsMxoQCgFKEgtnZXRYeVJldHVybhoHCgFLEgJ4eRoQCgFMEgskdDAxNDkyMTUwNxoKCgFNEgVnZXRYeRoICgFOEgN4eWcaDgoBTxIJY2hlY2tMaXN0GhAKAVASCyR0MDE2MjMxNjQ0GgsKAVESBmdlblN0choTCgFSEg5jaGVja0ZvckV2b2x2ZRoQCgFTEgskdDAyMjkxMjMxMhoHCgFUEgJwMRoHCgFVEgJwMhoHCgFWEgJwMxoHCgFXEgJwNBoHCgFYEgJwNRoHCgFZEgJwNhoHCgFaEgJwNxoJCgFhEgRDT0xTGhEKAmFBEgskdDA3MjA3NzI3MBoNCgJhQhIHcGFyc2VkWBoNCgJhQxIHcGFyc2VkWRoPCgJhRBIJcGFyc2VkR2VuGhAKAmFFEgpyZXR1cm5MaXN0Gg0KAmFGEgdkYXRhS2V5GhEKAmFHEgskdDA3NjUzNzc2NBoUCgJhSBIOZXZvbHZlZEFzc2V0SWQaCAoCYWESAnA4GggKAmFiEgJwORoRCgJhYxILY2xhaW1TcXVhcmUaEwoCYWQSDXRyYW5zYWN0aW9uSWQaEgoCYWUSDHJlc29sdmVkWFN0choSCgJhZhIMcmVzb2x2ZWRZU3RyGhQKAmFnEg5yZXNvbHZlZEdlblN0choPCgJhaBIJYXNzZXROYW1lGg4KAmFpEghhc3NldFVybBoLCgJhahIFYXNzZXQaDQoCYWsSB2Fzc2V0SWQaEwoCYWwSDWRhdGFLZXlQcmVmaXgaBwoCYW0SAWkaEQoCYW4SCyR0MDQxNjU0MjYwGhEKAmFvEgskdDA0NzExNDgwNxoQCgJhcBIKYXNzZXRJZFN0choJCgJhcRIDcmVzGhEKAmFyEgskdDA1NTMzNTYyOBoMCgJhcxIGYW1vdW50Gg8KAmF0Eglhc3NldERhdGEaCQoCYXUSA2FzcxoLCgJhdhIFeFBhcnQaDgoCYXcSCHJlc3RQYXJ0GgcKAmF4EgFzGgoKAmF5EgR4U3RyGgoKAmF6EgR5U3RyGgkKAWISBFJPV1MaDgoBYxIJbmZ0RG9tYWluGgoKAWQSBURFQlVHGg0KAWUSCGhvbGRpbmdzGhQKAWYSD2hvbGRpbmdzQWRkcmVzcxoTCgFnEg5nZXRCb3VuZENvb3JkcxoJCgFoEgRkYXRhGg4KAWkSCSR0MDMzMzM1NRoGCgFqEgF4GgYKAWsSAXkaCAoBbBIDZ2VuGgYKAW0SAWQaBwoBbhICdGwaBwoBbxICdGMaBwoBcBICdHIaBgoBcRIBbBoGCgFyEgFyGgcKAXMSAmJsGgcKAXQSAmJjGgcKAXUSAmJyGhkKAXYSFGNoZWNrU3F1YXJlRm9yRXZvbHZlGgsKAXcSBmNvb3JkcxoMCgF4Egdvd25lcklkGg4KAXkSCSR0MDc4ODgxNhoICgF6EgN4eTEAAAAMAAAAAAFhAAAAAAAAAAQAAAAAAAFiAAAAAAAAAAQAAAAAAAFjAgAAABhodHRwczovL25mdC5ncmlkZ2FuZy5pby8AAAAAAWQGAAAAAAFlAgAAACMzTjlSN3U0NDlaMWI3NlFwSnA5dTNnelBqTVlRWW5wM1Y3cgAAAAABZgkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAWUBAAAAAWcAAAABAAAAAWgEAAAAAWkFAAAAAWgEAAAAAWoIBQAAAAFpAAAAAl8xBAAAAAFrCAUAAAABaQAAAAJfMgQAAAABbAgFAAAAAWkAAAACXzMEAAAAAW0JAABsAAAABgAAAAAAAAAAAgAAAAAAAAAAAAkAAGUAAAACBQAAAAFsAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAABQAAAAZIQUxGVVAEAAAAAW4JAAUUAAAAAgkAAGUAAAACBQAAAAFqBQAAAAFtCQAAZQAAAAIFAAAAAWsFAAAAAW0EAAAAAW8JAAUUAAAAAgUAAAABagkAAGUAAAACBQAAAAFrBQAAAAFtBAAAAAFwCQAFFAAAAAIJAABkAAAAAgUAAAABagUAAAABbQkAAGQAAAACBQAAAAFrBQAAAAFtBAAAAAFxCQAFFAAAAAIJAABlAAAAAgUAAAABagUAAAABbQUAAAABawQAAAABcgkABRQAAAACCQAAZAAAAAIFAAAAAWoFAAAAAW0FAAAAAWsEAAAAAXMJAAUUAAAAAgkAAGUAAAACBQAAAAFqBQAAAAFtCQAAZAAAAAIFAAAAAWsFAAAAAW0EAAAAAXQJAAUUAAAAAgUAAAABagkAAGQAAAACBQAAAAFrBQAAAAFtBAAAAAF1CQAFFAAAAAIJAABkAAAAAgUAAAABagUAAAABbQkAAGQAAAACBQAAAAFrBQAAAAFtCQAETAAAAAIJAAUVAAAAAwUAAAABbgUAAAABbwUAAAABcQkABEwAAAACCQAFFQAAAAMFAAAAAW8FAAAAAXAFAAAAAXIJAARMAAAAAgkABRUAAAADBQAAAAFxBQAAAAFzBQAAAAF0CQAETAAAAAIJAAUVAAAAAwUAAAABcgUAAAABdAUAAAABdQUAAAADbmlsAQAAAAF2AAAAAwAAAAF3AAAAAWwAAAABeAQAAAABeQUAAAABdwQAAAABeggFAAAAAXkAAAACXzEEAAAAAUEIBQAAAAF5AAAAAl8yBAAAAAFCCAUAAAABeQAAAAJfMwQAAAABQwkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAGkAAAAAQgFAAAAAXoAAAACXzECAAAAASwJAAGkAAAAAQgFAAAAAXoAAAACXzICAAAAASwFAAAAAWwCAAAABl9vd25lcgQAAAABRAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAGkAAAAAQgFAAAAAUEAAAACXzECAAAAASwJAAGkAAAAAQgFAAAAAUEAAAACXzICAAAAASwFAAAAAWwCAAAABl9vd25lcgQAAAABRQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAGkAAAAAQgFAAAAAUIAAAACXzECAAAAASwJAAGkAAAAAQgFAAAAAUIAAAACXzICAAAAASwFAAAAAWwCAAAABl9vd25lcgQAAAABRgQAAAABRwkABB0AAAACBQAAAAR0aGlzBQAAAAFDAwkAAAEAAAACBQAAAAFHAgAAAARVbml0AgAAAAV1bnNldAMJAAABAAAAAgUAAAABRwIAAAAGU3RyaW5nBAAAAAFqBQAAAAFHBQAAAAFqCQAAAgAAAAECAAAAC01hdGNoIGVycm9yBAAAAAFIBAAAAAFHCQAEHQAAAAIFAAAABHRoaXMFAAAAAUQDCQAAAQAAAAIFAAAAAUcCAAAABFVuaXQCAAAABXVuc2V0AwkAAAEAAAACBQAAAAFHAgAAAAZTdHJpbmcEAAAAAWoFAAAAAUcFAAAAAWoJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IEAAAAAUkEAAAAAUcJAAQdAAAAAgUAAAAEdGhpcwUAAAABRQMJAAABAAAAAgUAAAABRwIAAAAEVW5pdAIAAAAFdW5zZXQDCQAAAQAAAAIFAAAAAUcCAAAABlN0cmluZwQAAAABagUAAAABRwUAAAABagkAAAIAAAABAgAAAAtNYXRjaCBlcnJvcgMDCQAAAAAAAAIFAAAAAUYFAAAAAXgJAAAAAAAAAgUAAAABSAUAAAABeAcJAAAAAAAAAgUAAAABSQUAAAABeAcBAAAAAUoAAAACAAAAAUsAAAABbAQAAAABTAUAAAABSwQAAAABaggFAAAAAUwAAAACXzEEAAAAAWsIBQAAAAFMAAAAAl8yCQAFFQAAAAMFAAAAAWoFAAAAAWsJAABkAAAAAgUAAAABbAAAAAAAAAAAAQEAAAABTQAAAAIAAAABTgAAAAF4BAAAAAFPCQEAAAABZwAAAAEFAAAAAU4EAAAAAVAFAAAAAU4EAAAAAWoIBQAAAAFQAAAAAl8xBAAAAAFrCAUAAAABUAAAAAJfMgQAAAABbAgFAAAAAVAAAAACXzMEAAAAAVEJAAGkAAAAAQUAAAABbAMJAQAAAAF2AAAAAwkAAZEAAAACBQAAAAFPAAAAAAAAAAAABQAAAAFRBQAAAAF4CQEAAAABSgAAAAIICQABkQAAAAIFAAAAAU8AAAAAAAAAAAAAAAACXzEFAAAAAWwDCQEAAAABdgAAAAMJAAGRAAAAAgUAAAABTwAAAAAAAAAAAQUAAAABUQUAAAABeAkBAAAAAUoAAAACCAkAAZEAAAACBQAAAAFPAAAAAAAAAAABAAAAAl8xBQAAAAFsAwkBAAAAAXYAAAADCQABkQAAAAIFAAAAAU8AAAAAAAAAAAIFAAAAAVEFAAAAAXgJAQAAAAFKAAAAAggJAAGRAAAAAgUAAAABTwAAAAAAAAAAAgAAAAJfMQUAAAABbAMJAQAAAAF2AAAAAwkAAZEAAAACBQAAAAFPAAAAAAAAAAADBQAAAAFRBQAAAAF4CQEAAAABSgAAAAIICQABkQAAAAIFAAAAAU8AAAAAAAAAAAMAAAACXzEFAAAAAWwFAAAAAU4BAAAAAVIAAAACAAAAAU4AAAABeAQAAAABUwUAAAABTgQAAAABaggFAAAAAVMAAAACXzEEAAAAAWsIBQAAAAFTAAAAAl8yBAAAAAFsCAUAAAABUwAAAAJfMwQAAAABVAkBAAAAAU0AAAACBQAAAAFOBQAAAAF4AwkAAAAAAAACCAUAAAABVAAAAAJfMwUAAAABbAUAAAABVAQAAAABVQkBAAAAAU0AAAACBQAAAAFUBQAAAAF4AwkAAAAAAAACCAUAAAABVQAAAAJfMwgFAAAAAVQAAAACXzMFAAAAAVUEAAAAAVYJAQAAAAFNAAAAAgUAAAABVQUAAAABeAMJAAAAAAAAAggFAAAAAVYAAAACXzMIBQAAAAFVAAAAAl8zBQAAAAFWBAAAAAFXCQEAAAABTQAAAAIFAAAAAVYFAAAAAXgDCQAAAAAAAAIIBQAAAAFXAAAAAl8zCAUAAAABVgAAAAJfMwUAAAABVwQAAAABWAkBAAAAAU0AAAACBQAAAAFXBQAAAAF4AwkAAAAAAAACCAUAAAABWAAAAAJfMwgFAAAAAVcAAAACXzMFAAAAAVgEAAAAAVkJAQAAAAFNAAAAAgUAAAABWAUAAAABeAMJAAAAAAAAAggFAAAAAVkAAAACXzMIBQAAAAFYAAAAAl8zBQAAAAFZBAAAAAFaCQEAAAABTQAAAAIFAAAAAVkFAAAAAXgDCQAAAAAAAAIIBQAAAAFaAAAAAl8zCAUAAAABWQAAAAJfMwUAAAABWgQAAAACYWEJAQAAAAFNAAAAAgUAAAABWgUAAAABeAMJAAAAAAAAAggFAAAAAmFhAAAAAl8zCAUAAAABWgAAAAJfMwUAAAACYWEEAAAAAmFiCQEAAAABTQAAAAIFAAAAAmFhBQAAAAF4AwkAAAAAAAACCAUAAAACYWIAAAACXzMIBQAAAAJhYQAAAAJfMwUAAAACYWIJAQAAAAFNAAAAAgkBAAAAAU0AAAACBQAAAAJhYgUAAAABeAUAAAABeAEAAAACYWMAAAAFAAAAAWoAAAABawAAAAFsAAAAAXgAAAACYWQEAAAAAmFlBQAAAAFqBAAAAAJhZgUAAAABawQAAAACYWcFAAAAAWwEAAAAAmFoCQABLAAAAAIJAAEsAAAAAgUAAAACYWUCAAAAASwFAAAAAmFmBAAAAAJhaQkAASwAAAACCQABLAAAAAIFAAAAAWMFAAAAAmFkAgAAAAQucG5nBAAAAAJhagkABEIAAAAFCQABLAAAAAIJAAEsAAAAAgUAAAACYWgCAAAABSBHZW4gBQAAAAJhZwUAAAACYWkAAAAAAAAAAAEAAAAAAAAAAAAHBAAAAAJhawkABDgAAAABBQAAAAJhagQAAAACYWwJAAEsAAAAAgkAASwAAAACBQAAAAJhaAIAAAABLAUAAAABbAkABRYAAAAEBQAAAAJhagUAAAACYWsFAAAAAmFpBQAAAAJhbAAAAAUAAAACYW0BAAAACHB1cmNoYXNlAAAAAgAAAAFqAAAAAWsEAAAAAXgJAAJYAAAAAQgIBQAAAAJhbQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAAmFkCQACWAAAAAEIBQAAAAJhbQAAAA10cmFuc2FjdGlvbklkBAAAAAJhbgkBAAAAAmFjAAAABQUAAAABagUAAAABawIAAAABMQUAAAABeAUAAAACYWQEAAAAAmFqCAUAAAACYW4AAAACXzEEAAAAAmFrCAUAAAACYW4AAAACXzIEAAAAAmFpCAUAAAACYW4AAAACXzMEAAAAAmFsCAUAAAACYW4AAAACXzQJAARMAAAAAgUAAAACYWoJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJhbAIAAAAIX2Fzc2V0SWQJAAJYAAAAAQUAAAACYWsJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJhbAIAAAAGX2Fzc2V0BQAAAAJhaQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFsAgAAAAZfb3duZXIFAAAAAXgJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAACYWQFAAAAAmFsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAJhbQAAAAZjYWxsZXIAAAAAAAAAAAEFAAAAAmFrBQAAAANuaWwAAAACYW0BAAAAB2F1dG9CdXkAAAACAAAAAWoAAAABawQAAAACYWQJAAJYAAAAAQgFAAAAAmFtAAAADXRyYW5zYWN0aW9uSWQEAAAAAmFvCQEAAAACYWMAAAAFBQAAAAFqBQAAAAFrAgAAAAExBQAAAAFlBQAAAAJhZAQAAAACYWoIBQAAAAJhbwAAAAJfMQQAAAACYWsIBQAAAAJhbwAAAAJfMgQAAAACYWkIBQAAAAJhbwAAAAJfMwQAAAACYWwIBQAAAAJhbwAAAAJfNAQAAAACYXAJAAJYAAAAAQUAAAACYWsEAAAAAmFxCQAD/AAAAAQFAAAAAWYCAAAAEWFkZE93bmVyQW5kQW1vdW50CQAETAAAAAIFAAAAAWUJAARMAAAAAgUAAAACYXAJAARMAAAAAgIAAAABMgUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAAABQAAAANuaWwDCQAAAAAAAAIFAAAAAmFxBQAAAAJhcQkABEwAAAACBQAAAAJhagkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFsAgAAAAhfYXNzZXRJZAUAAAACYXAJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJhbAIAAAAGX2Fzc2V0BQAAAAJhaQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFsAgAAAAZfb3duZXIFAAAAAWUJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABXNhbGVfBQAAAAJhcAIAAAAOX29yaWdpbmFsT3duZXIFAAAAAWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAVzYWxlXwUAAAACYXACAAAAB19hbW91bnQAAAAAAAAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAACYWQFAAAAAmFsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAAWYAAAAAAAAAAAEFAAAAAmFrBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAmFtAQAAAAZldm9sdmUAAAAEAAAAAWoAAAABawAAAAFsAAAAAXgEAAAAAmFkCQACWAAAAAEIBQAAAAJhbQAAAA10cmFuc2FjdGlvbklkBAAAAAJhcgkBAAAAAmFjAAAABQUAAAABagUAAAABawUAAAABbAUAAAABeAUAAAACYWQEAAAAAmFqCAUAAAACYXIAAAACXzEEAAAAAmFrCAUAAAACYXIAAAACXzIEAAAAAmFpCAUAAAACYXIAAAACXzMEAAAAAmFsCAUAAAACYXIAAAACXzQJAARMAAAAAgUAAAACYWoJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJhbAIAAAAIX2Fzc2V0SWQJAAJYAAAAAQUAAAACYWsJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAAJhbAIAAAAGX2Fzc2V0BQAAAAJhaQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFsAgAAAAZfb3duZXIFAAAAAXgJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAACYWQFAAAAAmFsCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAAAdBZGRyZXNzAAAAAQkAAlkAAAABBQAAAAF4AAAAAAAAAAABBQAAAAJhawUAAAADbmlsAAAAAmFtAQAAAApwdXRGb3JTYWxlAAAAAgAAAAJhawAAAAJhcwQAAAABeAkAAlgAAAABCAgFAAAAAmFtAAAABmNhbGxlcgAAAAVieXRlcwQAAAACYXEJAAP8AAAABAUAAAABZgIAAAARYWRkT3duZXJBbmRBbW91bnQJAARMAAAAAgUAAAABeAkABEwAAAACBQAAAAJhawkABEwAAAACBQAAAAJhcwUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAAABQAAAANuaWwDCQAAAAAAAAIFAAAAAmFxBQAAAAJhcQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAFc2FsZV8FAAAAAmFrAgAAAA5fb3JpZ2luYWxPd25lcgUAAAABeAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAFc2FsZV8FAAAAAmFrAgAAAAdfYW1vdW50BQAAAAJhcwkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAFmAAAAAAAAAAABCQACWQAAAAEFAAAAAmFrBQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAmFtAQAAAAxmaW5hbGl6ZVNhbGUAAAACAAAAAmFrAAAAAXgEAAAAAmF0BAAAAAFHCQAD7AAAAAEJAAJZAAAAAQUAAAACYWsDCQAAAQAAAAIFAAAAAUcCAAAABUFzc2V0BAAAAAJhdQUAAAABRwUAAAACYXUJAAACAAAAAQIAAAAPQXNzZXQgbm90IGZvdW5kBAAAAAJhaAgFAAAAAmF0AAAABG5hbWUEAAAAAmF2CQAEtQAAAAIFAAAAAmFoAgAAAAEsBAAAAAJhdwkABLUAAAACCQABkQAAAAIFAAAAAmF2AAAAAAAAAAABAgAAAAEgBAAAAAFqBAAAAAFHCQABkQAAAAIFAAAAAmF2AAAAAAAAAAAAAwkAAAEAAAACBQAAAAFHAgAAAAZTdHJpbmcEAAAAAmF4BQAAAAFHCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAS2AAAAAQUAAAACYXgCAAAAE0NvdWxkIG5vdCBwYXJzZSAneCcJAAACAAAAAQIAAAANJ3gnIG5vdCBmb3VuZAQAAAABawQAAAABRwkAAZEAAAACBQAAAAJhdwAAAAAAAAAAAAMJAAABAAAAAgUAAAABRwIAAAAGU3RyaW5nBAAAAAJheAUAAAABRwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEtgAAAAEFAAAAAmF4AgAAABNDb3VsZCBub3QgcGFyc2UgJ3knCQAAAgAAAAECAAAADSd5JyBub3QgZm91bmQEAAAAAWwEAAAAAUcJAAGRAAAAAgUAAAACYXcAAAAAAAAAAAIDCQAAAQAAAAIFAAAAAUcCAAAABlN0cmluZwQAAAACYXgFAAAAAUcJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABLYAAAABBQAAAAJheAIAAAAVQ291bGQgbm90IHBhcnNlICdnZW4nCQAAAgAAAAECAAAADydnZW4nIG5vdCBmb3VuZAQAAAACYXkJAAGkAAAAAQUAAAABagQAAAACYXoJAAGkAAAAAQUAAAABawQAAAABUQkAAaQAAAABBQAAAAFsBAAAAAJhQQkBAAAAAU0AAAACCQAFFQAAAAMFAAAAAWoFAAAAAWsFAAAAAWwFAAAAAXgEAAAAAmFCCAUAAAACYUEAAAACXzEEAAAAAmFDCAUAAAACYUEAAAACXzIEAAAAAmFECAUAAAACYUEAAAACXzMEAAAAAmFFBQAAAANuaWwDCQAAAAAAAAIFAAAAAmFEBQAAAAFsBAAAAAJhRgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAJheQIAAAABLAUAAAACYXoCAAAAASwFAAAAAVEJAAUUAAAAAgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFGAgAAAAZfb3duZXIFAAAAAXgJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABXNhbGVfBQAAAAJhawIAAAAOX29yaWdpbmFsT3duZXICAAAAAAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAABXNhbGVfBQAAAAJhawIAAAAHX2Ftb3VudAAAAAAAAAAAAAUAAAADbmlsBQAAAAJhRgQAAAACYWQJAAJYAAAAAQgFAAAAAmFtAAAADXRyYW5zYWN0aW9uSWQEAAAAAmFHCQEAAAACYWMAAAAFBQAAAAJheQUAAAACYXoFAAAAAVEFAAAAAXgFAAAAAmFkBAAAAAJhaggFAAAAAmFHAAAAAl8xBAAAAAJhSAgFAAAAAmFHAAAAAl8yBAAAAAJhaQgFAAAAAmFHAAAAAl8zBAAAAAJhbAgFAAAAAmFHAAAAAl80BAAAAAJhRgUAAAACYWwJAAUUAAAAAgkABEwAAAACBQAAAAJhagkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFGAgAAAAhfYXNzZXRJZAkAAlgAAAABBQAAAAJhSAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAAmFGAgAAAAZfYXNzZXQFAAAAAmFpCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgUAAAACYUYCAAAABl9vd25lcgUAAAABeAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAJhZAUAAAACYUYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAB0FkZHJlc3MAAAABCQACWQAAAAEFAAAAAXgAAAAAAAAAAAEJAAJZAAAAAQUAAAACYWsFAAAAA25pbAUAAAACYUYAAAAAky304A==",
    "height": 1892000,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hsh6Xzuy1XJ7PasrsU3P7ekBniaZPBDhoQsaCUTQREPH
Next: 7qJp3WyVgVZdEfHhZC1hn4GDxPC5MSMXi1RW9LXzwMz5

Diff: 
Old New Differences
150 150      }
151 151  
152 152  
153 - func claimSquare (x,y,ownerId,transactionId) = {
153 + func claimSquare (x,y,gen,ownerId,transactionId) = {
154 154      let resolvedXStr = x
155 155      let resolvedYStr = y
156 -     let resolvedGenStr = "1"
156 +     let resolvedGenStr = gen
157 157      let assetName = ((resolvedXStr + ",") + resolvedYStr)
158 158      let assetUrl = ((nftDomain + transactionId) + ".png")
159 159      let asset = Issue(((assetName + " Gen ") + resolvedGenStr), assetUrl, 1, 0, false)
160 160      let assetId = calculateAssetId(asset)
161 -     let gen = resolvedGenStr
162 161      let dataKeyPrefix = ((assetName + ",") + gen)
163 162      $Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
164 163      }
168 167  func purchase (x,y) = {
169 168      let ownerId = toBase58String(i.caller.bytes)
170 169      let transactionId = toBase58String(i.transactionId)
171 -     let $t041804270 = claimSquare(x, y, ownerId, transactionId)
172 -     let asset = $t041804270._1
173 -     let assetId = $t041804270._2
174 -     let assetUrl = $t041804270._3
175 -     let dataKeyPrefix = $t041804270._4
170 +     let $t041654260 = claimSquare(x, y, "1", ownerId, transactionId)
171 +     let asset = $t041654260._1
172 +     let assetId = $t041654260._2
173 +     let assetUrl = $t041654260._3
174 +     let dataKeyPrefix = $t041654260._4
176 175  [asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)]
177 176      }
178 177  
181 180  @Callable(i)
182 181  func autoBuy (x,y) = {
183 182      let transactionId = toBase58String(i.transactionId)
184 -     let $t047214812 = claimSquare(x, y, holdings, transactionId)
185 -     let asset = $t047214812._1
186 -     let assetId = $t047214812._2
187 -     let assetUrl = $t047214812._3
188 -     let dataKeyPrefix = $t047214812._4
183 +     let $t047114807 = claimSquare(x, y, "1", holdings, transactionId)
184 +     let asset = $t047114807._1
185 +     let assetId = $t047114807._2
186 +     let assetUrl = $t047114807._3
187 +     let dataKeyPrefix = $t047114807._4
189 188      let assetIdStr = toBase58String(assetId)
190 189      let res = invoke(holdingsAddress, "addOwnerAndAmount", [holdings, assetIdStr, "2"], [AttachedPayment(unit, 0)])
191 190      if ((res == res))
192 191          then [asset, StringEntry((dataKeyPrefix + "_assetId"), assetIdStr), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), holdings), StringEntry((("sale_" + assetIdStr) + "_originalOwner"), holdings), IntegerEntry((("sale_" + assetIdStr) + "_amount"), 2), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)]
193 192          else throw("Strict value is not equal to itself.")
193 +     }
194 + 
195 + 
196 + 
197 + @Callable(i)
198 + func evolve (x,y,gen,ownerId) = {
199 +     let transactionId = toBase58String(i.transactionId)
200 +     let $t055335628 = claimSquare(x, y, gen, ownerId, transactionId)
201 +     let asset = $t055335628._1
202 +     let assetId = $t055335628._2
203 +     let assetUrl = $t055335628._3
204 +     let dataKeyPrefix = $t055335628._4
205 + [asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(ownerId)), 1, assetId)]
194 206      }
195 207  
196 208  
238 250      let xStr = toString(x)
239 251      let yStr = toString(y)
240 252      let genStr = toString(gen)
241 -     let $t066436706 = getXy($Tuple3(x, y, gen), ownerId)
242 -     let parsedX = $t066436706._1
243 -     let parsedY = $t066436706._2
244 -     let parsedGen = $t066436706._3
253 +     let $t072077270 = getXy($Tuple3(x, y, gen), ownerId)
254 +     let parsedX = $t072077270._1
255 +     let parsedY = $t072077270._2
256 +     let parsedGen = $t072077270._3
245 257      let returnList = nil
246 258      if ((parsedGen == gen))
247 259          then {
250 262              }
251 263          else {
252 264              let transactionId = toBase58String(i.transactionId)
253 -             let $t070897192 = claimSquare(xStr, yStr, ownerId, transactionId)
254 -             let asset = $t070897192._1
255 -             let evolvedAssetId = $t070897192._2
256 -             let assetUrl = $t070897192._3
257 -             let dataKeyPrefix = $t070897192._4
265 +             let $t076537764 = claimSquare(xStr, yStr, genStr, ownerId, transactionId)
266 +             let asset = $t076537764._1
267 +             let evolvedAssetId = $t076537764._2
268 +             let assetUrl = $t076537764._3
269 +             let dataKeyPrefix = $t076537764._4
258 270              let dataKey = dataKeyPrefix
259 271              $Tuple2([asset, StringEntry((dataKey + "_assetId"), toBase58String(evolvedAssetId)), StringEntry((dataKey + "_asset"), assetUrl), StringEntry((dataKey + "_owner"), ownerId), StringEntry(transactionId, dataKey), ScriptTransfer(Address(fromBase58String(ownerId)), 1, fromBase58String(assetId))], dataKey)
260 272              }
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 DEBUG = true
11 11  
12 12  let holdings = "3N9R7u449Z1b76QpJp9u3gzPjMYQYnp3V7r"
13 13  
14 14  let holdingsAddress = Address(fromBase58String(holdings))
15 15  
16 16  func getBoundCoords (data) = {
17 17      let $t0333355 = data
18 18      let x = $t0333355._1
19 19      let y = $t0333355._2
20 20      let gen = $t0333355._3
21 21      let d = pow(2, 0, (gen - 1), 0, 0, HALFUP)
22 22      let tl = $Tuple2((x - d), (y - d))
23 23      let tc = $Tuple2(x, (y - d))
24 24      let tr = $Tuple2((x + d), (y + d))
25 25      let l = $Tuple2((x - d), y)
26 26      let r = $Tuple2((x + d), y)
27 27      let bl = $Tuple2((x - d), (y + d))
28 28      let bc = $Tuple2(x, (y + d))
29 29      let br = $Tuple2((x + d), (y + d))
30 30  [$Tuple3(tl, tc, l), $Tuple3(tc, tr, r), $Tuple3(l, bl, bc), $Tuple3(r, bc, br)]
31 31      }
32 32  
33 33  
34 34  func checkSquareForEvolve (coords,gen,ownerId) = {
35 35      let $t0788816 = coords
36 36      let xy1 = $t0788816._1
37 37      let xy2 = $t0788816._2
38 38      let xy3 = $t0788816._3
39 39      let xy1Key = (((((toString(xy1._1) + ",") + toString(xy1._2)) + ",") + gen) + "_owner")
40 40      let xy2Key = (((((toString(xy2._1) + ",") + toString(xy2._2)) + ",") + gen) + "_owner")
41 41      let xy3Key = (((((toString(xy3._1) + ",") + toString(xy3._2)) + ",") + gen) + "_owner")
42 42      let xyVal1 =     match getString(this, xy1Key) {
43 43          case _: Unit => 
44 44              "unset"
45 45          case x: String => 
46 46              x
47 47          case _ => 
48 48              throw("Match error")
49 49      }
50 50      let xyVal2 =     match getString(this, xy2Key) {
51 51          case _: Unit => 
52 52              "unset"
53 53          case x: String => 
54 54              x
55 55          case _ => 
56 56              throw("Match error")
57 57      }
58 58      let xyVal3 =     match getString(this, xy3Key) {
59 59          case _: Unit => 
60 60              "unset"
61 61          case x: String => 
62 62              x
63 63          case _ => 
64 64              throw("Match error")
65 65      }
66 66      if (if ((xyVal1 == ownerId))
67 67          then (xyVal2 == ownerId)
68 68          else false)
69 69          then (xyVal3 == ownerId)
70 70          else false
71 71      }
72 72  
73 73  
74 74  func getXyReturn (xy,gen) = {
75 75      let $t014921507 = xy
76 76      let x = $t014921507._1
77 77      let y = $t014921507._2
78 78      $Tuple3(x, y, (gen + 1))
79 79      }
80 80  
81 81  
82 82  func getXy (xyg,ownerId) = {
83 83      let checkList = getBoundCoords(xyg)
84 84      let $t016231644 = xyg
85 85      let x = $t016231644._1
86 86      let y = $t016231644._2
87 87      let gen = $t016231644._3
88 88      let genStr = toString(gen)
89 89      if (checkSquareForEvolve(checkList[0], genStr, ownerId))
90 90          then getXyReturn(checkList[0]._1, gen)
91 91          else if (checkSquareForEvolve(checkList[1], genStr, ownerId))
92 92              then getXyReturn(checkList[1]._1, gen)
93 93              else if (checkSquareForEvolve(checkList[2], genStr, ownerId))
94 94                  then getXyReturn(checkList[2]._1, gen)
95 95                  else if (checkSquareForEvolve(checkList[3], genStr, ownerId))
96 96                      then getXyReturn(checkList[3]._1, gen)
97 97                      else xyg
98 98      }
99 99  
100 100  
101 101  func checkForEvolve (xyg,ownerId) = {
102 102      let $t022912312 = xyg
103 103      let x = $t022912312._1
104 104      let y = $t022912312._2
105 105      let gen = $t022912312._3
106 106      let p1 = getXy(xyg, ownerId)
107 107      if ((p1._3 == gen))
108 108          then p1
109 109          else {
110 110              let p2 = getXy(p1, ownerId)
111 111              if ((p2._3 == p1._3))
112 112                  then p2
113 113                  else {
114 114                      let p3 = getXy(p2, ownerId)
115 115                      if ((p3._3 == p2._3))
116 116                          then p3
117 117                          else {
118 118                              let p4 = getXy(p3, ownerId)
119 119                              if ((p4._3 == p3._3))
120 120                                  then p4
121 121                                  else {
122 122                                      let p5 = getXy(p4, ownerId)
123 123                                      if ((p5._3 == p4._3))
124 124                                          then p5
125 125                                          else {
126 126                                              let p6 = getXy(p5, ownerId)
127 127                                              if ((p6._3 == p5._3))
128 128                                                  then p6
129 129                                                  else {
130 130                                                      let p7 = getXy(p6, ownerId)
131 131                                                      if ((p7._3 == p6._3))
132 132                                                          then p7
133 133                                                          else {
134 134                                                              let p8 = getXy(p7, ownerId)
135 135                                                              if ((p8._3 == p7._3))
136 136                                                                  then p8
137 137                                                                  else {
138 138                                                                      let p9 = getXy(p8, ownerId)
139 139                                                                      if ((p9._3 == p8._3))
140 140                                                                          then p9
141 141                                                                          else getXy(getXy(p9, ownerId), ownerId)
142 142                                                                      }
143 143                                                              }
144 144                                                      }
145 145                                              }
146 146                                      }
147 147                              }
148 148                      }
149 149              }
150 150      }
151 151  
152 152  
153 - func claimSquare (x,y,ownerId,transactionId) = {
153 + func claimSquare (x,y,gen,ownerId,transactionId) = {
154 154      let resolvedXStr = x
155 155      let resolvedYStr = y
156 -     let resolvedGenStr = "1"
156 +     let resolvedGenStr = gen
157 157      let assetName = ((resolvedXStr + ",") + resolvedYStr)
158 158      let assetUrl = ((nftDomain + transactionId) + ".png")
159 159      let asset = Issue(((assetName + " Gen ") + resolvedGenStr), assetUrl, 1, 0, false)
160 160      let assetId = calculateAssetId(asset)
161 -     let gen = resolvedGenStr
162 161      let dataKeyPrefix = ((assetName + ",") + gen)
163 162      $Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
164 163      }
165 164  
166 165  
167 166  @Callable(i)
168 167  func purchase (x,y) = {
169 168      let ownerId = toBase58String(i.caller.bytes)
170 169      let transactionId = toBase58String(i.transactionId)
171 -     let $t041804270 = claimSquare(x, y, ownerId, transactionId)
172 -     let asset = $t041804270._1
173 -     let assetId = $t041804270._2
174 -     let assetUrl = $t041804270._3
175 -     let dataKeyPrefix = $t041804270._4
170 +     let $t041654260 = claimSquare(x, y, "1", ownerId, transactionId)
171 +     let asset = $t041654260._1
172 +     let assetId = $t041654260._2
173 +     let assetUrl = $t041654260._3
174 +     let dataKeyPrefix = $t041654260._4
176 175  [asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)]
177 176      }
178 177  
179 178  
180 179  
181 180  @Callable(i)
182 181  func autoBuy (x,y) = {
183 182      let transactionId = toBase58String(i.transactionId)
184 -     let $t047214812 = claimSquare(x, y, holdings, transactionId)
185 -     let asset = $t047214812._1
186 -     let assetId = $t047214812._2
187 -     let assetUrl = $t047214812._3
188 -     let dataKeyPrefix = $t047214812._4
183 +     let $t047114807 = claimSquare(x, y, "1", holdings, transactionId)
184 +     let asset = $t047114807._1
185 +     let assetId = $t047114807._2
186 +     let assetUrl = $t047114807._3
187 +     let dataKeyPrefix = $t047114807._4
189 188      let assetIdStr = toBase58String(assetId)
190 189      let res = invoke(holdingsAddress, "addOwnerAndAmount", [holdings, assetIdStr, "2"], [AttachedPayment(unit, 0)])
191 190      if ((res == res))
192 191          then [asset, StringEntry((dataKeyPrefix + "_assetId"), assetIdStr), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), holdings), StringEntry((("sale_" + assetIdStr) + "_originalOwner"), holdings), IntegerEntry((("sale_" + assetIdStr) + "_amount"), 2), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)]
193 192          else throw("Strict value is not equal to itself.")
193 +     }
194 + 
195 + 
196 + 
197 + @Callable(i)
198 + func evolve (x,y,gen,ownerId) = {
199 +     let transactionId = toBase58String(i.transactionId)
200 +     let $t055335628 = claimSquare(x, y, gen, ownerId, transactionId)
201 +     let asset = $t055335628._1
202 +     let assetId = $t055335628._2
203 +     let assetUrl = $t055335628._3
204 +     let dataKeyPrefix = $t055335628._4
205 + [asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(ownerId)), 1, assetId)]
194 206      }
195 207  
196 208  
197 209  
198 210  @Callable(i)
199 211  func putForSale (assetId,amount) = {
200 212      let ownerId = toBase58String(i.caller.bytes)
201 213      let res = invoke(holdingsAddress, "addOwnerAndAmount", [ownerId, assetId, amount], [AttachedPayment(unit, 0)])
202 214      if ((res == res))
203 215          then [StringEntry((("sale_" + assetId) + "_originalOwner"), ownerId), StringEntry((("sale_" + assetId) + "_amount"), amount), ScriptTransfer(holdingsAddress, 1, fromBase58String(assetId))]
204 216          else throw("Strict value is not equal to itself.")
205 217      }
206 218  
207 219  
208 220  
209 221  @Callable(i)
210 222  func finalizeSale (assetId,ownerId) = {
211 223      let assetData =     match assetInfo(fromBase58String(assetId)) {
212 224          case ass: Asset => 
213 225              ass
214 226          case _ => 
215 227              throw("Asset not found")
216 228      }
217 229      let assetName = assetData.name
218 230      let xPart = split(assetName, ",")
219 231      let restPart = split(xPart[1], " ")
220 232      let x =     match xPart[0] {
221 233          case s: String => 
222 234              valueOrErrorMessage(parseInt(s), "Could not parse 'x'")
223 235          case _ => 
224 236              throw("'x' not found")
225 237      }
226 238      let y =     match restPart[0] {
227 239          case s: String => 
228 240              valueOrErrorMessage(parseInt(s), "Could not parse 'y'")
229 241          case _ => 
230 242              throw("'y' not found")
231 243      }
232 244      let gen =     match restPart[2] {
233 245          case s: String => 
234 246              valueOrErrorMessage(parseInt(s), "Could not parse 'gen'")
235 247          case _ => 
236 248              throw("'gen' not found")
237 249      }
238 250      let xStr = toString(x)
239 251      let yStr = toString(y)
240 252      let genStr = toString(gen)
241 -     let $t066436706 = getXy($Tuple3(x, y, gen), ownerId)
242 -     let parsedX = $t066436706._1
243 -     let parsedY = $t066436706._2
244 -     let parsedGen = $t066436706._3
253 +     let $t072077270 = getXy($Tuple3(x, y, gen), ownerId)
254 +     let parsedX = $t072077270._1
255 +     let parsedY = $t072077270._2
256 +     let parsedGen = $t072077270._3
245 257      let returnList = nil
246 258      if ((parsedGen == gen))
247 259          then {
248 260              let dataKey = ((((xStr + ",") + yStr) + ",") + genStr)
249 261              $Tuple2([StringEntry((dataKey + "_owner"), ownerId), StringEntry((("sale_" + assetId) + "_originalOwner"), ""), IntegerEntry((("sale_" + assetId) + "_amount"), 0)], dataKey)
250 262              }
251 263          else {
252 264              let transactionId = toBase58String(i.transactionId)
253 -             let $t070897192 = claimSquare(xStr, yStr, ownerId, transactionId)
254 -             let asset = $t070897192._1
255 -             let evolvedAssetId = $t070897192._2
256 -             let assetUrl = $t070897192._3
257 -             let dataKeyPrefix = $t070897192._4
265 +             let $t076537764 = claimSquare(xStr, yStr, genStr, ownerId, transactionId)
266 +             let asset = $t076537764._1
267 +             let evolvedAssetId = $t076537764._2
268 +             let assetUrl = $t076537764._3
269 +             let dataKeyPrefix = $t076537764._4
258 270              let dataKey = dataKeyPrefix
259 271              $Tuple2([asset, StringEntry((dataKey + "_assetId"), toBase58String(evolvedAssetId)), StringEntry((dataKey + "_asset"), assetUrl), StringEntry((dataKey + "_owner"), ownerId), StringEntry(transactionId, dataKey), ScriptTransfer(Address(fromBase58String(ownerId)), 1, fromBase58String(assetId))], dataKey)
260 272              }
261 273      }
262 274  
263 275

Old	New		Differences
150	150		}
151	151
152	152
153		-	func claimSquare (x,y,ownerId,transactionId) = {
	153	+	func claimSquare (x,y,gen,ownerId,transactionId) = {
154	154		let resolvedXStr = x
155	155		let resolvedYStr = y
156		-	let resolvedGenStr = ~~"1"~~
	156	+	let resolvedGenStr = gen
157	157		let assetName = ((resolvedXStr + ",") + resolvedYStr)
158	158		let assetUrl = ((nftDomain + transactionId) + ".png")
159	159		let asset = Issue(((assetName + " Gen ") + resolvedGenStr), assetUrl, 1, 0, false)
160	160		let assetId = calculateAssetId(asset)
161		-	let gen = resolvedGenStr
162	161		let dataKeyPrefix = ((assetName + ",") + gen)
163	162		$Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
164	163		}

168	167		func purchase (x,y) = {
169	168		let ownerId = toBase58String(i.caller.bytes)
170	169		let transactionId = toBase58String(i.transactionId)
171		-	let $~~t041804270~~ = claimSquare(x, y, ownerId, transactionId)
172		-	let asset = $~~t041804270~~._1
173		-	let assetId = $~~t041804270~~._2
174		-	let assetUrl = $~~t041804270~~._3
175		-	let dataKeyPrefix = $~~t041804270~~._4
	170	+	let $t041654260 = claimSquare(x, y, "1", ownerId, transactionId)
	171	+	let asset = $t041654260._1
	172	+	let assetId = $t041654260._2
	173	+	let assetUrl = $t041654260._3
	174	+	let dataKeyPrefix = $t041654260._4
176	175		[asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)]
177	176		}
178	177

181	180		@Callable(i)
182	181		func autoBuy (x,y) = {
183	182		let transactionId = toBase58String(i.transactionId)
184		-	let $~~t047214812~~ = claimSquare(x, y, holdings, transactionId)
185		-	let asset = $~~t047214812~~._1
186		-	let assetId = $~~t047214812~~._2
187		-	let assetUrl = $~~t047214812~~._3
188		-	let dataKeyPrefix = $~~t047214812~~._4
	183	+	let $t047114807 = claimSquare(x, y, "1", holdings, transactionId)
	184	+	let asset = $t047114807._1
	185	+	let assetId = $t047114807._2
	186	+	let assetUrl = $t047114807._3
	187	+	let dataKeyPrefix = $t047114807._4
189	188		let assetIdStr = toBase58String(assetId)
190	189		let res = invoke(holdingsAddress, "addOwnerAndAmount", [holdings, assetIdStr, "2"], [AttachedPayment(unit, 0)])
191	190		if ((res == res))
192	191		then [asset, StringEntry((dataKeyPrefix + "_assetId"), assetIdStr), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), holdings), StringEntry((("sale_" + assetIdStr) + "_originalOwner"), holdings), IntegerEntry((("sale_" + assetIdStr) + "_amount"), 2), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)]
193	192		else throw("Strict value is not equal to itself.")
	193	+	}
	194	+
	195	+
	196	+
	197	+	@Callable(i)
	198	+	func evolve (x,y,gen,ownerId) = {
	199	+	let transactionId = toBase58String(i.transactionId)
	200	+	let $t055335628 = claimSquare(x, y, gen, ownerId, transactionId)
	201	+	let asset = $t055335628._1
	202	+	let assetId = $t055335628._2
	203	+	let assetUrl = $t055335628._3
	204	+	let dataKeyPrefix = $t055335628._4
	205	+	[asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(ownerId)), 1, assetId)]
194	206		}
195	207
196	208

238	250		let xStr = toString(x)
239	251		let yStr = toString(y)
240	252		let genStr = toString(gen)
241		-	let $~~t066436706~~ = getXy($Tuple3(x, y, gen), ownerId)
242		-	let parsedX = $~~t066436706~~._1
243		-	let parsedY = $~~t066436706~~._2
244		-	let parsedGen = $~~t066436706~~._3
	253	+	let $t072077270 = getXy($Tuple3(x, y, gen), ownerId)
	254	+	let parsedX = $t072077270._1
	255	+	let parsedY = $t072077270._2
	256	+	let parsedGen = $t072077270._3
245	257		let returnList = nil
246	258		if ((parsedGen == gen))
247	259		then {

250	262		}
251	263		else {
252	264		let transactionId = toBase58String(i.transactionId)
253		-	let $~~t070897192~~ = claimSquare(xStr, yStr, ownerId, transactionId)
254		-	let asset = $~~t070897192~~._1
255		-	let evolvedAssetId = $~~t070897192~~._2
256		-	let assetUrl = $~~t070897192~~._3
257		-	let dataKeyPrefix = $~~t070897192~~._4
	265	+	let $t076537764 = claimSquare(xStr, yStr, genStr, ownerId, transactionId)
	266	+	let asset = $t076537764._1
	267	+	let evolvedAssetId = $t076537764._2
	268	+	let assetUrl = $t076537764._3
	269	+	let dataKeyPrefix = $t076537764._4
258	270		let dataKey = dataKeyPrefix
259	271		$Tuple2([asset, StringEntry((dataKey + "_assetId"), toBase58String(evolvedAssetId)), StringEntry((dataKey + "_asset"), assetUrl), StringEntry((dataKey + "_owner"), ownerId), StringEntry(transactionId, dataKey), ScriptTransfer(Address(fromBase58String(ownerId)), 1, fromBase58String(assetId))], dataKey)
260	272		}

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 DEBUG = true
11	11
12	12		let holdings = "3N9R7u449Z1b76QpJp9u3gzPjMYQYnp3V7r"
13	13
14	14		let holdingsAddress = Address(fromBase58String(holdings))
15	15
16	16		func getBoundCoords (data) = {
17	17		let $t0333355 = data
18	18		let x = $t0333355._1
19	19		let y = $t0333355._2
20	20		let gen = $t0333355._3
21	21		let d = pow(2, 0, (gen - 1), 0, 0, HALFUP)
22	22		let tl = $Tuple2((x - d), (y - d))
23	23		let tc = $Tuple2(x, (y - d))
24	24		let tr = $Tuple2((x + d), (y + d))
25	25		let l = $Tuple2((x - d), y)
26	26		let r = $Tuple2((x + d), y)
27	27		let bl = $Tuple2((x - d), (y + d))
28	28		let bc = $Tuple2(x, (y + d))
29	29		let br = $Tuple2((x + d), (y + d))
30	30		[$Tuple3(tl, tc, l), $Tuple3(tc, tr, r), $Tuple3(l, bl, bc), $Tuple3(r, bc, br)]
31	31		}
32	32
33	33
34	34		func checkSquareForEvolve (coords,gen,ownerId) = {
35	35		let $t0788816 = coords
36	36		let xy1 = $t0788816._1
37	37		let xy2 = $t0788816._2
38	38		let xy3 = $t0788816._3
39	39		let xy1Key = (((((toString(xy1._1) + ",") + toString(xy1._2)) + ",") + gen) + "_owner")
40	40		let xy2Key = (((((toString(xy2._1) + ",") + toString(xy2._2)) + ",") + gen) + "_owner")
41	41		let xy3Key = (((((toString(xy3._1) + ",") + toString(xy3._2)) + ",") + gen) + "_owner")
42	42		let xyVal1 = match getString(this, xy1Key) {
43	43		case _: Unit =>
44	44		"unset"
45	45		case x: String =>
46	46		x
47	47		case _ =>
48	48		throw("Match error")
49	49		}
50	50		let xyVal2 = match getString(this, xy2Key) {
51	51		case _: Unit =>
52	52		"unset"
53	53		case x: String =>
54	54		x
55	55		case _ =>
56	56		throw("Match error")
57	57		}
58	58		let xyVal3 = match getString(this, xy3Key) {
59	59		case _: Unit =>
60	60		"unset"
61	61		case x: String =>
62	62		x
63	63		case _ =>
64	64		throw("Match error")
65	65		}
66	66		if (if ((xyVal1 == ownerId))
67	67		then (xyVal2 == ownerId)
68	68		else false)
69	69		then (xyVal3 == ownerId)
70	70		else false
71	71		}
72	72
73	73
74	74		func getXyReturn (xy,gen) = {
75	75		let $t014921507 = xy
76	76		let x = $t014921507._1
77	77		let y = $t014921507._2
78	78		$Tuple3(x, y, (gen + 1))
79	79		}
80	80
81	81
82	82		func getXy (xyg,ownerId) = {
83	83		let checkList = getBoundCoords(xyg)
84	84		let $t016231644 = xyg
85	85		let x = $t016231644._1
86	86		let y = $t016231644._2
87	87		let gen = $t016231644._3
88	88		let genStr = toString(gen)
89	89		if (checkSquareForEvolve(checkList[0], genStr, ownerId))
90	90		then getXyReturn(checkList[0]._1, gen)
91	91		else if (checkSquareForEvolve(checkList[1], genStr, ownerId))
92	92		then getXyReturn(checkList[1]._1, gen)
93	93		else if (checkSquareForEvolve(checkList[2], genStr, ownerId))
94	94		then getXyReturn(checkList[2]._1, gen)
95	95		else if (checkSquareForEvolve(checkList[3], genStr, ownerId))
96	96		then getXyReturn(checkList[3]._1, gen)
97	97		else xyg
98	98		}
99	99
100	100
101	101		func checkForEvolve (xyg,ownerId) = {
102	102		let $t022912312 = xyg
103	103		let x = $t022912312._1
104	104		let y = $t022912312._2
105	105		let gen = $t022912312._3
106	106		let p1 = getXy(xyg, ownerId)
107	107		if ((p1._3 == gen))
108	108		then p1
109	109		else {
110	110		let p2 = getXy(p1, ownerId)
111	111		if ((p2._3 == p1._3))
112	112		then p2
113	113		else {
114	114		let p3 = getXy(p2, ownerId)
115	115		if ((p3._3 == p2._3))
116	116		then p3
117	117		else {
118	118		let p4 = getXy(p3, ownerId)
119	119		if ((p4._3 == p3._3))
120	120		then p4
121	121		else {
122	122		let p5 = getXy(p4, ownerId)
123	123		if ((p5._3 == p4._3))
124	124		then p5
125	125		else {
126	126		let p6 = getXy(p5, ownerId)
127	127		if ((p6._3 == p5._3))
128	128		then p6
129	129		else {
130	130		let p7 = getXy(p6, ownerId)
131	131		if ((p7._3 == p6._3))
132	132		then p7
133	133		else {
134	134		let p8 = getXy(p7, ownerId)
135	135		if ((p8._3 == p7._3))
136	136		then p8
137	137		else {
138	138		let p9 = getXy(p8, ownerId)
139	139		if ((p9._3 == p8._3))
140	140		then p9
141	141		else getXy(getXy(p9, ownerId), ownerId)
142	142		}
143	143		}
144	144		}
145	145		}
146	146		}
147	147		}
148	148		}
149	149		}
150	150		}
151	151
152	152
153		-	func claimSquare (x,y,ownerId,transactionId) = {
	153	+	func claimSquare (x,y,gen,ownerId,transactionId) = {
154	154		let resolvedXStr = x
155	155		let resolvedYStr = y
156		-	let resolvedGenStr = ~~"1"~~
	156	+	let resolvedGenStr = gen
157	157		let assetName = ((resolvedXStr + ",") + resolvedYStr)
158	158		let assetUrl = ((nftDomain + transactionId) + ".png")
159	159		let asset = Issue(((assetName + " Gen ") + resolvedGenStr), assetUrl, 1, 0, false)
160	160		let assetId = calculateAssetId(asset)
161		-	let gen = resolvedGenStr
162	161		let dataKeyPrefix = ((assetName + ",") + gen)
163	162		$Tuple4(asset, assetId, assetUrl, dataKeyPrefix)
164	163		}
165	164
166	165
167	166		@Callable(i)
168	167		func purchase (x,y) = {
169	168		let ownerId = toBase58String(i.caller.bytes)
170	169		let transactionId = toBase58String(i.transactionId)
171		-	let $~~t041804270~~ = claimSquare(x, y, ownerId, transactionId)
172		-	let asset = $~~t041804270~~._1
173		-	let assetId = $~~t041804270~~._2
174		-	let assetUrl = $~~t041804270~~._3
175		-	let dataKeyPrefix = $~~t041804270~~._4
	170	+	let $t041654260 = claimSquare(x, y, "1", ownerId, transactionId)
	171	+	let asset = $t041654260._1
	172	+	let assetId = $t041654260._2
	173	+	let assetUrl = $t041654260._3
	174	+	let dataKeyPrefix = $t041654260._4
176	175		[asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(i.caller, 1, assetId)]
177	176		}
178	177
179	178
180	179
181	180		@Callable(i)
182	181		func autoBuy (x,y) = {
183	182		let transactionId = toBase58String(i.transactionId)
184		-	let $~~t047214812~~ = claimSquare(x, y, holdings, transactionId)
185		-	let asset = $~~t047214812~~._1
186		-	let assetId = $~~t047214812~~._2
187		-	let assetUrl = $~~t047214812~~._3
188		-	let dataKeyPrefix = $~~t047214812~~._4
	183	+	let $t047114807 = claimSquare(x, y, "1", holdings, transactionId)
	184	+	let asset = $t047114807._1
	185	+	let assetId = $t047114807._2
	186	+	let assetUrl = $t047114807._3
	187	+	let dataKeyPrefix = $t047114807._4
189	188		let assetIdStr = toBase58String(assetId)
190	189		let res = invoke(holdingsAddress, "addOwnerAndAmount", [holdings, assetIdStr, "2"], [AttachedPayment(unit, 0)])
191	190		if ((res == res))
192	191		then [asset, StringEntry((dataKeyPrefix + "_assetId"), assetIdStr), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), holdings), StringEntry((("sale_" + assetIdStr) + "_originalOwner"), holdings), IntegerEntry((("sale_" + assetIdStr) + "_amount"), 2), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(holdingsAddress, 1, assetId)]
193	192		else throw("Strict value is not equal to itself.")
	193	+	}
	194	+
	195	+
	196	+
	197	+	@Callable(i)
	198	+	func evolve (x,y,gen,ownerId) = {
	199	+	let transactionId = toBase58String(i.transactionId)
	200	+	let $t055335628 = claimSquare(x, y, gen, ownerId, transactionId)
	201	+	let asset = $t055335628._1
	202	+	let assetId = $t055335628._2
	203	+	let assetUrl = $t055335628._3
	204	+	let dataKeyPrefix = $t055335628._4
	205	+	[asset, StringEntry((dataKeyPrefix + "_assetId"), toBase58String(assetId)), StringEntry((dataKeyPrefix + "_asset"), assetUrl), StringEntry((dataKeyPrefix + "_owner"), ownerId), StringEntry(transactionId, dataKeyPrefix), ScriptTransfer(Address(fromBase58String(ownerId)), 1, assetId)]
194	206		}
195	207
196	208
197	209
198	210		@Callable(i)
199	211		func putForSale (assetId,amount) = {
200	212		let ownerId = toBase58String(i.caller.bytes)
201	213		let res = invoke(holdingsAddress, "addOwnerAndAmount", [ownerId, assetId, amount], [AttachedPayment(unit, 0)])
202	214		if ((res == res))
203	215		then [StringEntry((("sale_" + assetId) + "_originalOwner"), ownerId), StringEntry((("sale_" + assetId) + "_amount"), amount), ScriptTransfer(holdingsAddress, 1, fromBase58String(assetId))]
204	216		else throw("Strict value is not equal to itself.")
205	217		}
206	218
207	219
208	220
209	221		@Callable(i)
210	222		func finalizeSale (assetId,ownerId) = {
211	223		let assetData = match assetInfo(fromBase58String(assetId)) {
212	224		case ass: Asset =>
213	225		ass
214	226		case _ =>
215	227		throw("Asset not found")
216	228		}
217	229		let assetName = assetData.name
218	230		let xPart = split(assetName, ",")
219	231		let restPart = split(xPart[1], " ")
220	232		let x = match xPart[0] {
221	233		case s: String =>
222	234		valueOrErrorMessage(parseInt(s), "Could not parse 'x'")
223	235		case _ =>
224	236		throw("'x' not found")
225	237		}
226	238		let y = match restPart[0] {
227	239		case s: String =>
228	240		valueOrErrorMessage(parseInt(s), "Could not parse 'y'")
229	241		case _ =>
230	242		throw("'y' not found")
231	243		}
232	244		let gen = match restPart[2] {
233	245		case s: String =>
234	246		valueOrErrorMessage(parseInt(s), "Could not parse 'gen'")
235	247		case _ =>
236	248		throw("'gen' not found")
237	249		}
238	250		let xStr = toString(x)
239	251		let yStr = toString(y)
240	252		let genStr = toString(gen)
241		-	let $~~t066436706~~ = getXy($Tuple3(x, y, gen), ownerId)
242		-	let parsedX = $~~t066436706~~._1
243		-	let parsedY = $~~t066436706~~._2
244		-	let parsedGen = $~~t066436706~~._3
	253	+	let $t072077270 = getXy($Tuple3(x, y, gen), ownerId)
	254	+	let parsedX = $t072077270._1
	255	+	let parsedY = $t072077270._2
	256	+	let parsedGen = $t072077270._3
245	257		let returnList = nil
246	258		if ((parsedGen == gen))
247	259		then {
248	260		let dataKey = ((((xStr + ",") + yStr) + ",") + genStr)
249	261		$Tuple2([StringEntry((dataKey + "_owner"), ownerId), StringEntry((("sale_" + assetId) + "_originalOwner"), ""), IntegerEntry((("sale_" + assetId) + "_amount"), 0)], dataKey)
250	262		}
251	263		else {
252	264		let transactionId = toBase58String(i.transactionId)
253		-	let $~~t070897192~~ = claimSquare(xStr, yStr, ownerId, transactionId)
254		-	let asset = $~~t070897192~~._1
255		-	let evolvedAssetId = $~~t070897192~~._2
256		-	let assetUrl = $~~t070897192~~._3
257		-	let dataKeyPrefix = $~~t070897192~~._4
	265	+	let $t076537764 = claimSquare(xStr, yStr, genStr, ownerId, transactionId)
	266	+	let asset = $t076537764._1
	267	+	let evolvedAssetId = $t076537764._2
	268	+	let assetUrl = $t076537764._3
	269	+	let dataKeyPrefix = $t076537764._4
258	270		let dataKey = dataKeyPrefix
259	271		$Tuple2([asset, StringEntry((dataKey + "_assetId"), toBase58String(evolvedAssetId)), StringEntry((dataKey + "_asset"), assetUrl), StringEntry((dataKey + "_owner"), ownerId), StringEntry(transactionId, dataKey), ScriptTransfer(Address(fromBase58String(ownerId)), 1, fromBase58String(assetId))], dataKey)
260	272		}
261	273		}
262	274
263	275

github/deemru/w8io/873ac7e 
68.33 ms ◑