w8 · tx · EQq···RHL

tx · EQqyrXBWSLA4XdfEDaoU1CQ6hAgPwPjKDc5tQZF1PRHL

3PCxF4JryswYYp9mpUtE725wjTgvpBmp3M9:  -0.00500000 Waves

2023.11.14 12:03 [3908698] smart account 3PCxF4JryswYYp9mpUtE725wjTgvpBmp3M9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EQqyrXBWSLA4XdfEDaoU1CQ6hAgPwPjKDc5tQZF1PRHL",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1699952642739,
    "version": 2,
    "chainId": 87,
    "sender": "3PCxF4JryswYYp9mpUtE725wjTgvpBmp3M9",
    "senderPublicKey": "ABaPDrNzForWeg3KKG9KFKPWxuihEJxK9fjZ9nDfvE26",
    "proofs": [
        "647147WLt3y4142SxEkYvvCygABXmkqjPnAoLQXCHWCMe1xc9PiznowxzdxTuBYuKtWqZsEUVxpqu39PErv9NNiX"
    ],
    "script": "base64:BgIICAISABIAEgAJAAJkOACAwtcvAQ10cnlHZXRJbnRlZ2VyAgdhZGRyZXNzA2tleQQHJG1hdGNoMAkAmggCBQdhZGRyZXNzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAABDHRyeUdldFN0cmluZwIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYgUHJG1hdGNoMAUBYgIAAAdidXJueHRuASAkT3V5an4zObj7DP+EqXFcXsot3jOgxF1p+epEEexMVAAJd2hpcmxwb29sASBZ443cwrUjukoU3MTQrxQJ5mTmBL4lBgsmTuVQbZdZxwAGV1h2b3RlCQEHQWRkcmVzcwEBGgFXdKKsDQGFaMyVfKR9xnp4f7rNREb2maJFAAVlcG9jaAkBEUBleHRyTmF0aXZlKDEwNTApAgUGV1h2b3RlAhAlc19fY3VycmVudEVwb2NoAA1lcG9jaFByZXZpb3VzCQBlAgUFZXBvY2gAAQAJYWRkcmVzc2VzCQCzAgIJAQx0cnlHZXRTdHJpbmcCBQR0aGlzAhJBZGRyZXNzIHJlZ2lzdGVyZWQAAQMBaQEIcmVnaXN0ZXIAAwkBCGNvbnRhaW5zAgkBDHRyeUdldFN0cmluZwIFBHRoaXMCEkFkZHJlc3MgcmVnaXN0ZXJlZAkApQgBCAUBaQZjYWxsZXIJAAIBAhJhbHJlYWR5IHJlZ2lzdGVyZWQDCQAAAgkBDXRyeUdldEludGVnZXICBQR0aGlzAhFBbW91bnQgUmVnaXN0ZXJlZABkCQACAQITcmVnaXN0cmF0aW9uIGNsb3NlZAkAzAgCCQEMSW50ZWdlckVudHJ5AgIRQW1vdW50IFJlZ2lzdGVyZWQJAGQCCQENdHJ5R2V0SW50ZWdlcgIFBHRoaXMCEUFtb3VudCBSZWdpc3RlcmVkAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAhJSZWdpc3RlciBhZGRyZXNzOiAJAKQDAQkAZAIJAQ10cnlHZXRJbnRlZ2VyAgUEdGhpcwIRQW1vdW50IFJlZ2lzdGVyZWQAAQkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgISQWRkcmVzcyByZWdpc3RlcmVkCQCsAgIJAKwCAgkBDHRyeUdldFN0cmluZwIFBHRoaXMCEkFkZHJlc3MgcmVnaXN0ZXJlZAkApQgBCAUBaQZjYWxsZXICASwFA25pbAFpAQpjb3VudFZvdGVzAAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECHGFjY2VzcyBvbmx5IGJ5IHByb2plY3Qgb3duZXIEBGxpc3QJALUJAgUJYWRkcmVzc2VzAgEsCgEBdgIFYWNjdW0HYWRkcmVzcwkAzggCBQVhY2N1bQkAzAgCCQEMSW50ZWdlckVudHJ5AgUHYWRkcmVzcwkBDXRyeUdldEludGVnZXICBQZXWHZvdGUJAKwCAgkArAICCQCsAgICRyVzJXMlcyVzJWRfX3ZvdGVfXzNTanhBMllMZGZGOWZUUmJ6TG05eEZuMjdDNk1XMzRXMVlzZEo2QXhlZm5zX19XQVZFU19fBQdhZGRyZXNzAgJfXwkApAMBBQ1lcG9jaFByZXZpb3VzBQNuaWwEDXZvdGVzQ291bnRJbnQKAAIkbAUEbGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEBdgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIVTGlzdCBzaXplIGV4Y2VlZHMgMTAwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgAzADQANQA2ADcAOAA5ADoAOwA8AD0APgA/AEAAQQBCAEMARABFAEYARwBIAEkASgBLAEwATQBOAE8AUABRAFIAUwBUAFUAVgBXAFgAWQBaAFsAXABdAF4AXwBgAGEAYgBjAGQJAM4IAgUDbmlsBQ12b3Rlc0NvdW50SW50AWkBCXBheVZvdGVycwADCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyBAdhc3NldElkBQl3aGlybHBvb2wEBmFtb3VudAkAaAIAAQUCZDgEBGxpc3QJALUJAgUJYWRkcmVzc2VzAgEsCgEBZgIFYWNjdW0HYWRkcmVzcwkAzggCBQVhY2N1bQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzCQBrAwkBDXRyeUdldEludGVnZXICBQR0aGlzBQdhZGRyZXNzBQZhbW91bnQJAQ10cnlHZXRJbnRlZ2VyAgUGV1h2b3RlCQCsAgICTSVzJXMlcyVkX192b3RpbmdSZXN1bHRfXzNTanhBMllMZGZGOWZUUmJ6TG05eEZuMjdDNk1XMzRXMVlzZEo2QXhlZm5zX19XQVZFU19fCQCkAwEFDWVwb2NoUHJldmlvdXMFB2Fzc2V0SWQFA25pbAoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFmAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZABPqwxk",
    "height": 3908698,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: ELNBioeK3gTzHjLpk3njtN8AEAFdETr8NeYvwhoQXS5Z
