w8 · tx · F89···egQ

tx · F898v8TCrdgj48CH6ntwgGCjvcNitv47d9NMs2obVegQ

3MrYoV4W5mu5ZP8rPspCXveMXusGstSPTjL:  -0.01400000 Waves

2020.01.31 13:10 [878390] smart account 3MrYoV4W5mu5ZP8rPspCXveMXusGstSPTjL > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "F898v8TCrdgj48CH6ntwgGCjvcNitv47d9NMs2obVegQ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1580465421472,
    "version": 1,
    "sender": "3MrYoV4W5mu5ZP8rPspCXveMXusGstSPTjL",
    "senderPublicKey": "f1NbgbpkRpbigsrHaDkWZAkPgcqd8GM5G5eNmqnTD6z",
    "proofs": [
        "4uYh1R7K2vSD1a91n71N3Q2RPsPniwA6eWE5zpV6d5nwUSCPkGB5SDz3qexBwkPDVc4d5biEDmk14Ve8Wdn4kL93"
    ],
    "script": "base64:AAIDAAAAAAAAAA8IARIFCgMICAgSBAoCCAgAAAAHAAAAAAh2ZXJpZmllcgkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTjJzNVJ0YUhQQmVuQ3N4MkVDY29GUmJZSHgzbm9aaFhXMQAAAAAEYmFuawIAAAAjM04xRTZ0WGRkUm9WYVJmUTlkUTN2ZzVMYVcyZnNkOEhLdWIBAAAACGlzQWRyZXNzAAAAAQAAAARhZGRyAwMJAAAAAAAAAgkAATEAAAABBQAAAARhZGRyAAAAAAAAAAAjCQAAAAAAAAIJAAEvAAAAAgUAAAAEYWRkcgAAAAAAAAAAAgIAAAACM04HBgkAAAAAAAACCQABLwAAAAIFAAAABGFkZHIAAAAAAAAAAAICAAAAAjNNAQAAAAxjb3VudFBhcnRpZXMAAAACAAAAC2FjY3VtdWxhdG9yAAAABGFkZHIDCQAAZgAAAAIJAAExAAAAAQUAAAAEYWRkcgAAAAAAAAAAAAkAAGQAAAACBQAAAAthY2N1bXVsYXRvcgAAAAAAAAAAAQkAAGQAAAACBQAAAAthY2N1bXVsYXRvcgAAAAAAAAAAAAEAAAAUY2hlY2tJZlBlbmRpbmdUb1NpZ24AAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAMJAAAAAAAAAgUAAAABYQIAAAAHUEVORElORwYHBwEAAAAOZ2V0VmFsdWVTdHJpbmcAAAABAAAABGpzb24JAAEvAAAAAgkAATAAAAACBQAAAARqc29uAAAAAAAAAAABCQEAAAAFdmFsdWUAAAABCQAEswAAAAIJAAEwAAAAAgUAAAAEanNvbgAAAAAAAAAAAQIAAAABIgEAAAAIZ2V0VmFsdWUAAAACAAAABGpzb24AAAADa2V5BAAAAAhrZXlJbmRleAkBAAAABXZhbHVlAAAAAQkABLMAAAACBQAAAARqc29uCQABLAAAAAIJAAEsAAAAAgIAAAABIgUAAAADa2V5AgAAAAIiOgQAAAAEZGF0YQkAATAAAAACBQAAAARqc29uCQAAZAAAAAIJAABkAAAAAgUAAAAIa2V5SW5kZXgJAAExAAAAAQUAAAADa2V5AAAAAAAAAAADBAAAAAlqc29uVmFsdWUJAQAAAA5nZXRWYWx1ZVN0cmluZwAAAAEFAAAABGRhdGEFAAAACWpzb25WYWx1ZQAAAAIAAAAGaW52b2tlAQAAAA9jcmVhdGVBZ3JlZW1lbnQAAAADAAAABGhhc2gAAAAFdGl0bGUAAAAJYWRkcmVzc2VzBAAAAAdwYXltZW50CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAZpbnZva2UAAAAHcGF5bWVudAQAAAAGYW1vdW50CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAdwYXltZW50AAAABmFtb3VudAQAAAACaWQJAQAAAAdleHRyYWN0AAAAAQgFAAAABmludm9rZQAAAA10cmFuc2FjdGlvbklkBAAAAA5hZGRyZXNzZXNBcnJheQkABEwAAAACCQEAAAAIZ2V0VmFsdWUAAAACBQAAAAlhZGRyZXNzZXMCAAAACGFkZHJlc3MxCQAETAAAAAIJAQAAAAhnZXRWYWx1ZQAAAAIFAAAACWFkZHJlc3NlcwIAAAAIYWRkcmVzczIJAARMAAAAAgkBAAAACGdldFZhbHVlAAAAAgUAAAAJYWRkcmVzc2VzAgAAAAhhZGRyZXNzMwkABEwAAAACCQEAAAAIZ2V0VmFsdWUAAAACBQAAAAlhZGRyZXNzZXMCAAAACGFkZHJlc3M0CQAETAAAAAIJAQAAAAhnZXRWYWx1ZQAAAAIFAAAACWFkZHJlc3NlcwIAAAAIYWRkcmVzczUJAARMAAAAAgkBAAAACGdldFZhbHVlAAAAAgUAAAAJYWRkcmVzc2VzAgAAAAhhZGRyZXNzNgUAAAADbmlsBAAAAA50b3RhbEFkZHJlc3NlcwQAAAANJGxpc3QxNTAyMTU0MgUAAAAOYWRkcmVzc2VzQXJyYXkEAAAADSRzaXplMTUwMjE1NDIJAAGQAAAAAQUAAAANJGxpc3QxNTAyMTU0MgQAAAANJGFjYzAxNTAyMTU0MgAAAAAAAAAAAAMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAAAAUAAAANJGFjYzAxNTAyMTU0MgQAAAANJGFjYzExNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2MwMTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAAAAMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAAAQUAAAANJGFjYzExNTAyMTU0MgQAAAANJGFjYzIxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2MxMTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAAAQMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAAAgUAAAANJGFjYzIxNTAyMTU0MgQAAAANJGFjYzMxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2MyMTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAAAgMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAAAwUAAAANJGFjYzMxNTAyMTU0MgQAAAANJGFjYzQxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2MzMTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAAAwMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAABAUAAAANJGFjYzQxNTAyMTU0MgQAAAANJGFjYzUxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2M0MTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAABAMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAABQUAAAANJGFjYzUxNTAyMTU0MgQAAAANJGFjYzYxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2M1MTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAABQMJAAAAAAAAAgUAAAANJHNpemUxNTAyMTU0MgAAAAAAAAAABgUAAAANJGFjYzYxNTAyMTU0MgQAAAANJGFjYzcxNTAyMTU0MgkBAAAADGNvdW50UGFydGllcwAAAAIFAAAADSRhY2M2MTUwMjE1NDIJAAGRAAAAAgUAAAANJGxpc3QxNTAyMTU0MgAAAAAAAAAABgkAAAIAAAABAgAAABJMaXN0IHNpemUgZXhjZWVkIDYEAAAADnBheW1lbnRBc3NldElkAwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQJAQAAAAdleHRyYWN0AAAAAQgFAAAAB3BheW1lbnQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACBXYXZlcyBpcyBub3QgYWNjZXB0ZWQgYXMgcGF5bWVudAQAAAANYWNjZXB0ZWRUb2tlbgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABF3aGl0ZV9saXN0X3Rva2VuXwkAAlgAAAABCQEAAAAHZXh0cmFjdAAAAAEFAAAADnBheW1lbnRBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEJAAACAAAAAQIAAAAoVGhpcyB0b2tlbiBpcyBub3QgYWNjZXB0ZWQgYXQgdGhlIG1vbWVudAQAAAAMY3VycmVudFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABJjZXJ0aWZpY2F0aW9uX2ZlZV8JAAJYAAAAAQkBAAAAB2V4dHJhY3QAAAABBQAAAA5wYXltZW50QXNzZXRJZAMJAQAAAAIhPQAAAAIFAAAADWFjY2VwdGVkVG9rZW4CAAAAC1dISVRFTElTVEVECQAAAgAAAAECAAAAL09ubHkgcGF5bWVudHMgaW4gU0lHTiBhcmUgYWxsb3dlZCBhdCB0aGUgbW9tZW50AwkAAGYAAAACCQAAaAAAAAIFAAAADGN1cnJlbnRQcmljZQUAAAAOdG90YWxBZGRyZXNzZXMFAAAABmFtb3VudAkAAAIAAAABCQABLAAAAAICAAAAIVRoZSBwcmljZSBpcyB3cm9uZywgaXQgc2hvdWxkIGJlIAkAAaQAAAABCQAAaAAAAAIFAAAADGN1cnJlbnRQcmljZQUAAAAOdG90YWxBZGRyZXNzZXMDCQAAAAAAAAIFAAAADnRvdGFsQWRkcmVzc2VzAAAAAAAAAAAKCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACXRpdGxlX01BXwkAAlgAAAABBQAAAAJpZAUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAAAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HBQAAAANuaWwDCQAAAAAAAAIFAAAADnRvdGFsQWRkcmVzc2VzAAAAAAAAAAAGCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAl0aXRsZV9NQV8JAAJYAAAAAQUAAAACaWQFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACGhhc2hfTUFfCQACWAAAAAEFAAAAAmlkBQAAAARoYXNoCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACGRhdGFfTUFfCQACWAAAAAEFAAAAAmlkBQAAAAlhZGRyZXNzZXMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAAAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAQIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAICAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAADAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAABAIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAUCAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAABGJhbmsFAAAABmFtb3VudAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAAAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAEAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAgAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAADAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAQAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAABQAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQFAAAAA25pbAMJAAAAAAAAAgUAAAAOdG90YWxBZGRyZXNzZXMAAAAAAAAAAAUJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACXRpdGxlX01BXwkAAlgAAAABBQAAAAJpZAUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAIaGFzaF9NQV8JAAJYAAAAAQUAAAACaWQFAAAABGhhc2gJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAIZGF0YV9NQV8JAAJYAAAAAQUAAAACaWQFAAAACWFkZHJlc3NlcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAACAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAABAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAgIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAMCAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAEAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAARiYW5rBQAAAAZhbW91bnQFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAAAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAABAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAIAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAwAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAEAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAUAAAADbmlsAwkAAAAAAAACBQAAAA50b3RhbEFkZHJlc3NlcwAAAAAAAAAABAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAJdGl0bGVfTUFfCQACWAAAAAEFAAAAAmlkBQAAAAV0aXRsZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAhoYXNoX01BXwkAAlgAAAABBQAAAAJpZAUAAAAEaGFzaAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAhkYXRhX01BXwkAAlgAAAABBQAAAAJpZAUAAAAJYWRkcmVzc2VzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAAIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAECAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAACAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAwIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAAEYmFuawUAAAAGYW1vdW50BQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAAAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAQAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAACAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAMAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkBQAAAANuaWwDCQAAAAAAAAIFAAAADnRvdGFsQWRkcmVzc2VzAAAAAAAAAAADCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAl0aXRsZV9NQV8JAAJYAAAAAQUAAAACaWQFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACGhhc2hfTUFfCQACWAAAAAEFAAAAAmlkBQAAAARoYXNoCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACGRhdGFfTUFfCQACWAAAAAEFAAAAAmlkBQAAAAlhZGRyZXNzZXMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAAAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAQIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAIAAAAHUEVORElORwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAICAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAABGJhbmsFAAAABmFtb3VudAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAAAAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAEAAAAAAAAAAAAFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAgAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQFAAAAA25pbAMJAAAAAAAAAgUAAAAOdG90YWxBZGRyZXNzZXMAAAAAAAAAAAIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACXRpdGxlX01BXwkAAlgAAAABBQAAAAJpZAUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAIaGFzaF9NQV8JAAJYAAAAAQUAAAACaWQFAAAABGhhc2gJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAIZGF0YV9NQV8JAAJYAAAAAQUAAAACaWQFAAAACWFkZHJlc3NlcwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAIJAAGRAAAAAgUAAAAOYWRkcmVzc2VzQXJyYXkAAAAAAAAAAAACAAAABF9NQV8JAAJYAAAAAQUAAAACaWQCAAAAB1BFTkRJTkcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAABAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAdQRU5ESU5HBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAARiYW5rBQAAAAZhbW91bnQFAAAADnBheW1lbnRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQkAAZEAAAACBQAAAA5hZGRyZXNzZXNBcnJheQAAAAAAAAAAAAAAAAAAAAAAAAUAAAAOcGF5bWVudEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABCQABkQAAAAIFAAAADmFkZHJlc3Nlc0FycmF5AAAAAAAAAAABAAAAAAAAAAAABQAAAA5wYXltZW50QXNzZXRJZAUAAAADbmlsCQAAAgAAAAEJAAEsAAAAAgIAAAAeTmVlZHMgMiB0byA2IHBhcnRpZXMgYWRkcmVzc2VzCQABpAAAAAEFAAAADnRvdGFsQWRkcmVzc2VzAAAABmludm9rZQEAAAANc2lnbkFncmVlbWVudAAAAAIAAAAEaGFzaAAAAAthZ3JlZW1lbnRJZAQAAAAHcGF5bWVudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAGaW52b2tlAAAAB3BheW1lbnQEAAAABmFtb3VudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAHcGF5bWVudAAAAAZhbW91bnQEAAAAAmlkCQEAAAAHZXh0cmFjdAAAAAEIBQAAAAZpbnZva2UAAAANdHJhbnNhY3Rpb25JZAQAAAAGc2lnbmVyCQACWAAAAAEICAUAAAAGaW52b2tlAAAABmNhbGxlcgAAAAVieXRlcwQAAAATc2lnbmluZ1JlcXVlc3RFeGlzdAkBAAAAFGNoZWNrSWZQZW5kaW5nVG9TaWduAAAAAQkAASwAAAACCQABLAAAAAIFAAAABnNpZ25lcgIAAAAEX01BXwkAAlgAAAABBQAAAAJpZAMFAAAAE3NpZ25pbmdSZXF1ZXN0RXhpc3QJAAACAAAAAQIAAAAjU29ycnkgdGhlcmUgaXMgbm8gcGVuZGluZyBzaWduYXR1cmUJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAGc2lnbmVyAgAAAARfTUFfCQACWAAAAAEFAAAAAmlkAgAAAAZTSUdORUQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAABnNpZ25lcgAAAAAAAAehIAUAAAAEdW5pdAUAAAADbmlsAAAAAGThLUw=",
    "chainId": 84,
    "height": 878390,
    "spentComplexity": 0
}

