w8 · tx · HtN···xc1

tx · HtNpgtqArVp9oiLLczciht6cB8kzutYkDp5Lqumd1xc1

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.15 23:17 [910819] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HtNpgtqArVp9oiLLczciht6cB8kzutYkDp5Lqumd1xc1",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1584303458437,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "2P4PwoDTqVeHBtGswukLvdVvUktZuvZqYE2v8bbseK1H84sAjx7KxnTNN8QYmpKJQkmLgiHntGzajewJNWaAsS27"
    ],
    "script": "base64:AAIDAAAAAAAAAB8IARIDCgEBEgYKBAgBAQgSCAoGCAgIAQEBEgQKAggBAAAAHQAAAAAHYUJpdENPMgEAAAAgx/h6AJ03UJ8qMmy7JIhz3VjOE4OL3ofCGi0oG2fBKJYAAAAACHN0YXJ0UXR5AAAAAAAABRQAAAAAAAhub21QcmljZQAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAOT3duZXJFY29QdWJLZXkBAAAAIC70W6NACRoO8DcwW0R46ze+bNGLr0tg3cAkNP8WNkAfAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAABmlzc3VlcgkBAAAAB0FkZHJlc3MAAAABAQAAABoBVMr3Oz7nL9FV4g+t+EWzLN77jdANRWt9bwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAABB0b2tlbnNfQml0LUNPMjpfCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAGl90b19BbWF6b25pYW5fQ29uc2VydmF0aW9uAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAXVG9rZW5zX29mZXJ0YWRvcyxfU2FsZG8BAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAMX2Rlc2NyaXB0aW9uAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEaXRlbQIAAAABXwUAAAAEdXNlcgIAAAAEX2NudAEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEAAAAEaXRlbQIAAAAJX3VzZXJkYXRhAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAAAdfdG9rZW5zAQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAVU2VsbGVyX0JhbGFuY2U6X3dhdmVzAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABAAAABGl0ZW0CAAAADVByb2plY3RfbmFtZToBAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtAgAAAAJfJQEAAAAcZ2V0VmFsdWVJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0CAAAABl93YXZlcwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQAAAAQAAAABaQEAAAAHZGVwb3NpdAAAAAEAAAAGYW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHYUJpdENPMgkAAAIAAAABAgAAAC5Vc2UgY0JpdENPMiB0b2tlbnMgb25seSBmb3IgdGhlIHdhbGxldCBkZXBvc2l0BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAABBBZGRTdXBwbGllclRva2VuAAAABAAAAAV0aXRsZQAAAAlwcmVJY29RdHkAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAxzdXBwbGllckRhdGEEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAwkAAGcAAAACAAAAAAAAAAAABQAAAAlwcmVJY29RdHkJAAACAAAAAQIAAAAfU29ycnksIGluc3VmZmljaWVudCB0b2tlbiBvZmZlcgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAtPZmVydGFudGU6XwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACHN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAJcHJlSWNvUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAD1ByZWNpb19Ob21pbmFsOgkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIbm9tUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAXTWF4X0Rlc2N1ZW50b19vZnJlY2lkbzoJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAEHN1cHBsaWVyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEFAAAABGl0ZW0FAAAADHN1cHBsaWVyRGF0YQUAAAADbmlsAAAAAWkBAAAACHB1cmNoYXNlAAAABgAAAARpdGVtAAAAC3Byb2plY3ROYW1lAAAACHVzZXJEYXRhAAAADHVzZXJEaXNjb3VudAAAAAhvcmRlclF0eQAAAAZhbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACx5b3UgY2FuIGFkcXVpcmUgY0JpdENPMiBvbmx5IGJ5IFdhdmVzIHRva2VucwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAD2J1eWVyVG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIFAAAACG5vbVByaWNlCQAAZQAAAAIAAAAAAAAAAGQFAAAADHVzZXJEaXNjb3VudAAAAAAAAAAAZAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAAIb3JkZXJRdHkFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0FAAAAC3Byb2plY3ROYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQUAAAAEaXRlbQUAAAAIdXNlckRhdGEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAABZEZXNjdWVudG8gc29saWNpdGFkbzpfBQAAAAt1c2VyQWRkcmVzcwIAAAACXyUFAAAADHVzZXJEaXNjb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABRDYW50aWRhZF9zb2xpY2l0YWRhOgkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtBQAAAAhvcmRlclF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAADk1vbnRvIHBhZ2FkbzpfBQAAAAt1c2VyQWRkcmVzcwIAAAAGX3dhdmVzBQAAAAZhbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAQUmVxdWVzdF9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAACWNvbmZpcm1lZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQUAAAADbmlsAAAAAWkBAAAACHdpdGhkcmF3AAAAAgAAAAV0aXRsZQAAAAZhbW91bnQEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAHkNhbid0IHdpdGhkcmF3IG5lZ2F0aXZlIGFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAH05vdCBlbm91Z2h0IC9zdWZpY2llbnRlIGJhbGFuY2UJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHYUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAAOT3duZXJFY29QdWJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAlyZWNpcGllbnQJAAJYAAAAAQgJAAQkAAAAAQgFAAAAAnR4AAAACXJlY2lwaWVudAAAAAVieXRlcwMJAAAAAAAAAggFAAAAAnR4AAAABnNlbmRlcgUAAAAGaXNzdWVyBgkAAAIAAAABAgAAACBZb3UgY2FuJ3QgdHJhbnNmZXJyZWQgdGhpcyB0b2tlbgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAAAnBrCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEEAAAAB2FkZHJlc3MJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEFAAAAAnBrBAAAAANmZWUAAAAAAAAVXMAEAAAACGhhc01vbmV5CQAAZwAAAAIJAABlAAAAAgkBAAAADHdhdmVzQmFsYW5jZQAAAAEFAAAAB2FkZHJlc3MFAAAAA2ZlZQgIBQAAAAJ0eAAAAAhidXlPcmRlcgAAAAVwcmljZQQAAAAEc2VsbAkAAfQAAAADCAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlib2R5Qnl0ZXMJAAGRAAAAAggIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAGcHJvb2ZzAAAAAAAAAAAACAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAA9zZW5kZXJQdWJsaWNLZXkEAAAAA2J1eQkAAfQAAAADCAgFAAAAAnR4AAAACGJ1eU9yZGVyAAAACWJvZHlCeXRlcwkAAZEAAAACCAgFAAAAAnR4AAAACGJ1eU9yZGVyAAAABnByb29mcwAAAAAAAAAAAAgIBQAAAAJ0eAAAAAhidXlPcmRlcgAAAA9zZW5kZXJQdWJsaWNLZXkEAAAAD3NlbGxPcmRlclNlbmRlcgkAAlgAAAABCAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAGc2VuZGVyAAAABWJ5dGVzBAAAAAltaW5BbW91bnQAAAAAAAAAAAEEAAAACW1heEFtb3VudAAAAAAAAAAABAQAAAAIbWF4UHJpY2UJAABoAAAAAgUAAAAJbWF4QW1vdW50BQAAAAhub21QcmljZQMDBQAAAANidXkDCQEAAAAJaXNEZWZpbmVkAAAAAQkAAGcAAAACBQAAAAhtYXhQcmljZQgIBQAAAAJ0eAAAAAhidXlPcmRlcgAAAAVwcmljZQYJAAACAAAAAQIAAAA6RWwgbW9udG8gYSBwYWdhciBubyBwdWVkZSBzZXIgbWVub3IgcXVlIGVsIHByZWNpbyBkZSB2ZW50YQcGAwUAAAAEc2VsbAMDAwkAAAAAAAACCAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAZzZW5kZXIFAAAABmlzc3VlcgkAAGcAAAACCAUAAAACdHgAAAAGYW1vdW50BQAAAAltaW5BbW91bnQHCQAAZwAAAAIFAAAACW1heEFtb3VudAgFAAAAAnR4AAAABmFtb3VudAcGCQAAAgAAAAECAAAAU0Vycm9yOiBNaW5pbXVtIGFtb3VudDogMSBhQml0Q08yOyBNYXhpbXVtIGFtb3VudCBvZmZlcmVkOiA0IGFCaXRDTzIgYnkgVXNlciBBY2NvdW50BwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAXSW52b2tlU2NyaXB0VHJhbnNhY3Rpb24EAAAAAWMFAAAAByRtYXRjaDAGB/Bv42Y=",
    "chainId": 84,
    "height": 910819,
    "spentComplexity": 0
}

