w8 · tx · 93h···PYy

tx · 93hphgU6XbPEgtHRYicsHiVVePLtVfYTxkSUPC6ZmPYy

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.30 14:48 [932136] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "93hphgU6XbPEgtHRYicsHiVVePLtVfYTxkSUPC6ZmPYy",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1585568866468,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "2fSs1uY2g8ahwwcG99map2wv74SJj7Zdv2bxiVLhiUwAa5YNDKfYffFaoCzzaSg9kiNVtfjjZPMbXmfPvb7QurZL"
    ],
    "script": "base64:AAIDAAAAAAAAACEIARIDCgEBEggKBggICAEBCBIICgYICAgBAQESBAoCCAEAAAAfAAAAAAdhQml0Q08yAQAAACDH+HoAnTdQnyoybLskiHPdWM4Tg4veh8IaLSgbZ8EolgAAAAAIc3RhcnRRdHkAAAAAAAAFFAAAAAAACG5vbVByaWNlAAAAAAAAAAABAAAAABBzdXBwbGllckRpc2NvdW50AAAAAAAAAAAMAAAAAA5Pd25lckVjb1B1YktleQEAAAAgLvRbo0AJGg7wNzBbRHjrN75s0YuvS2DdwCQ0/xY2QB8AAAAAA3d2cwAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUyvc7Pucv0VXiD634RbMs3vuN0A1Fa31vAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABXRpdGxlCQABLAAAAAICAAAAD0JpdC1DTzJfdG9rZW46IAkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAABpfdG9fQW1hem9uaWFuX0NvbnNlcnZhdGlvbgEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEAAAAEaXRlbQIAAAANZGVzY3JpcHRpb246IAEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAH09mZmVyZWRfU3VwcGxpZXJEaXNjb3VudCxfbWF4XyUBAAAAHGdldFZhbHVlSXRlbURpc2NvdW50U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAVT2ZmZXJlZF9RdHksIGJhbGFuY2U6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAFVNlbGxlcl9CYWxhbmNlOl93YXZlcwEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtAgAAAApPcmRlcl/ihJY6AQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABAAAABGl0ZW0CAAAACVVzZXJOYW1lOgEAAAAQZ2V0VmFsdWVJdGVtVXNlcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQAAAARpdGVtAgAAAAxVc2VyQ291bnRyeToBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABAAAABGl0ZW0CAAAAEFVzZXJEaXNjb3VudCxfJToBAAAAGGdldFZhbHVlSXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAABJPcmRlcl9xdHksX3Rva2VuczoBAAAAGGdldFZhbHVlSXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAGX3dhdmVzAQAAABlnZXRWYWx1ZUl0ZW1QcmljZVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtAAAABAAAAAFpAQAAAAdkZXBvc2l0AAAAAQAAAAZhbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAdhQml0Q08yCQAAAgAAAAECAAAALlVzZSBjQml0Q08yIHRva2VucyBvbmx5IGZvciB0aGUgd2FsbGV0IGRlcG9zaXQEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAEEFkZFN1cHBsaWVyVG9rZW4AAAAGAAAABXRpdGxlAAAABG5hbWUAAAAHY291bnRyeQAAAAlwcmVJY29RdHkAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAxzdXBwbGllckRhdGEEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAwkAAGcAAAACAAAAAAAAAAAABQAAAAlwcmVJY29RdHkJAAACAAAAAQIAAAAfU29ycnksIGluc3VmZmljaWVudCB0b2tlbiBvZmZlcgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAApTdXBwbGllcjpfCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAHVGl0bGU6XwUAAAAIc3VwcGxpZXIFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADVByb2plY3ROYW1lOl8FAAAACHN1cHBsaWVyBQAAAARuYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACUNvdW50cnk6XwUAAAAIc3VwcGxpZXIFAAAAB2NvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTm9tVG9rZW5QcmljZTpfCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtCQAAaAAAAAIFAAAACG5vbVByaWNlBQAAAAN3dnMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAXTWF4X0Rlc2N1ZW50b19vZnJlY2lkbzoJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAEHN1cHBsaWVyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANRGV2ZWxvcG1lbnQ6XwkBAAAADmdldEtleUl0ZW1EYXRhAAAAAQUAAAAEaXRlbQUAAAAMc3VwcGxpZXJEYXRhBQAAAANuaWwAAAABaQEAAAAIcHVyY2hhc2UAAAAGAAAABGl0ZW0AAAALcHJvamVjdE5hbWUAAAAIdXNlckRhdGEAAAAMdXNlckRpc2NvdW50AAAACG9yZGVyUXR5AAAABmFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAALHlvdSBjYW4gYWRxdWlyZSBjQml0Q08yIG9ubHkgYnkgV2F2ZXMgdG9rZW5zBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAPYnV5ZXJUb2tlblByaWNlCQAAaQAAAAIJAABoAAAAAgkAAGgAAAACCQAAZQAAAAIAAAAAAAAAAGQFAAAADHVzZXJEaXNjb3VudAUAAAAIbm9tUHJpY2UFAAAAA3d2cwAAAAAAAAAAZAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAAIb3JkZXJRdHkFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0FAAAAC3Byb2plY3ROYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQUAAAAEaXRlbQUAAAAIdXNlckRhdGEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQUAAAAEaXRlbQUAAAAMdXNlckRpc2NvdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0FAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAGlVzZXJQcmljZV8xX3Rva2VuLF93YXZlczpfBQAAAAt1c2VyQWRkcmVzcwUAAAAPYnV5ZXJUb2tlblByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAF1BheW1lbnRfYW1vdW50LF93YXZlczpfBQAAAAt1c2VyQWRkcmVzcwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAljb25maXJtZWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAAt1c2VyQWRkcmVzcwUAAAAIb3JkZXJRdHkFAAAAB2FCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAFdGl0bGUAAAAGYW1vdW50BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAARpdGVtCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAZhbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAFAAAABmFtb3VudAkAAAIAAAABAgAAAB5DYW4ndCB3aXRoZHJhdyBuZWdhdGl2ZSBhbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB9Ob3QgZW5vdWdodCAvc3VmaWNpZW50ZSBiYWxhbmNlCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEaXRlbQUAAAAJbmV3QW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAAB2FCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAADk93bmVyRWNvUHViS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJcmVjaXBpZW50CQACWAAAAAEICQAEJAAAAAEIBQAAAAJ0eAAAAAlyZWNpcGllbnQAAAAFYnl0ZXMDCQAAAAAAAAIIBQAAAAJ0eAAAAAZzZW5kZXIFAAAABmlzc3VlcgYJAAACAAAAAQIAAAAgWW91IGNhbid0IHRyYW5zZmVycmVkIHRoaXMgdG9rZW4DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAl3aXRoV2F2ZXMDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAJYXNzZXRQYWlyAAAACnByaWNlQXNzZXQGCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAJYXNzZXRQYWlyAAAAC2Ftb3VudEFzc2V0BQAAAAl3aXRoV2F2ZXMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAJwawkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABBAAAAAdhZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABBQAAAAJwawQAAAADZmVlAAAAAAAAFVzABAAAAAhoYXNNb25leQkAAGcAAAACCQAAZQAAAAIJAQAAAAx3YXZlc0JhbGFuY2UAAAABBQAAAAdhZGRyZXNzBQAAAANmZWUICAUAAAACdHgAAAAIYnV5T3JkZXIAAAAFcHJpY2UEAAAABHNlbGwJAAH0AAAAAwgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAJYm9keUJ5dGVzCQABkQAAAAIICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAABnByb29mcwAAAAAAAAAAAAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAPc2VuZGVyUHVibGljS2V5BAAAAANidXkJAAH0AAAAAwgIBQAAAAJ0eAAAAAhidXlPcmRlcgAAAAlib2R5Qnl0ZXMJAAGRAAAAAggIBQAAAAJ0eAAAAAhidXlPcmRlcgAAAAZwcm9vZnMAAAAAAAAAAAAICAUAAAACdHgAAAAIYnV5T3JkZXIAAAAPc2VuZGVyUHVibGljS2V5BAAAAA9zZWxsT3JkZXJTZW5kZXIJAAJYAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAABnNlbmRlcgAAAAVieXRlcwQAAAAJbWluQW1vdW50AAAAAAAAAAABBAAAAAltYXhBbW91bnQAAAAAAAAAAAQEAAAACG1heFByaWNlCQAAaAAAAAIFAAAACW1heEFtb3VudAUAAAAIbm9tUHJpY2UDAwUAAAADYnV5AwkBAAAACWlzRGVmaW5lZAAAAAEJAABnAAAAAgUAAAAIbWF4UHJpY2UICAUAAAACdHgAAAAIYnV5T3JkZXIAAAAFcHJpY2UGCQAAAgAAAAECAAAAOkVsIG1vbnRvIGEgcGFnYXIgbm8gcHVlZGUgc2VyIG1lbm9yIHF1ZSBlbCBwcmVjaW8gZGUgdmVudGEHBgMFAAAABHNlbGwDAwMJAAAAAAAAAggIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAGc2VuZGVyBQAAAAZpc3N1ZXIJAABnAAAAAggFAAAAAnR4AAAABmFtb3VudAUAAAAJbWluQW1vdW50BwkAAGcAAAACBQAAAAltYXhBbW91bnQIBQAAAAJ0eAAAAAZhbW91bnQHBgkAAAIAAAABAgAAAFNFcnJvcjogTWluaW11bSBhbW91bnQ6IDEgYUJpdENPMjsgTWF4aW11bSBhbW91bnQgb2ZmZXJlZDogNCBhQml0Q08yIGJ5IFVzZXIgQWNjb3VudAcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAF0ludm9rZVNjcmlwdFRyYW5zYWN0aW9uBAAAAAFjBQAAAAckbWF0Y2gwBgdWb/LT",
    "chainId": 84,
    "height": 932136,
    "spentComplexity": 0
}

