w8 · tx · FCd···XNA

tx · FCdtaYaWWff2Vf8uFLmaDwSj2o1SsMU9DrFo6E8rUXNA

3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir:  -0.01000000 Waves

2023.05.20 10:40 [3651482] smart account 3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FCdtaYaWWff2Vf8uFLmaDwSj2o1SsMU9DrFo6E8rUXNA",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1684568473748,
    "version": 2,
    "chainId": 87,
    "sender": "3PLJHro4tbUssVMHY538QqsVZWPVHTUpHir",
    "senderPublicKey": "8er5GibY1hbf7RjN9rdnQW5Ua9xM7UtDohqbdEukAT7v",
    "proofs": [
        "4Xof2ApCzxnboNVpY25Sde66hb7jbwSDWWCqKFgUiJtKwwRwWLQ7ZWJaK8K8P9KygjCjkajd5WV985Nr5ARm8ncj"
    ],
    "script": "base64:BgIfCAISBgoECAgBGBIDCgEIEgMKAQgSBAoCCBgSAwoBCAoAEExhc3RDb250ZXN0SWRLZXkCD2xhc3RfY29udGVzdF9pZAANQ29udGVzdFByZWZpeAIIY29udGVzdF8ADFN0YXR1c19EcmFmdAIFZHJhZnQADVN0YXR1c19BY3RpdmUCBmFjdGl2ZQALU3RhdHVzX1N0b3ACBHN0b3AADVN0YXR1c19EZWx0ZWQCB2RlbGV0ZWQADVN0YXR1c19GaW5pc2gCBmZpbmlzaAENY2FsY1ByaXplRnVuZAEIcGF5bWVudHMKAQRjYWxjAgVhY2N1bQRuZXh0BAlhc3NldE5hbWUEByRtYXRjaDAIBQRuZXh0B2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBdAUHJG1hdGNoMAkA2AQBBQF0AgVXQVZFUwMDCQBmAgkAsQIBBQlhc3NldE5hbWUAAAkAZgIIBQRuZXh0BmFtb3VudAAABwkAzQgCBQVhY2N1bQkArAICCQCsAgIFCWFzc2V0TmFtZQIBOgkApAMBCAUEbmV4dAZhbW91bnQFBWFjY3VtCQC6CQIKAAIkbAUIcGF5bWVudHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBGNhbGMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoCAXwBEWdldFByaXplVHJhbnNmZXJzAgxwcml6ZUZ1bmRTdHIJcmVjaXBpZW50CgEEY2FsYwIFYWNjdW0EbmV4dAQFcGFydHMJALUJAgUEbmV4dAIBOgQHYXNzZXRJZAMJAAACCQCRAwIFBXBhcnRzAAACBVdBVkVTBQR1bml0CQDZBAEJAJEDAgUFcGFydHMAAAkAzQgCBQVhY2N1bQkBDlNjcmlwdFRyYW5zZmVyAwUJcmVjaXBpZW50CQEFdmFsdWUBCQC2CQEJAJEDAgUFcGFydHMAAQUHYXNzZXRJZAoAAiRsCQC8CQIFDHByaXplRnVuZFN0cgIBfAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEY2FsYwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgEPZ2V0UmFuZG9tTnVtYmVyBAh2YXJpYW50cwR0eElkC2Jsb2NrSGVpZ2h0Bm9mZnNldAQPcmFuZG9tU2VlZEJsb2NrCQEFdmFsdWUBCQDtBwEJAGUCBQtibG9ja0hlaWdodAABBApyYW5kb21IYXNoCQD3AwEJAMsBAgUEdHhJZAkBBXZhbHVlAQgFD3JhbmRvbVNlZWRCbG9jawN2cmYJAGoCCQCyCQIFCnJhbmRvbUhhc2gJAGgCBQZvZmZzZXQACAUIdmFyaWFudHMFAWkBBmNyZWF0ZQQEbmFtZQRkZXNjCWVuZEhlaWdodAV0YXNrcwQMcHJpemVGdW5kU3RyCQENY2FsY1ByaXplRnVuZAEIBQFpCHBheW1lbnRzAwkAAAIJALECAQUMcHJpemVGdW5kU3RyAAAJAAIBAgtObyBwYXltZW50cwMJAAACCQCQAwEFBXRhc2tzAAAJAAIBAhBUYXNrcyBsaXN0IGVtcHR5AwkAAAIJALECAQUEbmFtZQAACQACAQIKTmFtZSBlbXB0eQMJAAACCQCxAgEFBGRlc2MAAAkAAgECCkRlc2MgZW1wdHkDCQBmAgUGaGVpZ2h0BQllbmRIZWlnaHQJAAIBAhBJbnZhbGlkIGRhdGUgZW5kBAljb250ZXN0SWQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUQTGFzdENvbnRlc3RJZEtleQABCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgVfbmFtZQUEbmFtZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCBV9kZXNjBQRkZXNjCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCDF9zdGFydEhlaWdodAUGaGVpZ2h0CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCCl9lbmRIZWlnaHQFCWVuZEhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgUNQ29udGVzdFByZWZpeAkApAMBBQljb250ZXN0SWQCBl9vd25lcgkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgpfcHJpemVGdW5kBQxwcml6ZUZ1bmRTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgZfdGFza3MJALoJAgUFdGFza3MCATsJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIFDUNvbnRlc3RQcmVmaXgJAKQDAQUJY29udGVzdElkAgdfc3RhdHVzBQ1TdGF0dXNfQWN0aXZlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBMYXN0Q29udGVzdElkS2V5CQBkAgUJY29udGVzdElkAAEFA25pbAUJY29udGVzdElkAWkBC3BhcnRpY2lwYXRlAQljb250ZXN0SWQEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEGENvbnRlc3RQYXJ0aWNpcGFudFByZWZpeAkArAICCQCsAgIFDENvbnRlc3RJZFN0cgINX3BhcnRpY2lwYW50XwkApQgBCAUBaQZjYWxsZXIEHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAKwCAgUYQ29udGVzdFBhcnRpY2lwYW50UHJlZml4AghfYWRkcmVzcwQHaXNPd25lcgQHJG1hdGNoMAkAoggBCQCsAgIFDENvbnRlc3RJZFN0cgIGX293bmVyAwkAAQIFByRtYXRjaDACBlN0cmluZwQBdAUHJG1hdGNoMAkAAAIFAXQJAKUIAQgFAWkGY2FsbGVyCQACAQIURGF0YSBnZXQgb3duZXIgZXJyb3IEB2lzRXhpc3QEByRtYXRjaDAJAKIIAQUcQ29udGVzdFBhcnRpY2lwYW50QWRkcmVzc0tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXQFByRtYXRjaDAGBwQRcGFydGljaXBhbnRzQ291bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAAAAwUHaXNPd25lcgkAAgECGE93bmVyIGNhbm5vdCBwYXJ0aWNpcGF0ZQMFB2lzRXhpc3QJAAIBAh1Zb3UgYXJlIGFscmVhZHkgcGFydGljaXBhdGluZwkAzAgCCQELU3RyaW5nRW50cnkCBRxDb250ZXN0UGFydGljaXBhbnRBZGRyZXNzS2V5CQClCAEIBQFpBmNhbGxlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBRhDb250ZXN0UGFydGljaXBhbnRQcmVmaXgCCl9zdGFydGVkQXQFBmhlaWdodAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAkAZAIFEXBhcnRpY2lwYW50c0NvdW50AAEFA25pbAFpAQ11bnBhcnRpY2lwYXRlAQljb250ZXN0SWQEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEGENvbnRlc3RQYXJ0aWNpcGFudFByZWZpeAkArAICCQCsAgIFDENvbnRlc3RJZFN0cgINX3BhcnRpY2lwYW50XwkApQgBCAUBaQZjYWxsZXIEHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAKwCAgUYQ29udGVzdFBhcnRpY2lwYW50UHJlZml4AghfYWRkcmVzcwQHaXNFeGlzdAQHJG1hdGNoMAkAoggBBRxDb250ZXN0UGFydGljaXBhbnRBZGRyZXNzS2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBdAUHJG1hdGNoMAYHBBFwYXJ0aWNpcGFudHNDb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQCsAgIFDENvbnRlc3RJZFN0cgISX3BhcnRpY2lwYW50c0NvdW50AAADCQEBIQEFB2lzRXhpc3QJAAIBAhlZb3UgYXJlIG5vdCBwYXJ0aWNpcGF0aW5nCQDMCAIJAQtEZWxldGVFbnRyeQEFHENvbnRlc3RQYXJ0aWNpcGFudEFkZHJlc3NLZXkJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBRhDb250ZXN0UGFydGljaXBhbnRQcmVmaXgCCl9zdGFydGVkQXQJAMwIAgMJAAACCQBlAgURcGFydGljaXBhbnRzQ291bnQAAQAACQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgISX3BhcnRpY2lwYW50c0NvdW50CQEMSW50ZWdlckVudHJ5AgkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAkAZQIFEXBhcnRpY2lwYW50c0NvdW50AAEFA25pbAFpAQxjaG9vc2VXaW5uZXICCWNvbnRlc3RJZAlhZGRyZXNzZXMEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEDHByaXplRnVuZFN0cgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJAKwCAgUMQ29udGVzdElkU3RyAgpfcHJpemVGdW5kAhlQcml6ZSBmdW5kIGRhdGEgbm90IGZvdW5kBAdpc093bmVyBAckbWF0Y2gwCQCiCAEJAKwCAgUMQ29udGVzdElkU3RyAgZfb3duZXIDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF0BQckbWF0Y2gwCQAAAgUBdAkApQgBCAUBaQZjYWxsZXIJAAIBAhREYXRhIGdldCBvd25lciBlcnJvcgQLd2lubmVySW5kZXgJAQ9nZXRSYW5kb21OdW1iZXIECQCQAwEFCWFkZHJlc3NlcwgFAWkNdHJhbnNhY3Rpb25JZAUGaGVpZ2h0AAAEEHdpbm5lckFkZHJlc3NTdHIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAkQMCBQlhZGRyZXNzZXMFC3dpbm5lckluZGV4AhZJbnZhbGlkIHdpbm5lciBhZGRyZXNzBBNpc1dpbm5lclBhcnRpY2lwYXRlBAckbWF0Y2gwCQCiCAEJAKwCAgkArAICCQCsAgIFDENvbnRlc3RJZFN0cgINX3BhcnRpY2lwYW50XwUQd2lubmVyQWRkcmVzc1N0cgIIX2FkZHJlc3MDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAF0BQckbWF0Y2gwBgcECWVuZEhlaWdodAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEJAKwCAgUMQ29udGVzdElkU3RyAgpfZW5kSGVpZ2h0AhVObyBlbmQgaGVpZ2h0IGNvbnRlc3QDCQEBIQEFB2lzT3duZXIJAAIBAhVZb3UgYXJlIG5vdCB0aGUgb3duZXIDCQBmAgUGaGVpZ2h0BQllbmRIZWlnaHQJAAIBAhhDb250ZXN0IGhhc24ndCBlbmRlZCB5ZXQDCQEBIQEFE2lzV2lubmVyUGFydGljaXBhdGUJAAIBAiRXaW5uZGVyJ3MgYWRkcmVzcyBkaWRuJ3QgcGFydGljaXBhdGUDCQAAAgkAkAMBBQlhZGRyZXNzZXMAAAkAAgECFUFkZHJlc3MgbGlzdCBpcyBlbXB0eQkAzggCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgIHd2lubmVyXwUQd2lubmVyQWRkcmVzc1N0cgIBXwUMQ29udGVzdElkU3RyAgpfcHJpemVGdW5kBQxwcml6ZUZ1bmRTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQxDb250ZXN0SWRTdHICDl93aW5uZXJBZGRyZXNzBRB3aW5uZXJBZGRyZXNzU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUMQ29udGVzdElkU3RyAgdfc3RhdHVzBQ1TdGF0dXNfRmluaXNoBQNuaWwJARFnZXRQcml6ZVRyYW5zZmVycwIFDHByaXplRnVuZFN0cgkBB0FkZHJlc3MBCQDZBAEFEHdpbm5lckFkZHJlc3NTdHIBaQEGcmVtb3ZlAQljb250ZXN0SWQEDENvbnRlc3RJZFN0cgkArAICBQ1Db250ZXN0UHJlZml4BQljb250ZXN0SWQEEXBhcnRpY2lwYW50c0NvdW50CQELdmFsdWVPckVsc2UCCQCfCAEJAKwCAgUMQ29udGVzdElkU3RyAhJfcGFydGljaXBhbnRzQ291bnQAAAQMcHJpemVGdW5kU3RyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKIIAQkArAICBQxDb250ZXN0SWRTdHICCl9wcml6ZUZ1bmQCGVByaXplIGZ1bmQgZGF0YSBub3QgZm91bmQEB2lzT3duZXIEByRtYXRjaDAJAKIIAQkArAICBQxDb250ZXN0SWRTdHICBl9vd25lcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXQFByRtYXRjaDAJAAACBQF0CQClCAEIBQFpBmNhbGxlcgkAAgECFERhdGEgZ2V0IG93bmVyIGVycm9yAwkBASEBBQdpc093bmVyCQACAQIVWW91IGFyZSBub3QgdGhlIG93bmVyAwkAZgIFEXBhcnRpY2lwYW50c0NvdW50AAAJAAIBAi9UaGUgbnVtYmVyIG9mIHBhcnRpY2lwYW50cyBpcyBncmVhdGVyIHRoYW4gemVybwkAzggCCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgVfbmFtZQkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgIFX2Rlc2MJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICDF9zdGFydEhlaWdodAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgIKX2VuZEhlaWdodAkAzAgCCQELRGVsZXRlRW50cnkBCQCsAgIFDENvbnRlc3RJZFN0cgIGX293bmVyCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgpfcHJpemVGdW5kCQDMCAIJAQtEZWxldGVFbnRyeQEJAKwCAgUMQ29udGVzdElkU3RyAgZfdGFza3MJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICB19zdGF0dXMJAMwIAgkBC0RlbGV0ZUVudHJ5AQkArAICBQxDb250ZXN0SWRTdHICEl9wYXJ0aWNpcGFudHNDb3VudAUDbmlsCQERZ2V0UHJpemVUcmFuc2ZlcnMCBQxwcml6ZUZ1bmRTdHIIBQFpBmNhbGxlcgECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXn6AThR",
    "height": 3651482,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AhM1RL3w52YmkfxYrmQdSaVfzxuvBZjvw1HE9fPBX65P
