w8 · tx · 7Ce···t8T

tx · 7CeJes8NNz9WXBmNeFb55nBSATErXTfz3yDkHXCiet8T

3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2:  -0.01400000 Waves

2020.04.11 08:59 [949322] smart account 3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7CeJes8NNz9WXBmNeFb55nBSATErXTfz3yDkHXCiet8T",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1586584662167,
    "version": 1,
    "sender": "3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2",
    "senderPublicKey": "GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt",
    "proofs": [
        "4qfZw1nG9MnTZuBWLuU1PGBDGiaGnrfsmRML1st9gpQf4qoQeAuJQwA97NgsPFvyEqiDnxUNzZpPjk6Nj3ZJUwaf"
    ],
    "script": "base64:AAIDAAAAAAAAACAIARIECgIICBIICgYICAgBAQgSBgoECAgIARIECgIIAQAAADgAAAAAB2JCaXRDTzIBAAAAICS5vPeQFg1II100BnJ39DNnWlTh001ZMTGPiOi4CeDRAAAAAAhzdGFydFF0eQAAAAAAAExLQAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIOT5kr0qxAUdVllbsg32nwnU0gQ806lA/C0Ix5M0fVkpAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVQmXeqpNBOU0gXTRoLnFygaPj7BjtrRIP0AAAAABGVBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTK9zs+5y/RVeIPrfhFsyze+43QDUVrfW8AAAAABHBBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTUPeuO2Y1p2TpK+OH14WsDuVCV2jcMFFQAAAAAA2lndgAAAAAAAAAAEgAAAAADY1BCAAAAAAAAAABYAAAAAAN1SVAAAAAAAAAAAAUAAAAAA3BJUAAAAAAAAAAACgAAAAADc0lQAAAAAAAAAAABAAAAAANlSVAAAAAAAAAAAAEBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAFdGl0bGUJAAEsAAAAAgIAAAAGQSB5IEc6CQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAABl9QIFNBQwEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAABl9QIFNBQwEAAAAQZ2V0VmFsdWVTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQAAAAJwQQkAASwAAAACBQAAAAJwQQIAAAAJX0EtUHJlSUNPAQAAAA9nZXRWYWx1ZVByb2plY3QAAAABAAAAAnBBCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAAAnBBAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtAgAAAAlVc2VyTmFtZToBAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQAAAARpdGVtAgAAAAlVc2VyUGFpczoBAAAAE2dldFZhbHVlVXNlckNvdW50cnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0BAAAADGdldEtleUl0ZW1VRAAAAAEAAAAEaXRlbQIAAAADVUQ6AQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABdTZWxsZXJfQmFsYW5jZSxfYUJpdENPMgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAAAhVSSxfd3ZzOgEAAAAKZ2V0VmFsdWVVSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5VUJJAAAAAQAAAARpdGVtAgAAAAxVQkksX0JpdENPMjoBAAAAC2dldFZhbHVlVUJJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5VUJJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5UEkAAAABAAAABGl0ZW0CAAAABlBJLF8lOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5U0kAAAABAAAABGl0ZW0CAAAABlNJLF8lOgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5RUkAAAABAAAAAmVBAgAAAAZFSSxfJToBAAAACmdldFZhbHVlRUkAAAABAAAAAmVBCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5RUkAAAABBQAAAAJlQQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQAAAARpdGVtAgAAAAxVc2VyQ291bnRyeToBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABAAAABGl0ZW0CAAAAEFVzZXJEaXNjb3VudCwgJToBAAAAGGdldFZhbHVlSXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAABJPcmRlcl9xdHksX3Rva2VuczoBAAAAGGdldFZhbHVlSXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAFkJhbGFuY2UvU2FsZG8sIHRva2VuczoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0CAAAABl93YXZlcwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAGFN1cHBsaWVyRGlzY291bnQsIG1heF8lOgEAAAAcZ2V0VmFsdWVJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABAAAABGl0ZW0CAAAADWRlc2NyaXB0aW9uOiAAAAAEAAAAAWkBAAAAB2RlcG9zaXQAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB2JCaXRDTzIJAAACAAAAAQIAAAAuVXNlIGJCaXRDTzIgdG9rZW5zIG9ubHkgZm9yIHRoZSB3YWxsZXQgZGVwb3NpdAQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAdTm8gaGF5IEJpdENPMiBpbiB5b3VyIGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAABBBZGRTdXBwbGllclRva2VuAAAABgAAAAV0aXRsZQAAAARuYW1lAAAAB2NvdW50cnkAAAAJcHJlSWNvUXR5AAAAEHN1cHBsaWVyRGlzY291bnQAAAAMc3VwcGxpZXJEYXRhBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAARpdGVtCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJcHJlSWNvUXR5CQAAAgAAAAECAAAAH1NvcnJ5LCBpbnN1ZmZpY2llbnQgdG9rZW4gb2ZmZXIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAKU3VwcGxpZXI6XwkBAAAADmdldEtleVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAHVGl0bGU6XwUAAAAIc3VwcGxpZXIFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADVByb2plY3ROYW1lOl8FAAAACHN1cHBsaWVyBQAAAARuYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACUNvdW50cnk6XwUAAAAIc3VwcGxpZXIFAAAAB2NvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTm9tVG9rZW5QcmljZTpfCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtCQAAaAAAAAIFAAAACG5vbVByaWNlBQAAAAN3dnMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAXTWF4X0Rlc2N1ZW50b19vZnJlY2lkbzoJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAEHN1cHBsaWVyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANRGV2ZWxvcG1lbnQ6XwkBAAAADmdldEtleUl0ZW1EYXRhAAAAAQUAAAAEaXRlbQUAAAAMc3VwcGxpZXJEYXRhBQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAEAAAABGl0ZW0AAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAteW91IGNhbiBhZHF1aXJlIFByb2R1Y3RzIG9ubHkgYnkgV2F2ZXMgdG9rZW5zBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwJAABlAAAAAgUAAAALdG90YWxBbW91bnQJAABpAAAAAgkAAGgAAAACBQAAAANpZ3YFAAAAC3RvdGFsQW1vdW50AAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGkAAAACBQAAAAJ1SQUAAAADY1BCBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUJJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQEAAAAAnNJCQAAZQAAAAIJAABlAAAAAgUAAAALdG90YWxBbW91bnQFAAAAAnBJBQAAAAJlSQQAAAADc0JJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NJUAkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5SXRlbVVEAAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABNQYXltZW50X2Ftb3VudCxfd3ZzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGSW1wLCAlBQAAAANpZ3YJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACVNUdGwsIHd2cwUAAAAIc3ViVG90YWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC0NQIDEgQiwgd3ZzCQAAaAAAAAIFAAAAA2NQQgAAAAAAAA9CQAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAA1VCSQUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAFRWNTeXMFAAAAA2VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5PcmRlcl9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAACWNvbmZpcm1lZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAACc0kJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABlNCSTogYgUAAAADc0JJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUJJBQAAAAdiQml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAAnBJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAANzQkkFAAAAB2JCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAAdiQml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAHkNhbid0IHdpdGhkcmF3IG5lZ2F0aXZlIGFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAIU5vdCBlbm91Z2h0IC9pbnN1ZmljaWVudGUgYmFsYW5jZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAdiQml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJd2l0aFdhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAAJd2l0aFdhdmVzBxj/7jM=",
    "chainId": 84,
    "height": 949322,
    "spentComplexity": 0
}

