w8 · tx · 6rA···iFy

tx · 6rAAmEWw76pejyhJUq7AZVCqJpK23AadUTaKRFXbiFy

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.31 22:31 [934059] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6rAAmEWw76pejyhJUq7AZVCqJpK23AadUTaKRFXbiFy",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1585679556701,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "21DPHa2ZjguGoDR8tedoXDWmNyxQgAzBeHra91NXhXZywaXL68we5cTNMW2hujtrWZbWeHKDwe1JG3sYfyGbZaZe"
    ],
    "script": "base64:AAIDAAAAAAAAACAIARIDCgEBEggKBggICAEBCBIHCgUICAgBARIECgIIAQAAAB8AAAAAB2FCaXRDTzIBAAAAIMf4egCdN1CfKjJsuySIc91YzhODi96HwhotKBtnwSiWAAAAAAhzdGFydFF0eQAAAAAAAAUUAAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAEHN1cHBsaWVyRGlzY291bnQAAAAAAAAAAAwAAAAADk93bmVyRWNvUHViS2V5AQAAACAu9FujQAkaDvA3MFtEeOs3vmzRi69LYN3AJDT/FjZAHwAAAAADd3ZzAAAAAAAF9eEAAAAAAAROT05FAgAAAARub25lAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTK9zs+5y/RVeIPrfhFsyze+43QDUVrfW8BAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAFdGl0bGUJAAEsAAAAAgIAAAAPQml0LUNPMl90b2tlbjogCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAGl90b19BbWF6b25pYW5fQ29uc2VydmF0aW9uAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1EYXRhAAAAAQAAAARpdGVtAgAAAA1kZXNjcmlwdGlvbjogAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAYU3VwcGxpZXJEaXNjb3VudCwgbWF4XyU6AQAAABxnZXRWYWx1ZUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAFkJhbGFuY2UvU2FsZG8sIHRva2VuczoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAaQmFsYW5jZS9TZWxsZXJXYWxsZXQsIHd2czoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtAgAAAAlVc2VyTmFtZToBAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEAAAAEaXRlbQIAAAAMVXNlckNvdW50cnk6AQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQAAAARpdGVtAgAAABBVc2VyRGlzY291bnQsICU6AQAAABhnZXRWYWx1ZUl0ZW1EaXNjb3VudFVzZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQUAAAAEaXRlbQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQIAAAASVXNlck9yZGVyLCB0b2tlbnM6AQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0CAAAABl93YXZlcwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQAAAAQAAAABaQEAAAAHZGVwb3NpdAAAAAEAAAAGYW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHYUJpdENPMgkAAAIAAAABAgAAAC5Vc2UgY0JpdENPMiB0b2tlbnMgb25seSBmb3IgdGhlIHdhbGxldCBkZXBvc2l0BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAABBBZGRTdXBwbGllclRva2VuAAAABgAAAAV0aXRsZQAAAARuYW1lAAAAB2NvdW50cnkAAAAJcHJlSWNvUXR5AAAAEHN1cHBsaWVyRGlzY291bnQAAAAMc3VwcGxpZXJEYXRhBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAARpdGVtCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJcHJlSWNvUXR5CQAAAgAAAAECAAAAH1NvcnJ5LCBpbnN1ZmZpY2llbnQgdG9rZW4gb2ZmZXIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAKU3VwcGxpZXI6XwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACHN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAB1RpdGxlOl8FAAAACHN1cHBsaWVyBQAAAAV0aXRsZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA1Qcm9qZWN0TmFtZTpfBQAAAAhzdXBwbGllcgUAAAAEbmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAlDb3VudHJ5Ol8FAAAACHN1cHBsaWVyBQAAAAdjb3VudHJ5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAJcHJlSWNvUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAD05vbVRva2VuUHJpY2U6XwkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGgAAAACBQAAAAhub21QcmljZQUAAAADd3ZzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAF01heF9EZXNjdWVudG9fb2ZyZWNpZG86CQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAABBzdXBwbGllckRpc2NvdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADURldmVsb3BtZW50Ol8JAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEFAAAABGl0ZW0FAAAADHN1cHBsaWVyRGF0YQUAAAADbmlsAAAAAWkBAAAACHB1cmNoYXNlAAAABQAAAARpdGVtAAAACHVzZXJOYW1lAAAAC3VzZXJDb3VudHJ5AAAADHVzZXJEaXNjb3VudAAAAAhvcmRlclF0eQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAALHlvdSBjYW4gYWRxdWlyZSBjQml0Q08yIG9ubHkgYnkgV2F2ZXMgdG9rZW5zBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAPYnV5ZXJUb2tlblByaWNlCQAAaQAAAAIJAABoAAAAAgkAAGgAAAACCQAAZQAAAAIAAAAAAAAAAGQFAAAADHVzZXJEaXNjb3VudAUAAAAIbm9tUHJpY2UFAAAAA3d2cwAAAAAAAAAAZAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAAIb3JkZXJRdHkFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAhvcmRlclF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtVXNlckRhdGEAAAABBQAAAARpdGVtBQAAAAt1c2VyQ291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABBQAAAARpdGVtBQAAAAx1c2VyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAaMXRva2VuUHJpY2UgdG8gVXNlciwgd3ZzOl8FAAAAC3VzZXJBZGRyZXNzBQAAAA9idXllclRva2VuUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAUUGF5bWVudEFtb3VudCwgd3ZzOl8FAAAAC3VzZXJBZGRyZXNzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA1PcmRlclN0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAJY29uZmlybWVkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MFAAAACG9yZGVyUXR5BQAAAAdhQml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABXRpdGxlAAAABmFtb3VudAQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAEaXRlbQkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAAeQ2FuJ3Qgd2l0aGRyYXcgbmVnYXRpdmUgYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAiTm90IGVub3VnaHQgLyBpbnN1ZmljaWVudGUgYmFsYW5jZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAdhQml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAA5Pd25lckVjb1B1YktleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXJlY2lwaWVudAkAAlgAAAABCAkABCQAAAABCAUAAAACdHgAAAAJcmVjaXBpZW50AAAABWJ5dGVzAwkAAAAAAAACCAUAAAACdHgAAAAGc2VuZGVyBQAAAAZpc3N1ZXIGCQAAAgAAAAECAAAAIFlvdSBjYW4ndCB0cmFuc2ZlcnJlZCB0aGlzIHRva2VuAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJd2l0aFdhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAAJd2l0aFdhdmVzAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAACcGsJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQQAAAAHYWRkcmVzcwkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQUAAAACcGsEAAAAA2ZlZQAAAAAAABVcwAQAAAAIaGFzTW9uZXkJAABnAAAAAgkAAGUAAAACCQEAAAAMd2F2ZXNCYWxhbmNlAAAAAQUAAAAHYWRkcmVzcwUAAAADZmVlCAgFAAAAAnR4AAAACGJ1eU9yZGVyAAAABXByaWNlBAAAAARzZWxsCQAB9AAAAAMICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWJvZHlCeXRlcwkAAZEAAAACCAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAZwcm9vZnMAAAAAAAAAAAAICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAAD3NlbmRlclB1YmxpY0tleQQAAAADYnV5CQAB9AAAAAMICAUAAAACdHgAAAAIYnV5T3JkZXIAAAAJYm9keUJ5dGVzCQABkQAAAAIICAUAAAACdHgAAAAIYnV5T3JkZXIAAAAGcHJvb2ZzAAAAAAAAAAAACAgFAAAAAnR4AAAACGJ1eU9yZGVyAAAAD3NlbmRlclB1YmxpY0tleQQAAAAPc2VsbE9yZGVyU2VuZGVyCQACWAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAZzZW5kZXIAAAAFYnl0ZXMEAAAACW1pbkFtb3VudAAAAAAAAAAAAQQAAAAJbWF4QW1vdW50AAAAAAAAAAAEBAAAAAhtYXhQcmljZQkAAGgAAAACBQAAAAltYXhBbW91bnQFAAAACG5vbVByaWNlAwMFAAAAA2J1eQMJAQAAAAlpc0RlZmluZWQAAAABCQAAZwAAAAIFAAAACG1heFByaWNlCAgFAAAAAnR4AAAACGJ1eU9yZGVyAAAABXByaWNlBgkAAAIAAAABAgAAADpFbCBtb250byBhIHBhZ2FyIG5vIHB1ZWRlIHNlciBtZW5vciBxdWUgZWwgcHJlY2lvIGRlIHZlbnRhBwYDBQAAAARzZWxsAwMDCQAAAAAAAAIICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAABnNlbmRlcgUAAAAGaXNzdWVyCQAAZwAAAAIIBQAAAAJ0eAAAAAZhbW91bnQFAAAACW1pbkFtb3VudAcJAABnAAAAAgUAAAAJbWF4QW1vdW50CAUAAAACdHgAAAAGYW1vdW50BwYJAAACAAAAAQIAAABTRXJyb3I6IE1pbmltdW0gYW1vdW50OiA1IEJpdENPMjsgTWF4aW11bSBhbW91bnQgb2ZmZXJlZDogMTAwMCBCaXRDTzIgYnkgVXNlckFjY291bnQHAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABdJbnZva2VTY3JpcHRUcmFuc2FjdGlvbgQAAAABYwUAAAAHJG1hdGNoMAYHyuUq+A==",
    "chainId": 84,
    "height": 934059,
    "spentComplexity": 0
}