Next: none

Diff: 
Old New Differences
12 12  let Status_Stop = "stop"
13 13  
14 14  let Status_Delted = "deleted"
15 + 
16 + let Status_Finish = "finish"
15 17  
16 18  func calcPrizeFund (payments) = {
17 19      func calc (accum,next) =     {
66 68          else throw("List size exceeds 10")
67 69  
68 70      $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)
71 +     }
72 + 
73 + 
74 + func getRandomNumber (variants,txId,blockHeight,offset) = {
75 +     let randomSeedBlock = value(blockInfoByHeight((blockHeight - 1)))
76 +     let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
77 +     (toInt(randomHash, (offset * 8)) % variants)
69 78      }
70 79  
71 80  
139 148  
140 149  
141 150  @Callable(i)
151 + func chooseWinner (contestId,addresses) = {
152 +     let ContestIdStr = (ContestPrefix + contestId)
153 +     let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
154 +     let isOwner =     match getString((ContestIdStr + "_owner")) {
155 +         case t: String => 
156 +             (t == toString(i.caller))
157 +         case _ => 
158 +             throw("Data get owner error")
159 +     }
160 +     let winnerIndex = getRandomNumber(size(addresses), i.transactionId, height, 0)
161 +     let winnerAddressStr = valueOrErrorMessage(addresses[winnerIndex], "Invalid winner address")
162 +     let isWinnerParticipate =     match getString((((ContestIdStr + "_participant_") + winnerAddressStr) + "_address")) {
163 +         case t: String => 
164 +             true
165 +         case _ => 
166 +             false
167 +     }
168 +     let endHeight = valueOrErrorMessage(getInteger((ContestIdStr + "_endHeight")), "No end height contest")
169 +     if (!(isOwner))
170 +         then throw("You are not the owner")
171 +         else if ((height > endHeight))
172 +             then throw("Contest hasn't ended yet")
173 +             else if (!(isWinnerParticipate))
174 +                 then throw("Winnder's address didn't participate")
175 +                 else if ((size(addresses) == 0))
176 +                     then throw("Address list is empty")
177 +                     else ([StringEntry((((("winner_" + winnerAddressStr) + "_") + ContestIdStr) + "_prizeFund"), prizeFundStr), StringEntry((ContestIdStr + "_winnerAddress"), winnerAddressStr), StringEntry((ContestIdStr + "_status"), Status_Finish)] ++ getPrizeTransfers(prizeFundStr, Address(fromBase58String(winnerAddressStr))))
178 +     }
179 + 
180 + 
181 + 
182 + @Callable(i)
142 183  func remove (contestId) = {
143 184      let ContestIdStr = (ContestPrefix + contestId)
144 185      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
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 + 
16 + let Status_Finish = "finish"
15 17  
16 18  func calcPrizeFund (payments) = {
17 19      func calc (accum,next) =     {
18 20          let assetName =         match next.assetId {
19 21              case t: ByteVector => 
20 22                  toBase58String(t)
21 23              case _ => 
22 24                  "WAVES"
23 25          }
24 26          if (if ((size(assetName) > 0))
25 27              then (next.amount > 0)
26 28              else false)
27 29              then (accum :+ ((assetName + ":") + toString(next.amount)))
28 30              else accum
29 31          }
30 32  
31 33      makeString_2C({
32 34          let $l = payments
33 35          let $s = size($l)
34 36          let $acc0 = nil
35 37          func $f0_1 ($a,$i) =         if (($i >= $s))
36 38              then $a
37 39              else calc($a, $l[$i])
38 40  
39 41          func $f0_2 ($a,$i) =         if (($i >= $s))
40 42              then $a
41 43              else throw("List size exceeds 10")
42 44  
43 45          $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 46          }, "|")
45 47      }
46 48  
47 49  
48 50  func getPrizeTransfers (prizeFundStr,recipient) = {
49 51      func calc (accum,next) =     {
50 52          let parts = split(next, ":")
51 53          let assetId = if ((parts[0] == "WAVES"))
52 54              then unit
53 55              else fromBase58String(parts[0])
54 56          (accum :+ ScriptTransfer(recipient, value(parseInt(parts[1])), assetId))
55 57          }
56 58  
57 59      let $l = split_4C(prizeFundStr, "|")
58 60      let $s = size($l)
59 61      let $acc0 = nil
60 62      func $f0_1 ($a,$i) =     if (($i >= $s))
61 63          then $a
62 64          else calc($a, $l[$i])
63 65  
64 66      func $f0_2 ($a,$i) =     if (($i >= $s))
65 67          then $a
66 68          else throw("List size exceeds 10")
67 69  
68 70      $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)
71 +     }
72 + 
73 + 
74 + func getRandomNumber (variants,txId,blockHeight,offset) = {
75 +     let randomSeedBlock = value(blockInfoByHeight((blockHeight - 1)))
76 +     let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
77 +     (toInt(randomHash, (offset * 8)) % variants)
69 78      }
70 79  
71 80  
72 81  @Callable(i)
73 82  func create (name,desc,endHeight,tasks) = {
74 83      let prizeFundStr = calcPrizeFund(i.payments)
75 84      if ((size(prizeFundStr) == 0))
76 85          then throw("No payments")
77 86          else if ((size(tasks) == 0))
78 87              then throw("Tasks list empty")
79 88              else if ((size(name) == 0))
80 89                  then throw("Name empty")
81 90                  else if ((size(desc) == 0))
82 91                      then throw("Desc empty")
83 92                      else if ((height > endHeight))
84 93                          then throw("Invalid date end")
85 94                          else {
86 95                              let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87 96                              $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 97                              }
89 98      }
90 99  
91 100  
92 101  
93 102  @Callable(i)
94 103  func participate (contestId) = {
95 104      let ContestIdStr = (ContestPrefix + contestId)
96 105      let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
97 106      let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
98 107      let isOwner =     match getString((ContestIdStr + "_owner")) {
99 108          case t: String => 
100 109              (t == toString(i.caller))
101 110          case _ => 
102 111              throw("Data get owner error")
103 112      }
104 113      let isExist =     match getString(ContestParticipantAddressKey) {
105 114          case t: String => 
106 115              true
107 116          case _ => 
108 117              false
109 118      }
110 119      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
111 120      if (isOwner)
112 121          then throw("Owner cannot participate")
113 122          else if (isExist)
114 123              then throw("You are already participating")
115 124              else [StringEntry(ContestParticipantAddressKey, toString(i.caller)), IntegerEntry((ContestParticipantPrefix + "_startedAt"), height), IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount + 1))]
116 125      }
117 126  
118 127  
119 128  
120 129  @Callable(i)
121 130  func unparticipate (contestId) = {
122 131      let ContestIdStr = (ContestPrefix + contestId)
123 132      let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
124 133      let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
125 134      let isExist =     match getString(ContestParticipantAddressKey) {
126 135          case t: String => 
127 136              true
128 137          case _ => 
129 138              false
130 139      }
131 140      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
132 141      if (!(isExist))
133 142          then throw("You are not participating")
134 143          else [DeleteEntry(ContestParticipantAddressKey), DeleteEntry((ContestParticipantPrefix + "_startedAt")), if (((participantsCount - 1) == 0))
135 144              then DeleteEntry((ContestIdStr + "_participantsCount"))
136 145              else IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount - 1))]
137 146      }
138 147  
139 148  
140 149  
141 150  @Callable(i)
151 + func chooseWinner (contestId,addresses) = {
152 +     let ContestIdStr = (ContestPrefix + contestId)
153 +     let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
154 +     let isOwner =     match getString((ContestIdStr + "_owner")) {
155 +         case t: String => 
156 +             (t == toString(i.caller))
157 +         case _ => 
158 +             throw("Data get owner error")
159 +     }
160 +     let winnerIndex = getRandomNumber(size(addresses), i.transactionId, height, 0)
161 +     let winnerAddressStr = valueOrErrorMessage(addresses[winnerIndex], "Invalid winner address")
162 +     let isWinnerParticipate =     match getString((((ContestIdStr + "_participant_") + winnerAddressStr) + "_address")) {
163 +         case t: String => 
164 +             true
165 +         case _ => 
166 +             false
167 +     }
168 +     let endHeight = valueOrErrorMessage(getInteger((ContestIdStr + "_endHeight")), "No end height contest")
169 +     if (!(isOwner))
170 +         then throw("You are not the owner")
171 +         else if ((height > endHeight))
172 +             then throw("Contest hasn't ended yet")
173 +             else if (!(isWinnerParticipate))
174 +                 then throw("Winnder's address didn't participate")
175 +                 else if ((size(addresses) == 0))
176 +                     then throw("Address list is empty")
177 +                     else ([StringEntry((((("winner_" + winnerAddressStr) + "_") + ContestIdStr) + "_prizeFund"), prizeFundStr), StringEntry((ContestIdStr + "_winnerAddress"), winnerAddressStr), StringEntry((ContestIdStr + "_status"), Status_Finish)] ++ getPrizeTransfers(prizeFundStr, Address(fromBase58String(winnerAddressStr))))
178 +     }
179 + 
180 + 
181 + 
182 + @Callable(i)
142 183  func remove (contestId) = {
143 184      let ContestIdStr = (ContestPrefix + contestId)
144 185      let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
145 186      let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
146 187      let isOwner =     match getString((ContestIdStr + "_owner")) {
147 188          case t: String => 
148 189              (t == toString(i.caller))
149 190          case _ => 
150 191              throw("Data get owner error")
151 192      }
152 193      if (!(isOwner))
153 194          then throw("You are not the owner")
154 195          else if ((participantsCount > 0))
155 196              then throw("The number of participants is greater than zero")
156 197              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 198      }
158 199  
159 200  
160 201  @Verifier(tx)
161 202  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
162 203