View: original | compacted
Prev: 7MuaQNfsFECarGHPX9aJwheMhV6amZSamAinmPLt2hxB
Next: 5kknR3Zvzxg6eoRVQQRxs6S1hcrXqRPLXzfeRhCyGVGH

Diff: 
Old New Differences
97 97  
98 98  
99 99  @Callable(i)
100 + func deposit (amount) = {
101 +     let pmt = extract(i.payment)
102 +     if ((pmt.assetId != aBitCO2))
103 +         then throw("Use cBitCO2 tokens only for the wallet deposit")
104 +         else {
105 +             let supplier = toBase58String(i.caller.bytes)
106 +             let currentAmount =             match getInteger(this, supplier) {
107 +                 case a: Int => 
108 +                     a
109 +                 case _ => 
110 +                     startQty
111 +             }
112 +             let newAmount = (currentAmount + pmt.amount)
113 +             WriteSet([DataEntry(supplier, newAmount)])
114 +             }
115 +     }
116 + 
117 + 
118 + 
119 + @Callable(i)
100 120  func AddSupplierToken (title,preIcoQty,supplierDiscount,supplierData) = {
101 121      let supplier = toBase58String(i.caller.bytes)
102 122      let item = getKeyItem(supplier, title)
138 158                  then throw("Payment Amount cannot be less than item Purchase Order")
139 159                  else if ((pmt.amount > totalAmount))
140 160                      then throw("Payment Amount can't be higher than item Purchase Order")
141 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
161 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(nil))
142 162              }
163 +     }
164 + 
165 + 
166 + 
167 + @Callable(i)
168 + func withdraw (title,amount) = {
169 +     let supplier = toBase58String(i.caller.bytes)
170 +     let item = getKeyItem(supplier, title)
171 +     let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
172 +         case a: Int => 
173 +             a
174 +         case _ => 
175 +             startQty
176 +     }
177 +     let newAmount = (preIcoQty - amount)
178 +     if ((0 > amount))
179 +         then throw("Can't withdraw negative amount")
180 +         else if ((0 > newAmount))
181 +             then throw("Not enought /suficiente balance")
182 +             else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
143 183      }
144 184  
145 185  
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 = 100000000
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) = ("tokens_Bit-CO2:_" + 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 getKeyBalanceQtySupplier (item) = "Tokens_ofertados,_Saldo"
52 52  
53 53  
54 54  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
55 55  
56 56  
57 57  func getKeyItemData (item) = (item + "_description")
58 58  
59 59  
60 60  func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
61 61  
62 62  
63 63  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
64 64  
65 65  
66 66  func getKeyItemUserData (item) = "_userdata"
67 67  
68 68  
69 69  func getKeyItemUserOrderQty (item) = "_tokens"
70 70  
71 71  
72 72  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
73 73  
74 74  
75 75  func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
76 76  
77 77  
78 78  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
79 79  
80 80  
81 81  func getKeyItemUser (item) = "Project_name:"
82 82  
83 83  
84 84  func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
85 85  
86 86  
87 87  func getKeyItemDiscountSupplier (item) = "_%"
88 88  
89 89  
90 90  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
91 91  
92 92  
93 93  func getKeyItemPriceSupplier (item) = "_waves"
94 94  
95 95  
96 96  func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
97 97  
98 98  
99 99  @Callable(i)
100 + func deposit (amount) = {
101 +     let pmt = extract(i.payment)
102 +     if ((pmt.assetId != aBitCO2))
103 +         then throw("Use cBitCO2 tokens only for the wallet deposit")
104 +         else {
105 +             let supplier = toBase58String(i.caller.bytes)
106 +             let currentAmount =             match getInteger(this, supplier) {
107 +                 case a: Int => 
108 +                     a
109 +                 case _ => 
110 +                     startQty
111 +             }
112 +             let newAmount = (currentAmount + pmt.amount)
113 +             WriteSet([DataEntry(supplier, newAmount)])
114 +             }
115 +     }
116 + 
117 + 
118 + 
119 + @Callable(i)
100 120  func AddSupplierToken (title,preIcoQty,supplierDiscount,supplierData) = {
101 121      let supplier = toBase58String(i.caller.bytes)
102 122      let item = getKeyItem(supplier, title)
103 123      if ((0 >= preIcoQty))
104 124          then throw("Sorry, insufficient token offer")
105 125          else WriteSet([DataEntry(("Ofertante:_" + getKeyItemSupplier(item)), supplier), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("Precio_Nominal:" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(getKeyItemData(item), supplierData)])
106 126      }
107 127  
108 128  
109 129  
110 130  @Callable(i)
111 131  func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
112 132      let pmt = extract(i.payment)
113 133      if (isDefined(pmt.assetId))
114 134          then throw("you can adquire cBitCO2 only by Waves tokens")
115 135          else {
116 136              let supplier =             match getString(this, getKeyItemSupplier(item)) {
117 137                  case a: String => 
118 138                      a
119 139                  case _ => 
120 140                      NONE
121 141              }
122 142              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
123 143                  case a: Int => 
124 144                      a
125 145                  case _ => 
126 146                      startQty
127 147              }
128 148              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
129 149                  case a: Int => 
130 150                      a
131 151                  case _ => 
132 152                      0
133 153              }
134 154              let userAddress = toBase58String(i.caller.bytes)
135 155              let buyerTokenPrice = ((nomPrice * (100 - userDiscount)) / 100)
136 156              let totalAmount = (orderQty * buyerTokenPrice)
137 157              if ((totalAmount > pmt.amount))
138 158                  then throw("Payment Amount cannot be less than item Purchase Order")
139 159                  else if ((pmt.amount > totalAmount))
140 160                      then throw("Payment Amount can't be higher than item Purchase Order")
141 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
161 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(nil))
142 162              }
163 +     }
164 + 
165 + 
166 + 
167 + @Callable(i)
168 + func withdraw (title,amount) = {
169 +     let supplier = toBase58String(i.caller.bytes)
170 +     let item = getKeyItem(supplier, title)
171 +     let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
172 +         case a: Int => 
173 +             a
174 +         case _ => 
175 +             startQty
176 +     }
177 +     let newAmount = (preIcoQty - amount)
178 +     if ((0 > amount))
179 +         then throw("Can't withdraw negative amount")
180 +         else if ((0 > newAmount))
181 +             then throw("Not enought /suficiente balance")
182 +             else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
143 183      }
144 184  
145 185  
146 186  @Verifier(tx)
147 187  func verify () = match tx {
148 188      case t: SetScriptTransaction => 
149 189          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
150 190      case d: DataTransaction => 
151 191          true
152 192      case tx: TransferTransaction => 
153 193          let recipient = toBase58String(addressFromRecipient(tx.recipient).bytes)
154 194          if ((tx.sender == issuer))
155 195              then true
156 196              else throw("You can't transferred this token")
157 197      case tx: ExchangeTransaction => 
158 198          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
159 199              then true
160 200              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
161 201          withWaves
162 202      case tx: ExchangeTransaction => 
163 203          let pk = tx.proofs[1]
164 204          let address = addressFromPublicKey(pk)
165 205          let fee = 1400000
166 206          let hasMoney = ((wavesBalance(address) - fee) >= tx.buyOrder.price)
167 207          let sell = sigVerify(tx.sellOrder.bodyBytes, tx.sellOrder.proofs[0], tx.sellOrder.senderPublicKey)
168 208          let buy = sigVerify(tx.buyOrder.bodyBytes, tx.buyOrder.proofs[0], tx.buyOrder.senderPublicKey)
169 209          let sellOrderSender = toBase58String(tx.sellOrder.sender.bytes)
170 210          let minAmount = 1
171 211          let maxAmount = 4
172 212          let maxPrice = (maxAmount * nomPrice)
173 213          if (if (buy)
174 214              then if (isDefined((maxPrice >= tx.buyOrder.price)))
175 215                  then true
176 216                  else throw("El monto a pagar no puede ser menor que el precio de venta")
177 217              else false)
178 218              then true
179 219              else if (sell)
180 220                  then if (if (if ((tx.sellOrder.sender == issuer))
181 221                      then (tx.amount >= minAmount)
182 222                      else false)
183 223                      then (maxAmount >= tx.amount)
184 224                      else false)
185 225                      then true
186 226                      else throw("Error: Minimum amount: 1 aBitCO2; Maximum amount offered: 4 aBitCO2 by User Account")
187 227                  else false
188 228      case c: InvokeScriptTransaction => 
189 229          true
190 230      case _ => 
191 231          false
192 232  }
193 233

