w8 · tx · CKB···6V1

tx · CKBn3SEHtZqG6bDc1tw5jFAMoNHvo5k7ZUAHpbLyC6V1

3N17A1zqJZ1R2dZtMvyChQwSzepRZ1d98t9:  -0.01400000 Waves

2019.11.26 01:22 [781388] smart account 3N17A1zqJZ1R2dZtMvyChQwSzepRZ1d98t9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CKBn3SEHtZqG6bDc1tw5jFAMoNHvo5k7ZUAHpbLyC6V1",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1574720554819,
    "version": 1,
    "sender": "3N17A1zqJZ1R2dZtMvyChQwSzepRZ1d98t9",
    "senderPublicKey": "AXt3aNDevk6MRY2RVvB3HzC5FgWDoMFZ4EuW9kHN9VpW",
    "proofs": [
        "Xyaw9bdigXJ5hbvoYLMxWWgLAZBBtbijPscp32dcAyc4nm85EkP65BByS7F2AkAqiHiVGNwmacEnxY4ommnWgWg"
    ],
    "script": "base64:AAIDAAAAAAAAAAkIARIFCgMICAgAAAAFAQAAAAZwYXlyZWYAAAAEAAAAAmxkAAAABHVzZXIAAAAFcmVmZXIAAAAGcmVmc3VtBAAAAANsZGUIBQAAAAJsZAAAAARkYXRhBAAAAAdpc3JlZmVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAAEcmVmXwUAAAAEdXNlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAgAAAAADCQAAAAAAAAIFAAAAB2lzcmVmZXICAAAAAAQAAAAHbGFzdGJhbAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQABLAAAAAICAAAAB3dhbGxldF8FAAAABXJlZmVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAACmxhc3RyZWZiYWwEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACAgAAAAdyZWZwYXlfBQAAAAVyZWZlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAA1sYXN0cmVmYmFscmVmBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAB3JlZnBheV8FAAAABXJlZmVyAgAAAAFfBQAAAAR1c2VyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAA2RzbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAd3YWxsZXRfBQAAAAVyZWZlcgkAAGQAAAACBQAAAAdsYXN0YmFsBQAAAAZyZWZzdW0FAAAAA2xkZQQAAAAGZHNscmVmCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAB3JlZnBheV8FAAAABXJlZmVyCQAAZAAAAAIFAAAACmxhc3RyZWZiYWwFAAAABnJlZnN1bQUAAAADZHNsBAAAAAlkc2xyZWZwYXkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAB3JlZnBheV8FAAAABXJlZmVyAgAAAAFfBQAAAAR1c2VyCQAAZAAAAAIFAAAADWxhc3RyZWZiYWxyZWYFAAAABnJlZnN1bQUAAAAGZHNscmVmBAAAAARkc2wxCQEAAAAIV3JpdGVTZXQAAAABBQAAAAlkc2xyZWZwYXkFAAAABGRzbDEEAAAACGxhc3RiYWwxBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAAHd2FsbGV0XwUAAAAHaXNyZWZlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAtsYXN0cmVmYmFsMQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQABLAAAAAICAAAAB3JlZnBheV8FAAAAB2lzcmVmZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAObGFzdHJlZmJhbHJlZjEEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAHcmVmcGF5XwUAAAAHaXNyZWZlcgIAAAABXwUAAAAEdXNlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAARkc2wyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAB3dhbGxldF8FAAAAB2lzcmVmZXIJAABkAAAAAgUAAAAIbGFzdGJhbDEFAAAABnJlZnN1bQUAAAADbGRlBAAAAAdkc2xyZWYxCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAB3JlZnBheV8FAAAAB2lzcmVmZXIJAABkAAAAAgUAAAALbGFzdHJlZmJhbDEFAAAABnJlZnN1bQUAAAAEZHNsMgQAAAAJZHNscmVmcGF5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAdyZWZwYXlfBQAAAAdpc3JlZmVyAgAAAAFfBQAAAAR1c2VyCQAAZAAAAAIFAAAADmxhc3RyZWZiYWxyZWYxBQAAAAZyZWZzdW0FAAAAB2RzbHJlZjEEAAAABGRzbDMJAQAAAAhXcml0ZVNldAAAAAEFAAAACWRzbHJlZnBheQUAAAAEZHNsMwEAAAAGc2V0cmVmAAAAAwAAAAJsZAAAAAR1c2VyAAAABXJlZmVyBAAAAANsZGUIBQAAAAJsZAAAAARkYXRhBAAAAAdpc3JlZmVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAAEcmVmXwUAAAAEdXNlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAgAAAAAEAAAACmxhc3RyZWZrb2wEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkAASwAAAACAgAAAAdyZWZrb2xfBQAAAAVyZWZlcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdpc3JlZmVyAgAAAAAEAAAAA2RzbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAARyZWZfBQAAAAR1c2VyBQAAAAVyZWZlcgUAAAADbGRlBAAAAAZkc2xyZWYJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAABnJlZmVyXwUAAAAFcmVmZXICAAAAAV8FAAAABHVzZXIFAAAABHVzZXIFAAAAA2RzbAQAAAAJZHNscmVma29sCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAB3JlZmtvbF8FAAAABXJlZmVyCQAAZAAAAAIFAAAACmxhc3RyZWZrb2wAAAAAAAAAAAEFAAAABmRzbHJlZgQAAAAEZHNsMQkBAAAACFdyaXRlU2V0AAAAAQUAAAAJZHNscmVma29sBQAAAARkc2wxBQAAAAJsZAEAAAAPbmV4dGNvdW50dGlja2V0AAAAAgAAAAJsZAAAAAhuZXdjb3VudAQAAAADbGRlCAUAAAACbGQAAAAEZGF0YQQAAAALbmV3Y291bnR0aWsJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC3RpY2tldGNvdW50BQAAAAhuZXdjb3VudAUAAAADbGRlBAAAAANud3MJAQAAAAhXcml0ZVNldAAAAAEFAAAAC25ld2NvdW50dGlrBQAAAANud3MBAAAACmRhdGF0aWNrZXQAAAADAAAAAmxkAAAACXRpY2tldGtleQAAAAp0aWNrZXRkYXRhBAAAAANsZGUIBQAAAAJsZAAAAARkYXRhBAAAAApuZXd0aWtkYXRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAl0aWNrZXRrZXkFAAAACnRpY2tldGRhdGEFAAAAA2xkZQQAAAADbndzCQEAAAAIV3JpdGVTZXQAAAABBQAAAApuZXd0aWtkYXRhBQAAAANud3MBAAAADmNoZWNrbmV4dHJvdW5kAAAAAwAAAAJsZAAAAAt0aWNrZXRjb3VudAAAAApudW1vZnJvdW5kBAAAAANsZGUIBQAAAAJsZAAAAARkYXRhAwkAAAAAAAACBQAAAAt0aWNrZXRjb3VudAAAAAAAAAAAZAQAAAAKbmV3dGlrZGF0YQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAANbnVtYmVyb2Zyb3VuZAkAAGQAAAACBQAAAApudW1vZnJvdW5kAAAAAAAAAAABBQAAAANsZGUEAAAAA253cwkBAAAACFdyaXRlU2V0AAAAAQUAAAAKbmV3dGlrZGF0YQUAAAADbndzBQAAAAJsZAAAAAEAAAADaW52AQAAAAlwbGF5YmluZ28AAAADAAAABnRpY2tldAAAAARiZXR4AAAABXJlZmVyBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAA2ludgAAAAdwYXltZW50BAAAAAZwYXl2YWwJAABpAAAAAgkBAAAABXZhbHVlAAAAAQgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAX14QAEAAAAAXgJAQAAAA1wYXJzZUludFZhbHVlAAAAAQUAAAAEYmV0eAQAAAAJcGF5dGlja2V0BQAAAAF4AwkAAGYAAAACBQAAAAlwYXl0aWNrZXQFAAAABnBheXZhbAkAAAIAAAABAgAAABdUaWNrZXQgcHJpY2UgaXMgMSBXQVZFUwQAAAANbGFzdGZvbmRwcml6ZQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlmb25kcHJpemUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAMbmV3Zm9uZHByaXplCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAJZm9uZHByaXplCQAAZAAAAAIFAAAADWxhc3Rmb25kcHJpemUJAABpAAAAAgUAAAAJcGF5dGlja2V0AAAAAAAAAAACBAAAAANkc2wJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgUAAAAMbmV3Zm9uZHByaXplBQAAAANuaWwEAAAAC251bWJlcnJvdW5kBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMCAAAADW51bWJlcm9mcm91bmQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAQQAAAAEdXNlcgkABCUAAAABCAUAAAADaW52AAAABmNhbGxlcgQAAAAEZHNsMQkBAAAABnNldHJlZgAAAAMFAAAAA2RzbAUAAAAEdXNlcgUAAAAFcmVmZXIEAAAAEmN1cnJlbnRUaWNrZXRjb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAt0aWNrZXRjb3VudAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAA5uZXdUaWNrZXRjb3VudAkAAGQAAAACBQAAABJjdXJyZW50VGlja2V0Y291bnQAAAAAAAAAAAEEAAAABGRzbDIJAQAAAA9uZXh0Y291bnR0aWNrZXQAAAACBQAAAARkc2wxBQAAAA5uZXdUaWNrZXRjb3VudAQAAAAQY3VycmVudGtleXRpY2tldAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAB3RpY2tldF8JAAGkAAAAAQUAAAALbnVtYmVycm91bmQCAAAAAV8JAAGkAAAAAQUAAAAObmV3VGlja2V0Y291bnQCAAAAAV8FAAAABHVzZXIEAAAABGRzbDMJAQAAAApkYXRhdGlja2V0AAAAAwUAAAAEZHNsMgUAAAAQY3VycmVudGtleXRpY2tldAUAAAAGdGlja2V0BAAAAARkc2w0CQEAAAAOY2hlY2tuZXh0cm91bmQAAAADBQAAAARkc2wzBQAAAA5uZXdUaWNrZXRjb3VudAUAAAALbnVtYmVycm91bmQEAAAACnJlZnBheW1lbnQJAABoAAAAAgkAAGgAAAACBQAAAAlwYXl0aWNrZXQAAAAAAAAAAAoFAAAAAXgEAAAABGRzbDUJAQAAAAZwYXlyZWYAAAAEBQAAAARkc2w0BQAAAAR1c2VyBQAAAAVyZWZlcgUAAAAKcmVmcGF5bWVudAUAAAAEZHNsNQAAAABWAJzW",
    "chainId": 84,
    "height": 781388,
    "spentComplexity": 0
}