Old	New		Differences
12	12		let Status_Stop = "stop"
13	13
14	14		let Status_Delted = "deleted"
	15	+
	16	+	let Status_Finish = "finish"
15	17
16	18		func calcPrizeFund (payments) = {
17	19		func calc (accum,next) = {

66	68		else throw("List size exceeds 10")
67	69
68	70		$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)
	71	+	}
	72	+
	73	+
	74	+	func getRandomNumber (variants,txId,blockHeight,offset) = {
	75	+	let randomSeedBlock = value(blockInfoByHeight((blockHeight - 1)))
	76	+	let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
	77	+	(toInt(randomHash, (offset * 8)) % variants)
69	78		}
70	79
71	80

139	148
140	149
141	150		@Callable(i)
	151	+	func chooseWinner (contestId,addresses) = {
	152	+	let ContestIdStr = (ContestPrefix + contestId)
	153	+	let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
	154	+	let isOwner = match getString((ContestIdStr + "_owner")) {
	155	+	case t: String =>
	156	+	(t == toString(i.caller))
	157	+	case _ =>
	158	+	throw("Data get owner error")
	159	+	}
	160	+	let winnerIndex = getRandomNumber(size(addresses), i.transactionId, height, 0)
	161	+	let winnerAddressStr = valueOrErrorMessage(addresses[winnerIndex], "Invalid winner address")
	162	+	let isWinnerParticipate = match getString((((ContestIdStr + "_participant_") + winnerAddressStr) + "_address")) {
	163	+	case t: String =>
	164	+	true
	165	+	case _ =>
	166	+	false
	167	+	}
	168	+	let endHeight = valueOrErrorMessage(getInteger((ContestIdStr + "_endHeight")), "No end height contest")
	169	+	if (!(isOwner))
	170	+	then throw("You are not the owner")
	171	+	else if ((height > endHeight))
	172	+	then throw("Contest hasn't ended yet")
	173	+	else if (!(isWinnerParticipate))
	174	+	then throw("Winnder's address didn't participate")
	175	+	else if ((size(addresses) == 0))
	176	+	then throw("Address list is empty")
	177	+	else ([StringEntry((((("winner_" + winnerAddressStr) + "_") + ContestIdStr) + "_prizeFund"), prizeFundStr), StringEntry((ContestIdStr + "_winnerAddress"), winnerAddressStr), StringEntry((ContestIdStr + "_status"), Status_Finish)] ++ getPrizeTransfers(prizeFundStr, Address(fromBase58String(winnerAddressStr))))
	178	+	}
	179	+
	180	+
	181	+
	182	+	@Callable(i)
