w8 · tx · 9FF···bxk

tx · 9FFkng3XP6xTD1hA7GuxUxHYFiLqfZsKcVSShLDTSbxk

3N9ZoipEVJyQhhijNYxkcomvgGrrEeDhPvN:  -0.01000000 Waves

2023.02.16 13:36 [2452058] smart account 3N9ZoipEVJyQhhijNYxkcomvgGrrEeDhPvN > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9FFkng3XP6xTD1hA7GuxUxHYFiLqfZsKcVSShLDTSbxk",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1676543809824,
    "version": 2,
    "chainId": 84,
    "sender": "3N9ZoipEVJyQhhijNYxkcomvgGrrEeDhPvN",
    "senderPublicKey": "2Gtgx295VLiew3CzXqh9eXfFZBTEpDW2nLsrJZ1C4i9J",
    "proofs": [
        "4sBpPtvNLXepHLEzxT45PcCmWvF1DipvkJ2L71qKFVsMVLgFpred4eDjwLHGAKJnacAx7VPEbLG6AnEBPYZyQnSs"
    ],
    "script": "base64:AAIFAAAAAAAAACMIAhIGCgQIBAgEEgMKAQgSBwoFCAgIAQgSAwoBCBIECgIICAAAAA8AAAAAD2V4dGVybmFsT3JhY2xlcwkABEwAAAACAgAAACMzTjlRWm5YZnU4b0doc3ZaOUJkaXpOdVZKUDd0clh5TVVwNQkABEwAAAACAgAAACMzTkQ2ZVdjTWlHTVgxNVg0SDRXbUdUVGROd0xodFdoUTJEUgUAAAADbmlsAAAAAANmZWUAAAAAAAAAAAEAAAAACGZlZVNjYWxlAAAAAAAAAAPoAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWECAAAAAAEAAAAVdHJ5R2V0SW50ZWdlckV4dGVybmFsAAAAAgAAAAdhZGRyZXNzAAAAA2tleQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYgUAAAAHJG1hdGNoMAUAAAABYgAAAAAAAAAAAAEAAAAMdHJ5R2V0U3RyaW5nAAAAAQAAAANrZXkJAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIFAAAABHRoaXMFAAAAA2tleQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5CQEAAAAVdHJ5R2V0SW50ZWdlckV4dGVybmFsAAAAAgUAAAAEdGhpcwUAAAADa2V5AQAAAA10cnlHZXRCb29sZWFuAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQbAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAdCb29sZWFuBAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiBwEAAAAPYXNzZXRJZFRvU3RyaW5nAAAAAQAAAAdhc3NldElkCQACWAAAAAEJAQAAAAV2YWx1ZQAAAAEFAAAAB2Fzc2V0SWQBAAAADm5hdGl2ZUFzc2V0S2V5AAAAAQAAAAtuYXRpdmVBc3NldAkAASwAAAACAgAAAAxuYXRpdmVBc3NldF8FAAAAC25hdGl2ZUFzc2V0AQAAABJvdGhlckNoYWluQXNzZXRLZXkAAAABAAAAD290aGVyQ2hhaW5Bc3NldAkAASwAAAACAgAAABBvdGhlckNoYWluQXNzZXRfBQAAAA9vdGhlckNoYWluQXNzZXQBAAAAC3JlaXNzdWVhYmxlAAAAAQAAAAVhc3NldAkAASwAAAACAgAAAAxyZWlzc3VlYWJsZV8FAAAABWFzc2V0AQAAAA92YWxpZGF0ZVBheW1lbnQAAAABAAAAB3BheW1lbnQEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQUAAAAHcGF5bWVudAMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABdJdCBuZWVkcyB0byBiZSBhbiBhc3NldAQAAAAMYXNzZXREZXRhaWxzCQEAAAAFdmFsdWUAAAABCQAD7AAAAAEJAQAAAAV2YWx1ZQAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAMJAABmAAAAAgAAAAAAAAAAAQgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAAdWW91IGRpZG50IGF0dGFjaGVkIGEgcGF5bWVudCEJAQAAAA9hc3NldElkVG9TdHJpbmcAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQBAAAADHJld2FyZE9yYWNsZQAAAAIAAAAHYXNzZXRJZAAAAApiYXNlQW1vdW50BAAAAAZyZXdhcmQJAQAAAAhmcmFjdGlvbgAAAAQFAAAACmJhc2VBbW91bnQFAAAAA2ZlZQUAAAAIZmVlU2NhbGUFAAAABERPV04EAAAAD3Jld2FyZEZvck9yYWNsZQkBAAAACGZyYWN0aW9uAAAABAUAAAAGcmV3YXJkAAAAAAAAAAABCQABkAAAAAEFAAAAD2V4dGVybmFsT3JhY2xlcwUAAAAERE9XTgoBAAAAD2NhbGN1bGF0ZVBheW91dAAAAAIAAAADYWNjAAAADmV4dGVybmFsT3JhY2xlCQAETgAAAAIFAAAAA2FjYwkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAA5leHRlcm5hbE9yYWNsZQUAAAAPcmV3YXJkRm9yT3JhY2xlCQACWQAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAQAAAAGcmVzdWx0CgAAAAACJGwFAAAAD2V4dGVybmFsT3JhY2xlcwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAD2NhbGN1bGF0ZVBheW91dAAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA1CQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQkABRQAAAACBQAAAAZyZXN1bHQFAAAABnJld2FyZAEAAAAIY2hlY2tLZXkAAAACAAAAA2tleQAAAAV2YWx1ZQoBAAAAD2NoZWNrSWZLZXlFeGlzdAAAAAIAAAADYWNjAAAADmV4dGVybmFsT3JhY2xlBAAAAAckbWF0Y2gwBQAAAAV2YWx1ZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFiBQAAAAckbWF0Y2gwBAAAAAZyZXN1bHQJAQAAABR0cnlHZXRTdHJpbmdFeHRlcm5hbAAAAAIJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAADmV4dGVybmFsT3JhY2xlBQAAAANrZXkDCQEAAAACIT0AAAACBQAAAAZyZXN1bHQFAAAABXZhbHVlCQAAAgAAAAEJAAEsAAAAAgIAAAAbU3RyaW5nIEtleSBub3QgbWF0Y2hpbmcgaW4gBQAAAA5leHRlcm5hbE9yYWNsZQYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYgUAAAAHJG1hdGNoMAQAAAAGcmVzdWx0CQEAAAAVdHJ5R2V0SW50ZWdlckV4dGVybmFsAAAAAgkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAAOZXh0ZXJuYWxPcmFjbGUFAAAAA2tleQMJAQAAAAIhPQAAAAIFAAAABnJlc3VsdAUAAAAFdmFsdWUJAAACAAAAAQkAASwAAAACAgAAABxJbnRlZ2VyIEtleSBub3QgbWF0Y2hpbmcgaW4gBQAAAA5leHRlcm5hbE9yYWNsZQYJAAACAAAAAQIAAAAOSW52YWxpZCBWYWx1ZSEKAAAAAAIkbAUAAAAPZXh0ZXJuYWxPcmFjbGVzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAYKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAA9jaGVja0lmS2V5RXhpc3QAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNQkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAFAAAAAWkBAAAADmluaXRpYXRlQXNzZXRzAAAABAAAAAtuYXRpdmVBc3NldAAAABZuYXRpdmVBc3NldFJlaXNzdWVhYmxlAAAAD290aGVyQ2hhaW5Bc3NldAAAABpvdGhlckNoYWluQXNzZXRSZWlzc3VlYWJsZQMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAAC5Pbmx5IHRoZSBvd25lciBkYXBwIGNhbiBhZGQgYWRkaXRpb25hbCBhc3NldHMhAwkBAAAAAiE9AAAAAgkBAAAADHRyeUdldFN0cmluZwAAAAEJAQAAAA5uYXRpdmVBc3NldEtleQAAAAEFAAAAC25hdGl2ZUFzc2V0AgAAAAAJAAACAAAAAQIAAAAcTmF0aXZlIEFzc2V0IGFscmVhZHkgbGlzdGVkIQMJAQAAAAIhPQAAAAIJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQEAAAASb3RoZXJDaGFpbkFzc2V0S2V5AAAAAQUAAAAPb3RoZXJDaGFpbkFzc2V0AgAAAAAJAAACAAAAAQIAAAAbT3RoZXIgQXNzZXQgYWxyZWFkeSBsaXN0ZWQhCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA5uYXRpdmVBc3NldEtleQAAAAEFAAAAC25hdGl2ZUFzc2V0BQAAAA9vdGhlckNoYWluQXNzZXQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEm90aGVyQ2hhaW5Bc3NldEtleQAAAAEFAAAAD290aGVyQ2hhaW5Bc3NldAUAAAALbmF0aXZlQXNzZXQJAARMAAAAAgkBAAAADEJvb2xlYW5FbnRyeQAAAAIJAQAAAAtyZWlzc3VlYWJsZQAAAAEFAAAAC25hdGl2ZUFzc2V0BQAAABZuYXRpdmVBc3NldFJlaXNzdWVhYmxlCQAETAAAAAIJAQAAAAxCb29sZWFuRW50cnkAAAACCQEAAAALcmVpc3N1ZWFibGUAAAABBQAAAA9vdGhlckNoYWluQXNzZXQFAAAAGm90aGVyQ2hhaW5Bc3NldFJlaXNzdWVhYmxlBQAAAANuaWwAAAABaQEAAAASaW5pdGlhdGVPdXRHb2luZ1R4AAAAAQAAAAtkZXN0aW5hdGlvbgQAAAAHcGF5bWVudAgFAAAAAWkAAAAIcGF5bWVudHMDCQEAAAACIT0AAAACCQABkAAAAAEFAAAAB3BheW1lbnQAAAAAAAAAAAEJAAACAAAAAQIAAAAWSW52YWxpZCBwYXltZW50IGFkZGVkIQMJAABmAAAAAgAAAAAAAAAAAQgJAAGRAAAAAgUAAAAHcGF5bWVudAAAAAAAAAAAAAAAAAZhbW91bnQJAAACAAAAAQIAAAAVSW52YWxpZCBhbW91bnQgYWRkZWQhBAAAAAdhc3NldElkCQEAAAAPdmFsaWRhdGVQYXltZW50AAAAAQkAAZEAAAACBQAAAAdwYXltZW50AAAAAAAAAAAABAAAAA5zcGVjaWZpcXVlRGF0YQMJAQAAAA10cnlHZXRCb29sZWFuAAAAAQkBAAAAC3JlaXNzdWVhYmxlAAAAAQUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAAEQnVybgAAAAIJAAJZAAAAAQUAAAAHYXNzZXRJZAgJAAGRAAAAAgUAAAAHcGF5bWVudAAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkAgAAABFfYXNzZXRfdG9fcmVjZWl2ZQkBAAAADHRyeUdldFN0cmluZwAAAAEJAQAAABJvdGhlckNoYWluQXNzZXRLZXkAAAABBQAAAAdhc3NldElkBQAAAANuaWwJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkAgAAABFfYXNzZXRfdG9fcmVjZWl2ZQkBAAAADHRyeUdldFN0cmluZwAAAAEJAQAAAA5uYXRpdmVBc3NldEtleQAAAAEFAAAAB2Fzc2V0SWQFAAAAA25pbAkABE4AAAACCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8JAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAIAAAAFX2Rlc3QFAAAAC2Rlc3RpbmF0aW9uCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8JAAJYAAAAAQgFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAIAAAAHX3N0YXR1cwIAAAALVU5QUk9DRVNTRUQFAAAAA25pbAUAAAAOc3BlY2lmaXF1ZURhdGEAAAABaQEAAAATc3RvcmVEYXRhSW5jb21pbmdUeAAAAAUAAAAEdHhJZAAAAAtkZXN0aW5hdGlvbgAAAAdhc3NldElkAAAABmFtb3VudAAAABBhc3NldElkVG9SZWNlaXZlAwMJAQAAAAIhPQAAAAIJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAAAdfc3RhdHVzAgAAAAAGCQEAAAACIT0AAAACCQEAAAAMdHJ5R2V0U3RyaW5nAAAAAQkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAFX2Rlc3QCAAAAAAkAAAIAAAABCQABLAAAAAIFAAAABHR4SWQCAAAAEyBpcyBhbHJlYWR5IHN0b3JlZCEEAAAACWRlc3RDaGVjawkBAAAACGNoZWNrS2V5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAFX2Rlc3QFAAAAC2Rlc3RpbmF0aW9uBAAAAAtzdGF0dXNDaGVjawkBAAAACGNoZWNrS2V5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAHX3N0YXR1cwIAAAALVU5QUk9DRVNTRUQEAAAADGFzc2V0SWRDaGVjawkBAAAACGNoZWNrS2V5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAIX2Fzc2V0SWQFAAAAB2Fzc2V0SWQEAAAAF2Fzc2V0SWRfdG9fcmVjZWl2ZUNoZWNrCQEAAAAIY2hlY2tLZXkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAABNfYXNzZXRJZF90b19yZWNlaXZlBQAAABBhc3NldElkVG9SZWNlaXZlBAAAAAthbW91bnRDaGVjawkBAAAACGNoZWNrS2V5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAHX2Ftb3VudAUAAAAGYW1vdW50AwkBAAAAASEAAAABAwMDAwUAAAAJZGVzdENoZWNrBQAAAAtzdGF0dXNDaGVjawcFAAAADGFzc2V0SWRDaGVjawcFAAAAF2Fzc2V0SWRfdG9fcmVjZWl2ZUNoZWNrBwUAAAALYW1vdW50Q2hlY2sHCQAAAgAAAAECAAAADURpcnR5IGhhY2tlciEJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAFX2Rlc3QFAAAAC2Rlc3RpbmF0aW9uCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAAB19zdGF0dXMCAAAAC1VOUFJPQ0VTU0VECQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAACF9hc3NldElkBQAAAAdhc3NldElkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAAE19hc3NldElkX3RvX3JlY2VpdmUFAAAAEGFzc2V0SWRUb1JlY2VpdmUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAAB19hbW91bnQFAAAABmFtb3VudAUAAAADbmlsAAAAAWkBAAAAEXJlbGVhc2VJbmNvbWluZ1R4AAAAAQAAAAR0eElkBAAAAAZzdGF0dXMJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAAAdfc3RhdHVzAwkAAAAAAAACBQAAAAZzdGF0dXMCAAAAAAkAAAIAAAABAgAAABNObyBzdWNoIHR4aWQgZm91bmQhAwkAAAAAAAACBQAAAAZzdGF0dXMCAAAACVBST0NFU1NFRAkAAAIAAAABAgAAABJBbHJlYWR5IHByb2Nlc3NlZCEEAAAAEGFzc2V0SWRUb1JlY2VpdmUJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAABNfYXNzZXRJZF90b19yZWNlaXZlBAAAAAtkZXN0aW5hdGlvbgkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAABV9kZXN0BAAAAAZhbW91bnQJAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAHX2Ftb3VudAQAAAAHYXNzZXRJZAkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAACF9hc3NldElkBAAAAA5zcGVjaWZpcXVlRGF0YQMJAQAAAA10cnlHZXRCb29sZWFuAAAAAQkBAAAAC3JlaXNzdWVhYmxlAAAAAQUAAAAQYXNzZXRJZFRvUmVjZWl2ZQMJAQAAAAIhPQAAAAIJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQEAAAAObmF0aXZlQXNzZXRLZXkAAAABBQAAAAdhc3NldElkBQAAABBhc3NldElkVG9SZWNlaXZlCQAAAgAAAAECAAAAHlJFOiBTa2lwcGluZyB0eCwgY29ycnVwdCBkYXRhIQkABEwAAAACCQEAAAAHUmVpc3N1ZQAAAAMJAAJZAAAAAQUAAAAQYXNzZXRJZFRvUmVjZWl2ZQUAAAAGYW1vdW50BgUAAAADbmlsAwkBAAAAAiE9AAAAAgkBAAAADHRyeUdldFN0cmluZwAAAAEJAQAAABJvdGhlckNoYWluQXNzZXRLZXkAAAABBQAAAAdhc3NldElkBQAAABBhc3NldElkVG9SZWNlaXZlCQAAAgAAAAECAAAAH1VSRTogU2tpcHBpbmcgdHgsIGNvcnJ1cHQgZGF0YSEFAAAAA25pbAkABE4AAAACCQAETgAAAAIICQEAAAAMcmV3YXJkT3JhY2xlAAAAAgUAAAAQYXNzZXRJZFRvUmVjZWl2ZQUAAAAGYW1vdW50AAAAAl8xBQAAAA5zcGVjaWZpcXVlRGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAtkZXN0aW5hdGlvbgkAAGUAAAACBQAAAAZhbW91bnQICQEAAAAMcmV3YXJkT3JhY2xlAAAAAgUAAAAQYXNzZXRJZFRvUmVjZWl2ZQUAAAAGYW1vdW50AAAAAl8yCQACWQAAAAEFAAAAEGFzc2V0SWRUb1JlY2VpdmUJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAHX3N0YXR1cwIAAAAJUFJPQ0VTU0VECQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAACF9vdGhlcklkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAAA25pbAAAAAFpAQAAABJmaW5hbGl6ZU91dGdvaW5nVHgAAAACAAAABHR4SWQAAAAJb3RoZXJUeElkBAAAAAlkZXN0Q2hlY2sJAQAAAAhjaGVja0tleQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAACF9vdGhlcklkBQAAAAlvdGhlclR4SWQEAAAAC3N0YXR1c0NoZWNrCQEAAAAIY2hlY2tLZXkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAAAdfc3RhdHVzAgAAAAlQUk9DRVNTRUQDCQEAAAACIT0AAAACCQEAAAAMdHJ5R2V0U3RyaW5nAAAAAQkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAIX290aGVySWQCAAAAAAkAAAIAAAABCQABLAAAAAIFAAAABHR4SWQCAAAAHCBpcyBhbHJlYWR5IGZ1bGx5IHByb2Nlc3NlZCEDCQEAAAABIQAAAAEDBQAAAAlkZXN0Q2hlY2sFAAAAC3N0YXR1c0NoZWNrBwkAAAIAAAABAgAAAA1EaXJ0eSBoYWNrZXIhBAAAAAdhc3NldElkCQEAAAAMdHJ5R2V0U3RyaW5nAAAAAQkAASwAAAACCQABLAAAAAICAAAAA3R4XwUAAAAEdHhJZAIAAAAIX2Fzc2V0SWQEAAAABmFtb3VudAkBAAAADXRyeUdldEludGVnZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAAAdfYW1vdW50CQAETgAAAAIICQEAAAAMcmV3YXJkT3JhY2xlAAAAAgUAAAAHYXNzZXRJZAUAAAAGYW1vdW50AAAAAl8xCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAN0eF8FAAAABHR4SWQCAAAAB19zdGF0dXMCAAAACVBST0NFU1NFRAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAADdHhfBQAAAAR0eElkAgAAAAhfb3RoZXJJZAUAAAAJb3RoZXJUeElkBQAAAANuaWwAAAAAWPeOLQ==",
    "height": 2452058,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 1BXfbex8h15PAv3D9m5cQCTTbbFT7vmboQ44665QTqV