View: original | compacted
Prev: EC16YNhXaBBc4fZ2TeMCAxBaVigDRGTxc9aP1KXdY3G5
Next: FvKpuKJwvL9d5XUxuDfQtX4B8ga5NWoVo6LcZjFo1t5i

Diff: 
Old New Differences
134 134  
135 135  
136 136  @Callable(i)
137 - func purchase (item,userName,userCountry,userDiscount,orderQty) = {
137 + func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
138 138      let pmt = extract(i.payment)
139 139      if (isDefined(pmt.assetId))
140 140          then throw("you can adquire cBitCO2 only by Waves tokens")
164 164                  then throw("Payment Amount cannot be less than item Purchase Order")
165 165                  else if ((pmt.amount > totalAmount))
166 166                      then throw("Payment Amount can't be higher than item Purchase Order")
167 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
167 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
168 168              }
169 169      }
170 170  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5 5  
6 6  let startQty = 332800
7 7  
8 8  let nomPrice = 1
9 9  
10 10  let supplierDiscount = 12
11 11  
12 12  let OwnerEcoPubKey = base58'4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L'
13 13  
14 14  let wvs = 100000000
15 15  
16 16  let NONE = "none"
17 17  
18 18  let issuer = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19 19  
20 20  func getNumberByKey (key) = {
21 21      let num =     match getInteger(this, key) {
22 22          case a: Int => 
23 23              a
24 24          case _ => 
25 25              0
26 26      }
27 27      num
28 28      }
29 29  
30 30  
31 31  func getStrByKey (key) = {
32 32      let str =     match getString(this, key) {
33 33          case a: String => 
34 34              a
35 35          case _ => 
36 36              NONE
37 37      }
38 38      str
39 39      }
40 40  
41 41  
42 42  func getKeyItem (supplier,title) = ("Bit-CO2_token: " + toBase58String(sha256(toBytes((supplier + title)))))
43 43  
44 44  
45 45  func getKeyItemSupplier (item) = (item + "_to_Amazonian_Conservation")
46 46  
47 47  
48 48  func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
49 49  
50 50  
51 51  func getKeyItemData (item) = "description: "
52 52  
53 53  
54 54  func getKeyItemDiscountSupplier (item) = "Offered_SupplierDiscount,_max_%"
55 55  
56 56  
57 57  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
58 58  
59 59  
60 60  func getKeyBalanceQtySupplier (item) = "Offered_Qty, balance:"
61 61  
62 62  
63 63  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64 64  
65 65  
66 66  func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
67 67  
68 68  
69 69  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
70 70  
71 71  
72 72  func getKeyUserItemCounter (user,item) = "Order_№:"
73 73  
74 74  
75 75  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
76 76  
77 77  
78 78  func getKeyItemUser (item) = "UserName:"
79 79  
80 80  
81 81  func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
82 82  
83 83  
84 84  func getKeyItemUserData (item) = "UserCountry:"
85 85  
86 86  
87 87  func getKeyItemDiscountUser (item) = "UserDiscount,_%:"
88 88  
89 89  
90 90  func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
91 91  
92 92  
93 93  func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
94 94  
95 95  
96 96  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
97 97  
98 98  
99 99  func getKeyItemPriceSupplier (item) = "_waves"
100 100  
101 101  
102 102  func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
103 103  
104 104  
105 105  @Callable(i)
106 106  func deposit (amount) = {
107 107      let pmt = extract(i.payment)
108 108      if ((pmt.assetId != aBitCO2))
109 109          then throw("Use cBitCO2 tokens only for the wallet deposit")
110 110          else {
111 111              let supplier = toBase58String(i.caller.bytes)
112 112              let currentAmount =             match getInteger(this, supplier) {
113 113                  case a: Int => 
114 114                      a
115 115                  case _ => 
116 116                      startQty
117 117              }
118 118              let newAmount = (currentAmount + pmt.amount)
119 119              WriteSet([DataEntry(supplier, newAmount)])
120 120              }
121 121      }
122 122  
123 123  
124 124  
125 125  @Callable(i)
126 126  func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
127 127      let supplier = toBase58String(i.caller.bytes)
128 128      let item = getKeyItem(supplier, title)
129 129      if ((0 >= preIcoQty))
130 130          then throw("Sorry, insufficient token offer")
131 131          else WriteSet([DataEntry(("Supplier:_" + getKeyItemSupplier(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)])
132 132      }
133 133  
134 134  
135 135  
136 136  @Callable(i)
137 - func purchase (item,userName,userCountry,userDiscount,orderQty) = {
137 + func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
138 138      let pmt = extract(i.payment)
139 139      if (isDefined(pmt.assetId))
140 140          then throw("you can adquire cBitCO2 only by Waves tokens")
141 141          else {
142 142              let supplier =             match getString(this, getKeyItemSupplier(item)) {
143 143                  case a: String => 
144 144                      a
145 145                  case _ => 
146 146                      NONE
147 147              }
148 148              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
149 149                  case a: Int => 
150 150                      a
151 151                  case _ => 
152 152                      startQty
153 153              }
154 154              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
155 155                  case a: Int => 
156 156                      a
157 157                  case _ => 
158 158                      0
159 159              }
160 160              let userAddress = toBase58String(i.caller.bytes)
161 161              let buyerTokenPrice = ((((100 - userDiscount) * nomPrice) * wvs) / 100)
162 162              let totalAmount = (orderQty * buyerTokenPrice)
163 163              if ((totalAmount > pmt.amount))
164 164                  then throw("Payment Amount cannot be less than item Purchase Order")
165 165                  else if ((pmt.amount > totalAmount))
166 166                      then throw("Payment Amount can't be higher than item Purchase Order")
167 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
167 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
168 168              }
169 169      }
170 170  
171 171  
172 172  
173 173  @Callable(i)
174 174  func withdraw (title,amount) = {
175 175      let supplier = toBase58String(i.caller.bytes)
176 176      let item = getKeyItem(supplier, title)
177 177      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
178 178          case a: Int => 
179 179              a
180 180          case _ => 
181 181              startQty
182 182      }
183 183      let newAmount = (preIcoQty - amount)
184 184      if ((0 > amount))
185 185          then throw("Can't withdraw negative amount")
186 186          else if ((0 > newAmount))
187 187              then throw("Not enought /suficiente balance")
188 188              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
189 189      }
190 190  
191 191  
192 192  @Verifier(tx)
193 193  func verify () = match tx {
194 194      case t: SetScriptTransaction => 
195 195          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
196 196      case d: DataTransaction => 
197 197          true
198 198      case tx: TransferTransaction => 
199 199          let recipient = toBase58String(addressFromRecipient(tx.recipient).bytes)
200 200          if ((tx.sender == issuer))
201 201              then true
202 202              else throw("You can't transferred this token")
203 203      case tx: ExchangeTransaction => 
204 204          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
205 205              then true
206 206              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
207 207          withWaves
208 208      case tx: ExchangeTransaction => 
209 209          let pk = tx.proofs[1]
210 210          let address = addressFromPublicKey(pk)
211 211          let fee = 1400000
212 212          let hasMoney = ((wavesBalance(address) - fee) >= tx.buyOrder.price)
213 213          let sell = sigVerify(tx.sellOrder.bodyBytes, tx.sellOrder.proofs[0], tx.sellOrder.senderPublicKey)
214 214          let buy = sigVerify(tx.buyOrder.bodyBytes, tx.buyOrder.proofs[0], tx.buyOrder.senderPublicKey)
215 215          let sellOrderSender = toBase58String(tx.sellOrder.sender.bytes)
216 216          let minAmount = 1
217 217          let maxAmount = 4
218 218          let maxPrice = (maxAmount * nomPrice)
219 219          if (if (buy)
220 220              then if (isDefined((maxPrice >= tx.buyOrder.price)))
221 221                  then true
222 222                  else throw("El monto a pagar no puede ser menor que el precio de venta")
223 223              else false)
224 224              then true
225 225              else if (sell)
226 226                  then if (if (if ((tx.sellOrder.sender == issuer))
227 227                      then (tx.amount >= minAmount)
228 228                      else false)
229 229                      then (maxAmount >= tx.amount)
230 230                      else false)
231 231                      then true
232 232                      else throw("Error: Minimum amount: 1 aBitCO2; Maximum amount offered: 4 aBitCO2 by User Account")
233 233                  else false
234 234      case c: InvokeScriptTransaction => 
235 235          true
236 236      case _ => 
237 237          false
238 238  }
239 239