Next: 6HdqJoQgbe7hjw4fm3A3ywoh3d2U2tv3ySMMsGMURQb9

Diff: 
Old New Differences
67 67  
68 68  
69 69  @Callable(i)
70 - func payVoters (epoch) = if ((i.caller != this))
70 + func payVoters () = if ((i.caller != this))
71 71      then throw("access only by project owner")
72 72      else {
73 73          let assetId = whirlpool
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let d8 = 100000000
5 5  
6 6  func tryGetInteger (address,key) = match getInteger(address, key) {
7 7      case b: Int => 
8 8          b
9 9      case _ => 
10 10          0
11 11  }
12 12  
13 13  
14 14  func tryGetString (address,key) = match getString(address, key) {
15 15      case b: String => 
16 16          b
17 17      case _ => 
18 18          ""
19 19  }
20 20  
21 21  
22 22  let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
23 23  
24 24  let whirlpool = base58'73tY3E6Gd5AWYmsuq8m8Kek7KnJNAYyS3GoveTbc6jCi'
25 25  
26 26  let WXvote = Address(base58'3PCZbz9o5YfWtK36j3tFcM8E1DUa9d7MyXS')
27 27  
28 28  let epoch = getIntegerValue(WXvote, "%s__currentEpoch")
29 29  
30 30  let epochPrevious = (epoch - 1)
31 31  
32 32  let addresses = dropRight(tryGetString(this, "Address registered"), 1)
33 33  
34 34  @Callable(i)
35 35  func register () = if (contains(tryGetString(this, "Address registered"), toString(i.caller)))
36 36      then throw("already registered")
37 37      else if ((tryGetInteger(this, "Amount Registered") == 100))
38 38          then throw("registration closed")
39 39          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)) + ","))]
40 40  
41 41  
42 42  
43 43  @Callable(i)
44 44  func countVotes () = if ((i.caller != this))
45 45      then throw("access only by project owner")
46 46      else {
47 47          let list = split(addresses, ",")
48 48          func v (accum,address) =         (accum ++ [IntegerEntry(address, tryGetInteger(WXvote, ((("%s%s%s%s%d__vote__3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns__WAVES__" + address) + "__") + toString(epochPrevious))))])
49 49  
50 50          let votesCountInt = {
51 51              let $l = list
52 52              let $s = size($l)
53 53              let $acc0 = nil
54 54              func $f0_1 ($a,$i) =             if (($i >= $s))
55 55                  then $a
56 56                  else v($a, $l[$i])
57 57  
58 58              func $f0_2 ($a,$i) =             if (($i >= $s))
59 59                  then $a
60 60                  else throw("List size exceeds 100")
61 61  
62 62              $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)
63 63              }
64 64          (nil ++ votesCountInt)
65 65          }
66 66  
67 67  
68 68  
69 69  @Callable(i)
70 - func payVoters (epoch) = if ((i.caller != this))
70 + func payVoters () = if ((i.caller != this))
71 71      then throw("access only by project owner")
72 72      else {
73 73          let assetId = whirlpool
74 74          let amount = (1 * d8)
75 75          let list = split(addresses, ",")
76 76          func f (accum,address) =         (accum ++ [ScriptTransfer(addressFromStringValue(address), fraction(tryGetInteger(this, address), amount, tryGetInteger(WXvote, ("%s%s%s%d__votingResult__3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns__WAVES__" + toString(epochPrevious)))), assetId)])
77 77  
78 78          let $l = list
79 79          let $s = size($l)
80 80          let $acc0 = nil
81 81          func $f0_1 ($a,$i) =         if (($i >= $s))
82 82              then $a
83 83              else f($a, $l[$i])
84 84  
85 85          func $f0_2 ($a,$i) =         if (($i >= $s))
86 86              then $a
87 87              else throw("List size exceeds 100")
88 88  
89 89          $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)
90 90          }
91 91  
92 92