View: original | compacted
Prev: 4nXd4houXDdEj9nXWt6u3VpeUGSajGDCwe3yPW2sMp8k
Next: none

Diff: 
Old New Differences
71 71          case _ => 
72 72              ""
73 73      }
74 +     let lastrefkol =     match getInteger(this, ("refkol_" + refer)) {
75 +         case a: Int => 
76 +             a
77 +         case _ => 
78 +             0
79 +     }
74 80      if ((isrefer == ""))
75 81          then {
76 82              let dsl = DataEntry(("ref_" + user), refer) :: lde
77 83              let dslref = DataEntry(((("refer_" + refer) + "_") + user), user) :: dsl
78 -             let dsl1 = WriteSet(dslref)
84 +             let dslrefkol = DataEntry(("refkol_" + refer), (lastrefkol + 1)) :: dslref
85 +             let dsl1 = WriteSet(dslrefkol)
79 86              dsl1
80 87              }
81 88          else ld
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func payref (ld,user,refer,refsum) = {
5 5      let lde = ld.data
6 6      let isrefer =     match getString(this, ("ref_" + user)) {
7 7          case a: String => 
8 8              a
9 9          case _ => 
10 10              ""
11 11      }
12 12      if ((isrefer == ""))
13 13          then {
14 14              let lastbal =             match getInteger(this, ("wallet_" + refer)) {
15 15                  case a: Int => 
16 16                      a
17 17                  case _ => 
18 18                      0
19 19              }
20 20              let lastrefbal =             match getInteger(this, ("refpay_" + refer)) {
21 21                  case a: Int => 
22 22                      a
23 23                  case _ => 
24 24                      0
25 25              }
26 26              let lastrefbalref =             match getInteger(this, ((("refpay_" + refer) + "_") + user)) {
27 27                  case a: Int => 
28 28                      a
29 29                  case _ => 
30 30                      0
31 31              }
32 32              let dsl = DataEntry(("wallet_" + refer), (lastbal + refsum)) :: lde
33 33              let dslref = DataEntry(("refpay_" + refer), (lastrefbal + refsum)) :: dsl
34 34              let dslrefpay = DataEntry(((("refpay_" + refer) + "_") + user), (lastrefbalref + refsum)) :: dslref
35 35              let dsl1 = WriteSet(dslrefpay)
36 36              dsl1
37 37              }
38 38          else {
39 39              let lastbal1 =             match getInteger(this, ("wallet_" + isrefer)) {
40 40                  case a: Int => 
41 41                      a
42 42                  case _ => 
43 43                      0
44 44              }
45 45              let lastrefbal1 =             match getInteger(this, ("refpay_" + isrefer)) {
46 46                  case a: Int => 
47 47                      a
48 48                  case _ => 
49 49                      0
50 50              }
51 51              let lastrefbalref1 =             match getInteger(this, ((("refpay_" + isrefer) + "_") + user)) {
52 52                  case a: Int => 
53 53                      a
54 54                  case _ => 
55 55                      0
56 56              }
57 57              let dsl2 = DataEntry(("wallet_" + isrefer), (lastbal1 + refsum)) :: lde
58 58              let dslref1 = DataEntry(("refpay_" + isrefer), (lastrefbal1 + refsum)) :: dsl2
59 59              let dslrefpay = DataEntry(((("refpay_" + isrefer) + "_") + user), (lastrefbalref1 + refsum)) :: dslref1
60 60              let dsl3 = WriteSet(dslrefpay)
61 61              dsl3
62 62              }
63 63      }
64 64  
65 65  
66 66  func setref (ld,user,refer) = {
67 67      let lde = ld.data
68 68      let isrefer =     match getString(this, ("ref_" + user)) {
69 69          case a: String => 
70 70              a
71 71          case _ => 
72 72              ""
73 73      }
74 +     let lastrefkol =     match getInteger(this, ("refkol_" + refer)) {
75 +         case a: Int => 
76 +             a
77 +         case _ => 
78 +             0
79 +     }
74 80      if ((isrefer == ""))
75 81          then {
76 82              let dsl = DataEntry(("ref_" + user), refer) :: lde
77 83              let dslref = DataEntry(((("refer_" + refer) + "_") + user), user) :: dsl
78 -             let dsl1 = WriteSet(dslref)
84 +             let dslrefkol = DataEntry(("refkol_" + refer), (lastrefkol + 1)) :: dslref
85 +             let dsl1 = WriteSet(dslrefkol)
79 86              dsl1
80 87              }
81 88          else ld
82 89      }
83 90  
84 91  
85 92  func nextcountticket (ld,newcount) = {
86 93      let lde = ld.data
87 94      let newcounttik = DataEntry("ticketcount", newcount) :: lde
88 95      let nws = WriteSet(newcounttik)
89 96      nws
90 97      }
91 98  
92 99  
93 100  func dataticket (ld,ticketkey,ticketdata) = {
94 101      let lde = ld.data
95 102      let newtikdata = DataEntry(ticketkey, ticketdata) :: lde
96 103      let nws = WriteSet(newtikdata)
97 104      nws
98 105      }
99 106  
100 107  
101 108  func checknextround (ld,ticketcount,numofround) = {
102 109      let lde = ld.data
103 110      if ((ticketcount == 100))
104 111          then {
105 112              let newtikdata = DataEntry("numberofround", (numofround + 1)) :: lde
106 113              let nws = WriteSet(newtikdata)
107 114              nws
108 115              }
109 116          else ld
110 117      }
111 118  
112 119  
113 120  @Callable(inv)
114 121  func playbingo (ticket,betx,refer) = {
115 122      let pmt = extract(inv.payment)
116 123      let payval = (value(pmt.amount) / 100000000)
117 124      let x = parseIntValue(betx)
118 125      let payticket = x
119 126      if ((payticket > payval))
120 127          then throw("Ticket price is 1 WAVES")
121 128          else {
122 129              let lastfondprize =             match getInteger(this, "fondprize") {
123 130                  case a: Int => 
124 131                      a
125 132                  case _ => 
126 133                      0
127 134              }
128 135              let newfondprize = DataEntry("fondprize", (lastfondprize + (payticket / 2)))
129 136              let dsl = WriteSet([newfondprize])
130 137              let numberround =             match getInteger(this, "numberofround") {
131 138                  case a: Int => 
132 139                      a
133 140                  case _ => 
134 141                      1
135 142              }
136 143              let user = toString(inv.caller)
137 144              let dsl1 = setref(dsl, user, refer)
138 145              let currentTicketcount =             match getInteger(this, "ticketcount") {
139 146                  case a: Int => 
140 147                      a
141 148                  case _ => 
142 149                      0
143 150              }
144 151              let newTicketcount = (currentTicketcount + 1)
145 152              let dsl2 = nextcountticket(dsl1, newTicketcount)
146 153              let currentkeyticket = ((((("ticket_" + toString(numberround)) + "_") + toString(newTicketcount)) + "_") + user)
147 154              let dsl3 = dataticket(dsl2, currentkeyticket, ticket)
148 155              let dsl4 = checknextround(dsl3, newTicketcount, numberround)
149 156              let refpayment = ((payticket * 10) * x)
150 157              let dsl5 = payref(dsl4, user, refer, refpayment)
151 158              dsl5
152 159              }
153 160      }
154 161  
155 162

