w8 · tx · 4uv···ntc

tx · 4uvcpw36vpFqy7H5yvkm3YWLB4hmz9NMXEUJA2siGntc

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01400000 Waves

2020.08.27 23:55 [1151629] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4uvcpw36vpFqy7H5yvkm3YWLB4hmz9NMXEUJA2siGntc",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1598561728805,
    "version": 1,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "3qNceV8tJDA1tLsrBKtpn17Fn2xMJ4QxHa46S3Uu927ykwvAQfv9t1J5RHitFPXuKgh2x16G5XXABE3itRgvXYUr"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAAC0AAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAtjUM0AAAAAAMRmlyc3RGYXNlUXR5AAAAAAASl6yQAAAAAA1TZWNvbmRGYXNlUXR5AAAAAACjnWBAAAAAAAhub21QcmljZQAAAAAAAAAAAQAAAAADd3ZzAAAAAAAF9eEAAAAAABBzdXBwbGllckRpc2NvdW50AAAAAAAAAAAMAAAAAAROT05FAgAAAARub25lAAAAAAtPd25lclB1YktleQEAAAAgdiWBR/bYuTfu7hq3cysJa14Q3mfrzJBzirlSbXhIDw8AAAAABmlzc3VlcgkBAAAAB0FkZHJlc3MAAAABAQAAABoBVLGfyy1r0onBhV5KbTmujr+1cm+CidoWkwAAAAAEZUFkZAkBAAAAB0FkZHJlc3MAAAABAQAAABoBVJl9LDPuC4uFUEENum3we4/11P1VuB5sVwAAAAAEcEFkZAkBAAAAB0FkZHJlc3MAAAABAQAAABoBVEOlrjWInpptJ9aV0memID9lDjKQsHSkagAAAAADaWd2AAAAAAAAAAASAAAAAAVFdXJvVwAAAAAAAehIAAAAAAAHeWJpdGNvMgkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAAEFAAAABUV1cm9XAAAAAAAAACcQAAAAAAN1SVAAAAAAAAAAAAcAAAAAA3BJUAAAAAAAAAAACgAAAAADZUlQAAAAAAAAAAABAAAAAANzQlAAAAAAAAAAAAIAAAAAA2VCUAAAAAAAAAAAAgEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABhCaXQtQ08yIFNob3AsIExpbWEtUGVyw7oBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAA5Qcm9kdWN0by1HVFM6IAIAAAABIAkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0CAAAACk9yZGVyX+KEljoBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAR1c2VyBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEAAAAEaXRlbQIAAAAYQ2F0ZWdvcsOtYSBkZWwgUHJvZHVjdG86AQAAABBnZXRWYWx1ZUl0ZW1OYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEAAAAEaXRlbQIAAAATTm9tYnJlIGRlbCBVc3VhcmlvOgEAAAAQZ2V0VmFsdWVVc2VyTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQAAAARpdGVtAgAAACPihJYgZGUgRG9jdW1lbnRvIC8gRE5JIGRlbCBVc3VhcmlvOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQIAAAA0VG9rZW5zIE9mZXJ0YWRvcyBlbiBsYSBwcmVzZW50ZSBldGFwYSAvIFNhbGRvLCB5dG9rOgEAAAAfZ2V0VmFsdWVTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtAgAAABtCYWxhbmNlL1NhbGRvIEdUUywgeXRva2VuczoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAcSW5ncmVzb3MgcG9yIFZlbnRhR1RTLCB3dmxzOgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAAAlVSSxfd3ZsczoBAAAACmdldFZhbHVlVUkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVBJAAAAAQAAAARpdGVtAgAAAAlQSSxfd3ZsczoBAAAACmdldFZhbHVlUEkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVNJAAAAAQAAAARpdGVtAgAAAAlTSSxfd3ZsczoBAAAACmdldFZhbHVlU0kAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0AAAADAAAAAWkBAAAAB2RlcG9zaXQAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB3lCaXRDTzIJAAACAAAAAQIAAAApZGVwb3NpdG8gcGVybWl0aWRvIHNvbG8gZW4geUJpdENPMiB0b2tlbnMEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHE5vIGhheSB5Qml0Q08yIGVuIHN1IGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAUAAAAEaXRlbQAAAAhpdGVtTmFtZQAAAAh1c2VyTmFtZQAAAAx1c2VyRG9jdW1lbnQAAAALdG90YWxBbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABNFbCBQcmVjaW8gZW4gd2F2ZXMuBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAdwcm9qQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAARwQWRkBAAAAAdub2RvQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAARlQWRkBAAAAAtwcmVUb2tlblF0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAA1TZWNvbmRGYXNlUXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50CQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAAAAAAAAAAAZAQAAAADY1BCCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAAWAUAAAAHeWJpdGNvMgAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1QkkJAABoAAAAAgkAAGkAAAACBQAAAAJ1SQUAAAADY1BCAAAAAAAAAAABBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUJJCQAAaAAAAAIJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUJQCQAAaAAAAAIAAAAAAAAAAGQFAAAAA2NQQgAAAAAAAAAAAQQAAAACc0kJAABlAAAAAgkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAUAAAACcEkFAAAAAmVJBAAAAANzQkkJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANzQlAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BCAAAAAAAAAAABBAAAAApRVmVudGFzZ3RzCQAAaAAAAAIJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAAAAAAAAAAACwkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQAAAAAAAAAAAEDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAUUGF5bWVudF9hbW91bnQsX3d2bHMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZJbXAsICUFAAAAA2lndgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAKU1R0bCwgd3ZscwUAAAAIc3ViVG90YWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADENQIDEgQiwgd3ZscwkAAGgAAAACBQAAAANjUEIAAAAAAAAAJxAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAAnVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABJVQkksIDEwZS00IHliaXRjbzIFAAAAA3VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQUAAAACcEkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC0VjU3lzLCB3dmxzBQAAAAJlSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAURWNTeXMsIDEwZS00IHliaXRjbzIFAAAAA2VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAACc0kJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAElNCSSwgMTBlLTQgeWJpdGNvMgUAAAADc0JJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAARY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHFFwb3JWZW50YXNHVFMsIDEwZS00IHliaXRjbzIFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAADVNlY29uZEZhc2VRdHkJAABpAAAAAgUAAAAKUVZlbnRhc2d0cwAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAC3ByZVRva2VuUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGUAAAACBQAAAAtwcmVUb2tlblF0eQkAAGkAAAACBQAAAApRVmVudGFzZ3RzAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUJJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAAnBJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAAmVJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAA2VCSQUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAAnNJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAADc0JJBQAAAAd5Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwfGf1Sq",
    "chainId": 84,
    "height": 1151629,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9EGeZfG5yuHZ1tJbQ7cgGUB5htx2CbQPFJT1HnxJo323
