w8 · tx · 7Gr···Hc8

tx · 7GrrNFK6jn2GLyArjpwyNKuWnfGAe8tn1QiXqnBTuHc8

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.10.18 12:40 [1751550] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7GrrNFK6jn2GLyArjpwyNKuWnfGAe8tn1QiXqnBTuHc8",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1634550003460,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "4EHJwUbsh81ifj34NwkFESavBXQLSf8RGCqv71pHAELexXiyb1ZxGn9c12HNJ6S933aQDXw86dyxpqXNyfK2TVMn"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAADcAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAtjUM0AAAAAAMRmlyc3RGYXNlUXR5AAAAAAASl6yQAAAAAA1TZWNvbmRGYXNlUXR5AAAAAACjnWBAAAAAAARiaXRzAAAAAAAAACcQAAAAAAN3dnMAAAAAAAAAJxAAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAAPoAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAAN1QlAAAAAAAAAAAAcAAAAAA3NCUAAAAAAAAAAAAgAAAAADZUlQAAAAAAAAAAABAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABRWZW5kZWRvciwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAAxnZXRLZXlJc3N1ZXIAAAABAAAABGl0ZW0CAAAADUlzc3Vlci9UaWVuZGEBAAAADmdldFZhbHVlSXNzdWVyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAAPZ2V0VmFsdWVQcm9qZWN0AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0BAAAACmdldEtleU5vZG8AAAABAAAABGl0ZW0CAAAABE5vZG8BAAAADGdldFZhbHVlTm9kbwAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAAAhVSSwgYml0OgEAAAAKZ2V0VmFsdWVVSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5UEkAAAABAAAABGl0ZW0CAAAACVBJLCB3dmxzOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5U0kAAAABAAAABGl0ZW0CAAAACFNJLCBiaXQ6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSWIAAAABAAAABGl0ZW0CAAAACU5JYiwgYml0OgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSXcAAAABAAAABGl0ZW0CAAAACk5Jdywgd3ZsczoBAAAAC2dldFZhbHVlTkl3AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5Tkl3AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAANFRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbywgeXRvazoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAbQmFsYW5jZS9TYWxkbyBHVFMsIHl0b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAHEluZ3Jlc29zIHBvciBWZW50YUdUUywgd3ZsczoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAAAAAwAAAAFpAQAAAAdkZXBvc2l0AAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAd5Qml0Q08yCQAAAgAAAAECAAAAKWRlcG9zaXRvIHBlcm1pdGlkbyBzb2xvIGVuIHlCaXRDTzIgdG9rZW5zBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAABxObyBoYXkgeUJpdENPMiBlbiBzdSBiYWxhbmNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAATRWwgUHJlY2lvIGVuIHdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJaXNzdWVyQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAAxnZXRLZXlJc3N1ZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABmlzc3VlcgQAAAAHcHJvakFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAEcEFkZAQAAAAHbm9kb0FkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAEZUFkZAQAAAALcHJlVG9rZW5RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAANU2Vjb25kRmFzZVF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAUAAAALdG90YWxBbW91bnQEAAAAA3BJdwkAAGkAAAACCQAAaAAAAAIFAAAAA3BJUAUAAAAIc3ViVG90YWwFAAAACXJlbGFjZGN0bwQAAAADZUl3CQAAaQAAAAIJAABoAAAAAgUAAAADZUlQBQAAAAhzdWJUb3RhbAUAAAAJcmVsYWNkY3RvBAAAAA1iY28ybWVub3NkY3RvCQAAaQAAAAIJAABoAAAAAgkAAGgAAAACCQAAZQAAAAIAAAAAAAAAAGQFAAAACGJpdGRzY3RvBQAAAAVldXJvdQUAAAAFYmNvMmUAAAAAAAAAJxAEAAAACXN1YlRvdGFsYgkAAGkAAAACCQAAaQAAAAIJAABoAAAAAgUAAAALdG90YWxBbW91bnQFAAAABXVzZG53AAAAAAAAAABkBQAAAA1iY28ybWVub3NkY3RvBAAAAAN1SWIJAABpAAAAAgkAAGgAAAACBQAAAAN1QlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANzSWIJAABpAAAAAgkAAGgAAAACBQAAAANzQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANlSWIJAABpAAAAAgkAAGgAAAACBQAAAANlQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAA1CYWxhbmNlVGllbmRhCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAAxnZXRLZXlJc3N1ZXIAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABlRpZW5kYQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABHVzZG4FAAAABXVzZG53CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAVldXJvdQUAAAAFZXVyb3UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAFkFwb3lvIEVjb2zDs2dpY28sIHd2bHMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACcxIEJpdC1DTzIgUHJlY2lvIE5vbWluYWwsIGV1cm9zIHggMTBlLTIFAAAABWJjbzJlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACoxIEJpdC1DTzIgUHJlY2lvIGNvbiBEZXNjdG8sIGV1cm9zIHggMTBlLTIFAAAADWJjbzJtZW5vc2RjdG8JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHlN1YlRvdGFsIGEgZGlzdHJpYnVpciwgYml0LWNvMgUAAAAJc3ViVG90YWxiCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAANwSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAlnZXRLZXlOSXcAAAABBQAAAARpdGVtBQAAAANlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAA3VJYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAADc0liCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAJZ2V0S2V5TkliAAAAAQUAAAAEaXRlbQUAAAADZUliCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYVHJhbnNhY2Npw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtQcmVUb2tlblF0eQUAAAALcHJlVG9rZW5RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1iYWxhbmNlVGllbmRhBQAAAA1CYWxhbmNlVGllbmRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGUAAAACBQAAAAtwcmVUb2tlblF0eQkAAGkAAAACBQAAAA1CYWxhbmNlVGllbmRhAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAA3BJdwUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAA3VJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAA3NJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlSXcFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUliBQAAAAd5Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABJSZWlzc3VlVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgf6agy6",
    "height": 1751550,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2oThLmqUWQfUDEMEnx5nQCuUiD6cnW4dBB7qCwsDEkXs
