w8 · tx · A8e···e8p

tx · A8et2oNQnuJ8XYKd38qhzmUTW7pcdoJgqVS15ceCie8p

3N8WDKbqGox5Eky326PHHT7rUyrby5MXdmb:  -0.01000000 Waves

2022.05.11 14:00 [2046912] smart account 3N8WDKbqGox5Eky326PHHT7rUyrby5MXdmb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A8et2oNQnuJ8XYKd38qhzmUTW7pcdoJgqVS15ceCie8p",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1652266874569,
    "version": 2,
    "chainId": 84,
    "sender": "3N8WDKbqGox5Eky326PHHT7rUyrby5MXdmb",
    "senderPublicKey": "FWSsBbeCwLVkekWhvNKtX6JkrZiruRybKKVuiS3F4bqN",
    "proofs": [
        "5qYia9ogiBA9CNuEX5FJS1zXEp6ro7KPJpu4zE92reiLi2FxTgJfRfEcc59XGtxfQwGewjSwrmbF34fcCbjdwZjN"
    ],
    "script": "base64:AAIFAAAAAAAAACkIAhIECgIICBIFCgMICAgSBQoDCAgIEgUKAwgICBIECgIICBIECgIICAAAABgAAAAACnNoaW55d2dnaWQBAAAAIIlpzwL/trq51HGW13m4mXYmsHTQd3n0c26G8PRznwYmAAAAAA90cmVhc3VyeUFkZHJlc3MBAAAAGgFUZfjwFgsEwFlCcBqeSIyX/37cHGLy3bv9AAAAAA5uYXRpb25zQWRkcmVzcwEAAAAaAVRNheje9PhEa1kQO3Bfw7e5ZQ5R9URGbaAAAAAADGFkbWluQWRkcmVzcwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01wTnRpUFNSU3E2Tm5hUVlrMzhCZldTelpjZ0FZVHlyUTkAAAAADEJ1aWxkU3RhcnRlZAIAAAANQlVJTERfU1RBUlRFRAAAAAANQnVpbGRGaW5pc2hlZAIAAAAOQlVJTERfRklOSVNIRUQAAAAABkFzc2V0cwkABEwAAAACAgAAAAZOYXRpb24JAARMAAAAAgIAAAAEQ2l0eQkABEwAAAACAgAAAAdCYXJyYWNrCQAETAAAAAICAAAABEJhcm4JAARMAAAAAgIAAAAHV2FycmlvcgkABEwAAAACAgAAAAdTZXR0bGVyCQAETAAAAAICAAAACEV4cGxvcmVyBQAAAANuaWwAAAAACmFzc2V0c0Nvc3QJAARMAAAAAgAAAAAAAAAAAAkABEwAAAACAAAAAAA7msoACQAETAAAAAIAAAAAASoF8gAJAARMAAAAAgAAAAABKgXyAAkABEwAAAACAAAAAAAdzWUACQAETAAAAAIAAAAAAlQL5AAJAARMAAAAAgAAAAAABfXhAAUAAAADbmlsAAAAAAthc3NldHNEZWxheQkABEwAAAACAAAAAAAAAAAACQAETAAAAAIAAAAAAAAAAAQJAARMAAAAAgAAAAAAAAAABAkABEwAAAACAAAAAAAAAAAECQAETAAAAAIAAAAAAAAAAAIJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAACBQAAAANuaWwAAAAAC2Fzc2V0c1Bvd2VyCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgAAAAAAAAAD6AkABEwAAAACAAAAAAAAAAH0CQAETAAAAAIAAAAAAAAAAfQJAARMAAAAAgAAAAAAAAAAAAkABEwAAAACAAAAAAAAAAAACQAETAAAAAIAAAAAAAAAAAAFAAAAA25pbAEAAAAVdHJlYXN1cnlUcnlHZXRJbnRlZ2VyAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgkBAAAAB0FkZHJlc3MAAAABBQAAAA90cmVhc3VyeUFkZHJlc3MFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAABRuYXRpb25zVHJ5R2V0SW50ZWdlcgAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIJAQAAAAdBZGRyZXNzAAAAAQUAAAAObmF0aW9uc0FkZHJlc3MFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFiBQAAAAckbWF0Y2gwBQAAAAFiAAAAAAAAAAAAAQAAAAx0cnlHZXRTdHJpbmcAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYgUAAAAHJG1hdGNoMAUAAAABYgIAAAAAAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWIFAAAAByRtYXRjaDAFAAAAAWIAAAAAAAAAAAABAAAADWdldEFzc2V0SWRLZXkAAAACAAAABHR4SWQAAAAJYXNzZXRUeXBlCQABLAAAAAIJAAEsAAAAAgUAAAAJYXNzZXRUeXBlAgAAAAFfCQACWAAAAAEFAAAABHR4SWQBAAAAEGdldEFzc2V0T3duZXJLZXkAAAACAAAABHR4SWQAAAAJYXNzZXRUeXBlCQABLAAAAAIJAQAAAA1nZXRBc3NldElkS2V5AAAAAgUAAAAEdHhJZAUAAAAJYXNzZXRUeXBlAgAAAAZfT3duZXIBAAAAGmdldEJ1aWxkaW5nRmluaXNoSGVpZ2h0S2V5AAAAAwAAAAdhZGRyZXNzAAAABHR4SWQAAAAJYXNzZXRUeXBlCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAdhZGRyZXNzAgAAAAFfCQEAAAANZ2V0QXNzZXRJZEtleQAAAAIFAAAABHR4SWQFAAAACWFzc2V0VHlwZQIAAAADX2ZoAQAAABRnZXRCdWlsZGluZ1N0YXR1c0tleQAAAAMAAAAHYWRkcmVzcwAAAAR0eElkAAAACWFzc2V0VHlwZQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAHYWRkcmVzcwIAAAABXwkBAAAADWdldEFzc2V0SWRLZXkAAAACBQAAAAR0eElkBQAAAAlhc3NldFR5cGUCAAAAB19zdGF0dXMBAAAADmdldFRyZWFzdXJ5S2V5AAAAAQAAAAhuYXRpb25pZAkAASwAAAACBQAAAAhuYXRpb25pZAIAAAAJX1RyZWFzdXJ5AQAAAApjaGVja0FkbWluAAAAAQAAAAZjYWxsZXIDAwMJAAAAAAAAAgUAAAAGY2FsbGVyBQAAAAxhZG1pbkFkZHJlc3MGCQAAAAAAAAIFAAAABmNhbGxlcgUAAAAEdGhpcwYJAAAAAAAAAggFAAAABmNhbGxlcgAAAAVieXRlcwUAAAAObmF0aW9uc0FkZHJlc3MGCQAAAAAAAAIIBQAAAAZjYWxsZXIAAAAFYnl0ZXMFAAAAD3RyZWFzdXJ5QWRkcmVzcwEAAAATaW50ZXJuYWxGaW5pc2hCdWlsZAAAAAUAAAAGY2FsbGVyAAAACGFzc2V0U3RyAAAACGFzc2V0S2V5AAAAEUJ1aWxkaW5nU3RhdHVzS2V5AAAAD2ZpbmlzaEhlaWdodEtleQQAAAAUYnVpbGRpbmdGaW5pc2hIZWlnaHQJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAD2ZpbmlzaEhlaWdodEtleQMJAABmAAAAAgUAAAAUYnVpbGRpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAHUJ1aWxkaW5nIGlzIG5vdCBmaW5pc2hlZCB5ZXQgCQABpAAAAAEJAABlAAAAAgUAAAAUYnVpbGRpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAIAAAAnIGJsb2NrcyByZW1haW5pbmcsIGl0IHdpbGwgdGFrZSBhcm91bmQgCQABpAAAAAEJAABlAAAAAgUAAAAUYnVpbGRpbmdGaW5pc2hIZWlnaHQFAAAABmhlaWdodAIAAAAIIG1pbnV0ZXMEAAAAA2lkeAkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAZBc3NldHMFAAAACGFzc2V0U3RyBAAAAAphc3NldFBvd2VyCQABkQAAAAIFAAAAC2Fzc2V0c1Bvd2VyBQAAAANpZHgEAAAACmFzc2V0Q29pbnMJAAGRAAAAAgUAAAAKYXNzZXRzQ29zdAUAAAADaWR4BAAAAAdyZWZDYWxsCQAD/AAAAAQJAQAAAAdBZGRyZXNzAAAAAQUAAAAPdHJlYXN1cnlBZGRyZXNzAgAAAANQYXkJAARMAAAAAgUAAAAGY2FsbGVyCQAETAAAAAIFAAAACmFzc2V0Q29pbnMFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAdyZWZDYWxsBQAAAAdyZWZDYWxsAwkAAGYAAAACBQAAAAphc3NldFBvd2VyAAAAAAAAAAAABAAAAAxjdXJyZW50UG93ZXIJAQAAABRuYXRpb25zVHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAGY2FsbGVyAgAAAAZfUG93ZXIEAAAAAnB3CQAD/AAAAAQJAQAAAAdBZGRyZXNzAAAAAQUAAAAObmF0aW9uc0FkZHJlc3MCAAAADHNldFVzZXJQb3dlcgkABEwAAAACBQAAAAZjYWxsZXIJAARMAAAAAgkAAGQAAAACBQAAAAxjdXJyZW50UG93ZXIFAAAACmFzc2V0UG93ZXIFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAJwdwUAAAACcHcJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAACGFzc2V0S2V5BQAAAAphc3NldENvaW5zCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEFAAAAEUJ1aWxkaW5nU3RhdHVzS2V5CQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEFAAAAD2ZpbmlzaEhlaWdodEtleQUAAAADbmlsCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAIYXNzZXRLZXkFAAAACmFzc2V0Q29pbnMJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAARQnVpbGRpbmdTdGF0dXNLZXkJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAAPZmluaXNoSGVpZ2h0S2V5BQAAAANuaWwJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQAAABBjaGVja05hdGlvbk93bmVyAAAAAgAAAAZjYWxsZXIAAAAJTmF0aW9uS2V5BAAAAAtuYXRpb25Pd25lcgkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgUAAAAJTmF0aW9uS2V5AgAAAAZfT3duZXIJAAAAAAAAAgUAAAALbmF0aW9uT3duZXIJAAQlAAAAAQUAAAAGY2FsbGVyAQAAAA9jaGVja0Fzc2V0T3duZXIAAAACAAAABmNhbGxlcgAAAAhhc3NldEtleQQAAAAKYXNzZXRPd25lcgkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgUAAAAIYXNzZXRLZXkCAAAABl9Pd25lcgkAAAAAAAACBQAAAAphc3NldE93bmVyCQAEJQAAAAEFAAAABmNhbGxlcgEAAAAVaXNOYXRpb25SZXNlcnZlZEFzc2V0AAAAAQAAAAxzdHJBc3NldFR5cGUDCQAAAAAAAAIFAAAADHN0ckFzc2V0VHlwZQIAAAAHU2V0dGxlcgYJAAAAAAAAAgUAAAAMc3RyQXNzZXRUeXBlAgAAAAhFeHBsb3JlcgAAAAYAAAABaQEAAAAKU3RhcnRCdWlsZAAAAAIAAAAMc3RyQXNzZXRUeXBlAAAACU5hdGlvbktleQMJAQAAAAEhAAAAAQkBAAAAD2NvbnRhaW5zRWxlbWVudAAAAAIFAAAABkFzc2V0cwUAAAAMc3RyQXNzZXRUeXBlCQAAAgAAAAECAAAAJ1RoaXMgYXNzZXQgaXMgbm90IGFtYW5nZWQgYnkgdGhlIHN5c3RlbQQAAAADaW5kCQEAAAAFdmFsdWUAAAABCQAETwAAAAIFAAAABkFzc2V0cwUAAAAMc3RyQXNzZXRUeXBlBAAAABBkZWxheUZvckJ1aWxkaW5nCQABkQAAAAIFAAAAC2Fzc2V0c0RlbGF5BQAAAANpbmQEAAAADmFzc2V0QnVpbGRDb3N0CQABkQAAAAIFAAAACmFzc2V0c0Nvc3QFAAAAA2luZAMJAQAAABVpc05hdGlvblJlc2VydmVkQXNzZXQAAAABBQAAAAxzdHJBc3NldFR5cGUDAwkBAAAAASEAAAABCQEAAAAQY2hlY2tOYXRpb25Pd25lcgAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAJTmF0aW9uS2V5CQEAAAABIQAAAAEJAQAAAApjaGVja0FkbWluAAAAAQgFAAAAAWkAAAAGY2FsbGVyBwkAAAIAAAABAgAAADBZb3UgYXJlIG5vdCBhdXRob3JpemVkIHRvIHBlcmZvcm0gdGhpcyBvcGVyYXRpb24EAAAACm5hdGlvbnNoZWcJAQAAABV0cmVhc3VyeVRyeUdldEludGVnZXIAAAABCQEAAAAOZ2V0VHJlYXN1cnlLZXkAAAABBQAAAAlOYXRpb25LZXkDCQAAZgAAAAIFAAAADmFzc2V0QnVpbGRDb3N0BQAAAApuYXRpb25zaGVnCQAAAgAAAAECAAAAHlRoZSBuYXRpb24gaGFzbid0IGVub3VnaCBmdW5kcwQAAAABZAkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEFAAAAD3RyZWFzdXJ5QWRkcmVzcwIAAAAUZGVjcmVhc2VOYXRpb25XYWxsZXQJAARMAAAAAgUAAAAJTmF0aW9uS2V5CQAETAAAAAIFAAAADmFzc2V0QnVpbGRDb3N0BQAAAANuaWwFAAAAA25pbAQAAAACcHcJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABBQAAAA90cmVhc3VyeUFkZHJlc3MCAAAAEWFyYml0cmFyeUFkZENvaW5zCQAETAAAAAIFAAAACU5hdGlvbktleQkABEwAAAACBQAAAA5hc3NldEJ1aWxkQ29zdAUAAAADbmlsBQAAAANuaWwEAAAAByRtYXRjaDAFAAAAAnB3AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXIFAAAAByRtYXRjaDAJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAFGdldEJ1aWxkaW5nU3RhdHVzS2V5AAAAAwkABCUAAAABCAUAAAABaQAAAAxvcmlnaW5DYWxsZXIIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQFAAAADHN0ckFzc2V0VHlwZQUAAAAMQnVpbGRTdGFydGVkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABBnZXRBc3NldE93bmVyS2V5AAAAAggFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAAMc3RyQXNzZXRUeXBlBQAAAAlOYXRpb25LZXkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABpnZXRCdWlsZGluZ0ZpbmlzaEhlaWdodEtleQAAAAMJAAQlAAAAAQgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAAxzdHJBc3NldFR5cGUJAABkAAAAAgUAAAAGaGVpZ2h0BQAAABBkZWxheUZvckJ1aWxkaW5nBQAAAANuaWwJAAACAAAAAQIAAAAXSW5jb3JyZWN0IGludm9rZSByZXN1bHQEAAAACGFtb3VudEluCQEAAAAFdmFsdWUAAAABCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQDCQAAZgAAAAIFAAAADmFzc2V0QnVpbGRDb3N0BQAAAAhhbW91bnRJbgkAAAIAAAABCQABLAAAAAICAAAAPllvdSBwcm92aWRlZCBsZXNzICRoZWcgdGhhbiB0aGUgbmVlZGVkIGNvc3QgZm9yIGJ1aWxkaW5nIHRoaXMgBQAAAAxzdHJBc3NldFR5cGUDCQEAAAACIT0AAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAApzaGlueXdnZ2lkCQAAAgAAAAECAAAAGk9ubHkgJEhFRyBwYXltZW50cyBhbGxvd2VkBAAAAAJwdwkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEFAAAAD3RyZWFzdXJ5QWRkcmVzcwIAAAAHRGVwb3NpdAUAAAADbmlsCAUAAAABaQAAAAhwYXltZW50cwQAAAAHJG1hdGNoMAUAAAACcHcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABcgUAAAAHJG1hdGNoMAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAUZ2V0QnVpbGRpbmdTdGF0dXNLZXkAAAADCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcggFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAAMc3RyQXNzZXRUeXBlBQAAAAxCdWlsZFN0YXJ0ZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEGdldEFzc2V0T3duZXJLZXkAAAACCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAAxzdHJBc3NldFR5cGUJAAQlAAAAAQgFAAAAAWkAAAAMb3JpZ2luQ2FsbGVyCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAaZ2V0QnVpbGRpbmdGaW5pc2hIZWlnaHRLZXkAAAADCQAEJQAAAAEIBQAAAAFpAAAADG9yaWdpbkNhbGxlcggFAAAAAWkAAAANdHJhbnNhY3Rpb25JZAUAAAAMc3RyQXNzZXRUeXBlCQAAZAAAAAIFAAAABmhlaWdodAUAAAAQZGVsYXlGb3JCdWlsZGluZwUAAAADbmlsCQAAAgAAAAECAAAAF0luY29ycmVjdCBpbnZva2UgcmVzdWx0AAAAAWkBAAAAC0ZpbmlzaEJ1aWxkAAAAAwAAAAd0eElkU3RyAAAACGFzc2V0U3RyAAAACU5hdGlvbktleQQAAAAEdHhJZAkAAlkAAAABBQAAAAd0eElkU3RyBAAAABFCdWlsZGluZ1N0YXR1c0tleQkBAAAAFGdldEJ1aWxkaW5nU3RhdHVzS2V5AAAAAwkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIFAAAABHR4SWQFAAAACGFzc2V0U3RyBAAAAA9maW5pc2hIZWlnaHRLZXkJAQAAABpnZXRCdWlsZGluZ0ZpbmlzaEhlaWdodEtleQAAAAMJAAQlAAAAAQgFAAAAAWkAAAAGY2FsbGVyBQAAAAR0eElkBQAAAAhhc3NldFN0cgQAAAAIYXNzZXRLZXkJAQAAAA1nZXRBc3NldElkS2V5AAAAAgUAAAAEdHhJZAUAAAAIYXNzZXRTdHIEAAAACmFzc2V0T3duZXIJAQAAAAx0cnlHZXRTdHJpbmcAAAABCQEAAAAQZ2V0QXNzZXRPd25lcktleQAAAAIFAAAABHR4SWQFAAAACGFzc2V0U3RyAwkBAAAAFWlzTmF0aW9uUmVzZXJ2ZWRBc3NldAAAAAEFAAAACGFzc2V0U3RyAwMJAQAAAAEhAAAAAQkBAAAAEGNoZWNrTmF0aW9uT3duZXIAAAACCAUAAAABaQAAAAZjYWxsZXIFAAAACU5hdGlvbktleQkBAAAAASEAAAABCQEAAAAKY2hlY2tBZG1pbgAAAAEIBQAAAAFpAAAABmNhbGxlcgcJAAACAAAAAQIAAAAwWW91IGFyZSBub3QgYXV0aG9yaXplZCB0byBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uCQEAAAATaW50ZXJuYWxGaW5pc2hCdWlsZAAAAAUFAAAACU5hdGlvbktleQUAAAAIYXNzZXRTdHIFAAAACGFzc2V0S2V5BQAAABFCdWlsZGluZ1N0YXR1c0tleQUAAAAPZmluaXNoSGVpZ2h0S2V5AwkBAAAAAiE9AAAAAgUAAAAKYXNzZXRPd25lcgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQkAASwAAAACAgAAACFZb3UgY2Fubm90IGNsYWltIG90aGVyJ3MgcGxheWVycyAFAAAACGFzc2V0U3RyBAAAABBidWlsZGluZ1R4U3RhdHVzCQEAAAAMdHJ5R2V0U3RyaW5nAAAAAQUAAAARQnVpbGRpbmdTdGF0dXNLZXkDCQAAAAAAAAIFAAAAEGJ1aWxkaW5nVHhTdGF0dXMCAAAAAAkAAAIAAAABAgAAACRObyBwZW5kaW5nIG9wZXJhdGlvbnMgZm9yIHRoaXMgYXNzZXQJAQAAABNpbnRlcm5hbEZpbmlzaEJ1aWxkAAAABQkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIFAAAACGFzc2V0U3RyBQAAAAhhc3NldEtleQUAAAARQnVpbGRpbmdTdGF0dXNLZXkFAAAAD2ZpbmlzaEhlaWdodEtleQAAAAFpAQAAABF0cmFuc2Zlck93bmVyc2hpcAAAAAMAAAAHYXNzZXRJZAAAAAhuZXdPd25lcgAAAAxzdHJBc3NldFR5cGUDCQEAAAABIQAAAAEJAQAAAApjaGVja0FkbWluAAAAAQgFAAAAAWkAAAAGY2FsbGVyCQAAAgAAAAECAAAAKU9ubHkgdGhlIGFkbWluIGNhbiBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uBAAAAAhvbGRPd25lcgkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgUAAAAHYXNzZXRJZAIAAAAGX093bmVyBAAAAAxjdXJyZW50UG93ZXIJAQAAABRuYXRpb25zVHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAIb2xkT3duZXICAAAABl9Qb3dlcgQAAAAKYXNzZXRQb3dlcgkAAZEAAAACBQAAAAthc3NldHNQb3dlcgkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAZBc3NldHMFAAAADHN0ckFzc2V0VHlwZQQAAAACcHcJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABBQAAAA5uYXRpb25zQWRkcmVzcwIAAAAMc2V0VXNlclBvd2VyCQAETAAAAAIFAAAACG9sZE93bmVyCQAETAAAAAIJAABlAAAAAgUAAAAMY3VycmVudFBvd2VyBQAAAAphc3NldFBvd2VyBQAAAANuaWwFAAAAA25pbAMJAAAAAAAAAgUAAAACcHcFAAAAAnB3AwkBAAAAAiE9AAAAAgUAAAACcHcJAABlAAAAAgUAAAAMY3VycmVudFBvd2VyBQAAAAphc3NldFBvd2VyCQAAAgAAAAECAAAAF0luY29ycmVjdCBpbnZva2UgcmVzdWx0BAAAAA9uZXdjdXJyZW50UG93ZXIJAQAAABRuYXRpb25zVHJ5R2V0SW50ZWdlcgAAAAEJAAEsAAAAAgUAAAAIbmV3T3duZXICAAAABl9Qb3dlcgQAAAADcHcyCQAD/AAAAAQJAQAAAAdBZGRyZXNzAAAAAQUAAAAObmF0aW9uc0FkZHJlc3MCAAAADHNldFVzZXJQb3dlcgkABEwAAAACBQAAAAhuZXdPd25lcgkABEwAAAACCQAAZAAAAAIFAAAAD25ld2N1cnJlbnRQb3dlcgUAAAAKYXNzZXRQb3dlcgUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAAA3B3MgUAAAADcHcyBAAAAAckbWF0Y2gwBQAAAANwdzIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABcgUAAAAHJG1hdGNoMAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAAB2Fzc2V0SWQCAAAABl9Pd25lcgUAAAAIbmV3T3duZXIFAAAAA25pbAkAAAIAAAABAgAAABdJbmNvcnJlY3QgaW52b2tlIHJlc3VsdAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAWkBAAAAF2Rlc3Ryb3lBc3NldEFuZFRyYW5zZmVyAAAAAwAAAAdhc3NldElkAAAACXRvQWRkcmVzcwAAAAxzdHJBc3NldFR5cGUDCQEAAAABIQAAAAEJAQAAAApjaGVja0FkbWluAAAAAQgFAAAAAWkAAAAGY2FsbGVyCQAAAgAAAAECAAAAKU9ubHkgdGhlIGFkbWluIGNhbiBwZXJmb3JtIHRoaXMgb3BlcmF0aW9uBAAAAAhvbGRPd25lcgkBAAAADHRyeUdldFN0cmluZwAAAAEJAAEsAAAAAgUAAAAHYXNzZXRJZAIAAAAGX093bmVyBAAAAAphc3NldENvaW5zCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEFAAAAB2Fzc2V0SWQEAAAAB3JlZkNhbGwJAAP8AAAABAkBAAAAB0FkZHJlc3MAAAABBQAAAA90cmVhc3VyeUFkZHJlc3MCAAAAEWFyYml0cmFyeUFkZENvaW5zCQAETAAAAAIFAAAACXRvQWRkcmVzcwkABEwAAAACBQAAAAphc3NldENvaW5zBQAAAANuaWwFAAAAA25pbAMJAAAAAAAAAgUAAAAHcmVmQ2FsbAUAAAAHcmVmQ2FsbAQAAAAMY3VycmVudFBvd2VyCQEAAAAUbmF0aW9uc1RyeUdldEludGVnZXIAAAABCQABLAAAAAIFAAAACG9sZE93bmVyAgAAAAZfUG93ZXIEAAAACmFzc2V0UG93ZXIJAAGRAAAAAgUAAAALYXNzZXRzUG93ZXIJAQAAAAV2YWx1ZQAAAAEJAARPAAAAAgUAAAAGQXNzZXRzBQAAAAxzdHJBc3NldFR5cGUEAAAAAnB3CQAD/AAAAAQJAQAAAAdBZGRyZXNzAAAAAQUAAAAObmF0aW9uc0FkZHJlc3MCAAAADHNldFVzZXJQb3dlcgkABEwAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgkABEwAAAACCQAAZQAAAAIFAAAADGN1cnJlbnRQb3dlcgUAAAAKYXNzZXRQb3dlcgUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAAAnB3BQAAAAJwdwQAAAAHJG1hdGNoMAUAAAACcHcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABcgUAAAAHJG1hdGNoMAkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABBQAAAAdhc3NldElkBQAAAANuaWwJAAACAAAAAQIAAAAXSW5jb3JyZWN0IGludm9rZSByZXN1bHQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAABRkZXN0cm95QXNzZXRGcm9tVXNlcgAAAAIAAAAHYXNzZXRJZAAAAAxzdHJBc3NldFR5cGUDCQEAAAABIQAAAAEJAQAAAA9jaGVja0Fzc2V0T3duZXIAAAACCAUAAAABaQAAAAZjYWxsZXIFAAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAYWW91IGRvbid0IG93biB0aGlzIGFzc2V0BAAAAAphc3NldENvaW5zCQEAAAANdHJ5R2V0SW50ZWdlcgAAAAEFAAAAB2Fzc2V0SWQEAAAADGN1cnJlbnRQb3dlcgkBAAAAFG5hdGlvbnNUcnlHZXRJbnRlZ2VyAAAAAQkAASwAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgIAAAAGX1Bvd2VyBAAAAAphc3NldFBvd2VyCQABkQAAAAIFAAAAC2Fzc2V0c1Bvd2VyCQEAAAAFdmFsdWUAAAABCQAETwAAAAIFAAAABkFzc2V0cwUAAAAMc3RyQXNzZXRUeXBlBAAAAAJwdwkAA/wAAAAECQEAAAAHQWRkcmVzcwAAAAEFAAAADm5hdGlvbnNBZGRyZXNzAgAAAAxzZXRVc2VyUG93ZXIJAARMAAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAARMAAAAAgkAAGUAAAACBQAAAAxjdXJyZW50UG93ZXIFAAAACmFzc2V0UG93ZXIFAAAAA25pbAUAAAADbmlsAwkAAAAAAAACBQAAAAJwdwUAAAACcHcEAAAAByRtYXRjaDAFAAAAAnB3AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXIFAAAAByRtYXRjaDAJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAACmFzc2V0Q29pbnMFAAAACnNoaW55d2dnaWQFAAAAA25pbAkAAAIAAAABAgAAABdJbmNvcnJlY3QgaW52b2tlIHJlc3VsdAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABaQEAAAAOc2V0TmF0aW9uT3duZXIAAAACAAAACW5hdGlvbktleQAAAAhuZXdPd25lcgMJAQAAAAEhAAAAAQkBAAAACmNoZWNrQWRtaW4AAAABCAUAAAABaQAAAAZjYWxsZXIJAAUUAAAAAgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAACW5hdGlvbktleQIAAAAGX093bmVyBQAAAAhuZXdPd25lcgUAAAADbmlsBgQAAAAMY3VycmVudE93bmVyCQEAAAAMdHJ5R2V0U3RyaW5nAAAAAQkAASwAAAACBQAAAAluYXRpb25LZXkCAAAABl9Pd25lcgMJAQAAAAIhPQAAAAIFAAAADGN1cnJlbnRPd25lcgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAcWW91IGFyZSBub3QgdGhlIG5hdGlvbiBvd25lcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAIFAAAACW5hdGlvbktleQIAAAAGX093bmVyBQAAAAhuZXdPd25lcgUAAAADbmlsAAAAAKIDREM=",
    "height": 2046912,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9Jwxe1iYboFa511bbijPCRCXJT98ABHqrT6oDYs7UeKi