Next: GjM9FT623krkSSbqwGXPHVNxKPEYgonLgQwW9RsGVGCr

Diff: 
Old New Differences
205 205                  then throw("Payment Amount can't be less than item Purchase Order")
206 206                  else if ((pmt.amount > totalAmount))
207 207                      then throw("Payment Amount can't be higher than item Purchase Order")
208 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
208 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "ción Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
209 209              }
210 210      }
211 211  
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 nomPrice = 1
13 13  
14 14  let wvs = 100000000
15 15  
16 16  let supplierDiscount = 12
17 17  
18 18  let NONE = "none"
19 19  
20 20  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
21 21  
22 22  let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
23 23  
24 24  let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
25 25  
26 26  let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
27 27  
28 28  let igv = 18
29 29  
30 30  let EuroW = 32000000
31 31  
32 32  let ybitco2 = ((1 * EuroW) / 10000)
33 33  
34 34  let uIP = 7
35 35  
36 36  let pIP = 10
37 37  
38 38  let eIP = 1
39 39  
40 40  let sBP = 2
41 41  
42 42  let eBP = 2
43 43  
44 44  func getNumberByKey (key) = {
45 45      let num =     match getInteger(this, key) {
46 46          case a: Int => 
47 47              a
48 48          case _ => 
49 49              0
50 50      }
51 51      num
52 52      }
53 53  
54 54  
55 55  func getStrByKey (key) = {
56 56      let str =     match getString(this, key) {
57 57          case a: String => 
58 58              a
59 59          case _ => 
60 60              NONE
61 61      }
62 62      str
63 63      }
64 64  
65 65  
66 66  func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
67 67  
68 68  
69 69  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
70 70  
71 71  
72 72  func getKeyProject (item) = "Project"
73 73  
74 74  
75 75  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
76 76  
77 77  
78 78  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
79 79  
80 80  
81 81  func getKeyItemName (item) = "Categoría del Producto:"
82 82  
83 83  
84 84  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
85 85  
86 86  
87 87  func getKeyUserName (item) = "Nombre del Usuario:"
88 88  
89 89  
90 90  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
91 91  
92 92  
93 93  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
94 94  
95 95  
96 96  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
97 97  
98 98  
99 99  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
100 100  
101 101  
102 102  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
103 103  
104 104  
105 105  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
106 106  
107 107  
108 108  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
109 109  
110 110  
111 111  func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
112 112  
113 113  
114 114  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
115 115  
116 116  
117 117  func getKeyUI (item) = "UI,_wvls:"
118 118  
119 119  
120 120  func getValueUI (item) = getNumberByKey(getKeyUI(item))
121 121  
122 122  
123 123  func getKeyPI (item) = "PI,_wvls:"
124 124  
125 125  
126 126  func getValuePI (item) = getNumberByKey(getKeyPI(item))
127 127  
128 128  
129 129  func getKeySI (item) = "SI,_wvls:"
130 130  
131 131  
132 132  func getValueSI (item) = getNumberByKey(getKeySI(item))
133 133  
134 134  
135 135  @Callable(i)
136 136  func deposit (title,supplierData) = {
137 137      let pmt = extract(i.payment)
138 138      if ((pmt.assetId != yBitCO2))
139 139          then throw("deposito permitido solo en yBitCO2 tokens")
140 140          else {
141 141              let supplier = toBase58String(i.caller.bytes)
142 142              let currentAmount =             match getInteger(this, supplier) {
143 143                  case a: Int => 
144 144                      a
145 145                  case _ => 
146 146                      startQty
147 147              }
148 148              let newAmount = (currentAmount + pmt.amount)
149 149              if ((0 >= newAmount))
150 150                  then throw("No hay yBitCO2 en su balance")
151 151                  else WriteSet([DataEntry(supplier, newAmount)])
152 152              }
153 153      }
154 154  
155 155  
156 156  
157 157  @Callable(i)
158 158  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
159 159      let pmt = extract(i.payment)
160 160      if (isDefined(pmt.assetId))
161 161          then throw("El Precio en waves.")
162 162          else {
163 163              let supplier =             match getString(this, getKeyItemSupplier(item)) {
164 164                  case a: String => 
165 165                      a
166 166                  case _ => 
167 167                      NONE
168 168              }
169 169              let projAdd =             match getString(this, getKeyProject(item)) {
170 170                  case a: String => 
171 171                      a
172 172                  case _ => 
173 173                      pAdd
174 174              }
175 175              let nodoAdd =             match getString(this, getKeyProject(item)) {
176 176                  case a: String => 
177 177                      a
178 178                  case _ => 
179 179                      eAdd
180 180              }
181 181              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
182 182                  case a: Int => 
183 183                      a
184 184                  case _ => 
185 185                      SecondFaseQty
186 186              }
187 187              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
188 188                  case a: Int => 
189 189                      a
190 190                  case _ => 
191 191                      0
192 192              }
193 193              let userAddress = toBase58String(i.caller.bytes)
194 194              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
195 195              let cPB = ((88 * ybitco2) / 100)
196 196              let uI = ((subTotal * uIP) / 100)
197 197              let uBI = ((uI / cPB) * 1)
198 198              let pI = ((subTotal * pIP) / 100)
199 199              let eI = ((subTotal * eIP) / 100)
200 200              let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
201 201              let sI = ((totalAmount - pI) - eI)
202 202              let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
203 203              let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
204 204              if ((totalAmount > pmt.amount))
205 205                  then throw("Payment Amount can't be less than item Purchase Order")
206 206                  else if ((pmt.amount > totalAmount))
207 207                      then throw("Payment Amount can't be higher than item Purchase Order")
208 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
208 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "ción Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
209 209              }
210 210      }
211 211  
212 212  
213 213  
214 214  @Callable(i)
215 215  func withdraw (item,amount) = {
216 216      let userAddress = toBase58String(i.caller.bytes)
217 217      let supplier =     match getString(this, getKeyItemSupplier(item)) {
218 218          case a: String => 
219 219              a
220 220          case _ => 
221 221              NONE
222 222      }
223 223      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
224 224          case a: Int => 
225 225              a
226 226          case _ => 
227 227              startQty
228 228      }
229 229      let newAmount = (preIcoQty - amount)
230 230      if ((0 > amount))
231 231          then throw("El balance de retiro no puede ser negativo!")
232 232          else if ((0 >= newAmount))
233 233              then throw("Ooppss.. Insuficiente balance!")
234 234              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
235 235      }
236 236  
237 237  
238 238  @Verifier(tx)
239 239  func verify () = match tx {
240 240      case t: SetScriptTransaction => 
241 241          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
242 242      case d: DataTransaction|ReissueTransaction => 
243 243          true
244 244      case tx: TransferTransaction => 
245 245          true
246 246      case tx: ExchangeTransaction => 
247 247          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
248 248              then true
249 249              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
250 250          withWaves
251 251      case _ => 
252 252          false
253 253  }
254 254