Next: BiiKuiqi2B7tAL12vHRiZFFkxHWMPoFubtkHvcLGmxs7

Diff: 
Old New Differences
46 46  func otherChainAssetKey (otherChainAsset) = ("otherChainAsset_" + otherChainAsset)
47 47  
48 48  
49 - func tnAsset (assetId) = ("tn_asset_" + assetId)
50 - 
51 - 
52 49  func reissueable (asset) = ("reissueable_" + asset)
53 50  
54 51  
70 67      let rewardForOracle = fraction(reward, 1, size(externalOracles), DOWN)
71 68      func calculatePayout (acc,externalOracle) =     (acc ++ [ScriptTransfer(addressFromStringValue(externalOracle), rewardForOracle, fromBase58String(assetId))])
72 69  
73 -     let $l = externalOracles
74 -     let $s = size($l)
75 -     let $acc0 = nil
76 -     func $f0_1 ($a,$i) =     if (($i >= $s))
77 -         then $a
78 -         else calculatePayout($a, $l[$i])
70 +     let result = {
71 +         let $l = externalOracles
72 +         let $s = size($l)
73 +         let $acc0 = nil
74 +         func $f0_1 ($a,$i) =         if (($i >= $s))
75 +             then $a
76 +             else calculatePayout($a, $l[$i])
79 77  
80 -     func $f0_2 ($a,$i) =     if (($i >= $s))
81 -         then $a
82 -         else throw("List size exceeds 5")
78 +         func $f0_2 ($a,$i) =         if (($i >= $s))
79 +             then $a
80 +             else throw("List size exceeds 5")
83 81  
84 -     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
82 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
83 +         }
84 +     $Tuple2(result, reward)
85 85      }
86 86  
87 87  
117 117  
118 118  
119 119  @Callable(i)
120 - func initiateAssets (nativeAsset,nativeAssetReissueable,nativeAssetTN,otherChainAsset,otherChainAssetReissueable,otherChainAssetTN) = if ((i.caller != this))
120 + func initiateAssets (nativeAsset,nativeAssetReissueable,otherChainAsset,otherChainAssetReissueable) = if ((i.caller != this))
121 121      then throw("Only the owner dapp can add additional assets!")
122 122      else if ((tryGetString(nativeAssetKey(nativeAsset)) != ""))
123 123          then throw("Native Asset already listed!")
124 124          else if ((tryGetString(otherChainAssetKey(otherChainAsset)) != ""))
125 125              then throw("Other Asset already listed!")
126 -             else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable), BooleanEntry(tnAsset(nativeAsset), nativeAssetTN), BooleanEntry(tnAsset(otherChainAsset), otherChainAssetTN)]
126 +             else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)]
127 127  
128 128  
129 129  
190 190                      else if ((tryGetString(otherChainAssetKey(assetId)) != assetIdToReceive))
191 191                          then throw("URE: Skipping tx, corrupt data!")
192 192                          else nil
193 -                 ((rewardOracle(assetIdToReceive, amount) ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), amount, fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
193 +                 ((rewardOracle(assetIdToReceive, amount)._1 ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), (amount - rewardOracle(assetIdToReceive, amount)._2), fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
194 194                  }
195 195      }
196 196  
209 209              else {
210 210                  let assetId = tryGetString((("tx_" + txId) + "_assetId"))
211 211                  let amount = tryGetInteger((("tx_" + txId) + "_amount"))
212 -                 (rewardOracle(assetId, amount) ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
212 +                 (rewardOracle(assetId, amount)._1 ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
213 213                  }
214 214      }
215 215  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let externalOracles = ["3N9QZnXfu8oGhsvZ9BdizNuVJP7trXyMUp5", "3ND6eWcMiGMX15X4H4WmGTTdNwLhtWhQ2DR"]
5 5  
6 6  let fee = 1
7 7  
8 8  let feeScale = 1000
9 9  
10 10  func tryGetStringExternal (address,key) = match getString(address, key) {
11 11      case a: String => 
12 12          a
13 13      case _ => 
14 14          ""
15 15  }
16 16  
17 17  
18 18  func tryGetIntegerExternal (address,key) = match getInteger(address, key) {
19 19      case b: Int => 
20 20          b
21 21      case _ => 
22 22          0
23 23  }
24 24  
25 25  
26 26  func tryGetString (key) = tryGetStringExternal(this, key)
27 27  
28 28  
29 29  func tryGetInteger (key) = tryGetIntegerExternal(this, key)
30 30  
31 31  
32 32  func tryGetBoolean (key) = match getBoolean(this, key) {
33 33      case b: Boolean => 
34 34          b
35 35      case _ => 
36 36          false
37 37  }
38 38  
39 39  
40 40  func assetIdToString (assetId) = toBase58String(value(assetId))
41 41  
42 42  
43 43  func nativeAssetKey (nativeAsset) = ("nativeAsset_" + nativeAsset)
44 44  
45 45  
46 46  func otherChainAssetKey (otherChainAsset) = ("otherChainAsset_" + otherChainAsset)
47 47  
48 48  
49 - func tnAsset (assetId) = ("tn_asset_" + assetId)
50 - 
51 - 
52 49  func reissueable (asset) = ("reissueable_" + asset)
53 50  
54 51  
55 52  func validatePayment (payment) = {
56 53      let pmt = value(payment)
57 54      if (!(isDefined(pmt.assetId)))
58 55          then throw("It needs to be an asset")
59 56          else {
60 57              let assetDetails = value(assetInfo(value(pmt.assetId)))
61 58              if ((1 > pmt.amount))
62 59                  then throw("You didnt attached a payment!")
63 60                  else assetIdToString(pmt.assetId)
64 61              }
65 62      }
66 63  
67 64  
68 65  func rewardOracle (assetId,baseAmount) = {
69 66      let reward = fraction(baseAmount, fee, feeScale, DOWN)
70 67      let rewardForOracle = fraction(reward, 1, size(externalOracles), DOWN)
71 68      func calculatePayout (acc,externalOracle) =     (acc ++ [ScriptTransfer(addressFromStringValue(externalOracle), rewardForOracle, fromBase58String(assetId))])
72 69  
73 -     let $l = externalOracles
74 -     let $s = size($l)
75 -     let $acc0 = nil
76 -     func $f0_1 ($a,$i) =     if (($i >= $s))
77 -         then $a
78 -         else calculatePayout($a, $l[$i])
70 +     let result = {
71 +         let $l = externalOracles
72 +         let $s = size($l)
73 +         let $acc0 = nil
74 +         func $f0_1 ($a,$i) =         if (($i >= $s))
75 +             then $a
76 +             else calculatePayout($a, $l[$i])
79 77  
80 -     func $f0_2 ($a,$i) =     if (($i >= $s))
81 -         then $a
82 -         else throw("List size exceeds 5")
78 +         func $f0_2 ($a,$i) =         if (($i >= $s))
79 +             then $a
80 +             else throw("List size exceeds 5")
83 81  
84 -     $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
82 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
83 +         }
84 +     $Tuple2(result, reward)
85 85      }
86 86  
87 87  
88 88  func checkKey (key,value) = {
89 89      func checkIfKeyExist (acc,externalOracle) =         match value {
90 90          case b: String => 
91 91              let result = tryGetStringExternal(addressFromStringValue(externalOracle), key)
92 92              if ((result != value))
93 93                  then throw(("String Key not matching in " + externalOracle))
94 94                  else true
95 95          case b: Int => 
96 96              let result = tryGetIntegerExternal(addressFromStringValue(externalOracle), key)
97 97              if ((result != value))
98 98                  then throw(("Integer Key not matching in " + externalOracle))
99 99                  else true
100 100          case _ => 
101 101              throw("Invalid Value!")
102 102      }
103 103  
104 104      let $l = externalOracles
105 105      let $s = size($l)
106 106      let $acc0 = true
107 107      func $f0_1 ($a,$i) =     if (($i >= $s))
108 108          then $a
109 109          else checkIfKeyExist($a, $l[$i])
110 110  
111 111      func $f0_2 ($a,$i) =     if (($i >= $s))
112 112          then $a
113 113          else throw("List size exceeds 5")
114 114  
115 115      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
116 116      }
117 117  
118 118  
119 119  @Callable(i)
120 - func initiateAssets (nativeAsset,nativeAssetReissueable,nativeAssetTN,otherChainAsset,otherChainAssetReissueable,otherChainAssetTN) = if ((i.caller != this))
120 + func initiateAssets (nativeAsset,nativeAssetReissueable,otherChainAsset,otherChainAssetReissueable) = if ((i.caller != this))
121 121      then throw("Only the owner dapp can add additional assets!")
122 122      else if ((tryGetString(nativeAssetKey(nativeAsset)) != ""))
123 123          then throw("Native Asset already listed!")
124 124          else if ((tryGetString(otherChainAssetKey(otherChainAsset)) != ""))
125 125              then throw("Other Asset already listed!")
126 -             else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable), BooleanEntry(tnAsset(nativeAsset), nativeAssetTN), BooleanEntry(tnAsset(otherChainAsset), otherChainAssetTN)]
126 +             else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)]
127 127  
128 128  
129 129  
130 130  @Callable(i)
131 131  func initiateOutGoingTx (destination) = {
132 132      let payment = i.payments
133 133      if ((size(payment) != 1))
134 134          then throw("Invalid payment added!")
135 135          else if ((1 > payment[0].amount))
136 136              then throw("Invalid amount added!")
137 137              else {
138 138                  let assetId = validatePayment(payment[0])
139 139                  let specifiqueData = if (tryGetBoolean(reissueable(assetId)))
140 140                      then [Burn(fromBase58String(assetId), payment[0].amount), StringEntry((("tx_" + toBase58String(i.transactionId)) + "_asset_to_receive"), tryGetString(otherChainAssetKey(assetId)))]
141 141                      else [StringEntry((("tx_" + toBase58String(i.transactionId)) + "_asset_to_receive"), tryGetString(nativeAssetKey(assetId)))]
142 142                  ([StringEntry((("tx_" + toBase58String(i.transactionId)) + "_dest"), destination), StringEntry((("tx_" + toBase58String(i.transactionId)) + "_status"), "UNPROCESSED")] ++ specifiqueData)
143 143                  }
144 144      }
145 145  
146 146  
147 147  
148 148  @Callable(i)
149 149  func storeDataIncomingTx (txId,destination,assetId,amount,assetIdToReceive) = if (if ((tryGetString((("tx_" + txId) + "_status")) != ""))
150 150      then true
151 151      else (tryGetString((("tx_" + txId) + "_dest")) != ""))
152 152      then throw((txId + " is already stored!"))
153 153      else {
154 154          let destCheck = checkKey((("tx_" + txId) + "_dest"), destination)
155 155          let statusCheck = checkKey((("tx_" + txId) + "_status"), "UNPROCESSED")
156 156          let assetIdCheck = checkKey((("tx_" + txId) + "_assetId"), assetId)
157 157          let assetId_to_receiveCheck = checkKey((("tx_" + txId) + "_assetId_to_receive"), assetIdToReceive)
158 158          let amountCheck = checkKey((("tx_" + txId) + "_amount"), amount)
159 159          if (!(if (if (if (if (destCheck)
160 160              then statusCheck
161 161              else false)
162 162              then assetIdCheck
163 163              else false)
164 164              then assetId_to_receiveCheck
165 165              else false)
166 166              then amountCheck
167 167              else false))
168 168              then throw("Dirty hacker!")
169 169              else [StringEntry((("tx_" + txId) + "_dest"), destination), StringEntry((("tx_" + txId) + "_status"), "UNPROCESSED"), StringEntry((("tx_" + txId) + "_assetId"), assetId), StringEntry((("tx_" + txId) + "_assetId_to_receive"), assetIdToReceive), IntegerEntry((("tx_" + txId) + "_amount"), amount)]
170 170          }
171 171  
172 172  
173 173  
174 174  @Callable(i)
175 175  func releaseIncomingTx (txId) = {
176 176      let status = tryGetString((("tx_" + txId) + "_status"))
177 177      if ((status == ""))
178 178          then throw("No such txid found!")
179 179          else if ((status == "PROCESSED"))
180 180              then throw("Already processed!")
181 181              else {
182 182                  let assetIdToReceive = tryGetString((("tx_" + txId) + "_assetId_to_receive"))
183 183                  let destination = tryGetString((("tx_" + txId) + "_dest"))
184 184                  let amount = tryGetInteger((("tx_" + txId) + "_amount"))
185 185                  let assetId = tryGetString((("tx_" + txId) + "_assetId"))
186 186                  let specifiqueData = if (tryGetBoolean(reissueable(assetIdToReceive)))
187 187                      then if ((tryGetString(nativeAssetKey(assetId)) != assetIdToReceive))
188 188                          then throw("RE: Skipping tx, corrupt data!")
189 189                          else [Reissue(fromBase58String(assetIdToReceive), amount, true)]
190 190                      else if ((tryGetString(otherChainAssetKey(assetId)) != assetIdToReceive))
191 191                          then throw("URE: Skipping tx, corrupt data!")
192 192                          else nil
193 -                 ((rewardOracle(assetIdToReceive, amount) ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), amount, fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
193 +                 ((rewardOracle(assetIdToReceive, amount)._1 ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), (amount - rewardOracle(assetIdToReceive, amount)._2), fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
194 194                  }
195 195      }
196 196  
197 197  
198 198  
199 199  @Callable(i)
200 200  func finalizeOutgoingTx (txId,otherTxId) = {
201 201      let destCheck = checkKey((("tx_" + txId) + "_otherId"), otherTxId)
202 202      let statusCheck = checkKey((("tx_" + txId) + "_status"), "PROCESSED")
203 203      if ((tryGetString((("tx_" + txId) + "_otherId")) != ""))
204 204          then throw((txId + " is already fully processed!"))
205 205          else if (!(if (destCheck)
206 206              then statusCheck
207 207              else false))
208 208              then throw("Dirty hacker!")
209 209              else {
210 210                  let assetId = tryGetString((("tx_" + txId) + "_assetId"))
211 211                  let amount = tryGetInteger((("tx_" + txId) + "_amount"))
212 -                 (rewardOracle(assetId, amount) ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
212 +                 (rewardOracle(assetId, amount)._1 ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
213 213                  }
214 214      }
215 215  
216 216

Old	New		Differences
46	46		func otherChainAssetKey (otherChainAsset) = ("otherChainAsset_" + otherChainAsset)
47	47
48	48
49		-	func tnAsset (assetId) = ("tn_asset_" + assetId)
50		-
51		-
52	49		func reissueable (asset) = ("reissueable_" + asset)
53	50
54	51

70	67		let rewardForOracle = fraction(reward, 1, size(externalOracles), DOWN)
71	68		func calculatePayout (acc,externalOracle) = (acc ++ [ScriptTransfer(addressFromStringValue(externalOracle), rewardForOracle, fromBase58String(assetId))])
72	69
73		-	let $l = externalOracles
74		-	let $s = size($l)
75		-	let $acc0 = nil
76		-	func $f0_1 ($a,$i) = if (($i >= $s))
77		-	then $a
78		-	else calculatePayout($a, $l[$i])
	70	+	let result = {
	71	+	let $l = externalOracles
	72	+	let $s = size($l)
	73	+	let $acc0 = nil
	74	+	func $f0_1 ($a,$i) = if (($i >= $s))
	75	+	then $a
	76	+	else calculatePayout($a, $l[$i])
79	77
80		-	func $f0_2 ($a,$i) = if (($i >= $s))
81		-	then $a
82		-	else throw("List size exceeds 5")
	78	+	func $f0_2 ($a,$i) = if (($i >= $s))
	79	+	then $a
	80	+	else throw("List size exceeds 5")
83	81
84		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	82	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	83	+	}
	84	+	$Tuple2(result, reward)
85	85		}
86	86
87	87

117	117
118	118
119	119		@Callable(i)
120		-	func initiateAssets (nativeAsset,nativeAssetReissueable,~~nativeAssetTN,~~otherChainAsset,otherChainAssetReissueable~~,otherChainAssetTN~~) = if ((i.caller != this))
	120	+	func initiateAssets (nativeAsset,nativeAssetReissueable,otherChainAsset,otherChainAssetReissueable) = if ((i.caller != this))
121	121		then throw("Only the owner dapp can add additional assets!")
122	122		else if ((tryGetString(nativeAssetKey(nativeAsset)) != ""))
123	123		then throw("Native Asset already listed!")
124	124		else if ((tryGetString(otherChainAssetKey(otherChainAsset)) != ""))
125	125		then throw("Other Asset already listed!")
126		-	else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)~~, BooleanEntry(tnAsset(nativeAsset), nativeAssetTN), BooleanEntry(tnAsset(otherChainAsset), otherChainAssetTN)~~]
	126	+	else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)]
