w8 · tx · AhM···65P

tx · AhM1RL3w52YmkfxYrmQdSaVfzxuvBZjvw1HE9fPBX65P

3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir:  -0.01000000 Waves

2023.05.11 22:59 [3639135] smart account 3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AhM1RL3w52YmkfxYrmQdSaVfzxuvBZjvw1HE9fPBX65P",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1683835217519,
    "version": 2,
    "chainId": 87,
    "sender": "3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir",
    "senderPublicKey": "8er5GibY1hbf7RjN9rdnQW5Ua9xM7UtDohqbdEukAT7v",
    "proofs": [
        "cRHy3Ad7T36jq1HTZuqfcf9vhgx83q8H7rJNtiQXLujy2DE6dwsfcz4yonyYUDcJvYtcZb1DzcWVCrMNaposvnD"
    ],
    "script": "base64:BgIZCAISBgoECAgBGBIDCgEIEgMKAQgSAwoBCAgAEExhc3RDb250ZXN0SWRLZXkCD2xhc3RfY29udGVzdF9pZAANQ29udGVzdFByZWZpeAIIY29udGVzdF8ADFN0YXR1c19EcmFmdAIFZHJhZnQADVN0YXR1c19BY3RpdmUCBmFjdGl2ZQALU3RhdHVzX1N0b3ACBHN0b3AADVN0YXR1c19EZWx0ZWQCB2RlbGV0ZWQBDWNhbGNQcml6ZUZ1bmQBCHBheW1lbnRzCgEEY2FsYwIFYWNjdW0EbmV4dAQJYXNzZXROYW1lBAckbWF0Y2gwCAUEbmV4dAdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAXQFByRtYXRjaDAJANgEAQUBdAIFV0FWRVMDAwkAZgIJALECAQUJYXNzZXROYW1lAAAJAGYCCAUEbmV4dAZhbW91bnQAAAcJAM0IAgUFYWNjdW0JAKwCAgkArAICBQlhc3NldE5hbWUCAToJAKQDAQgFBG5leHQGYW1vdW50BQVhY2N1bQkAugkCCgACJGwFCHBheW1lbnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRjYWxjAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAgF8ARFnZXRQcml6ZVRyYW5zZmVycwIMcHJpemVGdW5kU3RyCXJlY2lwaWVudAoBBGNhbGMCBWFjY3VtBG5leHQEBXBhcnRzCQC1CQIFBG5leHQCAToEB2Fzc2V0SWQDCQAAAgkAkQMCBQVwYXJ0cwAAAgVXQVZFUwUEdW5pdAkA2QQBCQCRAwIFBXBhcnRzAAAJAM0IAgUFYWNjdW0JAQ5TY3JpcHRUcmFuc2ZlcgMFCXJlY2lwaWVudAkBBXZhbHVlAQkAtgkBCQCRAwIFBXBhcnRzAAEFB2Fzc2V0SWQKAAIkbAkAvAkCBQxwcml6ZUZ1bmRTdHICAXwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBGNhbGMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoEAWkBBmNyZWF0ZQQEbmFtZQRkZXNjCWVuZEhlaWdodAV0YXNrcwQMcHJpemVGdW5kU3RyCQENY2FsY1ByaXplRnVuZAEIBQFpCHBheW1lbnRzAwkAAAIJALECAQUMcHJpemVGdW5kU3RyAAAJAAIBAgtObyBwYXltZW50cwMJAAACCQCQAwEFBXRhc2tzAAAJAAIBAhBUYXNrcyBsaXN0IGVtcHR5AwkAAAIJALECAQUEbmFtZQAACQACAQIKTmFtZSBlbXB0eQMJAAACCQCxAgEFBGRlc2MAAAkAAgECCkRlc2MgZW1wdHkDCQBmAgUGaGVpZ2h0BQllbmRIZWlnaHQJAAIBAhBJbnZhbGlkIGRhdGUgZW5kBAljb250ZXN0SWQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUQTGFzdENvbnRlc3RJZEtleQABCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgVfbmFtZQUEbmFtZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCBV9kZXNjBQRkZXNjCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCDF9zdGFydEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCCl9lbmRIZWlnaHQFCWVuZEhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCBl9vd25lcgkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgpfcHJpemVGdW5kBQxwcml6ZUZ1bmRTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgZfdGFza3MJALoJAgUFdGFza3MCATsJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgdfc3RhdHVzBQ1TdGF0dXNfQWN0aXZlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBMYXN0Q29udGVzdElkS2V5CQBkAgUJY29udGVzdElkAAEFA25pbAUJY29udGVzdElkAWkBC3BhcnRpY2lwYXRlAQljb250ZXN0SWQEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEGENvbnRlc3RQYXJ0aWNpcGFudFByZWZpeAkArAICCQCsAgIFDENvbnRlc3RJZFN0cgINX3BhcnRpY2lwYW50XwkApQgBCAUBaQZjYWxsZXIEHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAKwCAgUYQ29udGVzdFBhcnRpY2lwYW50UHJlZml4AghfYWRkcmVzcwQHaXNPd25lcgQHJG1hdGNoMAkAoggBCQCsAgIFDENvbnRlc3RJZFN0cgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBdAUHJG1hdGNoMAkAAAIFAXQJAKUIAQgFAWkGY2FsbGVyCQACAQIURGF0YSBnZXQgb3duZXIgZXJyb3IEB2lzRXhpc3QEByRtYXRjaDAJAKIIAQUcQ29udGVzdFBhcnRpY2lwYW50QWRkcmVzc0tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXQFByRtYXRjaDAGBwQRcGFydGljaXBhbnRzQ291bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAAAAwUHaXNPd25lcgkAAgECGE93bmVyIGNhbm5vdCBwYXJ0aWNpcGF0ZQMFB2lzRXhpc3QJAAIBAh1Zb3UgYXJlIGFscmVhZHkgcGFydGljaXBhdGluZwkAzAgCCQELU3RyaW5nRW50cnkCBRxDb250ZXN0UGFydGljaXBhbnRBZGRyZXNzS2V5CQClCAEIBQFpBmNhbGxlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBRhDb250ZXN0UGFydGljaXBhbnRQcmVmaXgCCl9zdGFydGVkQXQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAkAZAIFEXBhcnRpY2lwYW50c0NvdW50AAEFA25pbAFpAQ11bnBhcnRpY2lwYXRlAQljb250ZXN0SWQEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEGENvbnRlc3RQYXJ0aWNpcGFudFByZWZpeAkArAICCQCsAgIFDENvbnRlc3RJZFN0cgINX3BhcnRpY2lwYW50XwkApQgBCAUBaQZjYWxsZXIEHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAKwCAgUYQ29udGVzdFBhcnRpY2lwYW50UHJlZml4AghfYWRkcmVzcwQHaXNFeGlzdAQHJG1hdGNoMAkAoggBBRxDb250ZXN0UGFydGljaXBhbnRBZGRyZXNzS2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBdAUHJG1hdGNoMAYHBBFwYXJ0aWNpcGFudHNDb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQCsAgIFDENvbnRlc3RJZFN0cgISX3BhcnRpY2lwYW50c0NvdW50AAADCQEBIQEFB2lzRXhpc3QJAAIBAhlZb3UgYXJlIG5vdCBwYXJ0aWNpcGF0aW5nCQDMCAIJAQtEZWxldGVFbnRyeQEFHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBRhDb250ZXN0UGFydGljaXBhbnRQcmVmaXgCCl9zdGFydGVkQXQJAMwIAgMJAAACCQBlAgURcGFydGljaXBhbnRzQ291bnQAAQAACQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgISX3BhcnRpY2lwYW50c0NvdW50CQEMSW50ZWdlckVudHJ5AgkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAkAZQIFEXBhcnRpY2lwYW50c0NvdW50AAEFA25pbAFpAQZyZW1vdmUBCWNvbnRlc3RJZAQMQ29udGVzdElkU3RyCQCsAgIFDUNvbnRlc3RQcmVmaXgFCWNvbnRlc3RJZAQRcGFydGljaXBhbnRzQ291bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAAABAxwcml6ZUZ1bmRTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQCsAgIFDENvbnRlc3RJZFN0cgIKX3ByaXplRnVuZAIZUHJpemUgZnVuZCBkYXRhIG5vdCBmb3VuZAQHaXNPd25lcgQHJG1hdGNoMAkAoggBCQCsAgIFDENvbnRlc3RJZFN0cgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBdAUHJG1hdGNoMAkAAAIFAXQJAKUIAQgFAWkGY2FsbGVyCQACAQIURGF0YSBnZXQgb3duZXIgZXJyb3IDCQEBIQEFB2lzT3duZXIJAAIBAhVZb3UgYXJlIG5vdCB0aGUgb3duZXIDCQBmAgURcGFydGljaXBhbnRzQ291bnQAAAkAAgECL1RoZSBudW1iZXIgb2YgcGFydGljaXBhbnRzIGlzIGdyZWF0ZXIgdGhhbiB6ZXJvCQDOCAIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICBV9uYW1lCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgVfZGVzYwkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgIMX3N0YXJ0SGVpZ2h0CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgpfZW5kSGVpZ2h0CQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgZfb3duZXIJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICCl9wcml6ZUZ1bmQJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICBl90YXNrcwkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgIHX3N0YXR1cwkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgISX3BhcnRpY2lwYW50c0NvdW50BQNuaWwJARFnZXRQcml6ZVRyYW5zZmVycwIFDHByaXplRnVuZFN0cggFAWkGY2FsbGVyAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tlebEL4y0=",
    "height": 3639135,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AXj54ZCXyCT7mXHC2nfVCfZy1am9j2FpsYhM4ZfuhwMZ