Old	New		Differences
205	205		then throw("Payment Amount can't be less than item Purchase Order")
206	206		else if ((pmt.amount > totalAmount))
207	207		then throw("Payment Amount can't be higher than item Purchase Order")
208		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "~~Adquisición~~ Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
	208	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "ción Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
209	209		}
210	210		}
211	211

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 nomPrice = 1
13	13
14	14		let wvs = 100000000
15	15
16	16		let supplierDiscount = 12
17	17
18	18		let NONE = "none"
19	19
20	20		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
21	21
22	22		let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
23	23
24	24		let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
25	25
26	26		let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
27	27
28	28		let igv = 18
29	29
30	30		let EuroW = 32000000
31	31
32	32		let ybitco2 = ((1 * EuroW) / 10000)
33	33
34	34		let uIP = 7
35	35
36	36		let pIP = 10
37	37
38	38		let eIP = 1
39	39
40	40		let sBP = 2
41	41
42	42		let eBP = 2
43	43
44	44		func getNumberByKey (key) = {
45	45		let num = match getInteger(this, key) {
46	46		case a: Int =>
47	47		a
48	48		case _ =>
49	49		0
50	50		}
51	51		num
52	52		}
53	53
54	54
55	55		func getStrByKey (key) = {
56	56		let str = match getString(this, key) {
57	57		case a: String =>
58	58		a
59	59		case _ =>
60	60		NONE
61	61		}
62	62		str
63	63		}
64	64
65	65
66	66		func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
67	67
68	68
69	69		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
70	70
71	71
72	72		func getKeyProject (item) = "Project"
73	73
74	74
75	75		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
76	76
77	77
78	78		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
79	79
80	80
81	81		func getKeyItemName (item) = "Categoría del Producto:"
82	82
83	83
84	84		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
85	85
86	86
87	87		func getKeyUserName (item) = "Nombre del Usuario:"
88	88
89	89
90	90		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
91	91
92	92
93	93		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
94	94
95	95
96	96		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
97	97
98	98
99	99		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
100	100
101	101
102	102		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
103	103
104	104
105	105		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
106	106
107	107
108	108		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
109	109
110	110
111	111		func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
112	112
113	113
114	114		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
115	115
116	116
117	117		func getKeyUI (item) = "UI,_wvls:"
118	118
119	119
120	120		func getValueUI (item) = getNumberByKey(getKeyUI(item))
121	121
122	122
123	123		func getKeyPI (item) = "PI,_wvls:"
124	124
125	125
126	126		func getValuePI (item) = getNumberByKey(getKeyPI(item))
127	127
128	128
129	129		func getKeySI (item) = "SI,_wvls:"
130	130
131	131
132	132		func getValueSI (item) = getNumberByKey(getKeySI(item))
133	133
134	134
135	135		@Callable(i)
136	136		func deposit (title,supplierData) = {
137	137		let pmt = extract(i.payment)
138	138		if ((pmt.assetId != yBitCO2))
139	139		then throw("deposito permitido solo en yBitCO2 tokens")
140	140		else {
141	141		let supplier = toBase58String(i.caller.bytes)
142	142		let currentAmount = match getInteger(this, supplier) {
143	143		case a: Int =>
144	144		a
145	145		case _ =>
146	146		startQty
147	147		}
148	148		let newAmount = (currentAmount + pmt.amount)
149	149		if ((0 >= newAmount))
150	150		then throw("No hay yBitCO2 en su balance")
151	151		else WriteSet([DataEntry(supplier, newAmount)])
152	152		}
153	153		}
154	154
155	155
156	156
157	157		@Callable(i)
158	158		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
159	159		let pmt = extract(i.payment)
160	160		if (isDefined(pmt.assetId))
161	161		then throw("El Precio en waves.")
162	162		else {
163	163		let supplier = match getString(this, getKeyItemSupplier(item)) {
164	164		case a: String =>
165	165		a
166	166		case _ =>
167	167		NONE
168	168		}
169	169		let projAdd = match getString(this, getKeyProject(item)) {
170	170		case a: String =>
171	171		a
172	172		case _ =>
173	173		pAdd
174	174		}
175	175		let nodoAdd = match getString(this, getKeyProject(item)) {
176	176		case a: String =>
177	177		a
178	178		case _ =>
179	179		eAdd
180	180		}
181	181		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
182	182		case a: Int =>
183	183		a
184	184		case _ =>
185	185		SecondFaseQty
186	186		}
187	187		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
188	188		case a: Int =>
189	189		a
190	190		case _ =>
191	191		0
192	192		}
193	193		let userAddress = toBase58String(i.caller.bytes)
194	194		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
195	195		let cPB = ((88 * ybitco2) / 100)
196	196		let uI = ((subTotal * uIP) / 100)
197	197		let uBI = ((uI / cPB) * 1)
198	198		let pI = ((subTotal * pIP) / 100)
199	199		let eI = ((subTotal * eIP) / 100)
200	200		let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
201	201		let sI = ((totalAmount - pI) - eI)
202	202		let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
203	203		let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
204	204		if ((totalAmount > pmt.amount))
205	205		then throw("Payment Amount can't be less than item Purchase Order")
206	206		else if ((pmt.amount > totalAmount))
207	207		then throw("Payment Amount can't be higher than item Purchase Order")
208		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "~~Adquisición~~ Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
	208	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "ción Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (SecondFaseQty - (QVentasgts / 1))), DataEntry(getKeyBalanceQtySupplier(item), preTokenQty), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