Old	New		Differences
97	97
98	98
99	99		@Callable(i)
	100	+	func deposit (amount) = {
	101	+	let pmt = extract(i.payment)
	102	+	if ((pmt.assetId != aBitCO2))
	103	+	then throw("Use cBitCO2 tokens only for the wallet deposit")
	104	+	else {
	105	+	let supplier = toBase58String(i.caller.bytes)
	106	+	let currentAmount = match getInteger(this, supplier) {
	107	+	case a: Int =>
	108	+	a
	109	+	case _ =>
	110	+	startQty
	111	+	}
	112	+	let newAmount = (currentAmount + pmt.amount)
	113	+	WriteSet([DataEntry(supplier, newAmount)])
	114	+	}
	115	+	}
	116	+
	117	+
	118	+
	119	+	@Callable(i)
100	120		func AddSupplierToken (title,preIcoQty,supplierDiscount,supplierData) = {
101	121		let supplier = toBase58String(i.caller.bytes)
102	122		let item = getKeyItem(supplier, title)

138	158		then throw("Payment Amount cannot be less than item Purchase Order")
139	159		else if ((pmt.amount > totalAmount))
140	160		then throw("Payment Amount can't be higher than item Purchase Order")
141		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(~~[ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]~~))
	161	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(nil))
142	162		}
	163	+	}
	164	+
	165	+
	166	+
	167	+	@Callable(i)
	168	+	func withdraw (title,amount) = {
	169	+	let supplier = toBase58String(i.caller.bytes)
	170	+	let item = getKeyItem(supplier, title)
	171	+	let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
	172	+	case a: Int =>
	173	+	a
	174	+	case _ =>
	175	+	startQty
	176	+	}
	177	+	let newAmount = (preIcoQty - amount)
	178	+	if ((0 > amount))
	179	+	then throw("Can't withdraw negative amount")
	180	+	else if ((0 > newAmount))
	181	+	then throw("Not enought /suficiente balance")
	182	+	else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