View: original | compacted
Prev: 9LxUFMnHUJ635c4PUGN5Uu7idQtxg7XWa7zUhTU44GPS
Next: 7VraN61gXSHUdLg7waDYxzuuB2KUckPfNoPZB9SMzUiD

Diff: 
Old New Differences
63 63  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64 64  
65 65  
66 - func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, waves:"
66 + func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, wvs:"
67 67  
68 68  
69 69  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
164 164                  then throw("Payment Amount can't 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(("1tokenPrice to User, waves:_" + userAddress), (buyerTokenPrice / wvs)), DataEntry(("PaymentAmount, waves:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("1tokenPrice to User, wvs:_" + userAddress), buyerTokenPrice), DataEntry(("PaymentAmount, wvs:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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) = "SupplierDiscount, max_%:"
55 55  
56 56  
57 57  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
58 58  
59 59  
60 60  func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
61 61  
62 62  
63 63  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64 64  
65 65  
66 - func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, waves:"
66 + func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, wvs:"
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) = "UserOrder, 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 137  func purchase (item,userName,userCountry,userDiscount,orderQty) = {
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 can't 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(("1tokenPrice to User, waves:_" + userAddress), (buyerTokenPrice / wvs)), DataEntry(("PaymentAmount, waves:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("1tokenPrice to User, wvs:_" + userAddress), buyerTokenPrice), DataEntry(("PaymentAmount, wvs:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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 / insuficiente 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: 5 BitCO2; Maximum amount offered: 1000 BitCO2 by UserAccount")
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
63	63		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64	64
65	65
66		-	func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, ~~waves~~:"
	66	+	func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, wvs:"
67	67
68	68
69	69		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))

