tx · E7M9R9qmhBAPGh1Pb4msHu85YJPUkVfubrVdb5UVsxSb

3MqEAEVk1NcbRAuEPAX7nyzUqMHbhvRofez:  -0.00700000 Waves

2023.11.10 12:22 [2837064] smart account 3MqEAEVk1NcbRAuEPAX7nyzUqMHbhvRofez > SELF 0.00000000 Waves

{ "type": 13, "id": "E7M9R9qmhBAPGh1Pb4msHu85YJPUkVfubrVdb5UVsxSb", "fee": 700000, "feeAssetId": null, "timestamp": 1699608197635, "version": 2, "chainId": 84, "sender": "3MqEAEVk1NcbRAuEPAX7nyzUqMHbhvRofez", "senderPublicKey": "Brp6cacBXyKUcZr5Uc6VDKsnFcaEeQ8nQzrZQyobDsuf", "proofs": [ "2QBGBMH85PpJB8K2yur7sQ9i4yCmB3EHxiWgHCGL59DSa2jdxoV9ZXiUueBD6558ti55fTAJLf67kWppwcXC4G4K" ], "script": "base64:BgISCAISABIAEgASAwoBCBIDCgEYEQENdHJ5R2V0SW50ZWdlcgIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJoIAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQx0cnlHZXRTdHJpbmcCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCdCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWIFByRtYXRjaDAFAWICAAAHYnVybnh0bgEgJE91eWp+Mzm4+wz/hKlxXF7KLd4zoMRdafnqRBHsTFQAA1BaMQEaAVeFnSww1fwDPmHFrd6Sv8UqkfOZrhpBQAoAA1BaMgEaAVf1RmgngA1o304mdXq0odMoMeAJv/V5eTcAA1BaMwEaAVdrUh3hZ11iM5xE9ppvCu7VVcjaIPzs5scAA1BaNAEaAVd8ufIkLHkd+cILYV2n5Ut+Pmb4MdnkIOIAA1BaNQEaAVdzM1uLVnknLEeNcZD2LCCz+T9Cl/2cRdIAA1BaNgEaAVdHHWb6sJRhaJYHMq62QOOh/3POTybYR7oAB1dYc3Rha2UBGgFX6zvnfm4FGMKRpJgWF+Fm10UnIO4lSVaoAANXWDEBGgFXK+KucXt9yTC1IHnnFsVrbVdAgaU4Fj0+AANMUDECLEd5aUhkY041OXNaNDZiYUZ2ajY4cnVMbmdyVFBFdldEdHNkNmpIbTRvNDZuAANXWDIBGgFXwRfLSELOBVNDikdciGeU9BfVx8LU1MNSAANMUDICLDNNUEhNSlZ3WUd5ZUJMUnNIMVJzWWhyVG1lbXY3NTJBRUJ3dUZGVjdnNDlaAQVQWmJhbAILUG9vbGFkZHJlc3MHYWRkcmVzcwQLYnVybnh0bkluUFoJAQ10cnlHZXRJbnRlZ2VyAgkBB0FkZHJlc3MBBQtQb29sYWRkcmVzcwkArAICCQCsAgICB2dsb2JhbF8JANgEAQUHYnVybnh0bgIIX2JhbGFuY2UEDmFkZHJlc3NTdGFrZVBaCQENdHJ5R2V0SW50ZWdlcgIJAQdBZGRyZXNzAQULUG9vbGFkZHJlc3MJAKwCAgkApQgBBQdhZGRyZXNzAgxfaW5kZXhTdGFrZWQEDHRvdGFsU3Rha2VQWgkBDXRyeUdldEludGVnZXICCQEHQWRkcmVzcwEFC1Bvb2xhZGRyZXNzAhdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAkAawMFC2J1cm54dG5JblBaBQ5hZGRyZXNzU3Rha2VQWgUMdG90YWxTdGFrZVBaAQVXWGJhbAMLUG9vbGFkZHJlc3MHYWRkcmVzcwVMUHN0cgQLYnVybnh0bkluV1gJAPAHAgkBB0FkZHJlc3MBBQtQb29sYWRkcmVzcwUHYnVybnh0bgQOYWRkcmVzc1N0YWtlV1gJAQ10cnlHZXRJbnRlZ2VyAgkBB0FkZHJlc3MBBQdXWHN0YWtlCQCsAgIJAKwCAgkArAICAhAlcyVzJXNfX3N0YWtlZF9fCQClCAEFB2FkZHJlc3MCAl9fBQVMUHN0cgQMdG90YWxTdGFrZVdYCQENdHJ5R2V0SW50ZWdlcgIJAQdBZGRyZXNzAQUHV1hzdGFrZQkArAICAhclcyVzJXNfX3N0YWtlZF9fdG90YWxfXwUFTFBzdHIJAGsDBQtidXJueHRuSW5XWAUOYWRkcmVzc1N0YWtlV1gFDHRvdGFsU3Rha2VXWAEMdG90YWxCYWxhbmNlAQdhZGRyZXNzBA5idXJueHRuQmFsYW5jZQkA8AcCBQdhZGRyZXNzBQdidXJueHRuBApQWjFiYWxhbmNlCQEFUFpiYWwCBQNQWjEFB2FkZHJlc3MEClBaMmJhbGFuY2UJAQVQWmJhbAIFA1BaMgUHYWRkcmVzcwQKUFozYmFsYW5jZQkBBVBaYmFsAgUDUFozBQdhZGRyZXNzBApQWjRiYWxhbmNlCQEFUFpiYWwCBQNQWjQFB2FkZHJlc3MEClBaNWJhbGFuY2UJAQVQWmJhbAIFA1BaNQUHYWRkcmVzcwQKUFo2YmFsYW5jZQkBBVBaYmFsAgUDUFo2BQdhZGRyZXNzBApXWDFiYWxhbmNlCQEFV1hiYWwDBQNXWDEFB2FkZHJlc3MFA0xQMQQKV1gyYmFsYW5jZQkBBVdYYmFsAwUDV1gyBQdhZGRyZXNzBQNMUDIEBXRvdGFsCQBkAgkAZAIJAGQCCQBkAgkAZAIJAGQCCQBkAgkAZAIFDmJ1cm54dG5CYWxhbmNlBQpQWjFiYWxhbmNlBQpQWjJiYWxhbmNlBQpQWjNiYWxhbmNlBQpQWjRiYWxhbmNlBQpQWjViYWxhbmNlBQpQWjZiYWxhbmNlBQpXWDFiYWxhbmNlBQpXWDJiYWxhbmNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAg5idXJueHRuQmFsYW5jZQUOYnVybnh0bkJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaMWJhbGFuY2UFClBaMWJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaMmJhbGFuY2UFClBaMmJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaM2JhbGFuY2UFClBaM2JhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaNGJhbGFuY2UFClBaNGJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaNWJhbGFuY2UFClBaNWJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICClBaNmJhbGFuY2UFClBaNmJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICCldYMWJhbGFuY2UFCldYMWJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICCldYMmJhbGFuY2UFCldYMmJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQICBXRvdGFsBQV0b3RhbAUDbmlsBQFpAQhyZWdpc3RlcgADCQEIY29udGFpbnMCCQEMdHJ5R2V0U3RyaW5nAgUEdGhpcwISQWRkcmVzcyByZWdpc3RlcmVkCQClCAEIBQFpBmNhbGxlcgkAAgECEmFscmVhZHkgcmVnaXN0ZXJlZAMJAGYCBQZoZWlnaHQAAQkAAgECE3JlZ2lzdHJhdGlvbiBjbG9zZWQJAMwIAgkBDEludGVnZXJFbnRyeQICEUFtb3VudCBSZWdpc3RlcmVkCQBkAgkBDXRyeUdldEludGVnZXICBQR0aGlzAhFBbW91bnQgUmVnaXN0ZXJlZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgISUmVnaXN0ZXIgYWRkcmVzczogCQCkAwEJAGQCCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMCEUFtb3VudCBSZWdpc3RlcmVkAAEJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICEkFkZHJlc3MgcmVnaXN0ZXJlZAkArAICCQCsAgIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAhJBZGRyZXNzIHJlZ2lzdGVyZWQJAKUIAQgFAWkGY2FsbGVyAgEsBQNuaWwBaQEIbWFrZUxpc3QABAlhZGRyZXNzZXMJALMCAgkBDHRyeUdldFN0cmluZwIFBHRoaXMCEkFkZHJlc3MgcmVnaXN0ZXJlZAABBARsaXN0CQC1CQIFCWFkZHJlc3NlcwIBLAQIbGlzdFNpemUJAJADAQUEbGlzdAQLZmlyc3RPZkxpc3QJAJEDAgUEbGlzdAAABApsYXN0T2ZMaXN0CQCRAwIFBGxpc3QJAGUCBQhsaXN0U2l6ZQABBAhhZGRyZXNzMQkBBXZhbHVlAQkApggBBQtmaXJzdE9mTGlzdAQIYmFsYW5jZTEICQDvBwEFCGFkZHJlc3MxCWF2YWlsYWJsZQoBAWYCBWFjY3VtB2FkZHJlc3MJAM4IAgUFYWNjdW0JAMwIAgkBDEludGVnZXJFbnRyeQIFB2FkZHJlc3MICQDvBwEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MJYXZhaWxhYmxlBQNuaWwEDWVudGVySW50ZWdlcnMKAAIkbAUEbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEBZgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQJAM4IAgkAzAgCCQELU3RyaW5nRW50cnkCAglhZGRyZXNzZXMFCWFkZHJlc3NlcwkAzAgCCQEMSW50ZWdlckVudHJ5AgIIbGlzdFNpemUFCGxpc3RTaXplCQDMCAIJAQtTdHJpbmdFbnRyeQICC2ZpcnN0T2ZMaXN0BQtmaXJzdE9mTGlzdAkAzAgCCQELU3RyaW5nRW50cnkCAgpsYXN0T2ZMaXN0BQpsYXN0T2ZMaXN0BQNuaWwFDWVudGVySW50ZWdlcnMBaQESdG90YWxCYWxhbmNlQ2FsbGVyAAkAzggCBQNuaWwJAQx0b3RhbEJhbGFuY2UBCAUBaQZjYWxsZXIBaQETdG90YWxCYWxhbmNlQWRkcmVzcwEHYWRkcmVzcwkAzggCBQNuaWwJAQx0b3RhbEJhbGFuY2UBCQEFdmFsdWUBCQCmCAEFB2FkZHJlc3MBaQEIdHJhbnNmZXIBCWFkZHJlc3NlcwQHYXNzZXRJZAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAZhbW91bnQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BBBhbW91bnRQZXJBZGRyZXNzCQBpAgUGYW1vdW50CQCQAwEFCWFkZHJlc3NlcwoBAWYCBWFjY3VtB2FkZHJlc3MJAM4IAgUFYWNjdW0JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUQYW1vdW50UGVyQWRkcmVzcwUHYXNzZXRJZAUDbmlsCgACJGwFCWFkZHJlc3NlcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEBZgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQA31KtKg==", "height": 2837064, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: JD1XYdQBNzPFc11KUp5ey2kskimBWLRYkraZ3FRzLHR3 Next: 69CV1wnJXRFtcAesAXc8s5LFPSJHDwjGF8nshnC6VuU1 Diff:
OldNewDifferences
5252 func WXbal (Pooladdress,address,LPstr) = {
5353 let burnxtnInWX = assetBalance(Address(Pooladdress), burnxtn)
5454 let addressStakeWX = tryGetInteger(Address(WXstake), ((("%s%s%s__staked__" + toString(address)) + "__") + LPstr))
55- let totalStakeWX = tryGetInteger(Address(Pooladdress), ("%s%s%s__staked__total__" + LPstr))
55+ let totalStakeWX = tryGetInteger(Address(WXstake), ("%s%s%s__staked__total__" + LPstr))
5656 fraction(burnxtnInWX, addressStakeWX, totalStakeWX)
5757 }
5858
9090 let lastOfList = list[(listSize - 1)]
9191 let address1 = value(addressFromString(firstOfList))
9292 let balance1 = wavesBalance(address1).available
93-[StringEntry("addresses", addresses), IntegerEntry("listSize", listSize), StringEntry("firstOfList", firstOfList), StringEntry("lastOfList", lastOfList), IntegerEntry("balance1", balance1)]
93+ func f (accum,address) = (accum ++ [IntegerEntry(address, wavesBalance(addressFromStringValue(address)).available)])
94+
95+ let enterIntegers = {
96+ let $l = list
97+ let $s = size($l)
98+ let $acc0 = nil
99+ func $f0_1 ($a,$i) = if (($i >= $s))
100+ then $a
101+ else f($a, $l[$i])
102+
103+ func $f0_2 ($a,$i) = if (($i >= $s))
104+ then $a
105+ else throw("List size exceeds 100")
106+
107+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
108+ }
109+ ([StringEntry("addresses", addresses), IntegerEntry("listSize", listSize), StringEntry("firstOfList", firstOfList), StringEntry("lastOfList", lastOfList)] ++ enterIntegers)
110+ }
111+
112+
113+
114+@Callable(i)
115+func totalBalanceCaller () = (nil ++ totalBalance(i.caller))
116+
117+
118+
119+@Callable(i)
120+func totalBalanceAddress (address) = (nil ++ totalBalance(value(addressFromString(address))))
121+
122+
123+
124+@Callable(i)
125+func transfer (addresses) = {
126+ let assetId = i.payments[0].assetId
127+ let amount = i.payments[0].amount
128+ let amountPerAddress = (amount / size(addresses))
129+ func f (accum,address) = (accum ++ [ScriptTransfer(addressFromStringValue(address), amountPerAddress, assetId)])
130+
131+ let $l = addresses
132+ let $s = size($l)
133+ let $acc0 = nil
134+ func $f0_1 ($a,$i) = if (($i >= $s))
135+ then $a
136+ else f($a, $l[$i])
137+
138+ func $f0_2 ($a,$i) = if (($i >= $s))
139+ then $a
140+ else throw("List size exceeds 100")
141+
142+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
94143 }
95144
96145
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 func tryGetInteger (address,key) = match getInteger(address, key) {
55 case b: Int =>
66 b
77 case _ =>
88 0
99 }
1010
1111
1212 func tryGetString (address,key) = match getString(address, key) {
1313 case b: String =>
1414 b
1515 case _ =>
1616 ""
1717 }
1818
1919
2020 let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
2121
2222 let PZ1 = base58'3PE7NtJdmVq4yo47LKDqurQ8RLDCouvJCPB'
2323
2424 let PZ2 = base58'3PQHndCUVrv3wBuQjbvVP9SnGmfbfitGxfx'
2525
2626 let PZ3 = base58'3PBiMQLnX8wd4bssXCgF8KuUqHv1H4zWHGi'
2727
2828 let PZ4 = base58'3PDJPGn6vBEBqWN4E3fNcxoKBoDXbsmoaM7'
2929
3030 let PZ5 = base58'3PCS1xhGQi2eM5mYcCBhUSHvB31Kk5gZoCm'
3131
3232 let PZ6 = base58'3P8Quvmgt3VEWAjBR3bsfgCqzUh7zTmTC4q'
3333
3434 let WXstake = base58'3PPNhHYkkEy13gRWDCaruQyhNbX2GrjYSyV'
3535
3636 let WX1 = base58'3P5vwLbXddLWpsRspftMxLuzfsjk3dLT3n5'
3737
3838 let LP1 = "GyiHdcN59sZ46baFvj68ruLngrTPEvWDtsd6jHm4o46n"
3939
4040 let WX2 = base58'3PKXseWa31VUSWUvm2YiRKxW2VM9RsVk3ry'
4141
4242 let LP2 = "3MPHMJVwYGyeBLRsH1RsYhrTmemv752AEBwuFFV7g49Z"
4343
4444 func PZbal (Pooladdress,address) = {
4545 let burnxtnInPZ = tryGetInteger(Address(Pooladdress), (("global_" + toBase58String(burnxtn)) + "_balance"))
4646 let addressStakePZ = tryGetInteger(Address(Pooladdress), (toString(address) + "_indexStaked"))
4747 let totalStakePZ = tryGetInteger(Address(Pooladdress), "global_poolToken_amount")
4848 fraction(burnxtnInPZ, addressStakePZ, totalStakePZ)
4949 }
5050
5151
5252 func WXbal (Pooladdress,address,LPstr) = {
5353 let burnxtnInWX = assetBalance(Address(Pooladdress), burnxtn)
5454 let addressStakeWX = tryGetInteger(Address(WXstake), ((("%s%s%s__staked__" + toString(address)) + "__") + LPstr))
55- let totalStakeWX = tryGetInteger(Address(Pooladdress), ("%s%s%s__staked__total__" + LPstr))
55+ let totalStakeWX = tryGetInteger(Address(WXstake), ("%s%s%s__staked__total__" + LPstr))
5656 fraction(burnxtnInWX, addressStakeWX, totalStakeWX)
5757 }
5858
5959
6060 func totalBalance (address) = {
6161 let burnxtnBalance = assetBalance(address, burnxtn)
6262 let PZ1balance = PZbal(PZ1, address)
6363 let PZ2balance = PZbal(PZ2, address)
6464 let PZ3balance = PZbal(PZ3, address)
6565 let PZ4balance = PZbal(PZ4, address)
6666 let PZ5balance = PZbal(PZ5, address)
6767 let PZ6balance = PZbal(PZ6, address)
6868 let WX1balance = WXbal(WX1, address, LP1)
6969 let WX2balance = WXbal(WX2, address, LP2)
7070 let total = ((((((((burnxtnBalance + PZ1balance) + PZ2balance) + PZ3balance) + PZ4balance) + PZ5balance) + PZ6balance) + WX1balance) + WX2balance)
7171 [IntegerEntry("burnxtnBalance", burnxtnBalance), IntegerEntry("PZ1balance", PZ1balance), IntegerEntry("PZ2balance", PZ2balance), IntegerEntry("PZ3balance", PZ3balance), IntegerEntry("PZ4balance", PZ4balance), IntegerEntry("PZ5balance", PZ5balance), IntegerEntry("PZ6balance", PZ6balance), IntegerEntry("WX1balance", WX1balance), IntegerEntry("WX2balance", WX2balance), IntegerEntry("total", total)]
7272 }
7373
7474
7575 @Callable(i)
7676 func register () = if (contains(tryGetString(this, "Address registered"), toString(i.caller)))
7777 then throw("already registered")
7878 else if ((height > 1))
7979 then throw("registration closed")
8080 else [IntegerEntry("Amount Registered", (tryGetInteger(this, "Amount Registered") + 1)), StringEntry(("Register address: " + toString((tryGetInteger(this, "Amount Registered") + 1))), toString(i.caller)), StringEntry("Address registered", ((tryGetString(this, "Address registered") + toString(i.caller)) + ","))]
8181
8282
8383
8484 @Callable(i)
8585 func makeList () = {
8686 let addresses = dropRight(tryGetString(this, "Address registered"), 1)
8787 let list = split(addresses, ",")
8888 let listSize = size(list)
8989 let firstOfList = list[0]
9090 let lastOfList = list[(listSize - 1)]
9191 let address1 = value(addressFromString(firstOfList))
9292 let balance1 = wavesBalance(address1).available
93-[StringEntry("addresses", addresses), IntegerEntry("listSize", listSize), StringEntry("firstOfList", firstOfList), StringEntry("lastOfList", lastOfList), IntegerEntry("balance1", balance1)]
93+ func f (accum,address) = (accum ++ [IntegerEntry(address, wavesBalance(addressFromStringValue(address)).available)])
94+
95+ let enterIntegers = {
96+ let $l = list
97+ let $s = size($l)
98+ let $acc0 = nil
99+ func $f0_1 ($a,$i) = if (($i >= $s))
100+ then $a
101+ else f($a, $l[$i])
102+
103+ func $f0_2 ($a,$i) = if (($i >= $s))
104+ then $a
105+ else throw("List size exceeds 100")
106+
107+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
108+ }
109+ ([StringEntry("addresses", addresses), IntegerEntry("listSize", listSize), StringEntry("firstOfList", firstOfList), StringEntry("lastOfList", lastOfList)] ++ enterIntegers)
110+ }
111+
112+
113+
114+@Callable(i)
115+func totalBalanceCaller () = (nil ++ totalBalance(i.caller))
116+
117+
118+
119+@Callable(i)
120+func totalBalanceAddress (address) = (nil ++ totalBalance(value(addressFromString(address))))
121+
122+
123+
124+@Callable(i)
125+func transfer (addresses) = {
126+ let assetId = i.payments[0].assetId
127+ let amount = i.payments[0].amount
128+ let amountPerAddress = (amount / size(addresses))
129+ func f (accum,address) = (accum ++ [ScriptTransfer(addressFromStringValue(address), amountPerAddress, assetId)])
130+
131+ let $l = addresses
132+ let $s = size($l)
133+ let $acc0 = nil
134+ func $f0_1 ($a,$i) = if (($i >= $s))
135+ then $a
136+ else f($a, $l[$i])
137+
138+ func $f0_2 ($a,$i) = if (($i >= $s))
139+ then $a
140+ else throw("List size exceeds 100")
141+
142+ $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
94143 }
95144
96145

github/deemru/w8io/026f985 
32.77 ms