209	209		}
210	210		}
211	211
212	212
213	213
214	214		@Callable(i)
215	215		func withdraw (item,amount) = {
216	216		let userAddress = toBase58String(i.caller.bytes)
217	217		let supplier = match getString(this, getKeyItemSupplier(item)) {
218	218		case a: String =>
219	219		a
220	220		case _ =>
221	221		NONE
222	222		}
223	223		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
224	224		case a: Int =>
225	225		a
226	226		case _ =>
227	227		startQty
228	228		}
229	229		let newAmount = (preIcoQty - amount)
230	230		if ((0 > amount))
231	231		then throw("El balance de retiro no puede ser negativo!")
232	232		else if ((0 >= newAmount))
233	233		then throw("Ooppss.. Insuficiente balance!")
234	234		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
235	235		}
236	236
237	237
238	238		@Verifier(tx)
239	239		func verify () = match tx {
240	240		case t: SetScriptTransaction =>
241	241		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
242	242		case d: DataTransaction\|ReissueTransaction =>
243	243		true
244	244		case tx: TransferTransaction =>
245	245		true
246	246		case tx: ExchangeTransaction =>
247	247		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
248	248		then true
249	249		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
250	250		withWaves
251	251		case _ =>
252	252		false
253	253		}
254	254

github/deemru/w8io/169f3d6 
109.78 ms ◑