Next: FCdtaYaWWff2Vf8uFLmaDwSj2o1SsMU9DrFo6E8rUXNA

Diff: 
Old New Differences
84 84                          then throw("Invalid date end")
85 85                          else {
86 86                              let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87 -                             $Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
87 +                             $Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_startHeight"), height), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
88 88                              }
89 89      }
90 90  
153 153          then throw("You are not the owner")
154 154          else if ((participantsCount > 0))
155 155              then throw("The number of participants is greater than zero")
156 -             else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
156 +             else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_startHeight")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
157 157      }
158 158  
159 159  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let LastContestIdKey = "last_contest_id"
5 5  
6 6  let ContestPrefix = "contest_"
7 7  
8 8  let Status_Draft = "draft"
9 9  
10 10  let Status_Active = "active"
11 11  
12 12  let Status_Stop = "stop"
13 13  
14 14  let Status_Delted = "deleted"
15 15  
16 16  func calcPrizeFund (payments) = {
17 17      func calc (accum,next) =     {
18 18          let assetName =         match next.assetId {
19 19              case t: ByteVector => 
20 20                  toBase58String(t)
21 21              case _ => 
22 22                  "WAVES"
23 23          }
24 24          if (if ((size(assetName) > 0))
25 25              then (next.amount > 0)
26 26              else false)
27 27              then (accum :+ ((assetName + ":") + toString(next.amount)))
28 28              else accum
29 29          }
30 30  
31 31      makeString_2C({
32 32          let $l = payments
33 33          let $s = size($l)
34 34          let $acc0 = nil
35 35          func $f0_1 ($a,$i) =         if (($i >= $s))
36 36              then $a
37 37              else calc($a, $l[$i])
38 38  
39 39          func $f0_2 ($a,$i) =         if (($i >= $s))
40 40              then $a
41 41              else throw("List size exceeds 10")
42 42  
43 43          $f0_2($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)
44 44          }, "|")
45 45      }
46 46  
47 47  
48 48  func getPrizeTransfers (prizeFundStr,recipient) = {
49 49      func calc (accum,next) =     {
50 50          let parts = split(next, ":")
51 51          let assetId = if ((parts[0] == "WAVES"))
52 52              then unit
53 53              else fromBase58String(parts[0])
54 54          (accum :+ ScriptTransfer(recipient, value(parseInt(parts[1])), assetId))
55 55          }
56 56  
57 57      let $l = split_4C(prizeFundStr, "|")
58 58      let $s = size($l)
59 59      let $acc0 = nil
60 60      func $f0_1 ($a,$i) =     if (($i >= $s))
61 61          then $a
62 62          else calc($a, $l[$i])
63 63  
64 64      func $f0_2 ($a,$i) =     if (($i >= $s))
65 65          then $a
66 66          else throw("List size exceeds 10")
67 67  
68 68      $f0_2($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)
69 69      }
70 70  
71 71  
72 72  @Callable(i)
73 73  func create (name,desc,endHeight,tasks) = {
74 74      let prizeFundStr = calcPrizeFund(i.payments)
75 75      if ((size(prizeFundStr) == 0))
76 76          then throw("No payments")
77 77          else if ((size(tasks) == 0))
78 78              then throw("Tasks list empty")
79 79              else if ((size(name) == 0))
80 80                  then throw("Name empty")
81 81                  else if ((size(desc) == 0))
82 82                      then throw("Desc empty")
83 83                      else if ((height > endHeight))
84 84                          then throw("Invalid date end")
85 85                          else {
86 86                              let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87 -                             $Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
87 +                             $Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_startHeight"), height), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
88 88                              }
89 89      }
90 90  
91 91  
92 92  
93 93  @Callable(i)
94 94  func participate (contestId) = {
95 95      let ContestIdStr = (ContestPrefix + contestId)
96 96      let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
97 97      let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
98 98      let isOwner =     match getString((ContestIdStr + "_owner")) {
99 99          case t: String => 
100 100              (t == toString(i.caller))
101 101          case _ => 
102 102              throw("Data get owner error")
103 103      }
104 104      let isExist =     match getString(ContestParticipantAddressKey) {
105 105          case t: String => 
106 106              true
107 107          case _ => 
108 108              false
109 109      }
110 110      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
111 111      if (isOwner)
112 112          then throw("Owner cannot participate")
113 113          else if (isExist)
114 114              then throw("You are already participating")
115 115              else [StringEntry(ContestParticipantAddressKey, toString(i.caller)), IntegerEntry((ContestParticipantPrefix + "_startedAt"), height), IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount + 1))]
116 116      }
117 117  
118 118  
119 119  
120 120  @Callable(i)
121 121  func unparticipate (contestId) = {
122 122      let ContestIdStr = (ContestPrefix + contestId)
123 123      let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
124 124      let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
125 125      let isExist =     match getString(ContestParticipantAddressKey) {
126 126          case t: String => 
127 127              true
128 128          case _ => 
129 129              false
130 130      }
131 131      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
132 132      if (!(isExist))
133 133          then throw("You are not participating")
134 134          else [DeleteEntry(ContestParticipantAddressKey), DeleteEntry((ContestParticipantPrefix + "_startedAt")), if (((participantsCount - 1) == 0))
135 135              then DeleteEntry((ContestIdStr + "_participantsCount"))
136 136              else IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount - 1))]
137 137      }
138 138  
139 139  
140 140  
141 141  @Callable(i)
142 142  func remove (contestId) = {
143 143      let ContestIdStr = (ContestPrefix + contestId)
144 144      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
145 145      let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
146 146      let isOwner =     match getString((ContestIdStr + "_owner")) {
147 147          case t: String => 
148 148              (t == toString(i.caller))
149 149          case _ => 
150 150              throw("Data get owner error")
151 151      }
152 152      if (!(isOwner))
153 153          then throw("You are not the owner")
154 154          else if ((participantsCount > 0))
155 155              then throw("The number of participants is greater than zero")
156 -             else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
156 +             else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_startHeight")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
157 157      }
158 158  
159 159  
160 160  @Verifier(tx)
161 161  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
162 162