143	183		}
144	184
145	185

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 = 100000000
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) = ("tokens_Bit-CO2:_" + 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 getKeyBalanceQtySupplier (item) = "Tokens_ofertados,_Saldo"
52	52
53	53
54	54		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
55	55
56	56
57	57		func getKeyItemData (item) = (item + "_description")
58	58
59	59
60	60		func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
61	61
62	62
63	63		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
64	64
65	65
66	66		func getKeyItemUserData (item) = "_userdata"
67	67
68	68
69	69		func getKeyItemUserOrderQty (item) = "_tokens"
70	70
71	71
72	72		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
73	73
74	74
75	75		func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
76	76
77	77
78	78		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
79	79
80	80
81	81		func getKeyItemUser (item) = "Project_name:"
82	82
83	83
84	84		func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
85	85
86	86
87	87		func getKeyItemDiscountSupplier (item) = "_%"
88	88
89	89
90	90		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
91	91
92	92
93	93		func getKeyItemPriceSupplier (item) = "_waves"
94	94
95	95
96	96		func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
97	97
98	98
99	99		@Callable(i)
	100	+	func deposit (amount) = {
	101	+	let pmt = extract(i.payment)
	102	+	if ((pmt.assetId != aBitCO2))
	103	+	then throw("Use cBitCO2 tokens only for the wallet deposit")
	104	+	else {
	105	+	let supplier = toBase58String(i.caller.bytes)
	106	+	let currentAmount = match getInteger(this, supplier) {
	107	+	case a: Int =>
	108	+	a
	109	+	case _ =>
	110	+	startQty
	111	+	}
	112	+	let newAmount = (currentAmount + pmt.amount)
	113	+	WriteSet([DataEntry(supplier, newAmount)])
	114	+	}
	115	+	}
	116	+
	117	+
	118	+
	119	+	@Callable(i)
100	120		func AddSupplierToken (title,preIcoQty,supplierDiscount,supplierData) = {
101	121		let supplier = toBase58String(i.caller.bytes)
102	122		let item = getKeyItem(supplier, title)
103	123		if ((0 >= preIcoQty))
104	124		then throw("Sorry, insufficient token offer")
105	125		else WriteSet([DataEntry(("Ofertante:_" + getKeyItemSupplier(item)), supplier), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("Precio_Nominal:" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(getKeyItemData(item), supplierData)])
106	126		}
107	127
108	128
109	129
110	130		@Callable(i)
111	131		func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
112	132		let pmt = extract(i.payment)
113	133		if (isDefined(pmt.assetId))
114	134		then throw("you can adquire cBitCO2 only by Waves tokens")
115	135		else {
116	136		let supplier = match getString(this, getKeyItemSupplier(item)) {
117	137		case a: String =>
118	138		a
119	139		case _ =>
120	140		NONE
121	141		}
122	142		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
123	143		case a: Int =>
124	144		a
125	145		case _ =>
126	146		startQty
127	147		}
128	148		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
129	149		case a: Int =>
130	150		a
131	151		case _ =>
132	152		0
133	153		}
134	154		let userAddress = toBase58String(i.caller.bytes)
135	155		let buyerTokenPrice = ((nomPrice * (100 - userDiscount)) / 100)
136	156		let totalAmount = (orderQty * buyerTokenPrice)
137	157		if ((totalAmount > pmt.amount))
138	158		then throw("Payment Amount cannot be less than item Purchase Order")
139	159		else if ((pmt.amount > totalAmount))
140	160		then throw("Payment Amount can't be higher than item Purchase Order")
141		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(~~[ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]~~))
	161	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet(nil))