127	127
128	128
129	129

190	190		else if ((tryGetString(otherChainAssetKey(assetId)) != assetIdToReceive))
191	191		then throw("URE: Skipping tx, corrupt data!")
192	192		else nil
193		-	((rewardOracle(assetIdToReceive, amount) ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), amount, fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
	193	+	((rewardOracle(assetIdToReceive, amount)._1 ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), (amount - rewardOracle(assetIdToReceive, amount)._2), fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
194	194		}
195	195		}
196	196

209	209		else {
210	210		let assetId = tryGetString((("tx_" + txId) + "_assetId"))
211	211		let amount = tryGetInteger((("tx_" + txId) + "_amount"))
212		-	(rewardOracle(assetId, amount) ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
	212	+	(rewardOracle(assetId, amount)._1 ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
213	213		}
214	214		}
215	215

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let externalOracles = ["3N9QZnXfu8oGhsvZ9BdizNuVJP7trXyMUp5", "3ND6eWcMiGMX15X4H4WmGTTdNwLhtWhQ2DR"]
5	5
6	6		let fee = 1
7	7
8	8		let feeScale = 1000
9	9
10	10		func tryGetStringExternal (address,key) = match getString(address, key) {
11	11		case a: String =>
12	12		a
13	13		case _ =>
14	14		""
15	15		}
16	16
17	17
18	18		func tryGetIntegerExternal (address,key) = match getInteger(address, key) {
19	19		case b: Int =>
20	20		b
21	21		case _ =>
22	22		0
23	23		}
24	24
25	25
26	26		func tryGetString (key) = tryGetStringExternal(this, key)
27	27
28	28
29	29		func tryGetInteger (key) = tryGetIntegerExternal(this, key)
30	30
31	31
32	32		func tryGetBoolean (key) = match getBoolean(this, key) {
33	33		case b: Boolean =>
34	34		b
35	35		case _ =>
36	36		false
37	37		}
38	38
39	39
40	40		func assetIdToString (assetId) = toBase58String(value(assetId))
41	41
42	42
43	43		func nativeAssetKey (nativeAsset) = ("nativeAsset_" + nativeAsset)
44	44
45	45
46	46		func otherChainAssetKey (otherChainAsset) = ("otherChainAsset_" + otherChainAsset)
47	47
48	48
49		-	func tnAsset (assetId) = ("tn_asset_" + assetId)
50		-
51		-
52	49		func reissueable (asset) = ("reissueable_" + asset)
53	50
54	51
55	52		func validatePayment (payment) = {
56	53		let pmt = value(payment)
57	54		if (!(isDefined(pmt.assetId)))
58	55		then throw("It needs to be an asset")
59	56		else {
60	57		let assetDetails = value(assetInfo(value(pmt.assetId)))
61	58		if ((1 > pmt.amount))
62	59		then throw("You didnt attached a payment!")
63	60		else assetIdToString(pmt.assetId)
64	61		}
65	62		}
66	63
67	64
68	65		func rewardOracle (assetId,baseAmount) = {
69	66		let reward = fraction(baseAmount, fee, feeScale, DOWN)
70	67		let rewardForOracle = fraction(reward, 1, size(externalOracles), DOWN)
71	68		func calculatePayout (acc,externalOracle) = (acc ++ [ScriptTransfer(addressFromStringValue(externalOracle), rewardForOracle, fromBase58String(assetId))])
72	69
73		-	let $l = externalOracles
74		-	let $s = size($l)
75		-	let $acc0 = nil
76		-	func $f0_1 ($a,$i) = if (($i >= $s))
77		-	then $a
78		-	else calculatePayout($a, $l[$i])
	70	+	let result = {
	71	+	let $l = externalOracles
	72	+	let $s = size($l)
	73	+	let $acc0 = nil
	74	+	func $f0_1 ($a,$i) = if (($i >= $s))
	75	+	then $a
	76	+	else calculatePayout($a, $l[$i])
79	77
80		-	func $f0_2 ($a,$i) = if (($i >= $s))
81		-	then $a
82		-	else throw("List size exceeds 5")
	78	+	func $f0_2 ($a,$i) = if (($i >= $s))
	79	+	then $a
	80	+	else throw("List size exceeds 5")
83	81
84		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	82	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
	83	+	}
	84	+	$Tuple2(result, reward)
85	85		}
86	86
87	87
88	88		func checkKey (key,value) = {
89	89		func checkIfKeyExist (acc,externalOracle) = match value {
90	90		case b: String =>
91	91		let result = tryGetStringExternal(addressFromStringValue(externalOracle), key)
92	92		if ((result != value))
93	93		then throw(("String Key not matching in " + externalOracle))
94	94		else true
95	95		case b: Int =>
96	96		let result = tryGetIntegerExternal(addressFromStringValue(externalOracle), key)
97	97		if ((result != value))
98	98		then throw(("Integer Key not matching in " + externalOracle))
99	99		else true
100	100		case _ =>
101	101		throw("Invalid Value!")
102	102		}
103	103
104	104		let $l = externalOracles
105	105		let $s = size($l)
106	106		let $acc0 = true
107	107		func $f0_1 ($a,$i) = if (($i >= $s))
108	108		then $a
109	109		else checkIfKeyExist($a, $l[$i])
110	110
111	111		func $f0_2 ($a,$i) = if (($i >= $s))
112	112		then $a
113	113		else throw("List size exceeds 5")
114	114
115	115		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
116	116		}
117	117
118	118
119	119		@Callable(i)
120		-	func initiateAssets (nativeAsset,nativeAssetReissueable,~~nativeAssetTN,~~otherChainAsset,otherChainAssetReissueable~~,otherChainAssetTN~~) = if ((i.caller != this))
	120	+	func initiateAssets (nativeAsset,nativeAssetReissueable,otherChainAsset,otherChainAssetReissueable) = if ((i.caller != this))
121	121		then throw("Only the owner dapp can add additional assets!")
122	122		else if ((tryGetString(nativeAssetKey(nativeAsset)) != ""))
123	123		then throw("Native Asset already listed!")
124	124		else if ((tryGetString(otherChainAssetKey(otherChainAsset)) != ""))
125	125		then throw("Other Asset already listed!")
126		-	else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)~~, BooleanEntry(tnAsset(nativeAsset), nativeAssetTN), BooleanEntry(tnAsset(otherChainAsset), otherChainAssetTN)~~]
	126	+	else [StringEntry(nativeAssetKey(nativeAsset), otherChainAsset), StringEntry(otherChainAssetKey(otherChainAsset), nativeAsset), BooleanEntry(reissueable(nativeAsset), nativeAssetReissueable), BooleanEntry(reissueable(otherChainAsset), otherChainAssetReissueable)]