Old	New		Differences
71	71		case _ =>
72	72		""
73	73		}
	74	+	let lastrefkol = match getInteger(this, ("refkol_" + refer)) {
	75	+	case a: Int =>
	76	+	a
	77	+	case _ =>
	78	+	0
	79	+	}
74	80		if ((isrefer == ""))
75	81		then {
76	82		let dsl = DataEntry(("ref_" + user), refer) :: lde
77	83		let dslref = DataEntry(((("refer_" + refer) + "_") + user), user) :: dsl
78		-	let dsl1 = WriteSet(dslref)
	84	+	let dslrefkol = DataEntry(("refkol_" + refer), (lastrefkol + 1)) :: dslref
	85	+	let dsl1 = WriteSet(dslrefkol)
79	86		dsl1
80	87		}
81	88		else ld

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func payref (ld,user,refer,refsum) = {
5	5		let lde = ld.data
6	6		let isrefer = match getString(this, ("ref_" + user)) {
7	7		case a: String =>
8	8		a
9	9		case _ =>
10	10		""
11	11		}
12	12		if ((isrefer == ""))
13	13		then {
14	14		let lastbal = match getInteger(this, ("wallet_" + refer)) {
15	15		case a: Int =>
16	16		a
17	17		case _ =>
18	18		0
19	19		}
20	20		let lastrefbal = match getInteger(this, ("refpay_" + refer)) {
21	21		case a: Int =>
22	22		a
23	23		case _ =>
24	24		0
25	25		}
26	26		let lastrefbalref = match getInteger(this, ((("refpay_" + refer) + "_") + user)) {
27	27		case a: Int =>
28	28		a
29	29		case _ =>
30	30		0
31	31		}
32	32		let dsl = DataEntry(("wallet_" + refer), (lastbal + refsum)) :: lde
33	33		let dslref = DataEntry(("refpay_" + refer), (lastrefbal + refsum)) :: dsl
34	34		let dslrefpay = DataEntry(((("refpay_" + refer) + "_") + user), (lastrefbalref + refsum)) :: dslref
35	35		let dsl1 = WriteSet(dslrefpay)
36	36		dsl1
37	37		}
38	38		else {
39	39		let lastbal1 = match getInteger(this, ("wallet_" + isrefer)) {
40	40		case a: Int =>
41	41		a
42	42		case _ =>
43	43		0
44	44		}
45	45		let lastrefbal1 = match getInteger(this, ("refpay_" + isrefer)) {
46	46		case a: Int =>
47	47		a
48	48		case _ =>
49	49		0
50	50		}
51	51		let lastrefbalref1 = match getInteger(this, ((("refpay_" + isrefer) + "_") + user)) {
52	52		case a: Int =>
53	53		a
54	54		case _ =>
55	55		0
56	56		}
57	57		let dsl2 = DataEntry(("wallet_" + isrefer), (lastbal1 + refsum)) :: lde
58	58		let dslref1 = DataEntry(("refpay_" + isrefer), (lastrefbal1 + refsum)) :: dsl2
59	59		let dslrefpay = DataEntry(((("refpay_" + isrefer) + "_") + user), (lastrefbalref1 + refsum)) :: dslref1
60	60		let dsl3 = WriteSet(dslrefpay)
61	61		dsl3
62	62		}
63	63		}
64	64
65	65
66	66		func setref (ld,user,refer) = {
67	67		let lde = ld.data
68	68		let isrefer = match getString(this, ("ref_" + user)) {
69	69		case a: String =>
70	70		a
71	71		case _ =>
72	72		""
73	73		}
	74	+	let lastrefkol = match getInteger(this, ("refkol_" + refer)) {
	75	+	case a: Int =>
	76	+	a
	77	+	case _ =>
	78	+	0
	79	+	}
74	80		if ((isrefer == ""))
75	81		then {
76	82		let dsl = DataEntry(("ref_" + user), refer) :: lde
77	83		let dslref = DataEntry(((("refer_" + refer) + "_") + user), user) :: dsl
78		-	let dsl1 = WriteSet(dslref)
	84	+	let dslrefkol = DataEntry(("refkol_" + refer), (lastrefkol + 1)) :: dslref
	85	+	let dsl1 = WriteSet(dslrefkol)
79	86		dsl1
80	87		}
81	88		else ld
82	89		}
83	90
84	91
85	92		func nextcountticket (ld,newcount) = {
86	93		let lde = ld.data
87	94		let newcounttik = DataEntry("ticketcount", newcount) :: lde
88	95		let nws = WriteSet(newcounttik)
89	96		nws
90	97		}
91	98
92	99
93	100		func dataticket (ld,ticketkey,ticketdata) = {
94	101		let lde = ld.data
95	102		let newtikdata = DataEntry(ticketkey, ticketdata) :: lde
96	103		let nws = WriteSet(newtikdata)
97	104		nws
98	105		}
99	106
100	107
101	108		func checknextround (ld,ticketcount,numofround) = {
102	109		let lde = ld.data
103	110		if ((ticketcount == 100))
104	111		then {
105	112		let newtikdata = DataEntry("numberofround", (numofround + 1)) :: lde
106	113		let nws = WriteSet(newtikdata)
107	114		nws
108	115		}
109	116		else ld
110	117		}
111	118
112	119
113	120		@Callable(inv)
114	121		func playbingo (ticket,betx,refer) = {
115	122		let pmt = extract(inv.payment)
116	123		let payval = (value(pmt.amount) / 100000000)
117	124		let x = parseIntValue(betx)
118	125		let payticket = x
119	126		if ((payticket > payval))
120	127		then throw("Ticket price is 1 WAVES")
121	128		else {
122	129		let lastfondprize = match getInteger(this, "fondprize") {
123	130		case a: Int =>
124	131		a
125	132		case _ =>
126	133		0
127	134		}
128	135		let newfondprize = DataEntry("fondprize", (lastfondprize + (payticket / 2)))
129	136		let dsl = WriteSet([newfondprize])
130	137		let numberround = match getInteger(this, "numberofround") {
131	138		case a: Int =>
132	139		a
133	140		case _ =>
134	141		1
135	142		}
136	143		let user = toString(inv.caller)
137	144		let dsl1 = setref(dsl, user, refer)
138	145		let currentTicketcount = match getInteger(this, "ticketcount") {
139	146		case a: Int =>
140	147		a
141	148		case _ =>
142	149		0
143	150		}
144	151		let newTicketcount = (currentTicketcount + 1)
145	152		let dsl2 = nextcountticket(dsl1, newTicketcount)
146	153		let currentkeyticket = ((((("ticket_" + toString(numberround)) + "_") + toString(newTicketcount)) + "_") + user)
147	154		let dsl3 = dataticket(dsl2, currentkeyticket, ticket)
148	155		let dsl4 = checknextround(dsl3, newTicketcount, numberround)
149	156		let refpayment = ((payticket * 10) * x)
150	157		let dsl5 = payref(dsl4, user, refer, refpayment)
151	158		dsl5
152	159		}
153	160		}
154	161
155	162

github/deemru/w8io/169f3d6 
40.02 ms ◑