Old	New		Differences
67	67
68	68
69	69		@Callable(i)
70		-	func payVoters (~~epoch~~) = if ((i.caller != this))
	70	+	func payVoters () = if ((i.caller != this))
71	71		then throw("access only by project owner")
72	72		else {
73	73		let assetId = whirlpool

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let d8 = 100000000
5	5
6	6		func tryGetInteger (address,key) = match getInteger(address, key) {
7	7		case b: Int =>
8	8		b
9	9		case _ =>
10	10		0
11	11		}
12	12
13	13
14	14		func tryGetString (address,key) = match getString(address, key) {
15	15		case b: String =>
16	16		b
17	17		case _ =>
18	18		""
19	19		}
20	20
21	21
22	22		let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
23	23
24	24		let whirlpool = base58'73tY3E6Gd5AWYmsuq8m8Kek7KnJNAYyS3GoveTbc6jCi'
25	25
26	26		let WXvote = Address(base58'3PCZbz9o5YfWtK36j3tFcM8E1DUa9d7MyXS')
27	27
28	28		let epoch = getIntegerValue(WXvote, "%s__currentEpoch")
29	29
30	30		let epochPrevious = (epoch - 1)
31	31
32	32		let addresses = dropRight(tryGetString(this, "Address registered"), 1)
33	33
34	34		@Callable(i)
35	35		func register () = if (contains(tryGetString(this, "Address registered"), toString(i.caller)))
36	36		then throw("already registered")
37	37		else if ((tryGetInteger(this, "Amount Registered") == 100))
38	38		then throw("registration closed")
39	39		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)) + ","))]
40	40
41	41
42	42
43	43		@Callable(i)
44	44		func countVotes () = if ((i.caller != this))
45	45		then throw("access only by project owner")
46	46		else {
47	47		let list = split(addresses, ",")
48	48		func v (accum,address) = (accum ++ [IntegerEntry(address, tryGetInteger(WXvote, ((("%s%s%s%s%d__vote__3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns__WAVES__" + address) + "__") + toString(epochPrevious))))])
49	49
50	50		let votesCountInt = {
51	51		let $l = list
52	52		let $s = size($l)
53	53		let $acc0 = nil
54	54		func $f0_1 ($a,$i) = if (($i >= $s))
55	55		then $a
56	56		else v($a, $l[$i])
57	57
58	58		func $f0_2 ($a,$i) = if (($i >= $s))
59	59		then $a
60	60		else throw("List size exceeds 100")
61	61
62	62		$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)
63	63		}
64	64		(nil ++ votesCountInt)
65	65		}
66	66
67	67
68	68
69	69		@Callable(i)
70		-	func payVoters (~~epoch~~) = if ((i.caller != this))
	70	+	func payVoters () = if ((i.caller != this))
71	71		then throw("access only by project owner")
72	72		else {
73	73		let assetId = whirlpool
74	74		let amount = (1 * d8)
75	75		let list = split(addresses, ",")
76	76		func f (accum,address) = (accum ++ [ScriptTransfer(addressFromStringValue(address), fraction(tryGetInteger(this, address), amount, tryGetInteger(WXvote, ("%s%s%s%d__votingResult__3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns__WAVES__" + toString(epochPrevious)))), assetId)])
77	77
78	78		let $l = list
79	79		let $s = size($l)
80	80		let $acc0 = nil
81	81		func $f0_1 ($a,$i) = if (($i >= $s))
82	82		then $a
83	83		else f($a, $l[$i])
84	84
85	85		func $f0_2 ($a,$i) = if (($i >= $s))
86	86		then $a
87	87		else throw("List size exceeds 100")
88	88
89	89		$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)
90	90		}
91	91
92	92

github/deemru/w8io/3ef1775 
75.59 ms ◑