127	127
128	128
129	129
130	130		@Callable(i)
131	131		func initiateOutGoingTx (destination) = {
132	132		let payment = i.payments
133	133		if ((size(payment) != 1))
134	134		then throw("Invalid payment added!")
135	135		else if ((1 > payment[0].amount))
136	136		then throw("Invalid amount added!")
137	137		else {
138	138		let assetId = validatePayment(payment[0])
139	139		let specifiqueData = if (tryGetBoolean(reissueable(assetId)))
140	140		then [Burn(fromBase58String(assetId), payment[0].amount), StringEntry((("tx_" + toBase58String(i.transactionId)) + "_asset_to_receive"), tryGetString(otherChainAssetKey(assetId)))]
141	141		else [StringEntry((("tx_" + toBase58String(i.transactionId)) + "_asset_to_receive"), tryGetString(nativeAssetKey(assetId)))]
142	142		([StringEntry((("tx_" + toBase58String(i.transactionId)) + "_dest"), destination), StringEntry((("tx_" + toBase58String(i.transactionId)) + "_status"), "UNPROCESSED")] ++ specifiqueData)
143	143		}
144	144		}
145	145
146	146
147	147
148	148		@Callable(i)
149	149		func storeDataIncomingTx (txId,destination,assetId,amount,assetIdToReceive) = if (if ((tryGetString((("tx_" + txId) + "_status")) != ""))
150	150		then true
151	151		else (tryGetString((("tx_" + txId) + "_dest")) != ""))
152	152		then throw((txId + " is already stored!"))
153	153		else {
154	154		let destCheck = checkKey((("tx_" + txId) + "_dest"), destination)
155	155		let statusCheck = checkKey((("tx_" + txId) + "_status"), "UNPROCESSED")
156	156		let assetIdCheck = checkKey((("tx_" + txId) + "_assetId"), assetId)
157	157		let assetId_to_receiveCheck = checkKey((("tx_" + txId) + "_assetId_to_receive"), assetIdToReceive)
158	158		let amountCheck = checkKey((("tx_" + txId) + "_amount"), amount)
159	159		if (!(if (if (if (if (destCheck)
160	160		then statusCheck
161	161		else false)
162	162		then assetIdCheck
163	163		else false)
164	164		then assetId_to_receiveCheck
165	165		else false)
166	166		then amountCheck
167	167		else false))
168	168		then throw("Dirty hacker!")
169	169		else [StringEntry((("tx_" + txId) + "_dest"), destination), StringEntry((("tx_" + txId) + "_status"), "UNPROCESSED"), StringEntry((("tx_" + txId) + "_assetId"), assetId), StringEntry((("tx_" + txId) + "_assetId_to_receive"), assetIdToReceive), IntegerEntry((("tx_" + txId) + "_amount"), amount)]
170	170		}
171	171
172	172
173	173
174	174		@Callable(i)
175	175		func releaseIncomingTx (txId) = {
176	176		let status = tryGetString((("tx_" + txId) + "_status"))
177	177		if ((status == ""))
178	178		then throw("No such txid found!")
179	179		else if ((status == "PROCESSED"))
180	180		then throw("Already processed!")
181	181		else {
182	182		let assetIdToReceive = tryGetString((("tx_" + txId) + "_assetId_to_receive"))
183	183		let destination = tryGetString((("tx_" + txId) + "_dest"))
184	184		let amount = tryGetInteger((("tx_" + txId) + "_amount"))
185	185		let assetId = tryGetString((("tx_" + txId) + "_assetId"))
186	186		let specifiqueData = if (tryGetBoolean(reissueable(assetIdToReceive)))
187	187		then if ((tryGetString(nativeAssetKey(assetId)) != assetIdToReceive))
188	188		then throw("RE: Skipping tx, corrupt data!")
189	189		else [Reissue(fromBase58String(assetIdToReceive), amount, true)]
190	190		else if ((tryGetString(otherChainAssetKey(assetId)) != assetIdToReceive))
191	191		then throw("URE: Skipping tx, corrupt data!")
192	192		else nil
193		-	((rewardOracle(assetIdToReceive, amount) ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), amount, fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
	193	+	((rewardOracle(assetIdToReceive, amount)._1 ++ specifiqueData) ++ [ScriptTransfer(addressFromStringValue(destination), (amount - rewardOracle(assetIdToReceive, amount)._2), fromBase58String(assetIdToReceive)), StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), toBase58String(i.transactionId))])
194	194		}
195	195		}
196	196
197	197
198	198
199	199		@Callable(i)
200	200		func finalizeOutgoingTx (txId,otherTxId) = {
201	201		let destCheck = checkKey((("tx_" + txId) + "_otherId"), otherTxId)
202	202		let statusCheck = checkKey((("tx_" + txId) + "_status"), "PROCESSED")
203	203		if ((tryGetString((("tx_" + txId) + "_otherId")) != ""))
204	204		then throw((txId + " is already fully processed!"))
205	205		else if (!(if (destCheck)
206	206		then statusCheck
207	207		else false))
208	208		then throw("Dirty hacker!")
209	209		else {
210	210		let assetId = tryGetString((("tx_" + txId) + "_assetId"))
211	211		let amount = tryGetInteger((("tx_" + txId) + "_amount"))
212		-	(rewardOracle(assetId, amount) ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
	212	+	(rewardOracle(assetId, amount)._1 ++ [StringEntry((("tx_" + txId) + "_status"), "PROCESSED"), StringEntry((("tx_" + txId) + "_otherId"), otherTxId)])
213	213		}
214	214		}
215	215
216	216

github/deemru/w8io/169f3d6 
38.20 ms ◑