w8 · tx · B17···rf3

tx · B17Eqcv8JMFhnYcBHsNAQDR6yqWfkWARKNa1f9WjFrf3

3MqV7nczBawUF4nLJ3MikS43jHMYaVHF8UA:  -0.01300000 Waves

2022.08.08 17:33 [2175602] smart account 3MqV7nczBawUF4nLJ3MikS43jHMYaVHF8UA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B17Eqcv8JMFhnYcBHsNAQDR6yqWfkWARKNa1f9WjFrf3",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1659969279003,
    "version": 2,
    "chainId": 84,
    "sender": "3MqV7nczBawUF4nLJ3MikS43jHMYaVHF8UA",
    "senderPublicKey": "Fng6v4kqm1P6h6xF9hCvumcEKbjAKgpoiwaYa7VEkDoU",
    "proofs": [
        "4bCNx9YAmrmqKd8HH8grBxyZyso5wXKJoSnjmBcY7122XfC8eJV8w6yY4Bd5cFThwBBn8iTAtdpWpYjssUWtQfJh"
    ],
    "script": "base64:AAIFAAAAAAAAAAwIAhIICgYICAgBAQEAAAAxAAAAAAZCaXRDTzIBAAAAIMUi0QAOPWzHrrHgLgYvt6byvqBTCBHKATKU5thr4LIYAAAAAA1zdGFydFRvdGFsUXR5AAAAAAAABKodAAAAAAxGaXJzdEZhc2VRdHkAAAAAAAAAedkAAAAADVNlY29uZEZhc2VRdHkAAAAAAAAEMEQAAAAAA3d2cwAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAAFZXVyb3UAAAAAAAAAAGYAAAAABXVzZG53AAAAAAAAAAJqAAAAAAViY28yZQAAAAAAAAAACgAAAAASYWRtTjA4R1RTYXNvYzExVzkwCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFU+i7AyYrRaVtmoLjDmy4+7UHs4qzGX19uAAAAABRhZG1OMDhFQ0dUU2Fzb2MxMVcxMAkBAAAAB0FkZHJlc3MAAAABAQAAABoBVDanr/iFPErnvzy2ts6SNOnfE9/sP2Z7cwAAAAASQWRtTjA4R1RTYXNvYzExVzkwAgAAACMzTkNpdmlMYnNEMW1NMlJnUVZERm9hRU1ZeTE1UWJySHdCMwAAAAAUQWRtTjA4RUNHVFNhc29jMTFXMTACAAAAIzNNdHU1OVFMZkhrSkJxUlJDdVJMOUs4S21FclIxSlFlZ2NyAAAAAA1Bc29jUHJlc3RlYzAxAgAAACMzTjg2RDJFN3BTRkQ3ZkpCQjFxa2NHTThTb1I2clpwRnc5bwAAAAANQXNvY1ByZXN0ZWMwMgIAAAAjM04yakh0Z1NWQ3RXNmpkZG1RdWVyTjdOU25YalIzS2NFZmcBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAVZ2V0S2V5UHJvamVjdENhdGVnb3J5AAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm95ZWN0bzoBAAAAF2dldFZhbHVlUHJvamVjdENhdGVnb3J5AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAVZ2V0S2V5UHJvamVjdENhdGVnb3J5AAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkAASwAAAACBQAAAAhzdXBwbGllcgIAAAAjQ29tdW5pZGFkIEFjaHVhciBLYXBhd2kgZGVsIEVjdWFkb3IBAAAAEWdldEtleVByb2plY3ROYW1lAAAAAQAAAARpdGVtAgAAABROb21icmUgZGVsIFByb3llY3RvOgEAAAATZ2V0VmFsdWVQcm9qZWN0TmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVByb2plY3ROYW1lAAAAAQUAAAAEaXRlbQEAAAAUZ2V0S2V5UHJvamVjdENvdW50cnkAAAABAAAABGl0ZW0CAAAAE1Bhw61zIHwgVWJpY2FjacOzbjoBAAAAFmdldFZhbHVlUHJvamVjdENvdW50cnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABRnZXRLZXlQcm9qZWN0Q291bnRyeQAAAAEFAAAABGl0ZW0BAAAAEWdldEtleVByb2plY3RDb2RlAAAAAQAAAARpdGVtAgAAAAhDw7NkaWdvOgEAAAATZ2V0VmFsdWVQcm9qZWN0Q29kZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVByb2plY3RDb2RlAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5UHJvamVjdFByb3BpZXRhcnkAAAABAAAABGl0ZW0CAAAAKFByb3BpZXRhcmlvIHwgQmVuZWZpY2lhcmlvIGRlbCBQcm95ZWN0bzoBAAAAGWdldFZhbHVlUHJvamVjdFByb3BpZXRhcnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABdnZXRLZXlQcm9qZWN0UHJvcGlldGFyeQAAAAEFAAAABGl0ZW0BAAAAEGdldEtleVByb2plY3REZXYAAAABAAAACHN1cHBsaWVyAgAAACJEZXNhcnJvbGxhZG9yIHwgUmVzcG9uc2FibGUgTGVnYWw6AQAAABJnZXRWYWx1ZVByb2plY3REZXYAAAABAAAACHN1cHBsaWVyCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAQZ2V0S2V5UHJvamVjdERldgAAAAEFAAAACHN1cHBsaWVyAQAAABNnZXRLZXlOb21Ub2tlblByaWNlAAAAAQAAAARpdGVtAgAAABpQcmVjaW8gTm9taW5hbCwgMSBCaXQtQ08yOgEAAAAYZ2V0S2V5RGVzY3VlbnRvNlRva1ByaWNlAAAAAQAAAARpdGVtAgAAACZQcmVjaW8gZGUgMSBCaXQtQ08yIGNvbiBkc2N0byBlbGVqaWRvOgEAAAAaZ2V0VmFsdWVEZXNjdWVudG82VG9rUHJpY2UAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlEZXNjdWVudG82VG9rUHJpY2UAAAABBQAAAARpdGVtAQAAABJnZXRLZXlGaXJzdEZhc2VRdHkAAAABAAAABGl0ZW0CAAAALUNhbnRpZGFkIGRlIFRva2VucyBPZmVydGFkb3MgZW4gbGEgRjEgUHJlSUNPOgEAAAAUZ2V0VmFsdWVGaXJzdEZhc2VRdHkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlGaXJzdEZhc2VRdHkAAAABBQAAAARpdGVtAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQIAAAAiVG90YWwgZGUgVG9rZW5zIFJlYWxpemFkb3MsIFByZUlDTwEAAAAfZ2V0VmFsdWVTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAA6Rm9uZG9zIHBhcmEgUHJveWVjdG9zIFZlcmRlcyBOYXR1cmFsZXMsIEFzb2NpYWRvcyBCaXQtQ08yOgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtAgAAAApPcmRlcl/ihJY6AQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQAAAARpdGVtAgAAADFEb2N1bWVudG8gTmFjaW9uYWwgZGUgSWRlbnRpZGFkLCBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQAAAARpdGVtAgAAACBQYcOtcyBkZSBSZXNpZGVuY2lhIGRlbCBVc3VhcmlvOgEAAAATZ2V0VmFsdWVVc2VyQ291bnRyeQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQUAAAAEaXRlbQEAAAATZ2V0S2V5RGlzY291bnQ2VXNlcgAAAAEAAAAEaXRlbQIAAAAjUG9yY2VudGFqZSBkZSBkZXNjdWVudG8gZWxlamlkbywgJToBAAAAFWdldFZhbHVlRGlzY291bnQ2VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAE2dldEtleURpc2NvdW50NlVzZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAAB5DYW50aWRhZCBkZSB0b2tlbnMgYWRxdWlyaWRvczoBAAAAGGdldFZhbHVlSXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtAAAAAQAAAAFpAQAAAA5wdXJjaGFzZUFzb2MxMQAAAAYAAAAEaXRlbQAAAAx1c2VyRG9jdW1lbnQAAAALdXNlckNvdW50cnkAAAAMdXNlckRpc2NvdW50AAAACG9yZGVyUXR5AAAAC3RvdGFsQW1vdW50BAAAAANwbXQDCQAAAAAAAAIJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAJAAACAAAAAQIAAAAZU2UgcmVxdWllcmUgcGFnbyBhZGp1bnRvLgMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAABMVWQuIHNvbG8gcHVlZGUgYWRxdWlyaXIgYml0LWNvMiB1c2FuZG8gV2F2ZXNLZWVwZXIgeSBzdSB0b2tlbiBkZSBwYWdvIFdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzAwMDAwkBAAAAAiE9AAAAAgUAAAALdXNlckFkZHJlc3MFAAAAEkFkbU4wOEdUU2Fzb2MxMVc5MAkBAAAAAiE9AAAAAgUAAAALdXNlckFkZHJlc3MFAAAAFEFkbU4wOEVDR1RTYXNvYzExVzEwBwkBAAAAAiE9AAAAAgUAAAALdXNlckFkZHJlc3MFAAAADUFzb2NQcmVzdGVjMDEHCQEAAAACIT0AAAACBQAAAAt1c2VyQWRkcmVzcwUAAAANQXNvY1ByZXN0ZWMwMgcJAAACAAAAAQIAAABERGlzY3VscGUsIFN1IGN1ZW50YSBubyB0aWVuZSBkZXJlY2hvIGRlIEFzb2NpYWRvIEJpdC1DTzIgYSBQcm95ZWN0b3MEAAAAEWN1cnJlbnRUb2tlblByaWNlCQAAaQAAAAIJAABpAAAAAgkAAGgAAAACCQAAaAAAAAIJAABoAAAAAgkAAGUAAAACAAAAAAAAAABkBQAAAAx1c2VyRGlzY291bnQFAAAABWJjbzJlBQAAAAVldXJvdQUAAAADd3ZzAAAAAAAAAABkBQAAAAV1c2RudwQAAAAVZjFQak9mZXJ0YUFzb2NHVFM5WDEwCQAAZAAAAAIJAABpAAAAAgkAAGgAAAACAAAAAAAAAAAJBQAAAAxGaXJzdEZhc2VRdHkAAAAAAAAAAAoAAAAAAAAAAAEEAAAAHGYxUGpTdGFydEFkbUZvbmRzQXNvY0dUUzFYMTAJAABpAAAAAgkAAGgAAAACAAAAAAAAAAABBQAAAAxGaXJzdEZhc2VRdHkAAAAAAAAAAAoDCQAAZwAAAAIAAAAAAAAAAAAJAABlAAAAAgkAAGUAAAACBQAAAA1zdGFydFRvdGFsUXR5BQAAAAlwcmVJY29RdHkFAAAACG9yZGVyUXR5CQAAAgAAAAECAAAARExvIHNlbnRpbW9zLCBwb3IgYWhvcmEgbm8gaGF5IG9mZXJ0YSBkZSB0b2tlbnMgcGFyYSBzdSB0cmFuc2FjY2nDs24uAwkAAGYAAAACBQAAAAt0b3RhbEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAABLRWwgbW9udG8gZGVsIHBhZ28gbm8gcHVlZGUgc2VyIGluZmVyaW9yIGEgbGEgb3JkZW4gZGUgY29tcHJhIGRlbCBhcnTDrWN1bG8uAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAABKRWwgbW9udG8gZGVsIHBhZ28gbm8gcHVlZGUgc2VyIG1heW9yIHF1ZSBsYSBvcmRlbiBkZSBjb21wcmEgZGVsIGFydMOtY3Vsby4JAAUUAAAAAgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAVZ2V0S2V5UHJvamVjdENhdGVnb3J5AAAAAQUAAAAEaXRlbQIAAAAWQ29uc2VydmFjacOzbiBGb3Jlc3RhbAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAARZ2V0S2V5UHJvamVjdE5hbWUAAAABBQAAAARpdGVtAgAAACBSZXNlcnZhIEFtYXrDs25pY2EgQWNodWFyLUthcGF3aQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAUZ2V0S2V5UHJvamVjdENvdW50cnkAAAABBQAAAARpdGVtAgAAAAdFY3VhZG9yCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABFnZXRLZXlQcm9qZWN0Q29kZQAAAAEFAAAABGl0ZW0CAAAAHE4wOEVDLTAxX0FDSC1LQVBBV0lfUFJFSUNPRjEJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAF2dldEtleVByb2plY3RQcm9waWV0YXJ5AAAAAQUAAAAEaXRlbQIAAAAXQ29tdW5pZGFkIEFjaHVhciBLYXBhd2kJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEGdldEtleVByb2plY3REZXYAAAABBQAAAAhzdXBwbGllcgIAAAAqRnVuZGFjacOzbiBBbGlhbnphIEVjb2zDs2dpY2EgTkFTRUUgJ0ZBRU4nCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABNnZXRLZXlOb21Ub2tlblByaWNlAAAAAQUAAAAEaXRlbQIAAAALMTAuMDAgRXVyb3MJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAL3Rva2VucyBCaXQtQ08yIGVtaXRpZG9zIGVuIEYxL0YyIFByZUlDTywgdG90YWwgBQAAAA1zdGFydFRvdGFsUXR5CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAACp0b2tlbnMgQml0LUNPMiBlbiBvZmVydGEgRjEgUHJlSUNPLCB1bmlkcyAFAAAADEZpcnN0RmFzZVF0eQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAtdG9rZW5zIEJpdC1DTzIgZW4gb2ZlcnRhL0ludGVyY2FtYmlvLCA5MCUgRjEgBQAAABVmMVBqT2ZlcnRhQXNvY0dUUzlYMTAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAALnRva2VucyBCaXQtQ08yIGRlIEFwb3lvIEFkbWluLUluaWNpYWwsIDEwJSBGMSAFAAAAHGYxUGpTdGFydEFkbUZvbmRzQXNvY0dUUzFYMTAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAKnRva2VucyBCaXQtQ08yIGVuIG9mZXJ0YSBGMiBQcmVJQ08sIHVuaWRzIAUAAAANU2Vjb25kRmFzZVF0eQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtCQAAZAAAAAIJAQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtAAAAAAAAAAABCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0FAAAAC3VzZXJDb3VudHJ5CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtBQAAAAx1c2VyRG9jdW1lbnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABNnZXRLZXlEaXNjb3VudDZVc2VyAAAAAQUAAAAEaXRlbQUAAAAMdXNlckRpc2NvdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAYZ2V0S2V5RGVzY3VlbnRvNlRva1ByaWNlAAAAAQUAAAAEaXRlbQUAAAARY3VycmVudFRva2VuUHJpY2UJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAcRXN0YWRvIGRlIHN1IHBlZGlkbywgdG9rZW5zIAIAAAAawqFBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAIlN1bWEgdHJhbnNtaXRpZGEgYSBsYSBQcmVJQ08sIHd2bHMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQAAZAAAAAIJAQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAJVNhbGRvIGRlIEJpdC1DTzIgZW4gb2ZlcnRhIEYxIFByZUlDTyAJAABlAAAAAgkAAGUAAAACBQAAAAxGaXJzdEZhc2VRdHkJAQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAJFNhbGRvIFRvdGFsIGRlIEJpdC1DTzIgZW4gRjEgUHJlSUNPIAkAAGUAAAACCQAAZQAAAAIFAAAADXN0YXJ0VG90YWxRdHkJAQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAJFNhbGRvIFRvdGFsIGRlIEJpdC1DTzIgZW4gRjIgUHJlSUNPIAUAAAANU2Vjb25kRmFzZVF0eQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIJAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAt1c2VyQWRkcmVzcwkAAGgAAAACAAAAAAAAACcQBQAAAAhvcmRlclF0eQUAAAAGQml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEmFkbU4wOEdUU2Fzb2MxMVc5MAkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAFoIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAABkBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAFGFkbU4wOEVDR1RTYXNvYzExVzEwCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAACggFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAAAAGQFAAAABHVuaXQFAAAAA25pbAUAAAAEdW5pdAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAJAAJZAAAAAQIAAAAsRm5nNnY0a3FtMVA2aDZ4RjloQ3Z1bWNFS2JqQUtncG9pd2FZYTdWRWtEb1UHvKAoTw==",
    "height": 2175602,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5rCXf9HPV76xKwEm4CoRKEUo66cwaTLU5hxNLMBoJ6sc