Old	New		Differences
134	134
135	135
136	136		@Callable(i)
137		-	func purchase (item,~~userName~~,~~userCountry~~,userDiscount,orderQty) = {
	137	+	func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
138	138		let pmt = extract(i.payment)
139	139		if (isDefined(pmt.assetId))
140	140		then throw("you can adquire cBitCO2 only by Waves tokens")

164	164		then throw("Payment Amount cannot be less than item Purchase Order")
165	165		else if ((pmt.amount > totalAmount))
166	166		then throw("Payment Amount can't be higher than item Purchase Order")
167		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), ~~userName~~), DataEntry(getKeyItemUserData(item), ~~userCountry~~), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
	167	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
168	168		}
169	169		}
170	170

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5	5
6	6		let startQty = 332800
7	7
8	8		let nomPrice = 1
9	9
10	10		let supplierDiscount = 12
11	11
12	12		let OwnerEcoPubKey = base58'4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L'
13	13
14	14		let wvs = 100000000
15	15
16	16		let NONE = "none"
17	17
18	18		let issuer = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19	19
20	20		func getNumberByKey (key) = {
21	21		let num = match getInteger(this, key) {
22	22		case a: Int =>
23	23		a
24	24		case _ =>
25	25		0
26	26		}
27	27		num
28	28		}
29	29
30	30
31	31		func getStrByKey (key) = {
32	32		let str = match getString(this, key) {
33	33		case a: String =>
34	34		a
35	35		case _ =>
36	36		NONE
37	37		}
38	38		str
39	39		}
40	40
41	41
42	42		func getKeyItem (supplier,title) = ("Bit-CO2_token: " + toBase58String(sha256(toBytes((supplier + title)))))
43	43
44	44
45	45		func getKeyItemSupplier (item) = (item + "_to_Amazonian_Conservation")
46	46
47	47
48	48		func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
49	49
50	50
51	51		func getKeyItemData (item) = "description: "
52	52
53	53
54	54		func getKeyItemDiscountSupplier (item) = "Offered_SupplierDiscount,_max_%"
55	55
56	56
57	57		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
58	58
59	59
60	60		func getKeyBalanceQtySupplier (item) = "Offered_Qty, balance:"
61	61
62	62
63	63		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64	64
65	65
66	66		func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
67	67
68	68
69	69		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
70	70
71	71
72	72		func getKeyUserItemCounter (user,item) = "Order_№:"
73	73
74	74
75	75		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
76	76
77	77
78	78		func getKeyItemUser (item) = "UserName:"
79	79
80	80
81	81		func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
82	82
83	83
84	84		func getKeyItemUserData (item) = "UserCountry:"
85	85
86	86
87	87		func getKeyItemDiscountUser (item) = "UserDiscount,_%:"
88	88
89	89
90	90		func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
91	91
92	92
93	93		func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
94	94
95	95
96	96		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
97	97
98	98
99	99		func getKeyItemPriceSupplier (item) = "_waves"
100	100
101	101
102	102		func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
103	103
104	104
105	105		@Callable(i)
106	106		func deposit (amount) = {
107	107		let pmt = extract(i.payment)
108	108		if ((pmt.assetId != aBitCO2))
109	109		then throw("Use cBitCO2 tokens only for the wallet deposit")
110	110		else {
111	111		let supplier = toBase58String(i.caller.bytes)
112	112		let currentAmount = match getInteger(this, supplier) {
113	113		case a: Int =>
114	114		a
115	115		case _ =>
116	116		startQty
117	117		}
118	118		let newAmount = (currentAmount + pmt.amount)
119	119		WriteSet([DataEntry(supplier, newAmount)])
120	120		}
121	121		}
122	122
123	123
124	124
125	125		@Callable(i)
126	126		func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
127	127		let supplier = toBase58String(i.caller.bytes)
128	128		let item = getKeyItem(supplier, title)
129	129		if ((0 >= preIcoQty))
130	130		then throw("Sorry, insufficient token offer")
131	131		else WriteSet([DataEntry(("Supplier:_" + getKeyItemSupplier(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)])
132	132		}
133	133
134	134
135	135
136	136		@Callable(i)
137		-	func purchase (item,~~userName~~,~~userCountry~~,userDiscount,orderQty) = {
	137	+	func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
138	138		let pmt = extract(i.payment)
139	139		if (isDefined(pmt.assetId))
140	140		then throw("you can adquire cBitCO2 only by Waves tokens")
141	141		else {
142	142		let supplier = match getString(this, getKeyItemSupplier(item)) {
143	143		case a: String =>
144	144		a
145	145		case _ =>
146	146		NONE
147	147		}
148	148		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
149	149		case a: Int =>
150	150		a
151	151		case _ =>
152	152		startQty
153	153		}
154	154		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
155	155		case a: Int =>
156	156		a
157	157		case _ =>
158	158		0
159	159		}
160	160		let userAddress = toBase58String(i.caller.bytes)
161	161		let buyerTokenPrice = ((((100 - userDiscount) * nomPrice) * wvs) / 100)
162	162		let totalAmount = (orderQty * buyerTokenPrice)
163	163		if ((totalAmount > pmt.amount))
164	164		then throw("Payment Amount cannot be less than item Purchase Order")
165	165		else if ((pmt.amount > totalAmount))
166	166		then throw("Payment Amount can't be higher than item Purchase Order")
167		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), ~~userName~~), DataEntry(getKeyItemUserData(item), ~~userCountry~~), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
	167	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("UserPrice_1_token,_waves:_" + userAddress), buyerTokenPrice), DataEntry(("Payment_amount,_waves:_" + userAddress), totalAmount), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
