w8 · tx · AZB···EBM

tx · AZBEDW4YRomtkjWCphysi6Gdj4PFvpxiM68MyUqeREBM

3NARdCrmQCEs9RNtwCSRc6JCoThQGyXjrAj:  -0.01400000 Waves

2021.09.25 21:37 [1718849] smart account 3NARdCrmQCEs9RNtwCSRc6JCoThQGyXjrAj > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AZBEDW4YRomtkjWCphysi6Gdj4PFvpxiM68MyUqeREBM",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1632595089527,
    "version": 2,
    "chainId": 84,
    "sender": "3NARdCrmQCEs9RNtwCSRc6JCoThQGyXjrAj",
    "senderPublicKey": "C246qxhuyo9DBk1pjMzEQSVAWmiqYupG2swGkxTeAvLV",
    "proofs": [
        "2cBV3VjLHVpEFVotqvssLttZjPfnNN3qk2XCQ6YEAAEQ3jncPTkRfGTQTxLc9Y5WU3HSMVJMh5igKXQ1MGGpD3nc"
    ],
    "script": "base64:AAIEAAAAAAAAAA8IAhIAEgASAwoBARIAEgAAAAACAAAAAApBNEFBc3NldElEAQAAACD+xBrh3u/naSJ9Eujvd+1d33EPvCCH0lpodP3xbghYNwAAAAALVVNEVEFzc2V0SUQBAAAAIAhlhLcP8IpqGvPiaOguCJAkw9MnWAPNLPYuXgvf2hWkAAAABQAAAAFpAQAAAAhJc3N1ZUE0QQAAAAAEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAtQcmljZVBlckE0QQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAGQTRBL1ROBAAAAAxOZXdBNEFUb1VzZXIJAABrAAAAAwAAAAAAAAGGoAgFAAAAA3BtdAAAAAZhbW91bnQFAAAAC1ByaWNlUGVyQTRBBAAAABFQcmV2aW91c0lzc3VlZEE0QQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAARVG90YWxfSXNzdWVkX0E0QToEAAAADlRvdGFsSXNzdWVkQTRBCQAAZAAAAAIFAAAAEVByZXZpb3VzSXNzdWVkQTRBBQAAAAxOZXdBNEFUb1VzZXIEAAAAF1ByZXZpb3VzQTRBUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABhUb3RhbF9BNEFfUmVzZXJ2ZV9Jbl9UTjoEAAAAD0E0QVJlc2VydmVWYWx1ZQkAAGQAAAACBQAAABdQcmV2aW91c0E0QVJlc2VydmVWYWx1ZQgFAAAAA3BtdAAAAAZhbW91bnQEAAAAFlByZXZpb3VzQTRBQmFja3VwUHJpY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAF0E0QV9CYWNrdXBfVmFsdWVfSW5fVE46BAAAAA5BNEFCYWNrdXBQcmljZQkAAGsAAAADAAAAAAAAAYagBQAAAA9BNEFSZXNlcnZlVmFsdWUFAAAADlRvdGFsSXNzdWVkQTRBBAAAAApGZWVBZGRyZXNzAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAArSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIFROLgMJAABmAAAAAgAAAAAAAExLQAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAAxUGxlYXNlIEF0dGFjaCBtaW5pbXVtIDAuMDUgVE4gVG8gSXNzdWUgQTRBIEFzc2V0LgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAARVG90YWxfSXNzdWVkX0E0QToFAAAADlRvdGFsSXNzdWVkQTRBCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABhUb3RhbF9BNEFfUmVzZXJ2ZV9Jbl9UTjoFAAAAD0E0QVJlc2VydmVWYWx1ZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAXQTRBX0JhY2t1cF9WYWx1ZV9Jbl9UTjoFAAAADkE0QUJhY2t1cFByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAJTxoMT5BNEEgSXNzdWVkIFN1Y2Nlc3NmdWxseSE8L2gxPjxicj4JAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADBQAAAApBNEFBc3NldElEBQAAAAxOZXdBNEFUb1VzZXIGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACCQAAaAAAAAIFAAAADE5ld0E0QVRvVXNlcgAAAAAAAAAAYwAAAAAAAAAAZAUAAAAKQTRBQXNzZXRJRAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABBQAAAApGZWVBZGRyZXNzCQAAaQAAAAIJAABoAAAAAgUAAAAMTmV3QTRBVG9Vc2VyAAAAAAAAAAABAAAAAAAAAABkBQAAAApBNEFBc3NldElEBQAAAANuaWwAAAABaQEAAAAJTGlxdWlkYXRlAAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAARUHJldmlvdXNJc3N1ZWRBNEEJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAEVRvdGFsX0lzc3VlZF9BNEE6BAAAABFQcmV2aW91c0J1cm5lZEE0QQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAARVG90YWxfQnVybmVkX0E0QToEAAAADlRvdGFsSXNzdWVkQTRBCQAAZQAAAAIFAAAAEVByZXZpb3VzSXNzdWVkQTRBCAUAAAADcG10AAAABmFtb3VudAQAAAAOVG90YWxCdXJuZWRBNEEJAABkAAAAAgUAAAARUHJldmlvdXNCdXJuZWRBNEEIBQAAAANwbXQAAAAGYW1vdW50BAAAABdQcmV2aW91c0E0QVJlc2VydmVWYWx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAYVG90YWxfQTRBX1Jlc2VydmVfSW5fVE46BAAAABZQcmV2aW91c0E0QUJhY2t1cFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABdBNEFfQmFja3VwX1ZhbHVlX0luX1ROOgQAAAASY2FsY3VsYXRlYnVybnZhbHVlCQAAawAAAAMFAAAAFlByZXZpb3VzQTRBQmFja3VwUHJpY2UIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAYagBAAAAA9BNEFSZXNlcnZlVmFsdWUJAABlAAAAAgUAAAAXUHJldmlvdXNBNEFSZXNlcnZlVmFsdWUFAAAAEmNhbGN1bGF0ZWJ1cm52YWx1ZQQAAAAOQTRBQmFja3VwUHJpY2UJAABrAAAAAwAAAAAAAAGGoAUAAAAPQTRBUmVzZXJ2ZVZhbHVlBQAAAA5Ub3RhbElzc3VlZEE0QQMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAKQTRBQXNzZXRJRAkAAAIAAAABAgAAAEdLaW5kbHkgRGVwb3NpdCBPbmx5IDhoZHNWQ3hQQlZFbVZVWnl5WDhTZDk4WjloVTdGbnkyNlc5NnNqS2lUdzhnIChBNEEpLgMJAABmAAAAAgAAAAAAAAGGoAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAAtQXR0YWNoIEFtb3VudCBtdXN0IGJlIGdyZWF0ZXIgdGhhbiAwLjAwMSBBNEEuCQAETAAAAAIJAQAAAARCdXJuAAAAAgUAAAAKQTRBQXNzZXRJRAgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAEVRvdGFsX0lzc3VlZF9BNEE6BQAAAA5Ub3RhbElzc3VlZEE0QQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAARVG90YWxfQnVybmVkX0E0QToFAAAADlRvdGFsQnVybmVkQTRBCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABhUb3RhbF9BNEFfUmVzZXJ2ZV9Jbl9UTjoFAAAAD0E0QVJlc2VydmVWYWx1ZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAXQTRBX0JhY2t1cF9WYWx1ZV9Jbl9UTjoFAAAADkE0QUJhY2t1cFByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAKTxoMT5BNEEgTGlxdWlkYXRlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAASY2FsY3VsYXRlYnVybnZhbHVlBQAAAAR1bml0BQAAAANuaWwAAAABaQEAAAAHRGVwb3NpdAAAAAEAAAAEZGF5cwQAAAADcG10AwkAAAAAAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAACQAAAgAAAAECAAAAR05vIHBheW1lbnQgYXR0YWNoZWQsIFBsZWFzZSBBdHRhY2ggQTRBIFRva2VuIGFzIHBlciBUSUVSIGluIHBheW1lbnRbMV0uBAAAAApjdXJyZW50S2V5CQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAD21heGltdW1sb2NrZGF5cwAAAAAAAAAAWgQAAAAKbG9ja3N0YXR1cwIAAAAGTE9DS0VEBAAAAARVTEJUAAAAABdIduf/BAAAAARVTFNUAAAAAIuyyW//BAAAAARVTEdUAAAAARdlkt//BAAAAARVTERUAAAAARdlkuAABAAAAAZvbmVkYXkAAAAAAAAABaAEAAAADGFjdHVhbGJsb2NrcwkAAGgAAAACBQAAAAZvbmVkYXkFAAAABGRheXMEAAAAD3RvdGFsbG9ja2Jsb2NrcwkAAGQAAAACBQAAAAZoZWlnaHQFAAAADGFjdHVhbGJsb2NrcwQAAAAFVGllcjEAAAAAAAAAjKAEAAAADFRpZXIxcmV3YXJkcwkAAGsAAAADCQAAawAAAAMJAABoAAAAAgUAAAAFVGllcjEAAAAAAAAAAAIIBQAAAANwbXQAAAAGYW1vdW50CQAAbAAAAAYAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAlVQBQAAAAxhY3R1YWxibG9ja3MJAABsAAAABgAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAAAAAAAUAAAACVVAEAAAADFRpZXIycmV3YXJkcwkAAGsAAAADCQAAawAAAAMJAABoAAAAAgUAAAAFVGllcjEAAAAAAAAAAAQIBQAAAANwbXQAAAAGYW1vdW50CQAAbAAAAAYAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAlVQBQAAAAxhY3R1YWxibG9ja3MJAABsAAAABgAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAAAAAAAUAAAACVVAEAAAADFRpZXIzcmV3YXJkcwkAAGsAAAADCQAAawAAAAMJAABoAAAAAgUAAAAFVGllcjEAAAAAAAAAAAgIBQAAAANwbXQAAAAGYW1vdW50CQAAbAAAAAYAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAlVQBQAAAAxhY3R1YWxibG9ja3MJAABsAAAABgAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAAAAAAAUAAAACVVAEAAAAD1N0YWtlZEE0QUFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAA1TdGFrZWRfQW1vdW50AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAEm5ld1N0YWtlZEE0QUFtb3VudAkAAGQAAAACBQAAAA9TdGFrZWRBNEFBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50BAAAABBjdXJyZW50QTRBQW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAASRGVwb3NpdF9BbW91bnRfT2ZfBQAAAApjdXJyZW50S2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAADG5ld0E0QUFtb3VudAkAAGQAAAACBQAAABBjdXJyZW50QTRBQW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAKQTRBQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAoSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIAkAAlgAAAABBQAAAApBNEFBc3NldElEAgAAAAYgb25seS4DCQAAZwAAAAIAAAAAAAAAAAYFAAAABGRheXMJAAACAAAAAQIAAAAnQ2hvb3NlIExvY2tpbmcgZGF5cyBpbiBiZXR3ZWVuIDcgdG8gOTAuAwkAAGYAAAACBQAAAARkYXlzBQAAAA9tYXhpbXVtbG9ja2RheXMJAAACAAAAAQIAAABNWW91IEVudGVyZWQgZGF5cyBncmVhdGVyIHRoYW4gOTAgcGxlYXNlIEVudGVyIG5vLiBvZiBkYXlzIGluIGJldHdlZW4gNyB0byA5MC4DCQAAZgAAAAIAAAAAB8DVrQAIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBsZWFzZSBBdHRhY2ggbWluaW11bSAzMzMgQTRBIFRvIEFjaGlldmUgQlJPTlpFIFRJRVIuAwkAAGcAAAACBQAAAARVTEJUCAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAICAAAACFRpZXJfT2ZfBQAAAApjdXJyZW50S2V5AgAAAAZCUk9OWkUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgIAAAASRGVwb3NpdF9oZWlnaHRfT2ZfBQAAAApjdXJyZW50S2V5BQAAAAZoZWlnaHQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVN0YWtlZF9BbW91bnQFAAAAEm5ld1N0YWtlZEE0QUFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAABJEZXBvc2l0X0Ftb3VudF9PZl8FAAAACmN1cnJlbnRLZXkFAAAADG5ld0E0QUFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAABVUb3RhbF9Mb2NrX0Jsb2Nrc19PZl8FAAAACmN1cnJlbnRLZXkFAAAAD3RvdGFsbG9ja2Jsb2NrcwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAICAAAAD0xvY2tfU3RhdHVzX09mXwUAAAAKY3VycmVudEtleQUAAAAKbG9ja3N0YXR1cwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAAAtSZXdhcmRzX09mXwUAAAAKY3VycmVudEtleQkAAGsAAAADCQAAawAAAAMFAAAABVRpZXIxCAUAAAADcG10AAAABmFtb3VudAkAAGwAAAAGAAAAAAAAAAAKAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAABQAAAAJVUAUAAAAMYWN0dWFsYmxvY2tzCQAAbAAAAAYAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAFAAAAAlVQBQAAAANuaWwDCQAAZwAAAAIFAAAABFVMU1QIBQAAAANwbXQAAAAGYW1vdW50CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgIAAAAIVGllcl9PZl8FAAAACmN1cnJlbnRLZXkCAAAABlNJTFZFUgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAABJEZXBvc2l0X2hlaWdodF9PZl8FAAAACmN1cnJlbnRLZXkFAAAABmhlaWdodAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANU3Rha2VkX0Ftb3VudAUAAAASbmV3U3Rha2VkQTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAEkRlcG9zaXRfQW1vdW50X09mXwUAAAAKY3VycmVudEtleQUAAAAMbmV3QTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAFVRvdGFsX0xvY2tfQmxvY2tzX09mXwUAAAAKY3VycmVudEtleQUAAAAPdG90YWxsb2NrYmxvY2tzCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTG9ja19TdGF0dXNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAApsb2Nrc3RhdHVzCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAC1Jld2FyZHNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAAxUaWVyMXJld2FyZHMFAAAAA25pbAMJAABnAAAAAgUAAAAEVUxHVAgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACAgAAAAhUaWVyX09mXwUAAAAKY3VycmVudEtleQIAAAAER09MRAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAABJEZXBvc2l0X2hlaWdodF9PZl8FAAAACmN1cnJlbnRLZXkFAAAABmhlaWdodAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANU3Rha2VkX0Ftb3VudAUAAAASbmV3U3Rha2VkQTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAEkRlcG9zaXRfQW1vdW50X09mXwUAAAAKY3VycmVudEtleQUAAAAMbmV3QTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAFVRvdGFsX0xvY2tfQmxvY2tzX09mXwUAAAAKY3VycmVudEtleQUAAAAPdG90YWxsb2NrYmxvY2tzCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTG9ja19TdGF0dXNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAApsb2Nrc3RhdHVzCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAC1Jld2FyZHNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAAxUaWVyMnJld2FyZHMFAAAAA25pbAMJAAAAAAAAAgUAAAAEVUxEVAgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACAgAAAAhUaWVyX09mXwUAAAAKY3VycmVudEtleQIAAAAHRElBTU9ORAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkAASwAAAACAgAAABJEZXBvc2l0X2hlaWdodF9PZl8FAAAACmN1cnJlbnRLZXkFAAAABmhlaWdodAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANU3Rha2VkX0Ftb3VudAUAAAASbmV3U3Rha2VkQTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAEkRlcG9zaXRfQW1vdW50X09mXwUAAAAKY3VycmVudEtleQUAAAAMbmV3QTRBQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAFVRvdGFsX0xvY2tfQmxvY2tzX09mXwUAAAAKY3VycmVudEtleQUAAAAPdG90YWxsb2NrYmxvY2tzCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTG9ja19TdGF0dXNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAApsb2Nrc3RhdHVzCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAC1Jld2FyZHNfT2ZfBQAAAApjdXJyZW50S2V5BQAAAAxUaWVyM3Jld2FyZHMFAAAAA25pbAkAAAIAAAABAgAAAChQbGVhc2UgQ2hvb3NlIGEgUmFuZ2UgQmV0d2VlbiAzMzMtMTIwMDAuAAAAAWkBAAAACFdpdGhkcmF3AAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAABFjaGVja2RlcG9zaXR2YWx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwkAASwAAAACAgAAABJEZXBvc2l0X0Ftb3VudF9PZl8FAAAACmN1cnJlbnRLZXkEAAAAEGNoZWNrc3Rha2VkdmFsdWUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADVN0YWtlZF9BbW91bnQEAAAADm5ld3N0YWtlZHZhbHVlCQAAZQAAAAIFAAAAEGNoZWNrc3Rha2VkdmFsdWUFAAAAEWNoZWNrZGVwb3NpdHZhbHVlBAAAAA9mZXRjaFJld2FyZERhdGEJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAE1RvdGFsX1VTRFRfQ2xhaW1lZDoEAAAAEnRvdGFscmV3YXJkY2xhaW1lZAkAAGQAAAACBQAAAA9mZXRjaFJld2FyZERhdGEJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAALUmV3YXJkc19PZl8FAAAACmN1cnJlbnRLZXkDCQAAZgAAAAIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAAVVG90YWxfTG9ja19CbG9ja3NfT2ZfBQAAAApjdXJyZW50S2V5BQAAAAZoZWlnaHQJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAFWW91ciAJAAGkAAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwkAASwAAAACAgAAABJEZXBvc2l0X0Ftb3VudF9PZl8FAAAACmN1cnJlbnRLZXkCAAAAYiBBNEEgYXJlIFVuZGVyIExvY2suIENvbnNpZGVyIGxhc3QgOCBkaWdpdHMgYXMgdmFsdWUgYWZ0ZXIgRGVjaW1hbHMuIFRva2VuIHdpbGwgYmUgVW5sb2NrZWQgYWZ0ZXIgCQABpAAAAAEJAABlAAAAAgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwkAASwAAAACAgAAABVUb3RhbF9Mb2NrX0Jsb2Nrc19PZl8FAAAACmN1cnJlbnRLZXkFAAAABmhlaWdodAMJAAAAAAAAAgUAAAARY2hlY2tkZXBvc2l0dmFsdWUAAAAAAAAAAAAJAAACAAAAAQIAAAAmWW91IEhhdmUgQWxyZWFkeSBXaXRoZHJhdyB5b3VyIEFtb3VudC4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzCQABLAAAAAICAAAAEkRlcG9zaXRfQW1vdW50X09mXwUAAAAKY3VycmVudEtleQUAAAAKQTRBQXNzZXRJRAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAALUmV3YXJkc19PZl8FAAAACmN1cnJlbnRLZXkFAAAAC1VTRFRBc3NldElECQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAEkRlcG9zaXRfaGVpZ2h0X09mXwUAAAAKY3VycmVudEtleQAAAAAAAAAAAAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANU3Rha2VkX0Ftb3VudAUAAAAObmV3c3Rha2VkdmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAEsAAAAAgIAAAASRGVwb3NpdF9BbW91bnRfT2ZfBQAAAApjdXJyZW50S2V5AAAAAAAAAAAACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAFVRvdGFsX0xvY2tfQmxvY2tzX09mXwUAAAAKY3VycmVudEtleQAAAAAAAAAAAAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQABLAAAAAICAAAAD0xvY2tfU3RhdHVzX09mXwUAAAAKY3VycmVudEtleQIAAAAGVU5MT0NLCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQABLAAAAAICAAAAC1Jld2FyZHNfT2ZfBQAAAApjdXJyZW50S2V5AAAAAAAAAAAACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABNUb3RhbF9VU0RUX0NsYWltZWQ6BQAAABJ0b3RhbHJld2FyZGNsYWltZWQFAAAAA25pbAAAAAFpAQAAAAtEZXBvc2l0VVNEVAAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABAgAAADxObyBwYXltZW50IGF0dGFjaGVkLCBQbGVhc2UgQXR0YWNoIFVTRFQgVG9rZW4gaW4gcGF5bWVudFsxXS4EAAAADWNhbGxlcmFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANVVNEVGRlcG9zaXRvcgkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwIAAAAPRnVuZGluZ19BZGRyZXNzBAAAAA9mZXRjaG9sZFVTRFRiYWwJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADFVTRFRfQmFsYW5jZQQAAAAKb2xkVVNEVGJhbAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAxVU0RUX0JhbGFuY2UDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAKbmV3VVNEVGJhbAkAAGQAAAACBQAAAApvbGRVU0RUYmFsCAUAAAADcG10AAAABmFtb3VudAMJAQAAAAIhPQAAAAIFAAAADVVTRFRkZXBvc2l0b3IFAAAADWNhbGxlcmFkZHJlc3MJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAIkkga25vdyBZb3UgYXJlIG5vdCBBbiBBZG1pbi4gT25seSAFAAAADVVTRFRkZXBvc2l0b3ICAAAAHiBoYXMgcmlnaHRzIHRvIGFkZCBVU0RUIEZ1bmRzLgMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAALVVNEVEFzc2V0SUQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAGUtpbmRseSBEZXBvc2l0IE9ubHkgVVNEVCAJAAJYAAAAAQUAAAALVVNEVEFzc2V0SUQCAAAACSBBc3NldElELgMJAABmAAAAAgAAAAAAAA9CQAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAAqQXR0YWNoIG1pbmltdW0gMSBVU0RUIGF0bGVhc3QgRm9yIFBheW1lbnQuCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAxVU0RUX0JhbGFuY2UFAAAACm5ld1VTRFRiYWwFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5c5KdlA==",
    "height": 1718849,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5XPxCVjSDJVEHPcGT4tr45XgFyTBE9Koizj3XjxopDD2