View: original | compacted
Prev: HdmBb4jvHbRBJ7L8348ggN49ZDn98SfuHv5qjFTqWUEz
Next: ESBs7yJtRF9VR4b9v3suFew2Ut9BBMnmUjwnzoKJAEod

Diff: 
Old New Differences
99 99          then throw("Only payments in SIGN are allowed at the moment")
100 100          else if (((currentPrice * totalAddresses) > amount))
101 101              then throw(("The price is wrong, it should be " + toString((currentPrice * totalAddresses))))
102 -             else if ((totalAddresses == 5))
103 -                 then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
104 -                 else if ((totalAddresses == 4))
105 -                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
106 -                     else if ((totalAddresses == 3))
107 -                         then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
108 -                         else if ((totalAddresses == 2))
109 -                             then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
110 -                             else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
102 +             else if ((totalAddresses == 10))
103 +                 then WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING")])
104 +                 else if ((totalAddresses == 6))
105 +                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[5] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[5]), 0, paymentAssetId)]))
106 +                     else if ((totalAddresses == 5))
107 +                         then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
108 +                         else if ((totalAddresses == 4))
109 +                             then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
110 +                             else if ((totalAddresses == 3))
111 +                                 then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
112 +                                 else if ((totalAddresses == 2))
113 +                                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
114 +                                     else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
111 115      }
112 116  
113 117  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let verifier = extract(addressFromString("3N2s5RtaHPBenCsx2ECcoFRbYHx3noZhXW1"))
5 5  
6 6  let bank = "3N1E6tXddRoVaRfQ9dQ3vg5LaW2fsd8HKub"
7 7  
8 8  func isAdress (addr) = if (if ((size(addr) == 35))
9 9      then (take(addr, 2) == "3N")
10 10      else false)
11 11      then true
12 12      else (take(addr, 2) == "3M")
13 13  
14 14  
15 15  func countParties (accumulator,addr) = if ((size(addr) > 0))
16 16      then (accumulator + 1)
17 17      else (accumulator + 0)
18 18  
19 19  
20 20  func checkIfPendingToSign (key) = match getString(this, key) {
21 21      case a: String => 
22 22          if ((a == "PENDING"))
23 23              then true
24 24              else false
25 25      case _ => 
26 26          false
27 27  }
28 28  
29 29  
30 30  func getValueString (json) = take(drop(json, 1), value(indexOf(drop(json, 1), "\"")))
31 31  
32 32  
33 33  func getValue (json,key) = {
34 34      let keyIndex = value(indexOf(json, (("\"" + key) + "\":")))
35 35      let data = drop(json, ((keyIndex + size(key)) + 3))
36 36      let jsonValue = getValueString(data)
37 37      jsonValue
38 38      }
39 39  
40 40  
41 41  @Callable(invoke)
42 42  func createAgreement (hash,title,addresses) = {
43 43      let payment = extract(invoke.payment)
44 44      let amount = extract(payment.amount)
45 45      let id = extract(invoke.transactionId)
46 46      let addressesArray = [getValue(addresses, "address1"), getValue(addresses, "address2"), getValue(addresses, "address3"), getValue(addresses, "address4"), getValue(addresses, "address5"), getValue(addresses, "address6")]
47 47      let totalAddresses = {
48 48          let $list15021542 = addressesArray
49 49          let $size15021542 = size($list15021542)
50 50          let $acc015021542 = 0
51 51          if (($size15021542 == 0))
52 52              then $acc015021542
53 53              else {
54 54                  let $acc115021542 = countParties($acc015021542, $list15021542[0])
55 55                  if (($size15021542 == 1))
56 56                      then $acc115021542
57 57                      else {
58 58                          let $acc215021542 = countParties($acc115021542, $list15021542[1])
59 59                          if (($size15021542 == 2))
60 60                              then $acc215021542
61 61                              else {
62 62                                  let $acc315021542 = countParties($acc215021542, $list15021542[2])
63 63                                  if (($size15021542 == 3))
64 64                                      then $acc315021542
65 65                                      else {
66 66                                          let $acc415021542 = countParties($acc315021542, $list15021542[3])
67 67                                          if (($size15021542 == 4))
68 68                                              then $acc415021542
69 69                                              else {
70 70                                                  let $acc515021542 = countParties($acc415021542, $list15021542[4])
71 71                                                  if (($size15021542 == 5))
72 72                                                      then $acc515021542
73 73                                                      else {
74 74                                                          let $acc615021542 = countParties($acc515021542, $list15021542[5])
75 75                                                          if (($size15021542 == 6))
76 76                                                              then $acc615021542
77 77                                                              else {
78 78                                                                  let $acc715021542 = countParties($acc615021542, $list15021542[6])
79 79                                                                  throw("List size exceed 6")
80 80                                                                  }
81 81                                                          }
82 82                                                  }
83 83                                          }
84 84                                  }
85 85                          }
86 86                  }
87 87          }
88 88      let paymentAssetId = if (isDefined(payment.assetId))
89 89          then extract(payment.assetId)
90 90          else throw("Waves is not accepted as payment")
91 91      let acceptedToken =     match getString(verifier, ("white_list_token_" + toBase58String(extract(paymentAssetId)))) {
92 92          case a: String => 
93 93              a
94 94          case _ => 
95 95              throw("This token is not accepted at the moment")
96 96      }
97 97      let currentPrice = getIntegerValue(verifier, ("certification_fee_" + toBase58String(extract(paymentAssetId))))
98 98      if ((acceptedToken != "WHITELISTED"))
99 99          then throw("Only payments in SIGN are allowed at the moment")
100 100          else if (((currentPrice * totalAddresses) > amount))
101 101              then throw(("The price is wrong, it should be " + toString((currentPrice * totalAddresses))))
102 -             else if ((totalAddresses == 5))
103 -                 then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
104 -                 else if ((totalAddresses == 4))
105 -                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
106 -                     else if ((totalAddresses == 3))
107 -                         then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
108 -                         else if ((totalAddresses == 2))
109 -                             then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
110 -                             else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
102 +             else if ((totalAddresses == 10))
103 +                 then WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING")])
104 +                 else if ((totalAddresses == 6))
105 +                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[5] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[5]), 0, paymentAssetId)]))
106 +                     else if ((totalAddresses == 5))
107 +                         then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
108 +                         else if ((totalAddresses == 4))
109 +                             then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
110 +                             else if ((totalAddresses == 3))
111 +                                 then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
112 +                                 else if ((totalAddresses == 2))
113 +                                     then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
114 +                                     else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
111 115      }
112 116  
113 117  
114 118  
115 119  @Callable(invoke)
116 120  func signAgreement (hash,agreementId) = {
117 121      let payment = extract(invoke.payment)
118 122      let amount = extract(payment.amount)
119 123      let id = extract(invoke.transactionId)
120 124      let signer = toBase58String(invoke.caller.bytes)
121 125      let signingRequestExist = checkIfPendingToSign(((signer + "_MA_") + toBase58String(id)))
122 126      if (signingRequestExist)
123 127          then throw("Sorry there is no pending signature")
124 128          else ScriptResult(WriteSet([DataEntry(((signer + "_MA_") + toBase58String(id)), "SIGNED")]), TransferSet([ScriptTransfer(addressFromStringValue(signer), 500000, unit)]))
125 129      }
126 130  
127 131

