tx · 4rn5zoHw6NuXWgZrmsNiRgANWPryKoNVgGGrZDf1JXKF

3MuVxxVfgdoobfADVjpHZXLJ2dNse6zQA8o:  -0.01400000 Waves

2019.08.02 10:35 [612930] smart account 3MuVxxVfgdoobfADVjpHZXLJ2dNse6zQA8o > SELF 0.00000000 Waves

{ "type": 13, "id": "4rn5zoHw6NuXWgZrmsNiRgANWPryKoNVgGGrZDf1JXKF", "fee": 1400000, "feeAssetId": null, "timestamp": 1564731317392, "version": 1, "sender": "3MuVxxVfgdoobfADVjpHZXLJ2dNse6zQA8o", "senderPublicKey": "J3FHH7LcE3Xj4yGipA2YSxCnR1RZM9tSNFGXeETQQoMd", "proofs": [ "5eMm7u94h1Gxsm8VSpc2NRZn4brFxDyApEfMqJgj3j8LoeHW3tsNdN1WnLsVgX8Fuk3AG7AqGAXtNZgMHcpv5dgK" ], "script": "base64:AAIDAAAAAAAAAAAAAAAKAAAAAA5hZG1pblB1YmxpY0tleQEAAAAgPH0OWoXiJ6xp9vlVyPXYZF0BaddziuTixRaOgt3JrF0AAAAABXdjdElkAQAAACC2krPtV7BZ501xydDc/m59JfhQiLCAw6wvux9SHsStvwAAAAAId3ZzUHJpY2UAAAAAAAX14QAAAAAACHdjdFByaWNlAAAAAAAAAABkAAAAAAhsYXN0Q2VsbAAAAAAAAAAAGAAAAAAIcm91bmRLZXkCAAAABXJvdW5kAAAAAAhjZWxsc0tleQIAAAAFY2VsbHMAAAAACmxhc3RXaW5LZXkCAAAAB2xhc3RXaW4AAAAADWxhc3RXaW5XY3RLZXkCAAAACmxhc3RXaW5XY3QAAAAADWxhc3RXaW5XdnNLZXkCAAAACmxhc3RXaW5XdnMAAAACAAAAAWkBAAAABmNyZWF0ZQAAAAEAAAALdGlja2V0QXNzZXQEAAAABWFJbmZvCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQkAAlkAAAABBQAAAAt0aWNrZXRBc3NldAIAAAAjVGhlcmUgaXMgbm8gYXNzZXQgd2l0aCBzcGVjaWZpZWQgaWQJAAACAAAAAQkAAlgAAAABCAUAAAAFYUluZm8AAAACaWQAAAABaQEAAAADYnV5AAAAAQAAAARjZWxsBAAAAAVyb3VuZAkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAABHRoaXMFAAAACHJvdW5kS2V5BAAAAAVjZWxscwkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAABHRoaXMFAAAACGNlbGxzS2V5AwMJAABmAAAAAgAAAAAAAAAAAAUAAAAEY2VsbAYJAABmAAAAAgUAAAAEY2VsbAUAAAAIbGFzdENlbGwJAAACAAAAAQIAAAAOSW52YWxpZCBudW1iZXIEAAAAA3BtdAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCAUAAAABaQAAAAdwYXltZW50AgAAABFXaGVyZSBpcyBwYXltZW50PwQAAAADd3ZzCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQEAAAAA3djdAkAAAAAAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAABXdjdElkAwMDAwkBAAAAASEAAAABBQAAAAN3Y3QJAQAAAAEhAAAAAQUAAAADd3ZzBwYDBQAAAAN3Y3QJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAh3Y3RQcmljZQcGAwUAAAADd3ZzCQEAAAACIT0AAAACCAUAAAADcG10AAAABmFtb3VudAUAAAAId3ZzUHJpY2UHCQAAAgAAAAECAAAAGVByaWNlIGlzIDEgV0NUIG9yIDEgV0FWRVMEAAAACGNlbGxEYXRhCQAEHQAAAAIFAAAABHRoaXMJAAGkAAAAAQUAAAAEY2VsbAQAAAAGYm91Z2h0AwkBAAAACWlzRGVmaW5lZAAAAAEFAAAACGNlbGxEYXRhBAAAAAljZWxsUm91bmQJAAGRAAAAAgkABLUAAAACCQEAAAAHZXh0cmFjdAAAAAEFAAAACGNlbGxEYXRhAgAAAAFfAAAAAAAAAAABAwkAAAAAAAACBQAAAAljZWxsUm91bmQJAAGkAAAAAQUAAAAFcm91bmQGBwcDBQAAAAZib3VnaHQJAAACAAAAAQIAAAAOQWxyZWFkeSBib3VnaHQEAAAABGxhc3QJAAAAAAAAAgUAAAAFY2VsbHMFAAAACGxhc3RDZWxsAwUAAAAEbGFzdAQAAAAHd2N0RmxhZwMFAAAAA3djdAAAAAAAAAAAAQAAAAAAAAAAAAQAAAAHd3ZzRmxhZwMFAAAAA3d2cwAAAAAAAAAAAQAAAAAAAAAAAAQAAAAJd2N0QW1vdW50CQAAZAAAAAIJAAPrAAAAAgUAAAAEdGhpcwUAAAAFd2N0SWQJAABoAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAB3djdEZsYWcEAAAACXd2c0Ftb3VudAkAAGQAAAACCQEAAAAMd2F2ZXNCYWxhbmNlAAAAAQUAAAAEdGhpcwkAAGgAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAAHd3ZzRmxhZwQAAAANd3ZzQWRtaW5TaGFyZQkAAGkAAAACBQAAAAl3dnNBbW91bnQAAAAAAAAAAGQEAAAAC3d2c1dpblNoYXJlCQAAZQAAAAIFAAAACXd2c0Ftb3VudAUAAAANd3ZzQWRtaW5TaGFyZQQAAAANd2N0QWRtaW5TaGFyZQkAAGkAAAACBQAAAAl3Y3RBbW91bnQAAAAAAAAAAGQEAAAAC3djdFdpblNoYXJlCQAAZQAAAAIFAAAACXdjdEFtb3VudAUAAAANd2N0QWRtaW5TaGFyZQQAAAAMYWRtaW5BZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABBQAAAA5hZG1pblB1YmxpY0tleQQAAAAHd2luQ2VsbAkAAGoAAAACCQAEsQAAAAEIBQAAAAlsYXN0QmxvY2sAAAATZ2VuZXJhdGlvblNpZ25hdHVyZQkAAGQAAAACBQAAAAhsYXN0Q2VsbAAAAAAAAAAAAQQAAAAHd2luRGF0YQkBAAAAB2V4dHJhY3QAAAABCQAEHQAAAAIFAAAABHRoaXMJAAGkAAAAAQUAAAAHd2luQ2VsbAQAAAAKd2luQWRkcmVzcwMJAAAAAAAAAgUAAAAHd2luQ2VsbAUAAAAEY2VsbAgFAAAAAWkAAAAGY2FsbGVyCQEAAAAHZXh0cmFjdAAAAAEJAQAAABFhZGRyZXNzRnJvbVN0cmluZwAAAAEJAAGRAAAAAgkABLUAAAACBQAAAAd3aW5EYXRhAgAAAAFfAAAAAAAAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAAaQAAAABBQAAAARjZWxsCQABLAAAAAIJAAEsAAAAAgkABCUAAAABCAUAAAABaQAAAAZjYWxsZXICAAAAAV8JAAGkAAAAAQUAAAAFcm91bmQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACGNlbGxzS2V5AAAAAAAAAAAACQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhyb3VuZEtleQkAAGQAAAACBQAAAAVyb3VuZAAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAKbGFzdFdpbktleQkAASwAAAACCQABLAAAAAIJAAGkAAAAAQUAAAAHd2luQ2VsbAIAAAABXwkABCUAAAABBQAAAAp3aW5BZGRyZXNzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAA1sYXN0V2luV3ZzS2V5BQAAAAl3dnNBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAADWxhc3RXaW5XY3RLZXkFAAAACXdjdEFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACndpbkFkZHJlc3MFAAAAC3d2c1dpblNoYXJlBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAADGFkbWluQWRkcmVzcwUAAAANd3ZzQWRtaW5TaGFyZQUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAp3aW5BZGRyZXNzBQAAAAt3Y3RXaW5TaGFyZQUAAAAFd2N0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAMYWRtaW5BZGRyZXNzBQAAAA13Y3RBZG1pblNoYXJlBQAAAAV3Y3RJZAUAAAADbmlsCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABpAAAAAEFAAAABGNlbGwJAAEsAAAAAgkAASwAAAACCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgIAAAABXwkAAaQAAAABBQAAAAVyb3VuZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIY2VsbHNLZXkJAABkAAAAAgUAAAAFY2VsbHMAAAAAAAAAAAEFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAGYpUv2w==", "chainId": 84, "height": 612930, "spentComplexity": 0 } View: original | compacted Prev: none Next: FvB5891pkH7ZMYoFDRix4zdFnV7apiMpULENAfvnJwMZ Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let adminPublicKey = base58'5584brtd1tLqMNJdCzvPFUEL1ujYRyi4Sy3zEZ5nTPsJ'
5+
6+let wctId = base58'DHgwrRvVyqJsepd32YbBqUeDH4GJ1N984X8QoekjgH8J'
7+
8+let wvsPrice = 100000000
9+
10+let wctPrice = 100
11+
12+let lastCell = 24
13+
14+let roundKey = "round"
15+
16+let cellsKey = "cells"
17+
18+let lastWinKey = "lastWin"
19+
20+let lastWinWctKey = "lastWinWct"
21+
22+let lastWinWvsKey = "lastWinWvs"
23+
24+@Callable(i)
25+func create (ticketAsset) = {
26+ let aInfo = valueOrErrorMessage(assetInfo(fromBase58String(ticketAsset)), "There is no asset with specified id")
27+ throw(toBase58String(aInfo.id))
28+ }
29+
30+
31+
32+@Callable(i)
33+func buy (cell) = {
34+ let round = extract(getInteger(this, roundKey))
35+ let cells = extract(getInteger(this, cellsKey))
36+ if (if ((0 > cell))
37+ then true
38+ else (cell > lastCell))
39+ then throw("Invalid number")
40+ else {
41+ let pmt = valueOrErrorMessage(i.payment, "Where is payment?")
42+ let wvs = !(isDefined(pmt.assetId))
43+ let wct = (pmt.assetId == wctId)
44+ if (if (if (if (!(wct))
45+ then !(wvs)
46+ else false)
47+ then true
48+ else if (wct)
49+ then (pmt.amount != wctPrice)
50+ else false)
51+ then true
52+ else if (wvs)
53+ then (pmt.amount != wvsPrice)
54+ else false)
55+ then throw("Price is 1 WCT or 1 WAVES")
56+ else {
57+ let cellData = getString(this, toString(cell))
58+ let bought = if (isDefined(cellData))
59+ then {
60+ let cellRound = split(extract(cellData), "_")[1]
61+ if ((cellRound == toString(round)))
62+ then true
63+ else false
64+ }
65+ else false
66+ if (bought)
67+ then throw("Already bought")
68+ else {
69+ let last = (cells == lastCell)
70+ if (last)
71+ then {
72+ let wctFlag = if (wct)
73+ then 1
74+ else 0
75+ let wvsFlag = if (wvs)
76+ then 1
77+ else 0
78+ let wctAmount = (assetBalance(this, wctId) + (pmt.amount * wctFlag))
79+ let wvsAmount = (wavesBalance(this) + (pmt.amount * wvsFlag))
80+ let wvsAdminShare = (wvsAmount / 100)
81+ let wvsWinShare = (wvsAmount - wvsAdminShare)
82+ let wctAdminShare = (wctAmount / 100)
83+ let wctWinShare = (wctAmount - wctAdminShare)
84+ let adminAddress = addressFromPublicKey(adminPublicKey)
85+ let winCell = (toInt(lastBlock.generationSignature) % (lastCell + 1))
86+ let winData = extract(getString(this, toString(winCell)))
87+ let winAddress = if ((winCell == cell))
88+ then i.caller
89+ else extract(addressFromString(split(winData, "_")[0]))
90+ ScriptResult(WriteSet([DataEntry(toString(cell), ((toString(i.caller) + "_") + toString(round))), DataEntry(cellsKey, 0), DataEntry(roundKey, (round + 1)), DataEntry(lastWinKey, ((toString(winCell) + "_") + toString(winAddress))), DataEntry(lastWinWvsKey, wvsAmount), DataEntry(lastWinWctKey, wctAmount)]), TransferSet([ScriptTransfer(winAddress, wvsWinShare, unit), ScriptTransfer(adminAddress, wvsAdminShare, unit), ScriptTransfer(winAddress, wctWinShare, wctId), ScriptTransfer(adminAddress, wctAdminShare, wctId)]))
91+ }
92+ else WriteSet([DataEntry(toString(cell), ((toString(i.caller) + "_") + toString(round))), DataEntry(cellsKey, (cells + 1))])
93+ }
94+ }
95+ }
96+ }
97+
98+
99+@Verifier(tx)
100+func verify () = true
101+

github/deemru/w8io/873ac7e 
16.13 ms