Next: GMbyUuT3t2XNz7iihoCAfS8Bn2FPTcwWdVogHtmryUWb

Diff: 
Old New Differences
104 104  func checkNationOwner (caller,NationKey) = {
105 105      let nationOwner = tryGetString((NationKey + "_Owner"))
106 106      (nationOwner == toString(caller))
107 +     }
108 + 
109 + 
110 + func checkAssetOwner (caller,assetKey) = {
111 +     let assetOwner = tryGetString((assetKey + "_Owner"))
112 +     (assetOwner == toString(caller))
107 113      }
108 114  
109 115  
239 245  
240 246  
241 247  @Callable(i)
248 + func destroyAssetFromUser (assetId,strAssetType) = if (!(checkAssetOwner(i.caller, assetId)))
249 +     then throw("You don't own this asset")
250 +     else {
251 +         let assetCoins = tryGetInteger(assetId)
252 +         let currentPower = nationsTryGetInteger((toString(i.caller) + "_Power"))
253 +         let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
254 +         let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
255 +         if ((pw == pw))
256 +             then             match pw {
257 +                 case r: Int => 
258 + [DeleteEntry(assetId), ScriptTransfer(i.caller, assetCoins, shinywggid)]
259 +                 case _ => 
260 +                     throw("Incorrect invoke result")
261 +             }
262 +             else throw("Strict value is not equal to itself.")
263 +         }
264 + 
265 + 
266 + 
267 + @Callable(i)
242 268  func setNationOwner (nationKey,newOwner) = if (!(checkAdmin(i.caller)))
243 269      then $Tuple2([StringEntry((nationKey + "_Owner"), newOwner)], true)
244 270      else {
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let shinywggid = base58'AFQS5E4ELtxex3iANtWtUU2V2oWJZSo8VVnK8z3VFmqf'
5 5  
6 6  let treasuryAddress = base58'3MyDGEoKp1gF4LSRknk9vSuDEyrwuYXcQEQ'
7 7  
8 8  let nationsAddress = base58'3MvyzDtzWWV5MZ1GP8JfQhhQqiGU4Nbifdy'
9 9  
10 10  let adminAddress = addressFromStringValue("3MpNtiPSRSq6NnaQYk38BfWSzZcgAYTyrQ9")
11 11  
12 12  let BuildStarted = "BUILD_STARTED"
13 13  
14 14  let BuildFinished = "BUILD_FINISHED"
15 15  
16 16  let Assets = ["Nation", "City", "Barrack", "Barn", "Warrior", "Settler", "Explorer"]
17 17  
18 18  let assetsCost = [0, 1000000000, 5000000000, 5000000000, 500000000, 10000000000, 100000000]
19 19  
20 20  let assetsDelay = [0, 4, 4, 4, 2, 2, 2]
21 21  
22 22  let assetsPower = [0, 1000, 500, 500, 0, 0, 0]
23 23  
24 24  func treasuryTryGetInteger (key) = match getInteger(Address(treasuryAddress), key) {
25 25      case b: Int => 
26 26          b
27 27      case _ => 
28 28          0
29 29  }
30 30  
31 31  
32 32  func nationsTryGetInteger (key) = match getInteger(Address(nationsAddress), key) {
33 33      case b: Int => 
34 34          b
35 35      case _ => 
36 36          0
37 37  }
38 38  
39 39  
40 40  func tryGetString (key) = match getString(this, key) {
41 41      case b: String => 
42 42          b
43 43      case _ => 
44 44          ""
45 45  }
46 46  
47 47  
48 48  func tryGetInteger (key) = match getInteger(this, key) {
49 49      case b: Int => 
50 50          b
51 51      case _ => 
52 52          0
53 53  }
54 54  
55 55  
56 56  func getAssetIdKey (txId,assetType) = ((assetType + "_") + toBase58String(txId))
57 57  
58 58  
59 59  func getAssetOwnerKey (txId,assetType) = (getAssetIdKey(txId, assetType) + "_Owner")
60 60  
61 61  
62 62  func getBuildingFinishHeightKey (address,txId,assetType) = (((address + "_") + getAssetIdKey(txId, assetType)) + "_fh")
63 63  
64 64  
65 65  func getBuildingStatusKey (address,txId,assetType) = (((address + "_") + getAssetIdKey(txId, assetType)) + "_status")
66 66  
67 67  
68 68  func getTreasuryKey (nationid) = (nationid + "_Treasury")
69 69  
70 70  
71 71  func checkAdmin (caller) = if (if (if ((caller == adminAddress))
72 72      then true
73 73      else (caller == this))
74 74      then true
75 75      else (caller.bytes == nationsAddress))
76 76      then true
77 77      else (caller.bytes == treasuryAddress)
78 78  
79 79  
80 80  func internalFinishBuild (caller,assetStr,assetKey,BuildingStatusKey,finishHeightKey) = {
81 81      let buildingFinishHeight = getIntegerValue(this, finishHeightKey)
82 82      if ((buildingFinishHeight > height))
83 83          then throw((((("Building is not finished yet " + toString((buildingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((buildingFinishHeight - height))) + " minutes"))
84 84          else {
85 85              let idx = value(indexOf(Assets, assetStr))
86 86              let assetPower = assetsPower[idx]
87 87              let assetCoins = assetsCost[idx]
88 88              let refCall = invoke(Address(treasuryAddress), "Pay", [caller, assetCoins], nil)
89 89              if ((refCall == refCall))
90 90                  then if ((assetPower > 0))
91 91                      then {
92 92                          let currentPower = nationsTryGetInteger((caller + "_Power"))
93 93                          let pw = invoke(Address(nationsAddress), "setUserPower", [caller, (currentPower + assetPower)], nil)
94 94                          if ((pw == pw))
95 95                              then [IntegerEntry(assetKey, assetCoins), DeleteEntry(BuildingStatusKey), DeleteEntry(finishHeightKey)]
96 96                              else throw("Strict value is not equal to itself.")
97 97                          }
98 98                      else [IntegerEntry(assetKey, assetCoins), DeleteEntry(BuildingStatusKey), DeleteEntry(finishHeightKey)]
99 99                  else throw("Strict value is not equal to itself.")
100 100              }
101 101      }
102 102  
103 103  
104 104  func checkNationOwner (caller,NationKey) = {
105 105      let nationOwner = tryGetString((NationKey + "_Owner"))
106 106      (nationOwner == toString(caller))
107 +     }
108 + 
109 + 
110 + func checkAssetOwner (caller,assetKey) = {
111 +     let assetOwner = tryGetString((assetKey + "_Owner"))
112 +     (assetOwner == toString(caller))
107 113      }
108 114  
109 115  
110 116  func isNationReservedAsset (strAssetType) = if ((strAssetType == "Settler"))
111 117      then true
112 118      else (strAssetType == "Explorer")
113 119  
114 120  
115 121  @Callable(i)
116 122  func StartBuild (strAssetType,NationKey) = if (!(containsElement(Assets, strAssetType)))
117 123      then throw("This asset is not amanged by the system")
118 124      else {
119 125          let ind = value(indexOf(Assets, strAssetType))
120 126          let delayForBuilding = assetsDelay[ind]
121 127          let assetBuildCost = assetsCost[ind]
122 128          if (isNationReservedAsset(strAssetType))
123 129              then if (if (!(checkNationOwner(i.caller, NationKey)))
124 130                  then !(checkAdmin(i.caller))
125 131                  else false)
126 132                  then throw("You are not authorized to perform this operation")
127 133                  else {
128 134                      let nationsheg = treasuryTryGetInteger(getTreasuryKey(NationKey))
129 135                      if ((assetBuildCost > nationsheg))
130 136                          then throw("The nation hasn't enough funds")
131 137                          else {
132 138                              let d = invoke(Address(treasuryAddress), "decreaseNationWallet", [NationKey, assetBuildCost], nil)
133 139                              let pw = invoke(Address(treasuryAddress), "arbitraryAddCoins", [NationKey, assetBuildCost], nil)
134 140                              match pw {
135 141                                  case r: Int => 
136 142  [StringEntry(getBuildingStatusKey(toString(i.originCaller), i.transactionId, strAssetType), BuildStarted), StringEntry(getAssetOwnerKey(i.transactionId, strAssetType), NationKey), IntegerEntry(getBuildingFinishHeightKey(toString(i.originCaller), i.transactionId, strAssetType), (height + delayForBuilding))]
137 143                                  case _ => 
138 144                                      throw("Incorrect invoke result")
139 145                              }
140 146                              }
141 147                      }
142 148              else {
143 149                  let amountIn = value(i.payments[0].amount)
144 150                  if ((assetBuildCost > amountIn))
145 151                      then throw(("You provided less $heg than the needed cost for building this " + strAssetType))
146 152                      else if ((i.payments[0].assetId != shinywggid))
147 153                          then throw("Only $HEG payments allowed")
148 154                          else {
149 155                              let pw = invoke(Address(treasuryAddress), "Deposit", nil, i.payments)
150 156                              match pw {
151 157                                  case r: Int => 
152 158  [StringEntry(getBuildingStatusKey(toString(i.originCaller), i.transactionId, strAssetType), BuildStarted), StringEntry(getAssetOwnerKey(i.transactionId, strAssetType), toString(i.originCaller)), IntegerEntry(getBuildingFinishHeightKey(toString(i.originCaller), i.transactionId, strAssetType), (height + delayForBuilding))]
153 159                                  case _ => 
154 160                                      throw("Incorrect invoke result")
155 161                              }
156 162                              }
157 163                  }
158 164          }
159 165  
160 166  
161 167  
162 168  @Callable(i)
163 169  func FinishBuild (txIdStr,assetStr,NationKey) = {
164 170      let txId = fromBase58String(txIdStr)
165 171      let BuildingStatusKey = getBuildingStatusKey(toString(i.caller), txId, assetStr)
166 172      let finishHeightKey = getBuildingFinishHeightKey(toString(i.caller), txId, assetStr)
167 173      let assetKey = getAssetIdKey(txId, assetStr)
168 174      let assetOwner = tryGetString(getAssetOwnerKey(txId, assetStr))
169 175      if (isNationReservedAsset(assetStr))
170 176          then if (if (!(checkNationOwner(i.caller, NationKey)))
171 177              then !(checkAdmin(i.caller))
172 178              else false)
173 179              then throw("You are not authorized to perform this operation")
174 180              else internalFinishBuild(NationKey, assetStr, assetKey, BuildingStatusKey, finishHeightKey)
175 181          else if ((assetOwner != toString(i.caller)))
176 182              then throw(("You cannot claim other's players " + assetStr))
177 183              else {
178 184                  let buildingTxStatus = tryGetString(BuildingStatusKey)
179 185                  if ((buildingTxStatus == ""))
180 186                      then throw("No pending operations for this asset")
181 187                      else internalFinishBuild(toString(i.caller), assetStr, assetKey, BuildingStatusKey, finishHeightKey)
182 188                  }
183 189      }
184 190  
185 191  
186 192  
187 193  @Callable(i)
188 194  func transferOwnership (assetId,newOwner,strAssetType) = if (!(checkAdmin(i.caller)))
189 195      then throw("Only the admin can perform this operation")
190 196      else {
191 197          let oldOwner = tryGetString((assetId + "_Owner"))
192 198          let currentPower = nationsTryGetInteger((oldOwner + "_Power"))
193 199          let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
194 200          let pw = invoke(Address(nationsAddress), "setUserPower", [oldOwner, (currentPower - assetPower)], nil)
195 201          if ((pw == pw))
196 202              then if ((pw != (currentPower - assetPower)))
197 203                  then throw("Incorrect invoke result")
198 204                  else {
199 205                      let newcurrentPower = nationsTryGetInteger((newOwner + "_Power"))
200 206                      let pw2 = invoke(Address(nationsAddress), "setUserPower", [newOwner, (newcurrentPower + assetPower)], nil)
201 207                      if ((pw2 == pw2))
202 208                          then                         match pw2 {
203 209                              case r: Int => 
204 210  [StringEntry((assetId + "_Owner"), newOwner)]
205 211                              case _ => 
206 212                                  throw("Incorrect invoke result")
207 213                          }
208 214                          else throw("Strict value is not equal to itself.")
209 215                      }
210 216              else throw("Strict value is not equal to itself.")
211 217          }
212 218  
213 219  
214 220  
215 221  @Callable(i)
216 222  func destroyAssetAndTransfer (assetId,toAddress,strAssetType) = if (!(checkAdmin(i.caller)))
217 223      then throw("Only the admin can perform this operation")
218 224      else {
219 225          let oldOwner = tryGetString((assetId + "_Owner"))
220 226          let assetCoins = tryGetInteger(assetId)
221 227          let refCall = invoke(Address(treasuryAddress), "arbitraryAddCoins", [toAddress, assetCoins], nil)
222 228          if ((refCall == refCall))
223 229              then {
224 230                  let currentPower = nationsTryGetInteger((oldOwner + "_Power"))
225 231                  let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
226 232                  let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
227 233                  if ((pw == pw))
228 234                      then                     match pw {
229 235                          case r: Int => 
230 236  [DeleteEntry(assetId)]
231 237                          case _ => 
232 238                              throw("Incorrect invoke result")
233 239                      }
234 240                      else throw("Strict value is not equal to itself.")
235 241                  }
236 242              else throw("Strict value is not equal to itself.")
237 243          }
238 244  
239 245  
240 246  
241 247  @Callable(i)
248 + func destroyAssetFromUser (assetId,strAssetType) = if (!(checkAssetOwner(i.caller, assetId)))
249 +     then throw("You don't own this asset")
250 +     else {
251 +         let assetCoins = tryGetInteger(assetId)
252 +         let currentPower = nationsTryGetInteger((toString(i.caller) + "_Power"))
253 +         let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
254 +         let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
255 +         if ((pw == pw))
256 +             then             match pw {
257 +                 case r: Int => 
258 + [DeleteEntry(assetId), ScriptTransfer(i.caller, assetCoins, shinywggid)]
259 +                 case _ => 
260 +                     throw("Incorrect invoke result")
261 +             }
262 +             else throw("Strict value is not equal to itself.")
263 +         }
264 + 
265 + 
266 + 
267 + @Callable(i)
242 268  func setNationOwner (nationKey,newOwner) = if (!(checkAdmin(i.caller)))
243 269      then $Tuple2([StringEntry((nationKey + "_Owner"), newOwner)], true)
244 270      else {
245 271          let currentOwner = tryGetString((nationKey + "_Owner"))
246 272          if ((currentOwner != toString(i.caller)))
247 273              then throw("You are not the nation owner")
248 274              else [StringEntry((nationKey + "_Owner"), newOwner)]
249 275          }
250 276  
251 277

Old	New		Differences
104	104		func checkNationOwner (caller,NationKey) = {
105	105		let nationOwner = tryGetString((NationKey + "_Owner"))
106	106		(nationOwner == toString(caller))
	107	+	}
	108	+
	109	+
	110	+	func checkAssetOwner (caller,assetKey) = {
	111	+	let assetOwner = tryGetString((assetKey + "_Owner"))
	112	+	(assetOwner == toString(caller))
107	113		}
108	114
109	115

239	245
240	246
241	247		@Callable(i)
	248	+	func destroyAssetFromUser (assetId,strAssetType) = if (!(checkAssetOwner(i.caller, assetId)))
	249	+	then throw("You don't own this asset")
	250	+	else {
	251	+	let assetCoins = tryGetInteger(assetId)
	252	+	let currentPower = nationsTryGetInteger((toString(i.caller) + "_Power"))
	253	+	let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
	254	+	let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
	255	+	if ((pw == pw))
	256	+	then match pw {
	257	+	case r: Int =>
	258	+	[DeleteEntry(assetId), ScriptTransfer(i.caller, assetCoins, shinywggid)]
	259	+	case _ =>
	260	+	throw("Incorrect invoke result")
	261	+	}
	262	+	else throw("Strict value is not equal to itself.")
	263	+	}
	264	+
	265	+
	266	+
	267	+	@Callable(i)
242	268		func setNationOwner (nationKey,newOwner) = if (!(checkAdmin(i.caller)))
243	269		then $Tuple2([StringEntry((nationKey + "_Owner"), newOwner)], true)
244	270		else {

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let shinywggid = base58'AFQS5E4ELtxex3iANtWtUU2V2oWJZSo8VVnK8z3VFmqf'
5	5
6	6		let treasuryAddress = base58'3MyDGEoKp1gF4LSRknk9vSuDEyrwuYXcQEQ'
7	7
8	8		let nationsAddress = base58'3MvyzDtzWWV5MZ1GP8JfQhhQqiGU4Nbifdy'
9	9
10	10		let adminAddress = addressFromStringValue("3MpNtiPSRSq6NnaQYk38BfWSzZcgAYTyrQ9")
11	11
12	12		let BuildStarted = "BUILD_STARTED"
13	13
14	14		let BuildFinished = "BUILD_FINISHED"
15	15
16	16		let Assets = ["Nation", "City", "Barrack", "Barn", "Warrior", "Settler", "Explorer"]
17	17
18	18		let assetsCost = [0, 1000000000, 5000000000, 5000000000, 500000000, 10000000000, 100000000]
19	19
20	20		let assetsDelay = [0, 4, 4, 4, 2, 2, 2]
21	21
22	22		let assetsPower = [0, 1000, 500, 500, 0, 0, 0]
23	23
24	24		func treasuryTryGetInteger (key) = match getInteger(Address(treasuryAddress), key) {
25	25		case b: Int =>
26	26		b
27	27		case _ =>
28	28		0
29	29		}
30	30
31	31
32	32		func nationsTryGetInteger (key) = match getInteger(Address(nationsAddress), key) {
33	33		case b: Int =>
34	34		b
35	35		case _ =>
36	36		0
37	37		}
38	38
39	39
40	40		func tryGetString (key) = match getString(this, key) {
41	41		case b: String =>
42	42		b
43	43		case _ =>
44	44		""
45	45		}
46	46
47	47
48	48		func tryGetInteger (key) = match getInteger(this, key) {
49	49		case b: Int =>
50	50		b
51	51		case _ =>
52	52		0
53	53		}
54	54
55	55
56	56		func getAssetIdKey (txId,assetType) = ((assetType + "_") + toBase58String(txId))
57	57
58	58
59	59		func getAssetOwnerKey (txId,assetType) = (getAssetIdKey(txId, assetType) + "_Owner")
60	60
61	61
62	62		func getBuildingFinishHeightKey (address,txId,assetType) = (((address + "_") + getAssetIdKey(txId, assetType)) + "_fh")
63	63
64	64
65	65		func getBuildingStatusKey (address,txId,assetType) = (((address + "_") + getAssetIdKey(txId, assetType)) + "_status")
66	66
67	67
68	68		func getTreasuryKey (nationid) = (nationid + "_Treasury")
69	69
70	70
71	71		func checkAdmin (caller) = if (if (if ((caller == adminAddress))
72	72		then true
73	73		else (caller == this))
74	74		then true
75	75		else (caller.bytes == nationsAddress))
76	76		then true
77	77		else (caller.bytes == treasuryAddress)
78	78
79	79
80	80		func internalFinishBuild (caller,assetStr,assetKey,BuildingStatusKey,finishHeightKey) = {
81	81		let buildingFinishHeight = getIntegerValue(this, finishHeightKey)
82	82		if ((buildingFinishHeight > height))
83	83		then throw((((("Building is not finished yet " + toString((buildingFinishHeight - height))) + " blocks remaining, it will take around ") + toString((buildingFinishHeight - height))) + " minutes"))
84	84		else {
85	85		let idx = value(indexOf(Assets, assetStr))
86	86		let assetPower = assetsPower[idx]
87	87		let assetCoins = assetsCost[idx]
88	88		let refCall = invoke(Address(treasuryAddress), "Pay", [caller, assetCoins], nil)
89	89		if ((refCall == refCall))
90	90		then if ((assetPower > 0))
91	91		then {
92	92		let currentPower = nationsTryGetInteger((caller + "_Power"))
93	93		let pw = invoke(Address(nationsAddress), "setUserPower", [caller, (currentPower + assetPower)], nil)
94	94		if ((pw == pw))
95	95		then [IntegerEntry(assetKey, assetCoins), DeleteEntry(BuildingStatusKey), DeleteEntry(finishHeightKey)]
96	96		else throw("Strict value is not equal to itself.")
97	97		}
98	98		else [IntegerEntry(assetKey, assetCoins), DeleteEntry(BuildingStatusKey), DeleteEntry(finishHeightKey)]
99	99		else throw("Strict value is not equal to itself.")
100	100		}
101	101		}
102	102
103	103
104	104		func checkNationOwner (caller,NationKey) = {
105	105		let nationOwner = tryGetString((NationKey + "_Owner"))
106	106		(nationOwner == toString(caller))
	107	+	}
	108	+
	109	+
	110	+	func checkAssetOwner (caller,assetKey) = {
	111	+	let assetOwner = tryGetString((assetKey + "_Owner"))
	112	+	(assetOwner == toString(caller))
107	113		}
108	114
109	115
110	116		func isNationReservedAsset (strAssetType) = if ((strAssetType == "Settler"))
111	117		then true
112	118		else (strAssetType == "Explorer")
113	119
114	120
115	121		@Callable(i)
116	122		func StartBuild (strAssetType,NationKey) = if (!(containsElement(Assets, strAssetType)))
117	123		then throw("This asset is not amanged by the system")
118	124		else {
119	125		let ind = value(indexOf(Assets, strAssetType))
120	126		let delayForBuilding = assetsDelay[ind]
121	127		let assetBuildCost = assetsCost[ind]
122	128		if (isNationReservedAsset(strAssetType))
123	129		then if (if (!(checkNationOwner(i.caller, NationKey)))
124	130		then !(checkAdmin(i.caller))
125	131		else false)
126	132		then throw("You are not authorized to perform this operation")
127	133		else {
128	134		let nationsheg = treasuryTryGetInteger(getTreasuryKey(NationKey))
129	135		if ((assetBuildCost > nationsheg))
130	136		then throw("The nation hasn't enough funds")
131	137		else {
132	138		let d = invoke(Address(treasuryAddress), "decreaseNationWallet", [NationKey, assetBuildCost], nil)
133	139		let pw = invoke(Address(treasuryAddress), "arbitraryAddCoins", [NationKey, assetBuildCost], nil)
134	140		match pw {
135	141		case r: Int =>
136	142		[StringEntry(getBuildingStatusKey(toString(i.originCaller), i.transactionId, strAssetType), BuildStarted), StringEntry(getAssetOwnerKey(i.transactionId, strAssetType), NationKey), IntegerEntry(getBuildingFinishHeightKey(toString(i.originCaller), i.transactionId, strAssetType), (height + delayForBuilding))]
137	143		case _ =>
138	144		throw("Incorrect invoke result")
139	145		}
140	146		}
141	147		}
142	148		else {
143	149		let amountIn = value(i.payments[0].amount)
144	150		if ((assetBuildCost > amountIn))
145	151		then throw(("You provided less $heg than the needed cost for building this " + strAssetType))
146	152		else if ((i.payments[0].assetId != shinywggid))
147	153		then throw("Only $HEG payments allowed")
148	154		else {
149	155		let pw = invoke(Address(treasuryAddress), "Deposit", nil, i.payments)
150	156		match pw {
151	157		case r: Int =>
152	158		[StringEntry(getBuildingStatusKey(toString(i.originCaller), i.transactionId, strAssetType), BuildStarted), StringEntry(getAssetOwnerKey(i.transactionId, strAssetType), toString(i.originCaller)), IntegerEntry(getBuildingFinishHeightKey(toString(i.originCaller), i.transactionId, strAssetType), (height + delayForBuilding))]
153	159		case _ =>
154	160		throw("Incorrect invoke result")
155	161		}
156	162		}
157	163		}
158	164		}
159	165
160	166
161	167
162	168		@Callable(i)
163	169		func FinishBuild (txIdStr,assetStr,NationKey) = {
164	170		let txId = fromBase58String(txIdStr)
165	171		let BuildingStatusKey = getBuildingStatusKey(toString(i.caller), txId, assetStr)
166	172		let finishHeightKey = getBuildingFinishHeightKey(toString(i.caller), txId, assetStr)
167	173		let assetKey = getAssetIdKey(txId, assetStr)
168	174		let assetOwner = tryGetString(getAssetOwnerKey(txId, assetStr))
169	175		if (isNationReservedAsset(assetStr))
170	176		then if (if (!(checkNationOwner(i.caller, NationKey)))
171	177		then !(checkAdmin(i.caller))
172	178		else false)
173	179		then throw("You are not authorized to perform this operation")
174	180		else internalFinishBuild(NationKey, assetStr, assetKey, BuildingStatusKey, finishHeightKey)
175	181		else if ((assetOwner != toString(i.caller)))
176	182		then throw(("You cannot claim other's players " + assetStr))
177	183		else {
178	184		let buildingTxStatus = tryGetString(BuildingStatusKey)
179	185		if ((buildingTxStatus == ""))
180	186		then throw("No pending operations for this asset")
181	187		else internalFinishBuild(toString(i.caller), assetStr, assetKey, BuildingStatusKey, finishHeightKey)
182	188		}
183	189		}
184	190
185	191
186	192
187	193		@Callable(i)
188	194		func transferOwnership (assetId,newOwner,strAssetType) = if (!(checkAdmin(i.caller)))
189	195		then throw("Only the admin can perform this operation")
190	196		else {
191	197		let oldOwner = tryGetString((assetId + "_Owner"))
192	198		let currentPower = nationsTryGetInteger((oldOwner + "_Power"))
193	199		let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
194	200		let pw = invoke(Address(nationsAddress), "setUserPower", [oldOwner, (currentPower - assetPower)], nil)
195	201		if ((pw == pw))
196	202		then if ((pw != (currentPower - assetPower)))
197	203		then throw("Incorrect invoke result")
198	204		else {
199	205		let newcurrentPower = nationsTryGetInteger((newOwner + "_Power"))
200	206		let pw2 = invoke(Address(nationsAddress), "setUserPower", [newOwner, (newcurrentPower + assetPower)], nil)
201	207		if ((pw2 == pw2))
202	208		then match pw2 {
203	209		case r: Int =>
204	210		[StringEntry((assetId + "_Owner"), newOwner)]
205	211		case _ =>
206	212		throw("Incorrect invoke result")
207	213		}
208	214		else throw("Strict value is not equal to itself.")
209	215		}
210	216		else throw("Strict value is not equal to itself.")
211	217		}
212	218
213	219
214	220
215	221		@Callable(i)
216	222		func destroyAssetAndTransfer (assetId,toAddress,strAssetType) = if (!(checkAdmin(i.caller)))
217	223		then throw("Only the admin can perform this operation")
218	224		else {
219	225		let oldOwner = tryGetString((assetId + "_Owner"))
220	226		let assetCoins = tryGetInteger(assetId)
221	227		let refCall = invoke(Address(treasuryAddress), "arbitraryAddCoins", [toAddress, assetCoins], nil)
222	228		if ((refCall == refCall))
223	229		then {
224	230		let currentPower = nationsTryGetInteger((oldOwner + "_Power"))
225	231		let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
226	232		let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
227	233		if ((pw == pw))
228	234		then match pw {
229	235		case r: Int =>
230	236		[DeleteEntry(assetId)]
231	237		case _ =>
232	238		throw("Incorrect invoke result")
233	239		}
234	240		else throw("Strict value is not equal to itself.")
235	241		}
236	242		else throw("Strict value is not equal to itself.")
237	243		}
238	244
239	245
240	246
241	247		@Callable(i)
	248	+	func destroyAssetFromUser (assetId,strAssetType) = if (!(checkAssetOwner(i.caller, assetId)))
	249	+	then throw("You don't own this asset")
	250	+	else {
	251	+	let assetCoins = tryGetInteger(assetId)
	252	+	let currentPower = nationsTryGetInteger((toString(i.caller) + "_Power"))
	253	+	let assetPower = assetsPower[value(indexOf(Assets, strAssetType))]
	254	+	let pw = invoke(Address(nationsAddress), "setUserPower", [toString(i.caller), (currentPower - assetPower)], nil)
	255	+	if ((pw == pw))
	256	+	then match pw {
	257	+	case r: Int =>
	258	+	[DeleteEntry(assetId), ScriptTransfer(i.caller, assetCoins, shinywggid)]
	259	+	case _ =>
	260	+	throw("Incorrect invoke result")
	261	+	}
	262	+	else throw("Strict value is not equal to itself.")
	263	+	}
	264	+
	265	+
	266	+
	267	+	@Callable(i)
242	268		func setNationOwner (nationKey,newOwner) = if (!(checkAdmin(i.caller)))
243	269		then $Tuple2([StringEntry((nationKey + "_Owner"), newOwner)], true)
244	270		else {
245	271		let currentOwner = tryGetString((nationKey + "_Owner"))
246	272		if ((currentOwner != toString(i.caller)))
247	273		then throw("You are not the nation owner")
248	274		else [StringEntry((nationKey + "_Owner"), newOwner)]
249	275		}
250	276
251	277

github/deemru/w8io/169f3d6 
41.42 ms ◑