View: original | compacted
Prev: FMGkFXh6zN2R9zghmMWU77NRXAFdXgLrir8iAh3Aqb2v
Next: 7FDLNAFmhXK1evijReWLFjM3urn7XrBU49LPDr3CiMss

Diff: 
Old New Differences
203 203  
204 204  
205 205  @Callable(i)
206 - func purchaseGTS (item,userName,userCountry,uD,totalAmount,pA,eA) = {
206 + func purchaseGTS (item,userName,userDocument,totalAmount) = {
207 207      let pmt = extract(i.payment)
208 208      if (isDefined(pmt.assetId))
209 209          then throw("you can adquire Products only by Waves tokens")
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(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUD(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
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 bBitCO2 = base58'3UMwob2PDKVYmDMZZdT9ijK7EdRJZKFoBLCAXnwKtNN4'
5 5  
6 6  let startQty = 5000000
7 7  
8 8  let nomPrice = 1
9 9  
10 10  let wvs = 100000000
11 11  
12 12  let supplierDiscount = 12
13 13  
14 14  let NONE = "none"
15 15  
16 16  let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17 17  
18 18  let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
19 19  
20 20  let eAdd = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
21 21  
22 22  let pAdd = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
23 23  
24 24  let igv = 18
25 25  
26 26  let cPB = 88
27 27  
28 28  let uIP = 5
29 29  
30 30  let pIP = 10
31 31  
32 32  let sIP = 1
33 33  
34 34  let eIP = 1
35 35  
36 36  func getNumberByKey (key) = {
37 37      let num =     match getInteger(this, key) {
38 38          case a: Int => 
39 39              a
40 40          case _ => 
41 41              0
42 42      }
43 43      num
44 44      }
45 45  
46 46  
47 47  func getStrByKey (key) = {
48 48      let str =     match getString(this, key) {
49 49          case a: String => 
50 50              a
51 51          case _ => 
52 52              NONE
53 53      }
54 54      str
55 55      }
56 56  
57 57  
58 58  func getKeyItem (supplier,title) = ("A y G:" + toBase58String(sha256(toBytes((supplier + title)))))
59 59  
60 60  
61 61  func getKeyItemSupplier (item) = (item + "_P SAC")
62 62  
63 63  
64 64  func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
65 65  
66 66  
67 67  func getKeySupplier (supplier) = (supplier + "_P SAC")
68 68  
69 69  
70 70  func getValueSupplier (supplier) = getStrByKey(getKeySupplier(supplier))
71 71  
72 72  
73 73  func getKeyProject (pA) = (pA + "_A-PreICO")
74 74  
75 75  
76 76  func getValueProject (pA) = getStrByKey(getKeyProject(pA))
77 77  
78 78  
79 79  func getKeyUserItemCounter (user,item) = "Order_№:"
80 80  
81 81  
82 82  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
83 83  
84 84  
85 85  func getKeyItemUser (item) = "UserName:"
86 86  
87 87  
88 88  func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
89 89  
90 90  
91 91  func getKeyUserCountry (item) = "UserPais:"
92 92  
93 93  
94 94  func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
95 95  
96 96  
97 97  func getKeyItemUD (item) = "UD:"
98 98  
99 99  
100 100  func getKeyBalanceSupplier (supplier) = "Seller_Balance,_aBitCO2"
101 101  
102 102  
103 103  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
104 104  
105 105  
106 106  func getKeyUI (item) = "UI,_wvs:"
107 107  
108 108  
109 109  func getValueUI (item) = getNumberByKey(getKeyUI(item))
110 110  
111 111  
112 112  func getKeyUBI (item) = "UBI,_BitCO2:"
113 113  
114 114  
115 115  func getValueUBI (item) = getNumberByKey(getKeyUBI(item))
116 116  
117 117  
118 118  func getKeyPI (item) = "PI,_%:"
119 119  
120 120  
121 121  func getValuePI (item) = getNumberByKey(getKeyPI(item))
122 122  
123 123  
124 124  func getKeySI (item) = "SI,_%:"
125 125  
126 126  
127 127  func getValueSI (item) = getNumberByKey(getKeySI(item))
128 128  
129 129  
130 130  func getKeyEI (eA) = "EI,_%:"
131 131  
132 132  
133 133  func getValueEI (eA) = getNumberByKey(getKeyEI(eA))
134 134  
135 135  
136 136  func getKeyItemUserData (item) = "UserCountry:"
137 137  
138 138  
139 139  func getKeyItemDiscountUser (item) = "UserDiscount, %:"
140 140  
141 141  
142 142  func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
143 143  
144 144  
145 145  func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
146 146  
147 147  
148 148  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
149 149  
150 150  
151 151  func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
152 152  
153 153  
154 154  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
155 155  
156 156  
157 157  func getKeyItemPriceSupplier (item) = "_waves"
158 158  
159 159  
160 160  func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
161 161  
162 162  
163 163  func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
164 164  
165 165  
166 166  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
167 167  
168 168  
169 169  func getKeyItemData (item) = "description: "
170 170  
171 171  
172 172  @Callable(i)
173 173  func deposit (title,supplierData) = {
174 174      let pmt = extract(i.payment)
175 175      if ((pmt.assetId != bBitCO2))
176 176          then throw("Use bBitCO2 tokens only for the wallet deposit")
177 177          else {
178 178              let supplier = toBase58String(i.caller.bytes)
179 179              let currentAmount =             match getInteger(this, supplier) {
180 180                  case a: Int => 
181 181                      a
182 182                  case _ => 
183 183                      startQty
184 184              }
185 185              let newAmount = (currentAmount + pmt.amount)
186 186              if ((0 >= newAmount))
187 187                  then throw("No hay BitCO2 in your balance")
188 188                  else WriteSet([DataEntry(supplier, newAmount)])
189 189              }
190 190      }
191 191  
192 192  
193 193  
194 194  @Callable(i)
195 195  func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
196 196      let supplier = toBase58String(i.caller.bytes)
197 197      let item = getKeyItem(supplier, title)
198 198      if ((0 >= preIcoQty))
199 199          then throw("Sorry, insufficient token offer")
200 200          else WriteSet([DataEntry(("Supplier:_" + getKeySupplier(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
201 201      }
202 202  
203 203  
204 204  
205 205  @Callable(i)
206 - func purchaseGTS (item,userName,userCountry,uD,totalAmount,pA,eA) = {
206 + func purchaseGTS (item,userName,userDocument,totalAmount) = {
207 207      let pmt = extract(i.payment)
208 208      if (isDefined(pmt.assetId))
209 209          then throw("you can adquire Products only by Waves tokens")
210 210          else {
211 211              let supplier =             match getString(this, getKeyItemSupplier(item)) {
212 212                  case a: String => 
213 213                      a
214 214                  case _ => 
215 215                      NONE
216 216              }
217 217              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
218 218                  case a: Int => 
219 219                      a
220 220                  case _ => 
221 221                      startQty
222 222              }
223 223              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
224 224                  case a: Int => 
225 225                      a
226 226                  case _ => 
227 227                      0
228 228              }
229 229              let userAddress = toBase58String(i.caller.bytes)
230 230              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
231 231              let uI = ((subTotal * uIP) / 100)
232 232              let uBI = (uI / cPB)
233 233              let pI = ((subTotal * pIP) / 100)
234 234              let eI = ((subTotal * eIP) / 100)
235 235              let eBI = ((subTotal * eIP) / (cPB * 100))
236 236              let sI = ((totalAmount - pI) - eI)
237 237              let sBI = ((subTotal * sIP) / (cPB * 100))
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(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUD(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
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("Can't withdraw negative amount")
266 266          else if ((0 >= newAmount))
267 267              then throw("Not enought /insuficiente balance")
268 268              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, bBitCO2)]))
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 tx: ExchangeTransaction => 
281 281          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
282 282              then true
283 283              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
284 284          withWaves
285 285      case _ => 
286 286          false
287 287  }
288 288

Old	New		Differences
203	203
204	204
205	205		@Callable(i)
206		-	func purchaseGTS (item,userName,~~userCountry,uD~~,totalAmount~~,pA,eA~~) = {
	206	+	func purchaseGTS (item,userName,userDocument,totalAmount) = {
207	207		let pmt = extract(i.payment)
208	208		if (isDefined(pmt.assetId))
209	209		then throw("you can adquire Products only by Waves tokens")

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(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(~~getKeyUserCountry(item), userCountry), DataEntry(~~getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI~~), DataEntry(getKeyEI(eA), eI~~), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUD(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
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 bBitCO2 = base58'3UMwob2PDKVYmDMZZdT9ijK7EdRJZKFoBLCAXnwKtNN4'
5	5
6	6		let startQty = 5000000
7	7
8	8		let nomPrice = 1
9	9
10	10		let wvs = 100000000
11	11
12	12		let supplierDiscount = 12
13	13
14	14		let NONE = "none"
15	15
16	16		let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17	17
18	18		let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
19	19
20	20		let eAdd = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
21	21
22	22		let pAdd = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
23	23
24	24		let igv = 18
25	25
26	26		let cPB = 88
27	27
28	28		let uIP = 5
29	29
30	30		let pIP = 10
31	31
32	32		let sIP = 1
33	33
34	34		let eIP = 1
35	35
36	36		func getNumberByKey (key) = {
37	37		let num = match getInteger(this, key) {
38	38		case a: Int =>
39	39		a
40	40		case _ =>
41	41		0
42	42		}
43	43		num
44	44		}
45	45
46	46
47	47		func getStrByKey (key) = {
48	48		let str = match getString(this, key) {
49	49		case a: String =>
50	50		a
51	51		case _ =>
52	52		NONE
53	53		}
54	54		str
55	55		}
56	56
57	57
58	58		func getKeyItem (supplier,title) = ("A y G:" + toBase58String(sha256(toBytes((supplier + title)))))
59	59
60	60
61	61		func getKeyItemSupplier (item) = (item + "_P SAC")
62	62
63	63
64	64		func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
65	65
66	66
67	67		func getKeySupplier (supplier) = (supplier + "_P SAC")
68	68
69	69
70	70		func getValueSupplier (supplier) = getStrByKey(getKeySupplier(supplier))
71	71
72	72
73	73		func getKeyProject (pA) = (pA + "_A-PreICO")
74	74
75	75
76	76		func getValueProject (pA) = getStrByKey(getKeyProject(pA))
77	77
78	78
79	79		func getKeyUserItemCounter (user,item) = "Order_№:"
80	80
81	81
82	82		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
83	83
84	84
85	85		func getKeyItemUser (item) = "UserName:"
86	86
87	87
88	88		func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
89	89
90	90
91	91		func getKeyUserCountry (item) = "UserPais:"
92	92
93	93
94	94		func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
95	95
96	96
97	97		func getKeyItemUD (item) = "UD:"
98	98
99	99
100	100		func getKeyBalanceSupplier (supplier) = "Seller_Balance,_aBitCO2"
101	101
102	102
103	103		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
104	104
105	105
106	106		func getKeyUI (item) = "UI,_wvs:"
107	107
108	108
109	109		func getValueUI (item) = getNumberByKey(getKeyUI(item))
110	110
111	111
112	112		func getKeyUBI (item) = "UBI,_BitCO2:"
113	113
114	114
115	115		func getValueUBI (item) = getNumberByKey(getKeyUBI(item))
116	116
117	117
118	118		func getKeyPI (item) = "PI,_%:"
119	119
120	120
121	121		func getValuePI (item) = getNumberByKey(getKeyPI(item))
122	122
123	123
124	124		func getKeySI (item) = "SI,_%:"
125	125
126	126
127	127		func getValueSI (item) = getNumberByKey(getKeySI(item))
128	128
129	129
130	130		func getKeyEI (eA) = "EI,_%:"
131	131
132	132
133	133		func getValueEI (eA) = getNumberByKey(getKeyEI(eA))
134	134
135	135
136	136		func getKeyItemUserData (item) = "UserCountry:"
137	137
138	138
139	139		func getKeyItemDiscountUser (item) = "UserDiscount, %:"
140	140
141	141
142	142		func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
143	143
144	144
145	145		func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
146	146
147	147
148	148		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
149	149
150	150
151	151		func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
152	152
153	153
154	154		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
155	155
156	156
157	157		func getKeyItemPriceSupplier (item) = "_waves"
158	158
159	159
160	160		func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
161	161
162	162
163	163		func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
164	164
165	165
166	166		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
167	167
168	168
169	169		func getKeyItemData (item) = "description: "
170	170
171	171
172	172		@Callable(i)
173	173		func deposit (title,supplierData) = {
174	174		let pmt = extract(i.payment)
175	175		if ((pmt.assetId != bBitCO2))
176	176		then throw("Use bBitCO2 tokens only for the wallet deposit")
177	177		else {
178	178		let supplier = toBase58String(i.caller.bytes)
179	179		let currentAmount = match getInteger(this, supplier) {
180	180		case a: Int =>
181	181		a
182	182		case _ =>
183	183		startQty
184	184		}
185	185		let newAmount = (currentAmount + pmt.amount)
186	186		if ((0 >= newAmount))
187	187		then throw("No hay BitCO2 in your balance")
188	188		else WriteSet([DataEntry(supplier, newAmount)])
189	189		}
190	190		}
191	191
192	192
193	193
194	194		@Callable(i)
195	195		func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
196	196		let supplier = toBase58String(i.caller.bytes)
197	197		let item = getKeyItem(supplier, title)
198	198		if ((0 >= preIcoQty))
199	199		then throw("Sorry, insufficient token offer")
200	200		else WriteSet([DataEntry(("Supplier:_" + getKeySupplier(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
201	201		}
202	202
203	203
204	204
205	205		@Callable(i)
206		-	func purchaseGTS (item,userName,~~userCountry,uD~~,totalAmount~~,pA,eA~~) = {
	206	+	func purchaseGTS (item,userName,userDocument,totalAmount) = {
207	207		let pmt = extract(i.payment)
208	208		if (isDefined(pmt.assetId))
209	209		then throw("you can adquire Products only by Waves tokens")
210	210		else {
211	211		let supplier = match getString(this, getKeyItemSupplier(item)) {
212	212		case a: String =>
213	213		a
214	214		case _ =>
215	215		NONE
216	216		}
217	217		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
218	218		case a: Int =>
219	219		a
220	220		case _ =>
221	221		startQty
222	222		}
223	223		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
224	224		case a: Int =>
225	225		a
226	226		case _ =>
227	227		0
228	228		}
229	229		let userAddress = toBase58String(i.caller.bytes)
230	230		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
231	231		let uI = ((subTotal * uIP) / 100)
232	232		let uBI = (uI / cPB)
233	233		let pI = ((subTotal * pIP) / 100)
234	234		let eI = ((subTotal * eIP) / 100)
235	235		let eBI = ((subTotal * eIP) / (cPB * 100))
236	236		let sI = ((totalAmount - pI) - eI)
237	237		let sBI = ((subTotal * sIP) / (cPB * 100))
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(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(~~getKeyUserCountry(item), userCountry), DataEntry(~~getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI~~), DataEntry(getKeyEI(eA), eI~~), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUD(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, bBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, bBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, bBitCO2)]))
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("Can't withdraw negative amount")
266	266		else if ((0 >= newAmount))
267	267		then throw("Not enought /insuficiente balance")
268	268		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, bBitCO2)]))
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 tx: ExchangeTransaction =>
281	281		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
282	282		then true
283	283		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
284	284		withWaves
285	285		case _ =>
286	286		false
287	287		}
288	288

github/deemru/w8io/3ef1775 
71.20 ms ◑