Next: CckP8cH8gouUf5rXHetp8ZUBZkhEUoWmBhpAbWRaeqfy

Diff: 
Old New Differences
68 68      let Tier1rewards = fraction(fraction((Tier1 * 2), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
69 69      let Tier2rewards = fraction(fraction((Tier1 * 4), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
70 70      let Tier3rewards = fraction(fraction((Tier1 * 8), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
71 +     let StakedA4AAmount =     match getInteger(this, "Staked_Amount") {
72 +         case a: Int => 
73 +             a
74 +         case _ => 
75 +             0
76 +     }
77 +     let newStakedA4AAmount = (StakedA4AAmount + pmt.amount)
71 78      let currentA4AAmount =     match getInteger(this, ("Deposit_Amount_Of_" + currentKey)) {
72 79          case a: Int => 
73 80              a
84 91                  else if ((33300000000 > pmt.amount))
85 92                      then throw("Please Attach minimum 333 A4A To Achieve BRONZE TIER.")
86 93                      else if ((ULBT >= pmt.amount))
87 -                         then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
94 +                         then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
88 95                          else if ((ULST >= pmt.amount))
89 -                             then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
96 +                             then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
90 97                              else if ((ULGT >= pmt.amount))
91 -                                 then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
98 +                                 then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
92 99                                  else if ((ULDT == pmt.amount))
93 -                                     then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
100 +                                     then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
94 101                                      else throw("Please Choose a Range Between 333-12000.")
95 102      }
96 103  
100 107  func Withdraw () = {
101 108      let currentKey = toBase58String(i.caller.bytes)
102 109      let checkdepositvalue = getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey))
110 +     let checkstakedvalue = getIntegerValue(this, "Staked_Amount")
111 +     let newstakedvalue = (checkstakedvalue - checkdepositvalue)
103 112      let fetchRewardData = getIntegerValue(this, "Total_USDT_Claimed:")
104 113      let totalrewardclaimed = (fetchRewardData + getIntegerValue(this, ("Rewards_Of_" + currentKey)))
105 114      if ((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) > height))
106 115          then throw(((("Your " + toString(getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)))) + " A4A are Under Lock. Consider last 8 digits as value after Decimals. Token will be Unlocked after ") + toString((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) - height))))
107 116          else if ((checkdepositvalue == 0))
108 117              then throw("You Have Already Withdraw your Amount.")
109 -             else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
118 +             else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry("Staked_Amount", newstakedvalue), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
110 119      }
111 120  
112 121  
131 140          else if ((pmt.assetId != USDTAssetID))
132 141              then throw((("Kindly Deposit Only USDT " + toBase58String(USDTAssetID)) + " AssetID."))
133 142              else if ((1000000 > pmt.amount))
134 -                 then throw("Attach minimum 1$ atleast For Payment.")
143 +                 then throw("Attach minimum 1 USDT atleast For Payment.")
135 144                  else [IntegerEntry("USDT_Balance", newUSDTbal)]
136 145      }
137 146  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let A4AAssetID = base58'J9VzWPfRSQyCbEv5oWpxLSihigbpbJsGBHJZV9Ct8ook'
5 5  
6 6  let USDTAssetID = base58'Zn3cLHW7aAVPm5aACcTjvg7e7iEy2cKDtbowok5qa9H'
7 7  
8 8  @Callable(i)
9 9  func IssueA4A () = {
10 10      let pmt = value(i.payments[0])
11 11      let currentKey = toBase58String(i.caller.bytes)
12 12      let PricePerA4A = getIntegerValue(this, "A4A/TN")
13 13      let NewA4AToUser = fraction(100000, pmt.amount, PricePerA4A)
14 14      let PreviousIssuedA4A = getIntegerValue(this, "Total_Issued_A4A:")
15 15      let TotalIssuedA4A = (PreviousIssuedA4A + NewA4AToUser)
16 16      let PreviousA4AReserveValue = getIntegerValue(this, "Total_A4A_Reserve_In_TN:")
17 17      let A4AReserveValue = (PreviousA4AReserveValue + pmt.amount)
18 18      let PreviousA4ABackupPrice = getIntegerValue(this, "A4A_Backup_Value_In_TN:")
19 19      let A4ABackupPrice = fraction(100000, A4AReserveValue, TotalIssuedA4A)
20 20      let FeeAddress = base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR'
21 21      if (isDefined(pmt.assetId))
22 22          then throw("Incorrect asset attached, please attach TN.")
23 23          else if ((5000000 > pmt.amount))
24 24              then throw("Please Attach minimum 0.05 TN To Issue A4A Asset.")
25 25              else [IntegerEntry("Total_Issued_A4A:", TotalIssuedA4A), IntegerEntry("Total_A4A_Reserve_In_TN:", A4AReserveValue), IntegerEntry("A4A_Backup_Value_In_TN:", A4ABackupPrice), StringEntry("message", "<h1>A4A Issued Successfully!</h1><br>"), Reissue(A4AAssetID, NewA4AToUser, true), ScriptTransfer(i.caller, ((NewA4AToUser * 99) / 100), A4AAssetID), ScriptTransfer(addressFromPublicKey(FeeAddress), ((NewA4AToUser * 1) / 100), A4AAssetID)]
26 26      }
27 27  
28 28  
29 29  
30 30  @Callable(i)
31 31  func Liquidate () = {
32 32      let currentKey = toBase58String(i.callerPublicKey)
33 33      let pmt = value(i.payments[0])
34 34      let PreviousIssuedA4A = getIntegerValue(this, "Total_Issued_A4A:")
35 35      let PreviousBurnedA4A = getIntegerValue(this, "Total_Burned_A4A:")
36 36      let TotalIssuedA4A = (PreviousIssuedA4A - pmt.amount)
37 37      let TotalBurnedA4A = (PreviousBurnedA4A + pmt.amount)
38 38      let PreviousA4AReserveValue = getIntegerValue(this, "Total_A4A_Reserve_In_TN:")
39 39      let PreviousA4ABackupPrice = getIntegerValue(this, "A4A_Backup_Value_In_TN:")
40 40      let calculateburnvalue = fraction(PreviousA4ABackupPrice, pmt.amount, 100000)
41 41      let A4AReserveValue = (PreviousA4AReserveValue - calculateburnvalue)
42 42      let A4ABackupPrice = fraction(100000, A4AReserveValue, TotalIssuedA4A)
43 43      if ((pmt.assetId != A4AAssetID))
44 44          then throw("Kindly Deposit Only 8hdsVCxPBVEmVUZyyX8Sd98Z9hU7Fny26W96sjKiTw8g (A4A).")
45 45          else if ((100000 > pmt.amount))
46 46              then throw("Attach Amount must be greater than 0.001 A4A.")
47 47              else [Burn(A4AAssetID, pmt.amount), IntegerEntry("Total_Issued_A4A:", TotalIssuedA4A), IntegerEntry("Total_Burned_A4A:", TotalBurnedA4A), IntegerEntry("Total_A4A_Reserve_In_TN:", A4AReserveValue), IntegerEntry("A4A_Backup_Value_In_TN:", A4ABackupPrice), StringEntry("message", "<h1>A4A Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
48 48      }
49 49  
50 50  
51 51  
52 52  @Callable(i)
53 53  func Deposit (days) = {
54 54      let pmt = if ((size(i.payments) == 1))
55 55          then i.payments[0]
56 56          else throw("No payment attached, Please Attach A4A Token as per TIER in payment[1].")
57 57      let currentKey = toBase58String(i.caller.bytes)
58 58      let maximumlockdays = 90
59 59      let lockstatus = "LOCKED"
60 60      let ULBT = 99999999999
61 61      let ULST = 599999999999
62 62      let ULGT = 1199999999999
63 63      let ULDT = 1200000000000
64 64      let oneday = 1440
65 65      let actualblocks = (oneday * days)
66 66      let totallockblocks = (height + actualblocks)
67 67      let Tier1 = 36000
68 68      let Tier1rewards = fraction(fraction((Tier1 * 2), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
69 69      let Tier2rewards = fraction(fraction((Tier1 * 4), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
70 70      let Tier3rewards = fraction(fraction((Tier1 * 8), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
71 +     let StakedA4AAmount =     match getInteger(this, "Staked_Amount") {
72 +         case a: Int => 
73 +             a
74 +         case _ => 
75 +             0
76 +     }
77 +     let newStakedA4AAmount = (StakedA4AAmount + pmt.amount)
71 78      let currentA4AAmount =     match getInteger(this, ("Deposit_Amount_Of_" + currentKey)) {
72 79          case a: Int => 
73 80              a
74 81          case _ => 
75 82              0
76 83      }
77 84      let newA4AAmount = (currentA4AAmount + pmt.amount)
78 85      if ((pmt.assetId != A4AAssetID))
79 86          then throw((("Incorrect asset attached, please attach " + toBase58String(A4AAssetID)) + " only."))
80 87          else if ((6 >= days))
81 88              then throw("Choose Locking days in between 7 to 90.")
82 89              else if ((days > maximumlockdays))
83 90                  then throw("You Entered days greater than 90 please Enter no. of days in between 7 to 90.")
84 91                  else if ((33300000000 > pmt.amount))
85 92                      then throw("Please Attach minimum 333 A4A To Achieve BRONZE TIER.")
86 93                      else if ((ULBT >= pmt.amount))
87 -                         then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
94 +                         then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
88 95                          else if ((ULST >= pmt.amount))
89 -                             then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
96 +                             then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
90 97                              else if ((ULGT >= pmt.amount))
91 -                                 then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
98 +                                 then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
92 99                                  else if ((ULDT == pmt.amount))
93 -                                     then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
100 +                                     then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
94 101                                      else throw("Please Choose a Range Between 333-12000.")
95 102      }
96 103  
97 104  
98 105  
99 106  @Callable(i)
100 107  func Withdraw () = {
101 108      let currentKey = toBase58String(i.caller.bytes)
102 109      let checkdepositvalue = getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey))
110 +     let checkstakedvalue = getIntegerValue(this, "Staked_Amount")
111 +     let newstakedvalue = (checkstakedvalue - checkdepositvalue)
103 112      let fetchRewardData = getIntegerValue(this, "Total_USDT_Claimed:")
104 113      let totalrewardclaimed = (fetchRewardData + getIntegerValue(this, ("Rewards_Of_" + currentKey)))
105 114      if ((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) > height))
106 115          then throw(((("Your " + toString(getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)))) + " A4A are Under Lock. Consider last 8 digits as value after Decimals. Token will be Unlocked after ") + toString((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) - height))))
107 116          else if ((checkdepositvalue == 0))
108 117              then throw("You Have Already Withdraw your Amount.")
109 -             else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
118 +             else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry("Staked_Amount", newstakedvalue), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
110 119      }
111 120  
112 121  
113 122  
114 123  @Callable(i)
115 124  func DepositUSDT () = {
116 125      let pmt = if ((size(i.payments) == 1))
117 126          then i.payments[0]
118 127          else throw("No payment attached, Please Attach USDT Token in payment[1].")
119 128      let calleraddress = toBase58String(i.caller.bytes)
120 129      let USDTdepositor = getStringValue(this, "Funding_Address")
121 130      let fetcholdUSDTbal = getIntegerValue(this, "USDT_Balance")
122 131      let oldUSDTbal =     match getInteger(this, "USDT_Balance") {
123 132          case a: Int => 
124 133              a
125 134          case _ => 
126 135              0
127 136      }
128 137      let newUSDTbal = (oldUSDTbal + pmt.amount)
129 138      if ((USDTdepositor != calleraddress))
130 139          then throw((("I know You are not An Admin. Only " + USDTdepositor) + " has rights to add USDT Funds."))
131 140          else if ((pmt.assetId != USDTAssetID))
132 141              then throw((("Kindly Deposit Only USDT " + toBase58String(USDTAssetID)) + " AssetID."))
133 142              else if ((1000000 > pmt.amount))
134 -                 then throw("Attach minimum 1$ atleast For Payment.")
143 +                 then throw("Attach minimum 1 USDT atleast For Payment.")
135 144                  else [IntegerEntry("USDT_Balance", newUSDTbal)]
136 145      }
137 146  
138 147  
139 148  @Verifier(tx)
140 149  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
141 150

Old	New		Differences
68	68		let Tier1rewards = fraction(fraction((Tier1 * 2), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
69	69		let Tier2rewards = fraction(fraction((Tier1 * 4), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
70	70		let Tier3rewards = fraction(fraction((Tier1 * 8), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
	71	+	let StakedA4AAmount = match getInteger(this, "Staked_Amount") {
	72	+	case a: Int =>
	73	+	a
	74	+	case _ =>
	75	+	0
	76	+	}
	77	+	let newStakedA4AAmount = (StakedA4AAmount + pmt.amount)
71	78		let currentA4AAmount = match getInteger(this, ("Deposit_Amount_Of_" + currentKey)) {
72	79		case a: Int =>
73	80		a

84	91		else if ((33300000000 > pmt.amount))
85	92		then throw("Please Attach minimum 333 A4A To Achieve BRONZE TIER.")
86	93		else if ((ULBT >= pmt.amount))
87		-	then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
	94	+	then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
88	95		else if ((ULST >= pmt.amount))
89		-	then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
	96	+	then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
90	97		else if ((ULGT >= pmt.amount))
91		-	then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
	98	+	then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
92	99		else if ((ULDT == pmt.amount))
93		-	then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
	100	+	then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
94	101		else throw("Please Choose a Range Between 333-12000.")
95	102		}
96	103

100	107		func Withdraw () = {
101	108		let currentKey = toBase58String(i.caller.bytes)
102	109		let checkdepositvalue = getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey))
	110	+	let checkstakedvalue = getIntegerValue(this, "Staked_Amount")
	111	+	let newstakedvalue = (checkstakedvalue - checkdepositvalue)
103	112		let fetchRewardData = getIntegerValue(this, "Total_USDT_Claimed:")
104	113		let totalrewardclaimed = (fetchRewardData + getIntegerValue(this, ("Rewards_Of_" + currentKey)))
105	114		if ((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) > height))
106	115		then throw(((("Your " + toString(getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)))) + " A4A are Under Lock. Consider last 8 digits as value after Decimals. Token will be Unlocked after ") + toString((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) - height))))
107	116		else if ((checkdepositvalue == 0))
108	117		then throw("You Have Already Withdraw your Amount.")
109		-	else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
	118	+	else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry("Staked_Amount", newstakedvalue), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
110	119		}
111	120
112	121

131	140		else if ((pmt.assetId != USDTAssetID))
132	141		then throw((("Kindly Deposit Only USDT " + toBase58String(USDTAssetID)) + " AssetID."))
133	142		else if ((1000000 > pmt.amount))
134		-	then throw("Attach minimum 1$ atleast For Payment.")
	143	+	then throw("Attach minimum 1 USDT atleast For Payment.")
135	144		else [IntegerEntry("USDT_Balance", newUSDTbal)]
136	145		}
137	146

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let A4AAssetID = base58'J9VzWPfRSQyCbEv5oWpxLSihigbpbJsGBHJZV9Ct8ook'
5	5
6	6		let USDTAssetID = base58'Zn3cLHW7aAVPm5aACcTjvg7e7iEy2cKDtbowok5qa9H'
7	7
8	8		@Callable(i)
9	9		func IssueA4A () = {
10	10		let pmt = value(i.payments[0])
11	11		let currentKey = toBase58String(i.caller.bytes)
12	12		let PricePerA4A = getIntegerValue(this, "A4A/TN")
13	13		let NewA4AToUser = fraction(100000, pmt.amount, PricePerA4A)
14	14		let PreviousIssuedA4A = getIntegerValue(this, "Total_Issued_A4A:")
15	15		let TotalIssuedA4A = (PreviousIssuedA4A + NewA4AToUser)
16	16		let PreviousA4AReserveValue = getIntegerValue(this, "Total_A4A_Reserve_In_TN:")
17	17		let A4AReserveValue = (PreviousA4AReserveValue + pmt.amount)
18	18		let PreviousA4ABackupPrice = getIntegerValue(this, "A4A_Backup_Value_In_TN:")
19	19		let A4ABackupPrice = fraction(100000, A4AReserveValue, TotalIssuedA4A)
20	20		let FeeAddress = base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR'
21	21		if (isDefined(pmt.assetId))
22	22		then throw("Incorrect asset attached, please attach TN.")
23	23		else if ((5000000 > pmt.amount))
24	24		then throw("Please Attach minimum 0.05 TN To Issue A4A Asset.")
25	25		else [IntegerEntry("Total_Issued_A4A:", TotalIssuedA4A), IntegerEntry("Total_A4A_Reserve_In_TN:", A4AReserveValue), IntegerEntry("A4A_Backup_Value_In_TN:", A4ABackupPrice), StringEntry("message", "<h1>A4A Issued Successfully!</h1><br>"), Reissue(A4AAssetID, NewA4AToUser, true), ScriptTransfer(i.caller, ((NewA4AToUser * 99) / 100), A4AAssetID), ScriptTransfer(addressFromPublicKey(FeeAddress), ((NewA4AToUser * 1) / 100), A4AAssetID)]
26	26		}
27	27
28	28
29	29
30	30		@Callable(i)
31	31		func Liquidate () = {
32	32		let currentKey = toBase58String(i.callerPublicKey)
33	33		let pmt = value(i.payments[0])
34	34		let PreviousIssuedA4A = getIntegerValue(this, "Total_Issued_A4A:")
35	35		let PreviousBurnedA4A = getIntegerValue(this, "Total_Burned_A4A:")
36	36		let TotalIssuedA4A = (PreviousIssuedA4A - pmt.amount)
37	37		let TotalBurnedA4A = (PreviousBurnedA4A + pmt.amount)
38	38		let PreviousA4AReserveValue = getIntegerValue(this, "Total_A4A_Reserve_In_TN:")
39	39		let PreviousA4ABackupPrice = getIntegerValue(this, "A4A_Backup_Value_In_TN:")
40	40		let calculateburnvalue = fraction(PreviousA4ABackupPrice, pmt.amount, 100000)
41	41		let A4AReserveValue = (PreviousA4AReserveValue - calculateburnvalue)
42	42		let A4ABackupPrice = fraction(100000, A4AReserveValue, TotalIssuedA4A)
43	43		if ((pmt.assetId != A4AAssetID))
44	44		then throw("Kindly Deposit Only 8hdsVCxPBVEmVUZyyX8Sd98Z9hU7Fny26W96sjKiTw8g (A4A).")
45	45		else if ((100000 > pmt.amount))
46	46		then throw("Attach Amount must be greater than 0.001 A4A.")
47	47		else [Burn(A4AAssetID, pmt.amount), IntegerEntry("Total_Issued_A4A:", TotalIssuedA4A), IntegerEntry("Total_Burned_A4A:", TotalBurnedA4A), IntegerEntry("Total_A4A_Reserve_In_TN:", A4AReserveValue), IntegerEntry("A4A_Backup_Value_In_TN:", A4ABackupPrice), StringEntry("message", "<h1>A4A Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
48	48		}
49	49
50	50
51	51
52	52		@Callable(i)
53	53		func Deposit (days) = {
54	54		let pmt = if ((size(i.payments) == 1))
55	55		then i.payments[0]
56	56		else throw("No payment attached, Please Attach A4A Token as per TIER in payment[1].")
57	57		let currentKey = toBase58String(i.caller.bytes)
58	58		let maximumlockdays = 90
59	59		let lockstatus = "LOCKED"
60	60		let ULBT = 99999999999
61	61		let ULST = 599999999999
62	62		let ULGT = 1199999999999
63	63		let ULDT = 1200000000000
64	64		let oneday = 1440
65	65		let actualblocks = (oneday * days)
66	66		let totallockblocks = (height + actualblocks)
67	67		let Tier1 = 36000
68	68		let Tier1rewards = fraction(fraction((Tier1 * 2), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
69	69		let Tier2rewards = fraction(fraction((Tier1 * 4), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
70	70		let Tier3rewards = fraction(fraction((Tier1 * 8), pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP))
	71	+	let StakedA4AAmount = match getInteger(this, "Staked_Amount") {
	72	+	case a: Int =>
	73	+	a
	74	+	case _ =>
	75	+	0
	76	+	}
	77	+	let newStakedA4AAmount = (StakedA4AAmount + pmt.amount)
71	78		let currentA4AAmount = match getInteger(this, ("Deposit_Amount_Of_" + currentKey)) {
72	79		case a: Int =>
73	80		a
74	81		case _ =>
75	82		0
76	83		}
77	84		let newA4AAmount = (currentA4AAmount + pmt.amount)
78	85		if ((pmt.assetId != A4AAssetID))
79	86		then throw((("Incorrect asset attached, please attach " + toBase58String(A4AAssetID)) + " only."))
80	87		else if ((6 >= days))
81	88		then throw("Choose Locking days in between 7 to 90.")
82	89		else if ((days > maximumlockdays))
83	90		then throw("You Entered days greater than 90 please Enter no. of days in between 7 to 90.")
84	91		else if ((33300000000 > pmt.amount))
85	92		then throw("Please Attach minimum 333 A4A To Achieve BRONZE TIER.")
86	93		else if ((ULBT >= pmt.amount))
87		-	then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
	94	+	then [StringEntry(("Tier_Of_" + currentKey), "BRONZE"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), fraction(fraction(Tier1, pmt.amount, pow(10, 0, 8, 0, 0, UP)), actualblocks, pow(10, 0, 6, 0, 0, UP)))]
88	95		else if ((ULST >= pmt.amount))
89		-	then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
	96	+	then [StringEntry(("Tier_Of_" + currentKey), "SILVER"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier1rewards)]
90	97		else if ((ULGT >= pmt.amount))
91		-	then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
	98	+	then [StringEntry(("Tier_Of_" + currentKey), "GOLD"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier2rewards)]
92	99		else if ((ULDT == pmt.amount))
93		-	then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
	100	+	then [StringEntry(("Tier_Of_" + currentKey), "DIAMOND"), IntegerEntry(("Deposit_height_Of_" + currentKey), height), IntegerEntry("Staked_Amount", newStakedA4AAmount), IntegerEntry(("Deposit_Amount_Of_" + currentKey), newA4AAmount), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), totallockblocks), StringEntry(("Lock_Status_Of_" + currentKey), lockstatus), IntegerEntry(("Rewards_Of_" + currentKey), Tier3rewards)]
94	101		else throw("Please Choose a Range Between 333-12000.")
95	102		}
96	103
97	104
98	105
99	106		@Callable(i)
100	107		func Withdraw () = {
101	108		let currentKey = toBase58String(i.caller.bytes)
102	109		let checkdepositvalue = getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey))
	110	+	let checkstakedvalue = getIntegerValue(this, "Staked_Amount")
	111	+	let newstakedvalue = (checkstakedvalue - checkdepositvalue)
103	112		let fetchRewardData = getIntegerValue(this, "Total_USDT_Claimed:")
104	113		let totalrewardclaimed = (fetchRewardData + getIntegerValue(this, ("Rewards_Of_" + currentKey)))
105	114		if ((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) > height))
106	115		then throw(((("Your " + toString(getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)))) + " A4A are Under Lock. Consider last 8 digits as value after Decimals. Token will be Unlocked after ") + toString((getIntegerValue(this, ("Total_Lock_Blocks_Of_" + currentKey)) - height))))
107	116		else if ((checkdepositvalue == 0))
108	117		then throw("You Have Already Withdraw your Amount.")
109		-	else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
	118	+	else [ScriptTransfer(i.caller, getIntegerValue(this, ("Deposit_Amount_Of_" + currentKey)), A4AAssetID), ScriptTransfer(i.caller, getIntegerValue(this, ("Rewards_Of_" + currentKey)), USDTAssetID), IntegerEntry(("Deposit_height_Of_" + currentKey), 0), IntegerEntry("Staked_Amount", newstakedvalue), IntegerEntry(("Deposit_Amount_Of_" + currentKey), 0), IntegerEntry(("Total_Lock_Blocks_Of_" + currentKey), 0), StringEntry(("Lock_Status_Of_" + currentKey), "UNLOCK"), IntegerEntry(("Rewards_Of_" + currentKey), 0), IntegerEntry("Total_USDT_Claimed:", totalrewardclaimed)]