Next: 3mKbbnXGGUDc1mMLarRf9DLPSQrUMN7cchvDqFzxoVio

Diff: 
Old New Differences
27 27  
28 28  let usdnw = 2539
29 29  
30 - let bco2e = 10
30 + let bco2e = 1000
31 31  
32 32  let bitdscto = 3
33 33  
239 239                  then throw("Payment Amount can't be less than item Purchase Order")
240 240                  else if ((pmt.amount > totalAmount))
241 241                      then throw("Payment Amount can't be higher than item Purchase Order")
242 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros", bco2menosdcto), DataEntry("SuTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x 10e-2", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros x 10e-2", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
243 243              }
244 244      }
245 245  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5 5  
6 6  let startQty = 3056930000
7 7  
8 8  let FirstFaseQty = 311930000
9 9  
10 10  let SecondFaseQty = 2745000000
11 11  
12 12  let bits = 10000
13 13  
14 14  let wvs = 10000
15 15  
16 16  let NONE = "none"
17 17  
18 18  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
19 19  
20 20  let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
21 21  
22 22  let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
23 23  
24 24  let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
25 25  
26 26  let eurou = 116
27 27  
28 28  let usdnw = 2539
29 29  
30 - let bco2e = 10
30 + let bco2e = 1000
31 31  
32 32  let bitdscto = 3
33 33  
34 34  let pIP = 10
35 35  
36 36  let uBP = 7
37 37  
38 38  let sBP = 2
39 39  
40 40  let eIP = 1
41 41  
42 42  let eBP = 2
43 43  
44 44  let relacdcto = 11
45 45  
46 46  func getNumberByKey (key) = {
47 47      let num =     match getInteger(this, key) {
48 48          case a: Int => 
49 49              a
50 50          case _ => 
51 51              0
52 52      }
53 53      num
54 54      }
55 55  
56 56  
57 57  func getStrByKey (key) = {
58 58      let str =     match getString(this, key) {
59 59          case a: String => 
60 60              a
61 61          case _ => 
62 62              NONE
63 63      }
64 64      str
65 65      }
66 66  
67 67  
68 68  func getKeyItemSupplier (supplier) = (supplier + "Vendedor, Lima-Perú")
69 69  
70 70  
71 71  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
72 72  
73 73  
74 74  func getKeyIssuer (item) = "Issuer/Tienda"
75 75  
76 76  
77 77  func getValueIssuer (item) = getStrByKey(getKeyIssuer(item))
78 78  
79 79  
80 80  func getKeyProject (item) = "Project"
81 81  
82 82  
83 83  func getValueProject (item) = getStrByKey(getKeyProject(item))
84 84  
85 85  
86 86  func getKeyNodo (item) = "Nodo"
87 87  
88 88  
89 89  func getValueNodo (item) = getStrByKey(getKeyNodo(item))
90 90  
91 91  
92 92  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
93 93  
94 94  
95 95  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
96 96  
97 97  
98 98  func getKeyItemName (item) = "Categoría del Producto:"
99 99  
100 100  
101 101  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
102 102  
103 103  
104 104  func getKeyUserName (item) = "Nombre del Usuario:"
105 105  
106 106  
107 107  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
108 108  
109 109  
110 110  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
111 111  
112 112  
113 113  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
114 114  
115 115  
116 116  func getKeyUI (item) = "UI, bit:"
117 117  
118 118  
119 119  func getValueUI (item) = getNumberByKey(getKeyUI(item))
120 120  
121 121  
122 122  func getKeyPI (item) = "PI, wvls:"
123 123  
124 124  
125 125  func getValuePI (item) = getNumberByKey(getKeyPI(item))
126 126  
127 127  
128 128  func getKeySI (item) = "SI, bit:"
129 129  
130 130  
131 131  func getValueSI (item) = getNumberByKey(getKeySI(item))
132 132  
133 133  
134 134  func getKeyNIb (item) = "NIb, bit:"
135 135  
136 136  
137 137  func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
138 138  
139 139  
140 140  func getKeyNIw (item) = "NIw, wvls:"
141 141  
142 142  
143 143  func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
144 144  
145 145  
146 146  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
147 147  
148 148  
149 149  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
150 150  
151 151  
152 152  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
153 153  
154 154  
155 155  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
156 156  
157 157  
158 158  func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
159 159  
160 160  
161 161  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
162 162  
163 163  
164 164  @Callable(i)
165 165  func deposit (title,supplierData) = {
166 166      let pmt = extract(i.payment)
167 167      if ((pmt.assetId != yBitCO2))
168 168          then throw("deposito permitido solo en yBitCO2 tokens")
169 169          else {
170 170              let supplier = toBase58String(i.caller.bytes)
171 171              let currentAmount =             match getInteger(this, supplier) {
172 172                  case a: Int => 
173 173                      a
174 174                  case _ => 
175 175                      startQty
176 176              }
177 177              let newAmount = (currentAmount + pmt.amount)
178 178              if ((0 >= newAmount))
179 179                  then throw("No hay yBitCO2 en su balance")
180 180                  else WriteSet([DataEntry(supplier, newAmount)])
181 181              }
182 182      }
183 183  
184 184  
185 185  
186 186  @Callable(i)
187 187  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
188 188      let pmt = extract(i.payment)
189 189      if (isDefined(pmt.assetId))
190 190          then throw("El Precio en waves.")
191 191          else {
192 192              let supplier =             match getString(this, getKeyItemSupplier(item)) {
193 193                  case a: String => 
194 194                      a
195 195                  case _ => 
196 196                      NONE
197 197              }
198 198              let issuerAdd =             match getString(this, getKeyIssuer(item)) {
199 199                  case a: String => 
200 200                      a
201 201                  case _ => 
202 202                      issuer
203 203              }
204 204              let projAdd =             match getString(this, getKeyProject(item)) {
205 205                  case a: String => 
206 206                      a
207 207                  case _ => 
208 208                      pAdd
209 209              }
210 210              let nodoAdd =             match getString(this, getKeyNodo(item)) {
211 211                  case a: String => 
212 212                      a
213 213                  case _ => 
214 214                      eAdd
215 215              }
216 216              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
217 217                  case a: Int => 
218 218                      a
219 219                  case _ => 
220 220                      SecondFaseQty
221 221              }
222 222              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
223 223                  case a: Int => 
224 224                      a
225 225                  case _ => 
226 226                      0
227 227              }
228 228              let userAddress = toBase58String(i.caller.bytes)
229 229              let subTotal = totalAmount
230 230              let pIw = ((pIP * subTotal) / relacdcto)
231 231              let eIw = ((eIP * subTotal) / relacdcto)
232 232              let bco2menosdcto = ((((100 - bitdscto) * eurou) * bco2e) / 10000)
233 233              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
234 234              let uIb = ((uBP * subTotalb) / relacdcto)
235 235              let sIb = ((sBP * subTotalb) / relacdcto)
236 236              let eIb = ((eBP * subTotalb) / relacdcto)
237 237              let BalanceTienda = (balanceSupplier + pmt.amount)
238 238              if ((totalAmount > pmt.amount))
239 239                  then throw("Payment Amount can't be less than item Purchase Order")
240 240                  else if ((pmt.amount > totalAmount))
241 241                      then throw("Payment Amount can't be higher than item Purchase Order")
242 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros", bco2menosdcto), DataEntry("SuTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x 10e-2", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros x 10e-2", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
243 243              }
244 244      }
245 245  
246 246  
247 247  
248 248  @Callable(i)
249 249  func withdraw (item,amount) = {
250 250      let userAddress = toBase58String(i.caller.bytes)
251 251      let supplier =     match getString(this, getKeyItemSupplier(item)) {
252 252          case a: String => 
253 253              a
254 254          case _ => 
255 255              NONE
256 256      }
257 257      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
258 258          case a: Int => 
259 259              a
260 260          case _ => 
261 261              startQty
262 262      }
263 263      let newAmount = (preIcoQty - amount)
264 264      if ((0 > amount))
265 265          then throw("El balance de retiro no puede ser negativo!")
266 266          else if ((0 >= newAmount))
267 267              then throw("Ooppss.. Insuficiente balance!")
268 268              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
269 269      }
270 270  
271 271  
272 272  @Verifier(tx)
273 273  func verify () = match tx {
274 274      case t: SetScriptTransaction => 
275 275          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
276 276      case d: ReissueTransaction|DataTransaction => 
277 277          true
278 278      case tx: TransferTransaction => 
279 279          true
280 280      case _ => 
281 281          false
282 282  }
283 283