Old	New		Differences
99	99		then throw("Only payments in SIGN are allowed at the moment")
100	100		else if (((currentPrice * totalAddresses) > amount))
101	101		then throw(("The price is wrong, it should be " + toString((currentPrice * totalAddresses))))
102		-	else if ((totalAddresses == 5))
103		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
104		-	else if ((totalAddresses == 4))
105		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
106		-	else if ((totalAddresses == 3))
107		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
108		-	else if ((totalAddresses == 2))
109		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
110		-	else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
	102	+	else if ((totalAddresses == 10))
	103	+	then WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING")])
	104	+	else if ((totalAddresses == 6))
	105	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[5] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[5]), 0, paymentAssetId)]))
	106	+	else if ((totalAddresses == 5))
	107	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
	108	+	else if ((totalAddresses == 4))
	109	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
	110	+	else if ((totalAddresses == 3))
	111	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
	112	+	else if ((totalAddresses == 2))
	113	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
	114	+	else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
111	115		}
112	116
113	117

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let verifier = extract(addressFromString("3N2s5RtaHPBenCsx2ECcoFRbYHx3noZhXW1"))
5	5
6	6		let bank = "3N1E6tXddRoVaRfQ9dQ3vg5LaW2fsd8HKub"
7	7
8	8		func isAdress (addr) = if (if ((size(addr) == 35))
9	9		then (take(addr, 2) == "3N")
10	10		else false)
11	11		then true
12	12		else (take(addr, 2) == "3M")
13	13
14	14
15	15		func countParties (accumulator,addr) = if ((size(addr) > 0))
16	16		then (accumulator + 1)
17	17		else (accumulator + 0)
18	18
19	19
20	20		func checkIfPendingToSign (key) = match getString(this, key) {
21	21		case a: String =>
22	22		if ((a == "PENDING"))
23	23		then true
24	24		else false
25	25		case _ =>
26	26		false
27	27		}
28	28
29	29
30	30		func getValueString (json) = take(drop(json, 1), value(indexOf(drop(json, 1), "\"")))
31	31
32	32
33	33		func getValue (json,key) = {
34	34		let keyIndex = value(indexOf(json, (("\"" + key) + "\":")))
35	35		let data = drop(json, ((keyIndex + size(key)) + 3))
36	36		let jsonValue = getValueString(data)
37	37		jsonValue
38	38		}
39	39
40	40
41	41		@Callable(invoke)
42	42		func createAgreement (hash,title,addresses) = {
43	43		let payment = extract(invoke.payment)
44	44		let amount = extract(payment.amount)
45	45		let id = extract(invoke.transactionId)
46	46		let addressesArray = [getValue(addresses, "address1"), getValue(addresses, "address2"), getValue(addresses, "address3"), getValue(addresses, "address4"), getValue(addresses, "address5"), getValue(addresses, "address6")]
47	47		let totalAddresses = {
48	48		let $list15021542 = addressesArray
49	49		let $size15021542 = size($list15021542)
50	50		let $acc015021542 = 0
51	51		if (($size15021542 == 0))
52	52		then $acc015021542
53	53		else {
54	54		let $acc115021542 = countParties($acc015021542, $list15021542[0])
55	55		if (($size15021542 == 1))
56	56		then $acc115021542
57	57		else {
58	58		let $acc215021542 = countParties($acc115021542, $list15021542[1])
59	59		if (($size15021542 == 2))
60	60		then $acc215021542
61	61		else {
62	62		let $acc315021542 = countParties($acc215021542, $list15021542[2])
63	63		if (($size15021542 == 3))
64	64		then $acc315021542
65	65		else {
66	66		let $acc415021542 = countParties($acc315021542, $list15021542[3])
67	67		if (($size15021542 == 4))
68	68		then $acc415021542
69	69		else {
70	70		let $acc515021542 = countParties($acc415021542, $list15021542[4])
71	71		if (($size15021542 == 5))
72	72		then $acc515021542
73	73		else {
74	74		let $acc615021542 = countParties($acc515021542, $list15021542[5])
75	75		if (($size15021542 == 6))
76	76		then $acc615021542
77	77		else {
78	78		let $acc715021542 = countParties($acc615021542, $list15021542[6])
79	79		throw("List size exceed 6")
80	80		}
81	81		}
82	82		}
83	83		}
84	84		}
85	85		}
86	86		}
87	87		}
88	88		let paymentAssetId = if (isDefined(payment.assetId))
89	89		then extract(payment.assetId)
90	90		else throw("Waves is not accepted as payment")
91	91		let acceptedToken = match getString(verifier, ("white_list_token_" + toBase58String(extract(paymentAssetId)))) {
92	92		case a: String =>
93	93		a
94	94		case _ =>
95	95		throw("This token is not accepted at the moment")
96	96		}
97	97		let currentPrice = getIntegerValue(verifier, ("certification_fee_" + toBase58String(extract(paymentAssetId))))
98	98		if ((acceptedToken != "WHITELISTED"))
99	99		then throw("Only payments in SIGN are allowed at the moment")
100	100		else if (((currentPrice * totalAddresses) > amount))
101	101		then throw(("The price is wrong, it should be " + toString((currentPrice * totalAddresses))))
102		-	else if ((totalAddresses == 5))
103		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
104		-	else if ((totalAddresses == 4))
105		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
106		-	else if ((totalAddresses == 3))
107		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
108		-	else if ((totalAddresses == 2))
109		-	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
110		-	else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
	102	+	else if ((totalAddresses == 10))
	103	+	then WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING")])
	104	+	else if ((totalAddresses == 6))
	105	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[5] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[5]), 0, paymentAssetId)]))
	106	+	else if ((totalAddresses == 5))
	107	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[4] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[4]), 0, paymentAssetId)]))
	108	+	else if ((totalAddresses == 4))
	109	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[3] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[3]), 0, paymentAssetId)]))
	110	+	else if ((totalAddresses == 3))
	111	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[2] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[2]), 0, paymentAssetId)]))
	112	+	else if ((totalAddresses == 2))
	113	+	then ScriptResult(WriteSet([DataEntry(("title_MA_" + toBase58String(id)), title), DataEntry(("hash_MA_" + toBase58String(id)), hash), DataEntry(("data_MA_" + toBase58String(id)), addresses), DataEntry(((addressesArray[0] + "_MA_") + toBase58String(id)), "PENDING"), DataEntry(((addressesArray[1] + "_MA_") + toBase58String(id)), "PENDING")]), TransferSet([ScriptTransfer(addressFromStringValue(bank), amount, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[0]), 0, paymentAssetId), ScriptTransfer(addressFromStringValue(addressesArray[1]), 0, paymentAssetId)]))
	114	+	else throw(("Needs 2 to 6 parties addresses" + toString(totalAddresses)))
111	115		}
112	116
113	117
114	118
115	119		@Callable(invoke)
116	120		func signAgreement (hash,agreementId) = {
117	121		let payment = extract(invoke.payment)
118	122		let amount = extract(payment.amount)
119	123		let id = extract(invoke.transactionId)
120	124		let signer = toBase58String(invoke.caller.bytes)
121	125		let signingRequestExist = checkIfPendingToSign(((signer + "_MA_") + toBase58String(id)))
122	126		if (signingRequestExist)
123	127		then throw("Sorry there is no pending signature")
124	128		else ScriptResult(WriteSet([DataEntry(((signer + "_MA_") + toBase58String(id)), "SIGNED")]), TransferSet([ScriptTransfer(addressFromStringValue(signer), 500000, unit)]))
125	129		}
126	130
127	131

github/deemru/w8io/169f3d6 
43.50 ms ◑