168	168		}
169	169		}
170	170
171	171
172	172
173	173		@Callable(i)
174	174		func withdraw (title,amount) = {
175	175		let supplier = toBase58String(i.caller.bytes)
176	176		let item = getKeyItem(supplier, title)
177	177		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
178	178		case a: Int =>
179	179		a
180	180		case _ =>
181	181		startQty
182	182		}
183	183		let newAmount = (preIcoQty - amount)
184	184		if ((0 > amount))
185	185		then throw("Can't withdraw negative amount")
186	186		else if ((0 > newAmount))
187	187		then throw("Not enought /suficiente balance")
188	188		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
189	189		}
190	190
191	191
192	192		@Verifier(tx)
193	193		func verify () = match tx {
194	194		case t: SetScriptTransaction =>
195	195		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
196	196		case d: DataTransaction =>
197	197		true
198	198		case tx: TransferTransaction =>
199	199		let recipient = toBase58String(addressFromRecipient(tx.recipient).bytes)
200	200		if ((tx.sender == issuer))
201	201		then true
202	202		else throw("You can't transferred this token")
203	203		case tx: ExchangeTransaction =>
204	204		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
205	205		then true
206	206		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
207	207		withWaves
208	208		case tx: ExchangeTransaction =>
209	209		let pk = tx.proofs[1]
210	210		let address = addressFromPublicKey(pk)
211	211		let fee = 1400000
212	212		let hasMoney = ((wavesBalance(address) - fee) >= tx.buyOrder.price)
213	213		let sell = sigVerify(tx.sellOrder.bodyBytes, tx.sellOrder.proofs[0], tx.sellOrder.senderPublicKey)
214	214		let buy = sigVerify(tx.buyOrder.bodyBytes, tx.buyOrder.proofs[0], tx.buyOrder.senderPublicKey)
215	215		let sellOrderSender = toBase58String(tx.sellOrder.sender.bytes)
216	216		let minAmount = 1
217	217		let maxAmount = 4
218	218		let maxPrice = (maxAmount * nomPrice)
219	219		if (if (buy)
220	220		then if (isDefined((maxPrice >= tx.buyOrder.price)))
221	221		then true
222	222		else throw("El monto a pagar no puede ser menor que el precio de venta")
223	223		else false)
224	224		then true
225	225		else if (sell)
226	226		then if (if (if ((tx.sellOrder.sender == issuer))
227	227		then (tx.amount >= minAmount)
228	228		else false)
229	229		then (maxAmount >= tx.amount)
230	230		else false)
231	231		then true
232	232		else throw("Error: Minimum amount: 1 aBitCO2; Maximum amount offered: 4 aBitCO2 by User Account")
233	233		else false
234	234		case c: InvokeScriptTransaction =>
235	235		true
236	236		case _ =>
237	237		false
238	238		}
239	239

github/deemru/w8io/169f3d6 
51.96 ms ◑