Next: DTaHZRZrQKmQcdgP5Jc3DyCz8CqBLXt1EgG1Keh7qoLY

Diff: 
Old New Differences
13 13  
14 14  let NONE = "none"
15 15  
16 - let eurou = 101
16 + let eurou = 102
17 17  
18 - let usdnw = 577
18 + let usdnw = 618
19 19  
20 20  let bco2e = 10
21 21  
194 194                              then throw("El monto del pago no puede ser inferior a la orden de compra del artículo.")
195 195                              else if ((pmt.amount > totalAmount))
196 196                                  then throw("El monto del pago no puede ser mayor que la orden de compra del artículo.")
197 -                                 else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvs", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
197 +                                 else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvls", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
198 198                      }
199 199              }
200 200      }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let BitCO2 = base58'EGY7HCyeHiHiCiiYpqH1Dmd5E6nzbwrgsdX3FHx5kFWw'
5 5  
6 6  let startTotalQty = 305693
7 7  
8 8  let FirstFaseQty = 31193
9 9  
10 10  let SecondFaseQty = 274500
11 11  
12 12  let wvs = 100000000
13 13  
14 14  let NONE = "none"
15 15  
16 - let eurou = 101
16 + let eurou = 102
17 17  
18 - let usdnw = 577
18 + let usdnw = 618
19 19  
20 20  let bco2e = 10
21 21  
22 22  let admN08GTSasoc11W90 = Address(base58'3NCiviLbsD1mM2RgQVDFoaEMYy15QbrHwB3')
23 23  
24 24  let admN08ECGTSasoc11W10 = Address(base58'3Mtu59QLfHkJBqRRCuRL9K8KmErR1JQegcr')
25 25  
26 26  let AdmN08GTSasoc11W90 = "3NCiviLbsD1mM2RgQVDFoaEMYy15QbrHwB3"
27 27  
28 28  let AdmN08ECGTSasoc11W10 = "3Mtu59QLfHkJBqRRCuRL9K8KmErR1JQegcr"
29 29  
30 30  let AsocPrestec01 = "3N86D2E7pSFD7fJBB1qkcGM8SoR6rZpFw9o"
31 31  
32 32  let AsocPrestec02 = "3N2jHtgSVCtW6jddmQuerN7NSnXjR3KcEfg"
33 33  
34 34  func getNumberByKey (key) = {
35 35      let num =     match getInteger(this, key) {
36 36          case a: Int => 
37 37              a
38 38          case _ => 
39 39              0
40 40      }
41 41      num
42 42      }
43 43  
44 44  
45 45  func getStrByKey (key) = {
46 46      let str =     match getString(this, key) {
47 47          case a: String => 
48 48              a
49 49          case _ => 
50 50              NONE
51 51      }
52 52      str
53 53      }
54 54  
55 55  
56 56  func getKeyProjectCategory (item) = "Categoría del Proyecto:"
57 57  
58 58  
59 59  func getValueProjectCategory (item) = getStrByKey(getKeyProjectCategory(item))
60 60  
61 61  
62 62  func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")
63 63  
64 64  
65 65  func getKeyProjectName (item) = "Nombre del Proyecto:"
66 66  
67 67  
68 68  func getValueProjectName (item) = getStrByKey(getKeyProjectName(item))
69 69  
70 70  
71 71  func getKeyProjectCountry (item) = "País | Ubicación:"
72 72  
73 73  
74 74  func getValueProjectCountry (item) = getStrByKey(getKeyProjectCountry(item))
75 75  
76 76  
77 77  func getKeyProjectCode (item) = "Código:"
78 78  
79 79  
80 80  func getValueProjectCode (item) = getStrByKey(getKeyProjectCode(item))
81 81  
82 82  
83 83  func getKeyProjectPropietary (item) = "Propietario | Beneficiario del Proyecto:"
84 84  
85 85  
86 86  func getValueProjectPropietary (item) = getStrByKey(getKeyProjectPropietary(item))
87 87  
88 88  
89 89  func getKeyProjectDev (supplier) = "Desarrollador | Responsable Legal:"
90 90  
91 91  
92 92  func getValueProjectDev (supplier) = getStrByKey(getKeyProjectDev(supplier))
93 93  
94 94  
95 95  func getKeyNomTokenPrice (item) = "Precio Nominal, 1 Bit-CO2:"
96 96  
97 97  
98 98  func getKeyDescuento6TokPrice (item) = "Precio de 1 Bit-CO2 con dscto elejido:"
99 99  
100 100  
101 101  func getValueDescuento6TokPrice (item) = getNumberByKey(getKeyDescuento6TokPrice(item))
102 102  
103 103  
104 104  func getKeyFirstFaseQty (item) = "Cantidad de Tokens Ofertados en la F1 PreICO:"
105 105  
106 106  
107 107  func getValueFirstFaseQty (item) = getStrByKey(getKeyFirstFaseQty(item))
108 108  
109 109  
110 110  func getKeySaldoTokenQtyStartEtapa (item) = "Total de Tokens Realizados, PreICO"
111 111  
112 112  
113 113  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
114 114  
115 115  
116 116  func getKeyBalanceSupplier (supplier) = "Fondos para Proyectos Verdes Naturales, Asociados Bit-CO2:"
117 117  
118 118  
119 119  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
120 120  
121 121  
122 122  func getKeyUserItemCounter (user,item) = "Order_№:"
123 123  
124 124  
125 125  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
126 126  
127 127  
128 128  func getKeyUserDocument (item) = "Documento Nacional de Identidad, DNI del Usuario:"
129 129  
130 130  
131 131  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
132 132  
133 133  
134 134  func getKeyUserCountry (item) = "País de Residencia del Usuario:"
135 135  
136 136  
137 137  func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
138 138  
139 139  
140 140  func getKeyDiscount6User (item) = "Porcentaje de descuento elejido, %:"
141 141  
142 142  
143 143  func getValueDiscount6User (item) = getNumberByKey(getKeyDiscount6User(item))
144 144  
145 145  
146 146  func getKeyItemUserOrderQty (item) = "Cantidad de tokens adquiridos:"
147 147  
148 148  
149 149  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
150 150  
151 151  
152 152  @Callable(i)
153 153  func purchaseAsoc11 (item,userDocument,userCountry,userDiscount,orderQty,totalAmount) = {
154 154      let pmt = if ((size(i.payments) == 1))
155 155          then i.payments[0]
156 156          else throw("Se requiere pago adjunto.")
157 157      if (isDefined(pmt.assetId))
158 158          then throw("Ud. solo puede adquirir bit-co2 usando WavesKeeper y su token de pago Waves.")
159 159          else {
160 160              let supplier =             match getString(this, getKeyItemSupplier(item)) {
161 161                  case a: String => 
162 162                      a
163 163                  case _ => 
164 164                      NONE
165 165              }
166 166              let preIcoQty =             match getInteger(this, getKeySaldoTokenQtyStartEtapa(item)) {
167 167                  case a: Int => 
168 168                      a
169 169                  case _ => 
170 170                      0
171 171              }
172 172              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
173 173                  case a: Int => 
174 174                      a
175 175                  case _ => 
176 176                      0
177 177              }
178 178              let userAddress = toBase58String(i.caller.bytes)
179 179              if (if (if (if ((userAddress != AdmN08GTSasoc11W90))
180 180                  then (userAddress != AdmN08ECGTSasoc11W10)
181 181                  else false)
182 182                  then (userAddress != AsocPrestec01)
183 183                  else false)
184 184                  then (userAddress != AsocPrestec02)
185 185                  else false)
186 186                  then throw("Disculpe, Su cuenta no tiene derecho de Asociado Bit-CO2 a Proyectos")
187 187                  else {
188 188                      let currentTokenPrice = ((((((100 - userDiscount) * bco2e) * eurou) * wvs) / 100) / usdnw)
189 189                      let f1PjOfertaAsocGTS9X10 = (((9 * FirstFaseQty) / 10) + 1)
190 190                      let f1PjStartAdmFondsAsocGTS1X10 = ((1 * FirstFaseQty) / 10)
191 191                      if ((0 >= ((startTotalQty - preIcoQty) - orderQty)))
192 192                          then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción.")
193 193                          else if ((totalAmount > pmt.amount))
194 194                              then throw("El monto del pago no puede ser inferior a la orden de compra del artículo.")
195 195                              else if ((pmt.amount > totalAmount))
196 196                                  then throw("El monto del pago no puede ser mayor que la orden de compra del artículo.")
197 -                                 else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvs", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
197 +                                 else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvls", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
198 198                      }
199 199              }
200 200      }
201 201  
202 202  
203 203  @Verifier(tx)
204 204  func verify () = match tx {
205 205      case t: SetScriptTransaction => 
206 206          sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String("Fng6v4kqm1P6h6xF9hCvumcEKbjAKgpoiwaYa7VEkDoU"))
207 207      case _ => 
208 208          false
209 209  }
210 210