164	164		then throw("Payment Amount can't 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(("1tokenPrice to User, ~~waves~~:_" + userAddress), (buyerTokenPrice ~~/ wvs)~~), DataEntry(("PaymentAmount, ~~waves~~:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("1tokenPrice to User, wvs:_" + userAddress), buyerTokenPrice), DataEntry(("PaymentAmount, wvs:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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) = "SupplierDiscount, max_%:"
55	55
56	56
57	57		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
58	58
59	59
60	60		func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
61	61
62	62
63	63		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
64	64
65	65
66		-	func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, ~~waves~~:"
	66	+	func getKeyBalanceSupplier (supplier) = "Balance/SellerWallet, wvs:"
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) = "UserOrder, 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	137		func purchase (item,userName,userCountry,userDiscount,orderQty) = {
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 can't 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(("1tokenPrice to User, ~~waves~~:_" + userAddress), (buyerTokenPrice ~~/ wvs)~~), DataEntry(("PaymentAmount, ~~waves~~:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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), userName), DataEntry(getKeyItemUserData(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry(("1tokenPrice to User, wvs:_" + userAddress), buyerTokenPrice), DataEntry(("PaymentAmount, wvs:_" + userAddress), totalAmount), DataEntry(("OrderStatus:_" + 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 / insuficiente 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: 5 BitCO2; Maximum amount offered: 1000 BitCO2 by UserAccount")
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/873ac7e 
69.02 ms ◑