142	162		}
	163	+	}
	164	+
	165	+
	166	+
	167	+	@Callable(i)
	168	+	func withdraw (title,amount) = {
	169	+	let supplier = toBase58String(i.caller.bytes)
	170	+	let item = getKeyItem(supplier, title)
	171	+	let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
	172	+	case a: Int =>
	173	+	a
	174	+	case _ =>
	175	+	startQty
	176	+	}
	177	+	let newAmount = (preIcoQty - amount)
	178	+	if ((0 > amount))
	179	+	then throw("Can't withdraw negative amount")
	180	+	else if ((0 > newAmount))
	181	+	then throw("Not enought /suficiente balance")
	182	+	else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
143	183		}
144	184
145	185
146	186		@Verifier(tx)
147	187		func verify () = match tx {
148	188		case t: SetScriptTransaction =>
149	189		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
150	190		case d: DataTransaction =>
151	191		true
152	192		case tx: TransferTransaction =>
153	193		let recipient = toBase58String(addressFromRecipient(tx.recipient).bytes)
154	194		if ((tx.sender == issuer))
155	195		then true
156	196		else throw("You can't transferred this token")
157	197		case tx: ExchangeTransaction =>
158	198		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
159	199		then true
160	200		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
161	201		withWaves
162	202		case tx: ExchangeTransaction =>
163	203		let pk = tx.proofs[1]
164	204		let address = addressFromPublicKey(pk)
165	205		let fee = 1400000
166	206		let hasMoney = ((wavesBalance(address) - fee) >= tx.buyOrder.price)
167	207		let sell = sigVerify(tx.sellOrder.bodyBytes, tx.sellOrder.proofs[0], tx.sellOrder.senderPublicKey)
168	208		let buy = sigVerify(tx.buyOrder.bodyBytes, tx.buyOrder.proofs[0], tx.buyOrder.senderPublicKey)
169	209		let sellOrderSender = toBase58String(tx.sellOrder.sender.bytes)
170	210		let minAmount = 1
171	211		let maxAmount = 4
172	212		let maxPrice = (maxAmount * nomPrice)
173	213		if (if (buy)
174	214		then if (isDefined((maxPrice >= tx.buyOrder.price)))
175	215		then true
176	216		else throw("El monto a pagar no puede ser menor que el precio de venta")
177	217		else false)
178	218		then true
179	219		else if (sell)
180	220		then if (if (if ((tx.sellOrder.sender == issuer))
181	221		then (tx.amount >= minAmount)
182	222		else false)
183	223		then (maxAmount >= tx.amount)
184	224		else false)
185	225		then true
186	226		else throw("Error: Minimum amount: 1 aBitCO2; Maximum amount offered: 4 aBitCO2 by User Account")
187	227		else false
188	228		case c: InvokeScriptTransaction =>
189	229		true
190	230		case _ =>
191	231		false
192	232		}
193	233

github/deemru/w8io/873ac7e 
59.33 ms ◑