Old	New		Differences
13	13
14	14		let NONE = "none"
15	15
16		-	let eurou = ~~101~~
	16	+	let eurou = 102
17	17
18		-	let usdnw = ~~577~~
	18	+	let usdnw = 618
19	19
20	20		let bco2e = 10
21	21

194	194		then throw("El monto del pago no puede ser inferior a la orden de compra del artículo.")
195	195		else if ((pmt.amount > totalAmount))
196	196		then throw("El monto del pago no puede ser mayor que la orden de compra del artículo.")
197		-	else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, ~~wvs~~", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
	197	+	else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvls", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
198	198		}
199	199		}
200	200		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let BitCO2 = base58'EGY7HCyeHiHiCiiYpqH1Dmd5E6nzbwrgsdX3FHx5kFWw'
5	5
6	6		let startTotalQty = 305693
7	7
8	8		let FirstFaseQty = 31193
9	9
10	10		let SecondFaseQty = 274500
11	11
12	12		let wvs = 100000000
13	13
14	14		let NONE = "none"
15	15
16		-	let eurou = ~~101~~
	16	+	let eurou = 102
17	17
18		-	let usdnw = ~~577~~
	18	+	let usdnw = 618
19	19
20	20		let bco2e = 10
21	21
22	22		let admN08GTSasoc11W90 = Address(base58'3NCiviLbsD1mM2RgQVDFoaEMYy15QbrHwB3')
23	23
24	24		let admN08ECGTSasoc11W10 = Address(base58'3Mtu59QLfHkJBqRRCuRL9K8KmErR1JQegcr')
25	25
26	26		let AdmN08GTSasoc11W90 = "3NCiviLbsD1mM2RgQVDFoaEMYy15QbrHwB3"
27	27
28	28		let AdmN08ECGTSasoc11W10 = "3Mtu59QLfHkJBqRRCuRL9K8KmErR1JQegcr"
29	29
30	30		let AsocPrestec01 = "3N86D2E7pSFD7fJBB1qkcGM8SoR6rZpFw9o"
31	31
32	32		let AsocPrestec02 = "3N2jHtgSVCtW6jddmQuerN7NSnXjR3KcEfg"
33	33
34	34		func getNumberByKey (key) = {
35	35		let num = match getInteger(this, key) {
36	36		case a: Int =>
37	37		a
38	38		case _ =>
39	39		0
40	40		}
41	41		num
42	42		}
43	43
44	44
45	45		func getStrByKey (key) = {
46	46		let str = match getString(this, key) {
47	47		case a: String =>
48	48		a
49	49		case _ =>
50	50		NONE
51	51		}
52	52		str
53	53		}
54	54
55	55
56	56		func getKeyProjectCategory (item) = "Categoría del Proyecto:"
57	57
58	58
59	59		func getValueProjectCategory (item) = getStrByKey(getKeyProjectCategory(item))
60	60
61	61
62	62		func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")
63	63
64	64
65	65		func getKeyProjectName (item) = "Nombre del Proyecto:"
66	66
67	67
68	68		func getValueProjectName (item) = getStrByKey(getKeyProjectName(item))
69	69
70	70
71	71		func getKeyProjectCountry (item) = "País \| Ubicación:"
72	72
73	73
74	74		func getValueProjectCountry (item) = getStrByKey(getKeyProjectCountry(item))
75	75
76	76
77	77		func getKeyProjectCode (item) = "Código:"
78	78
79	79
80	80		func getValueProjectCode (item) = getStrByKey(getKeyProjectCode(item))
81	81
82	82
83	83		func getKeyProjectPropietary (item) = "Propietario \| Beneficiario del Proyecto:"
84	84
85	85
86	86		func getValueProjectPropietary (item) = getStrByKey(getKeyProjectPropietary(item))
87	87
88	88
89	89		func getKeyProjectDev (supplier) = "Desarrollador \| Responsable Legal:"
90	90
91	91
92	92		func getValueProjectDev (supplier) = getStrByKey(getKeyProjectDev(supplier))
93	93
94	94
95	95		func getKeyNomTokenPrice (item) = "Precio Nominal, 1 Bit-CO2:"
96	96
97	97
98	98		func getKeyDescuento6TokPrice (item) = "Precio de 1 Bit-CO2 con dscto elejido:"
99	99
100	100
101	101		func getValueDescuento6TokPrice (item) = getNumberByKey(getKeyDescuento6TokPrice(item))
102	102
103	103
104	104		func getKeyFirstFaseQty (item) = "Cantidad de Tokens Ofertados en la F1 PreICO:"
105	105
106	106
107	107		func getValueFirstFaseQty (item) = getStrByKey(getKeyFirstFaseQty(item))
108	108
109	109
110	110		func getKeySaldoTokenQtyStartEtapa (item) = "Total de Tokens Realizados, PreICO"
111	111
112	112
113	113		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
114	114
115	115
116	116		func getKeyBalanceSupplier (supplier) = "Fondos para Proyectos Verdes Naturales, Asociados Bit-CO2:"
117	117
118	118
119	119		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
120	120
121	121
122	122		func getKeyUserItemCounter (user,item) = "Order_№:"
123	123
124	124
125	125		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
126	126
127	127
128	128		func getKeyUserDocument (item) = "Documento Nacional de Identidad, DNI del Usuario:"
129	129
130	130
131	131		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
132	132
133	133
134	134		func getKeyUserCountry (item) = "País de Residencia del Usuario:"
135	135
136	136
137	137		func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
138	138
139	139
140	140		func getKeyDiscount6User (item) = "Porcentaje de descuento elejido, %:"
141	141
142	142
143	143		func getValueDiscount6User (item) = getNumberByKey(getKeyDiscount6User(item))
144	144
145	145
146	146		func getKeyItemUserOrderQty (item) = "Cantidad de tokens adquiridos:"
147	147
148	148
149	149		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
150	150
151	151
152	152		@Callable(i)
153	153		func purchaseAsoc11 (item,userDocument,userCountry,userDiscount,orderQty,totalAmount) = {
154	154		let pmt = if ((size(i.payments) == 1))
155	155		then i.payments[0]
156	156		else throw("Se requiere pago adjunto.")
157	157		if (isDefined(pmt.assetId))
158	158		then throw("Ud. solo puede adquirir bit-co2 usando WavesKeeper y su token de pago Waves.")
159	159		else {
160	160		let supplier = match getString(this, getKeyItemSupplier(item)) {
161	161		case a: String =>
162	162		a
163	163		case _ =>
164	164		NONE
165	165		}
166	166		let preIcoQty = match getInteger(this, getKeySaldoTokenQtyStartEtapa(item)) {
167	167		case a: Int =>
168	168		a
169	169		case _ =>
170	170		0
171	171		}
172	172		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
173	173		case a: Int =>
174	174		a
175	175		case _ =>
176	176		0
177	177		}
178	178		let userAddress = toBase58String(i.caller.bytes)
179	179		if (if (if (if ((userAddress != AdmN08GTSasoc11W90))
180	180		then (userAddress != AdmN08ECGTSasoc11W10)
181	181		else false)
182	182		then (userAddress != AsocPrestec01)
183	183		else false)
184	184		then (userAddress != AsocPrestec02)
185	185		else false)
186	186		then throw("Disculpe, Su cuenta no tiene derecho de Asociado Bit-CO2 a Proyectos")
187	187		else {
188	188		let currentTokenPrice = ((((((100 - userDiscount) * bco2e) * eurou) * wvs) / 100) / usdnw)
189	189		let f1PjOfertaAsocGTS9X10 = (((9 * FirstFaseQty) / 10) + 1)
190	190		let f1PjStartAdmFondsAsocGTS1X10 = ((1 * FirstFaseQty) / 10)
191	191		if ((0 >= ((startTotalQty - preIcoQty) - orderQty)))
192	192		then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción.")
193	193		else if ((totalAmount > pmt.amount))
194	194		then throw("El monto del pago no puede ser inferior a la orden de compra del artículo.")
195	195		else if ((pmt.amount > totalAmount))
196	196		then throw("El monto del pago no puede ser mayor que la orden de compra del artículo.")
197		-	else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, ~~wvs~~", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
	197	+	else $Tuple2([StringEntry(getKeyProjectCategory(item), "Conservación Forestal"), StringEntry(getKeyProjectName(item), "Reserva Amazónica Achuar-Kapawi"), StringEntry(getKeyProjectCountry(item), "Ecuador"), StringEntry(getKeyProjectCode(item), "N08EC-01_ACH-KAPAWI_PREICOF1"), StringEntry(getKeyProjectPropietary(item), "Comunidad Achuar Kapawi"), StringEntry(getKeyProjectDev(supplier), "Fundación Alianza Ecológica NASEE 'FAEN'"), StringEntry(getKeyNomTokenPrice(item), "10.00 Euros"), IntegerEntry("tokens Bit-CO2 emitidos en F1/F2 PreICO, total ", startTotalQty), IntegerEntry("tokens Bit-CO2 en oferta F1 PreICO, unids ", FirstFaseQty), IntegerEntry("tokens Bit-CO2 en oferta/Intercambio, 90% F1 ", f1PjOfertaAsocGTS9X10), IntegerEntry("tokens Bit-CO2 de Apoyo Admin-Inicial, 10% F1 ", f1PjStartAdmFondsAsocGTS1X10), IntegerEntry("tokens Bit-CO2 en oferta F2 PreICO, unids ", SecondFaseQty), IntegerEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), StringEntry(getKeyUserCountry(item), userCountry), StringEntry(getKeyUserDocument(item), userDocument), IntegerEntry(getKeyDiscount6User(item), userDiscount), IntegerEntry(getKeyDescuento6TokPrice(item), currentTokenPrice), StringEntry("Estado de su pedido, tokens ", "¡Adquisición Confirmada!"), IntegerEntry(getKeyItemUserOrderQty(item), orderQty), IntegerEntry("Suma transmitida a la PreICO, wvls", totalAmount), IntegerEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), IntegerEntry("Saldo de Bit-CO2 en oferta F1 PreICO ", ((FirstFaseQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F1 PreICO ", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), IntegerEntry("Saldo Total de Bit-CO2 en F2 PreICO ", SecondFaseQty), IntegerEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), ScriptTransfer(addressFromStringValue(userAddress), (10000 * orderQty), BitCO2), ScriptTransfer(admN08GTSasoc11W90, ((90 * pmt.amount) / 100), unit), ScriptTransfer(admN08ECGTSasoc11W10, ((10 * pmt.amount) / 100), unit)], unit)
198	198		}
199	199		}
200	200		}
201	201
202	202
203	203		@Verifier(tx)
204	204		func verify () = match tx {
205	205		case t: SetScriptTransaction =>
206	206		sigVerify(tx.bodyBytes, tx.proofs[0], fromBase58String("Fng6v4kqm1P6h6xF9hCvumcEKbjAKgpoiwaYa7VEkDoU"))
207	207		case _ =>
208	208		false
209	209		}
210	210

github/deemru/w8io/169f3d6 
53.48 ms ◑