110	119		}
111	120
112	121
113	122
114	123		@Callable(i)
115	124		func DepositUSDT () = {
116	125		let pmt = if ((size(i.payments) == 1))
117	126		then i.payments[0]
118	127		else throw("No payment attached, Please Attach USDT Token in payment[1].")
119	128		let calleraddress = toBase58String(i.caller.bytes)
120	129		let USDTdepositor = getStringValue(this, "Funding_Address")
121	130		let fetcholdUSDTbal = getIntegerValue(this, "USDT_Balance")
122	131		let oldUSDTbal = match getInteger(this, "USDT_Balance") {
123	132		case a: Int =>
124	133		a
125	134		case _ =>
126	135		0
127	136		}
128	137		let newUSDTbal = (oldUSDTbal + pmt.amount)
129	138		if ((USDTdepositor != calleraddress))
130	139		then throw((("I know You are not An Admin. Only " + USDTdepositor) + " has rights to add USDT Funds."))
131	140		else if ((pmt.assetId != USDTAssetID))
132	141		then throw((("Kindly Deposit Only USDT " + toBase58String(USDTAssetID)) + " AssetID."))
133	142		else if ((1000000 > pmt.amount))
134		-	then throw("Attach minimum 1$ atleast For Payment.")
	143	+	then throw("Attach minimum 1 USDT atleast For Payment.")
135	144		else [IntegerEntry("USDT_Balance", newUSDTbal)]
136	145		}
137	146
138	147
139	148		@Verifier(tx)
140	149		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
141	150

github/deemru/w8io/873ac7e 
44.82 ms ◑