Old	New		Differences
84	84		then throw("Invalid date end")
85	85		else {
86	86		let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87		-	$Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
	87	+	$Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_startHeight"), height), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
88	88		}
89	89		}
90	90

153	153		then throw("You are not the owner")
154	154		else if ((participantsCount > 0))
155	155		then throw("The number of participants is greater than zero")
156		-	else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
	156	+	else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_startHeight")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
157	157		}
158	158
159	159

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let LastContestIdKey = "last_contest_id"
5	5
6	6		let ContestPrefix = "contest_"
7	7
8	8		let Status_Draft = "draft"
9	9
10	10		let Status_Active = "active"
11	11
12	12		let Status_Stop = "stop"
13	13
14	14		let Status_Delted = "deleted"
15	15
16	16		func calcPrizeFund (payments) = {
17	17		func calc (accum,next) = {
18	18		let assetName = match next.assetId {
19	19		case t: ByteVector =>
20	20		toBase58String(t)
21	21		case _ =>
22	22		"WAVES"
23	23		}
24	24		if (if ((size(assetName) > 0))
25	25		then (next.amount > 0)
26	26		else false)
27	27		then (accum :+ ((assetName + ":") + toString(next.amount)))
28	28		else accum
29	29		}
30	30
31	31		makeString_2C({
32	32		let $l = payments
33	33		let $s = size($l)
34	34		let $acc0 = nil
35	35		func $f0_1 ($a,$i) = if (($i >= $s))
36	36		then $a
37	37		else calc($a, $l[$i])
38	38
39	39		func $f0_2 ($a,$i) = if (($i >= $s))
40	40		then $a
41	41		else throw("List size exceeds 10")
42	42
43	43		$f0_2($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)
44	44		}, "\|")
45	45		}
46	46
47	47
48	48		func getPrizeTransfers (prizeFundStr,recipient) = {
49	49		func calc (accum,next) = {
50	50		let parts = split(next, ":")
51	51		let assetId = if ((parts[0] == "WAVES"))
52	52		then unit
53	53		else fromBase58String(parts[0])
54	54		(accum :+ ScriptTransfer(recipient, value(parseInt(parts[1])), assetId))
55	55		}
56	56
57	57		let $l = split_4C(prizeFundStr, "\|")
58	58		let $s = size($l)
59	59		let $acc0 = nil
60	60		func $f0_1 ($a,$i) = if (($i >= $s))
61	61		then $a
62	62		else calc($a, $l[$i])
63	63
64	64		func $f0_2 ($a,$i) = if (($i >= $s))
65	65		then $a
66	66		else throw("List size exceeds 10")
67	67
68	68		$f0_2($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)
69	69		}
70	70
71	71
72	72		@Callable(i)
73	73		func create (name,desc,endHeight,tasks) = {
74	74		let prizeFundStr = calcPrizeFund(i.payments)
75	75		if ((size(prizeFundStr) == 0))
76	76		then throw("No payments")
77	77		else if ((size(tasks) == 0))
78	78		then throw("Tasks list empty")
79	79		else if ((size(name) == 0))
80	80		then throw("Name empty")
81	81		else if ((size(desc) == 0))
82	82		then throw("Desc empty")
83	83		else if ((height > endHeight))
84	84		then throw("Invalid date end")
85	85		else {
86	86		let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87		-	$Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
	87	+	$Tuple2([StringEntry(((ContestPrefix + toString(contestId)) + "_name"), name), StringEntry(((ContestPrefix + toString(contestId)) + "_desc"), desc), IntegerEntry(((ContestPrefix + toString(contestId)) + "_startHeight"), height), IntegerEntry(((ContestPrefix + toString(contestId)) + "_endHeight"), endHeight), StringEntry(((ContestPrefix + toString(contestId)) + "_owner"), toString(i.caller)), StringEntry(((ContestPrefix + toString(contestId)) + "_prizeFund"), prizeFundStr), StringEntry(((ContestPrefix + toString(contestId)) + "_tasks"), makeString_2C(tasks, ";")), StringEntry(((ContestPrefix + toString(contestId)) + "_status"), Status_Active), IntegerEntry(LastContestIdKey, (contestId + 1))], contestId)
88	88		}
89	89		}
90	90
91	91
92	92
93	93		@Callable(i)
94	94		func participate (contestId) = {
95	95		let ContestIdStr = (ContestPrefix + contestId)
96	96		let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
97	97		let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
98	98		let isOwner = match getString((ContestIdStr + "_owner")) {
99	99		case t: String =>
100	100		(t == toString(i.caller))
101	101		case _ =>
102	102		throw("Data get owner error")
103	103		}
104	104		let isExist = match getString(ContestParticipantAddressKey) {
105	105		case t: String =>
106	106		true
107	107		case _ =>
108	108		false
109	109		}
110	110		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
111	111		if (isOwner)
112	112		then throw("Owner cannot participate")
113	113		else if (isExist)
114	114		then throw("You are already participating")
115	115		else [StringEntry(ContestParticipantAddressKey, toString(i.caller)), IntegerEntry((ContestParticipantPrefix + "_startedAt"), height), IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount + 1))]
116	116		}
117	117
118	118
119	119
120	120		@Callable(i)
121	121		func unparticipate (contestId) = {
122	122		let ContestIdStr = (ContestPrefix + contestId)
123	123		let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
124	124		let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
125	125		let isExist = match getString(ContestParticipantAddressKey) {
126	126		case t: String =>
127	127		true
128	128		case _ =>
129	129		false
130	130		}
131	131		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
132	132		if (!(isExist))
133	133		then throw("You are not participating")
134	134		else [DeleteEntry(ContestParticipantAddressKey), DeleteEntry((ContestParticipantPrefix + "_startedAt")), if (((participantsCount - 1) == 0))
135	135		then DeleteEntry((ContestIdStr + "_participantsCount"))
136	136		else IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount - 1))]
137	137		}
138	138
139	139
140	140
141	141		@Callable(i)
142	142		func remove (contestId) = {
143	143		let ContestIdStr = (ContestPrefix + contestId)
144	144		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
145	145		let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
146	146		let isOwner = match getString((ContestIdStr + "_owner")) {
147	147		case t: String =>
148	148		(t == toString(i.caller))
149	149		case _ =>
150	150		throw("Data get owner error")
151	151		}
152	152		if (!(isOwner))
153	153		then throw("You are not the owner")
154	154		else if ((participantsCount > 0))
155	155		then throw("The number of participants is greater than zero")
156		-	else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
	156	+	else ([DeleteEntry((ContestIdStr + "_name")), DeleteEntry((ContestIdStr + "_desc")), DeleteEntry((ContestIdStr + "_startHeight")), DeleteEntry((ContestIdStr + "_endHeight")), DeleteEntry((ContestIdStr + "_owner")), DeleteEntry((ContestIdStr + "_prizeFund")), DeleteEntry((ContestIdStr + "_tasks")), DeleteEntry((ContestIdStr + "_status")), DeleteEntry((ContestIdStr + "_participantsCount"))] ++ getPrizeTransfers(prizeFundStr, i.caller))
157	157		}
158	158
159	159
160	160		@Verifier(tx)
161	161		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
162	162

github/deemru/w8io/6500d08 
37.77 ms ◑