142	183		func remove (contestId) = {
143	184		let ContestIdStr = (ContestPrefix + contestId)
144	185		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)

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	+
	16	+	let Status_Finish = "finish"
15	17
16	18		func calcPrizeFund (payments) = {
17	19		func calc (accum,next) = {
18	20		let assetName = match next.assetId {
19	21		case t: ByteVector =>
20	22		toBase58String(t)
21	23		case _ =>
22	24		"WAVES"
23	25		}
24	26		if (if ((size(assetName) > 0))
25	27		then (next.amount > 0)
26	28		else false)
27	29		then (accum :+ ((assetName + ":") + toString(next.amount)))
28	30		else accum
29	31		}
30	32
31	33		makeString_2C({
32	34		let $l = payments
33	35		let $s = size($l)
34	36		let $acc0 = nil
35	37		func $f0_1 ($a,$i) = if (($i >= $s))
36	38		then $a
37	39		else calc($a, $l[$i])
38	40
39	41		func $f0_2 ($a,$i) = if (($i >= $s))
40	42		then $a
41	43		else throw("List size exceeds 10")
42	44
43	45		$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	46		}, "\|")
45	47		}
46	48
47	49
48	50		func getPrizeTransfers (prizeFundStr,recipient) = {
49	51		func calc (accum,next) = {
50	52		let parts = split(next, ":")
51	53		let assetId = if ((parts[0] == "WAVES"))
52	54		then unit
53	55		else fromBase58String(parts[0])
54	56		(accum :+ ScriptTransfer(recipient, value(parseInt(parts[1])), assetId))
55	57		}
56	58
57	59		let $l = split_4C(prizeFundStr, "\|")
58	60		let $s = size($l)
59	61		let $acc0 = nil
60	62		func $f0_1 ($a,$i) = if (($i >= $s))
61	63		then $a
62	64		else calc($a, $l[$i])
63	65
64	66		func $f0_2 ($a,$i) = if (($i >= $s))
65	67		then $a
66	68		else throw("List size exceeds 10")
67	69
68	70		$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)
	71	+	}
	72	+
	73	+
	74	+	func getRandomNumber (variants,txId,blockHeight,offset) = {
	75	+	let randomSeedBlock = value(blockInfoByHeight((blockHeight - 1)))
	76	+	let randomHash = sha256((txId + value(randomSeedBlock.vrf)))
	77	+	(toInt(randomHash, (offset * 8)) % variants)
69	78		}
70	79
71	80
72	81		@Callable(i)
73	82		func create (name,desc,endHeight,tasks) = {
74	83		let prizeFundStr = calcPrizeFund(i.payments)
75	84		if ((size(prizeFundStr) == 0))
76	85		then throw("No payments")
77	86		else if ((size(tasks) == 0))
78	87		then throw("Tasks list empty")
79	88		else if ((size(name) == 0))
80	89		then throw("Name empty")
81	90		else if ((size(desc) == 0))
82	91		then throw("Desc empty")
83	92		else if ((height > endHeight))
84	93		then throw("Invalid date end")
85	94		else {
86	95		let contestId = valueOrElse(getInteger(LastContestIdKey), 1)
87	96		$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	97		}
89	98		}
90	99
91	100
92	101
93	102		@Callable(i)
94	103		func participate (contestId) = {
95	104		let ContestIdStr = (ContestPrefix + contestId)
96	105		let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
97	106		let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
98	107		let isOwner = match getString((ContestIdStr + "_owner")) {
99	108		case t: String =>
100	109		(t == toString(i.caller))
101	110		case _ =>
102	111		throw("Data get owner error")
103	112		}
104	113		let isExist = match getString(ContestParticipantAddressKey) {
105	114		case t: String =>
106	115		true
107	116		case _ =>
108	117		false
109	118		}
110	119		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
111	120		if (isOwner)
112	121		then throw("Owner cannot participate")
113	122		else if (isExist)
114	123		then throw("You are already participating")
115	124		else [StringEntry(ContestParticipantAddressKey, toString(i.caller)), IntegerEntry((ContestParticipantPrefix + "_startedAt"), height), IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount + 1))]
116	125		}
117	126
118	127
119	128
120	129		@Callable(i)
121	130		func unparticipate (contestId) = {
122	131		let ContestIdStr = (ContestPrefix + contestId)
123	132		let ContestParticipantPrefix = ((ContestIdStr + "_participant_") + toString(i.caller))
124	133		let ContestParticipantAddressKey = (ContestParticipantPrefix + "_address")
125	134		let isExist = match getString(ContestParticipantAddressKey) {
126	135		case t: String =>
127	136		true
128	137		case _ =>
129	138		false
130	139		}
131	140		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
132	141		if (!(isExist))
133	142		then throw("You are not participating")
134	143		else [DeleteEntry(ContestParticipantAddressKey), DeleteEntry((ContestParticipantPrefix + "_startedAt")), if (((participantsCount - 1) == 0))
135	144		then DeleteEntry((ContestIdStr + "_participantsCount"))
136	145		else IntegerEntry((ContestIdStr + "_participantsCount"), (participantsCount - 1))]
137	146		}
138	147
139	148
140	149
141	150		@Callable(i)
	151	+	func chooseWinner (contestId,addresses) = {
	152	+	let ContestIdStr = (ContestPrefix + contestId)
	153	+	let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
	154	+	let isOwner = match getString((ContestIdStr + "_owner")) {
	155	+	case t: String =>
	156	+	(t == toString(i.caller))
	157	+	case _ =>
	158	+	throw("Data get owner error")
	159	+	}
	160	+	let winnerIndex = getRandomNumber(size(addresses), i.transactionId, height, 0)
	161	+	let winnerAddressStr = valueOrErrorMessage(addresses[winnerIndex], "Invalid winner address")
	162	+	let isWinnerParticipate = match getString((((ContestIdStr + "_participant_") + winnerAddressStr) + "_address")) {
	163	+	case t: String =>
	164	+	true
	165	+	case _ =>
	166	+	false
	167	+	}
	168	+	let endHeight = valueOrErrorMessage(getInteger((ContestIdStr + "_endHeight")), "No end height contest")
	169	+	if (!(isOwner))
	170	+	then throw("You are not the owner")
	171	+	else if ((height > endHeight))
	172	+	then throw("Contest hasn't ended yet")
	173	+	else if (!(isWinnerParticipate))
	174	+	then throw("Winnder's address didn't participate")
	175	+	else if ((size(addresses) == 0))
	176	+	then throw("Address list is empty")
	177	+	else ([StringEntry((((("winner_" + winnerAddressStr) + "_") + ContestIdStr) + "_prizeFund"), prizeFundStr), StringEntry((ContestIdStr + "_winnerAddress"), winnerAddressStr), StringEntry((ContestIdStr + "_status"), Status_Finish)] ++ getPrizeTransfers(prizeFundStr, Address(fromBase58String(winnerAddressStr))))
	178	+	}
	179	+
	180	+
	181	+
	182	+	@Callable(i)
142	183		func remove (contestId) = {
143	184		let ContestIdStr = (ContestPrefix + contestId)
144	185		let participantsCount = valueOrElse(getInteger((ContestIdStr + "_participantsCount")), 0)
145	186		let prizeFundStr = valueOrErrorMessage(getString((ContestIdStr + "_prizeFund")), "Prize fund data not found")
146	187		let isOwner = match getString((ContestIdStr + "_owner")) {
147	188		case t: String =>
148	189		(t == toString(i.caller))
149	190		case _ =>
150	191		throw("Data get owner error")
151	192		}
152	193		if (!(isOwner))
153	194		then throw("You are not the owner")
154	195		else if ((participantsCount > 0))
155	196		then throw("The number of participants is greater than zero")
156	197		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	198		}
158	199
159	200
160	201		@Verifier(tx)
161	202		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
162	203

github/deemru/w8io/3ef1775 
38.07 ms ◑