Old	New		Differences
27	27
28	28		let usdnw = 2539
29	29
30		-	let bco2e = 10
	30	+	let bco2e = 1000
31	31
32	32		let bitdscto = 3
33	33

239	239		then throw("Payment Amount can't be less than item Purchase Order")
240	240		else if ((pmt.amount > totalAmount))
241	241		then throw("Payment Amount can't be higher than item Purchase Order")
242		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros", bco2menosdcto), DataEntry("~~SuTotal~~ a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x 10e-2", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros x 10e-2", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
243	243		}
244	244		}
245	245

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5	5
6	6		let startQty = 3056930000
7	7
8	8		let FirstFaseQty = 311930000
9	9
10	10		let SecondFaseQty = 2745000000
11	11
12	12		let bits = 10000
13	13
14	14		let wvs = 10000
15	15
16	16		let NONE = "none"
17	17
18	18		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
19	19
20	20		let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
21	21
22	22		let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
23	23
24	24		let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
25	25
26	26		let eurou = 116
27	27
28	28		let usdnw = 2539
29	29
30		-	let bco2e = 10
	30	+	let bco2e = 1000
31	31
32	32		let bitdscto = 3
33	33
34	34		let pIP = 10
35	35
36	36		let uBP = 7
37	37
38	38		let sBP = 2
39	39
40	40		let eIP = 1
41	41
42	42		let eBP = 2
43	43
44	44		let relacdcto = 11
45	45
46	46		func getNumberByKey (key) = {
47	47		let num = match getInteger(this, key) {
48	48		case a: Int =>
49	49		a
50	50		case _ =>
51	51		0
52	52		}
53	53		num
54	54		}
55	55
56	56
57	57		func getStrByKey (key) = {
58	58		let str = match getString(this, key) {
59	59		case a: String =>
60	60		a
61	61		case _ =>
62	62		NONE
63	63		}
64	64		str
65	65		}
66	66
67	67
68	68		func getKeyItemSupplier (supplier) = (supplier + "Vendedor, Lima-Perú")
69	69
70	70
71	71		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
72	72
73	73
74	74		func getKeyIssuer (item) = "Issuer/Tienda"
75	75
76	76
77	77		func getValueIssuer (item) = getStrByKey(getKeyIssuer(item))
78	78
79	79
80	80		func getKeyProject (item) = "Project"
81	81
82	82
83	83		func getValueProject (item) = getStrByKey(getKeyProject(item))
84	84
85	85
86	86		func getKeyNodo (item) = "Nodo"
87	87
88	88
89	89		func getValueNodo (item) = getStrByKey(getKeyNodo(item))
90	90
91	91
92	92		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
93	93
94	94
95	95		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
96	96
97	97
98	98		func getKeyItemName (item) = "Categoría del Producto:"
99	99
100	100
101	101		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
102	102
103	103
104	104		func getKeyUserName (item) = "Nombre del Usuario:"
105	105
106	106
107	107		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
108	108
109	109
110	110		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
111	111
112	112
113	113		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
114	114
115	115
116	116		func getKeyUI (item) = "UI, bit:"
117	117
118	118
119	119		func getValueUI (item) = getNumberByKey(getKeyUI(item))
120	120
121	121
122	122		func getKeyPI (item) = "PI, wvls:"
123	123
124	124
125	125		func getValuePI (item) = getNumberByKey(getKeyPI(item))
126	126
127	127
128	128		func getKeySI (item) = "SI, bit:"
129	129
130	130
131	131		func getValueSI (item) = getNumberByKey(getKeySI(item))
132	132
133	133
134	134		func getKeyNIb (item) = "NIb, bit:"
135	135
136	136
137	137		func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
138	138
139	139
140	140		func getKeyNIw (item) = "NIw, wvls:"
141	141
142	142
143	143		func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
144	144
145	145
146	146		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
147	147
148	148
149	149		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
150	150
151	151
152	152		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
153	153
154	154
155	155		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
156	156
157	157
158	158		func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
159	159
160	160
161	161		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
162	162
163	163
164	164		@Callable(i)
165	165		func deposit (title,supplierData) = {
166	166		let pmt = extract(i.payment)
167	167		if ((pmt.assetId != yBitCO2))
168	168		then throw("deposito permitido solo en yBitCO2 tokens")
169	169		else {
170	170		let supplier = toBase58String(i.caller.bytes)
171	171		let currentAmount = match getInteger(this, supplier) {
172	172		case a: Int =>
173	173		a
174	174		case _ =>
175	175		startQty
176	176		}
177	177		let newAmount = (currentAmount + pmt.amount)
178	178		if ((0 >= newAmount))
179	179		then throw("No hay yBitCO2 en su balance")
180	180		else WriteSet([DataEntry(supplier, newAmount)])
181	181		}
182	182		}
183	183
184	184
185	185
186	186		@Callable(i)
187	187		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
188	188		let pmt = extract(i.payment)
189	189		if (isDefined(pmt.assetId))
190	190		then throw("El Precio en waves.")
191	191		else {
192	192		let supplier = match getString(this, getKeyItemSupplier(item)) {
193	193		case a: String =>
194	194		a
195	195		case _ =>
196	196		NONE
197	197		}
198	198		let issuerAdd = match getString(this, getKeyIssuer(item)) {
199	199		case a: String =>
200	200		a
201	201		case _ =>
202	202		issuer
203	203		}
204	204		let projAdd = match getString(this, getKeyProject(item)) {
205	205		case a: String =>
206	206		a
207	207		case _ =>
208	208		pAdd
209	209		}
210	210		let nodoAdd = match getString(this, getKeyNodo(item)) {
211	211		case a: String =>
212	212		a
213	213		case _ =>
214	214		eAdd
215	215		}
216	216		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
217	217		case a: Int =>
218	218		a
219	219		case _ =>
220	220		SecondFaseQty
221	221		}
222	222		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
223	223		case a: Int =>
224	224		a
225	225		case _ =>
226	226		0
227	227		}
228	228		let userAddress = toBase58String(i.caller.bytes)
229	229		let subTotal = totalAmount
230	230		let pIw = ((pIP * subTotal) / relacdcto)
231	231		let eIw = ((eIP * subTotal) / relacdcto)
232	232		let bco2menosdcto = ((((100 - bitdscto) * eurou) * bco2e) / 10000)
233	233		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
234	234		let uIb = ((uBP * subTotalb) / relacdcto)
235	235		let sIb = ((sBP * subTotalb) / relacdcto)
236	236		let eIb = ((eBP * subTotalb) / relacdcto)
237	237		let BalanceTienda = (balanceSupplier + pmt.amount)
238	238		if ((totalAmount > pmt.amount))
239	239		then throw("Payment Amount can't be less than item Purchase Order")
240	240		else if ((pmt.amount > totalAmount))
241	241		then throw("Payment Amount can't be higher than item Purchase Order")
242		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros", bco2menosdcto), DataEntry("~~SuTotal~~ a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x 10e-2", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, euros x 10e-2", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2", subTotalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
243	243		}
244	244		}
245	245
246	246
247	247
248	248		@Callable(i)
249	249		func withdraw (item,amount) = {
250	250		let userAddress = toBase58String(i.caller.bytes)
251	251		let supplier = match getString(this, getKeyItemSupplier(item)) {
252	252		case a: String =>
253	253		a
254	254		case _ =>
255	255		NONE
256	256		}
257	257		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
258	258		case a: Int =>
259	259		a
260	260		case _ =>
261	261		startQty
262	262		}
263	263		let newAmount = (preIcoQty - amount)
264	264		if ((0 > amount))
265	265		then throw("El balance de retiro no puede ser negativo!")
266	266		else if ((0 >= newAmount))
267	267		then throw("Ooppss.. Insuficiente balance!")
268	268		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
269	269		}
270	270
271	271
272	272		@Verifier(tx)
273	273		func verify () = match tx {
274	274		case t: SetScriptTransaction =>
275	275		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
276	276		case d: ReissueTransaction\|DataTransaction =>
277	277		true
278	278		case tx: TransferTransaction =>
279	279		true
280	280		case _ =>
281	281		false
282	282		}
283	283

github/deemru/w8io/169f3d6 
57.32 ms ◑