博客给出了基于以太坊的老虎机智能合约源码。网站为http://www.etherslots.win/ ，合约地址0x76bc9e61a1904b82cbf70d1fd9c0f8a120483bbb ，当前余额55.708317757 Ether（约610.56美元），源码链接为https://www.bokconsulting.com.au/blog/ethereum-slot-machine-source-code/ 。
I don’t like to promote gambling, but here is the source code for your perusal.
From Ethereum based slot machine.
Website http://www.etherslots.win/.
Verified source code below from the contract address 0x76bc9e61a1904b82cbf70d1fd9c0f8a120483bbb (with current balance 55.708317757 Ether USD 610.56) :
|
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
/
/*
Copyright (c) 2015-2016 Oraclize srl, Thomas Bertani
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
*/
pragma
solidity
^
0.4.0
;
contract
OraclizeI
{
address
public
cbAddress
;
function
query
(
uint
_timestamp
,
string
_datasource
,
string
_arg
)
payable
returns
(
bytes32
_id
)
;
function
query_withGasLimit
(
uint
_timestamp
,
string
_datasource
,
string
_arg
,
uint
_gaslimit
)
payable
returns
(
bytes32
_id
)
;
function
query2
(
uint
_timestamp
,
string
_datasource
,
string
_arg1
,
string
_arg2
)
payable
returns
(
bytes32
_id
)
;
function
query2_withGasLimit
(
uint
_timestamp
,
string
_datasource
,
string
_arg1
,
string
_arg2
,
uint
_gaslimit
)
payable
returns
(
bytes32
_id
)
;
function
getPrice
(
string
_datasource
)
returns
(
uint
_dsprice
)
;
function
getPrice
(
string
_datasource
,
uint
gaslimit
)
returns
(
uint
_dsprice
)
;
function
useCoupon
(
string
_coupon
)
;
function
setProofType
(
byte
_proofType
)
;
function
setCustomGasPrice
(
uint
_gasPrice
)
;
}
contract
OraclizeAddrResolverI
{
function
getAddress
(
)
returns
(
address
_addr
)
;
}
contract
usingOraclize
{
uint
constant
day
=
60
*
60
*
24
;
uint
constant
week
=
60
*
60
*
24
*
7
;
uint
constant
month
=
60
*
60
*
24
*
30
;
byte
constant
proofType_NONE
=
0x00
;
byte
constant
proofType_TLSNotary
=
0x10
;
byte
constant
proofStorage_IPFS
=
0x01
;
uint8
constant
networkID_auto
=
0
;
uint8
constant
networkID_mainnet
=
1
;
uint8
constant
networkID_testnet
=
2
;
uint8
constant
networkID_morden
=
2
;
uint8
constant
networkID_consensys
=
161
;
OraclizeAddrResolverI
OAR
;
OraclizeI
oraclize
;
modifier
oraclizeAPI
{
if
(
address
(
OAR
)
==
0
)
oraclize_setNetwork
(
networkID_auto
)
;
oraclize
=
OraclizeI
(
OAR
.
getAddress
(
)
)
;
_
;
}
modifier
coupon
(
string
code
)
{
oraclize
=
OraclizeI
(
OAR
.
getAddress
(
)
)
;
oraclize
.
useCoupon
(
code
)
;
_
;
}
function
oraclize_setNetwork
(
uint8
networkID
)
internal
returns
(
bool
)
{
if
(
getCodeSize
(
0x1d3b2638a7cc9f2cb3d298a3da7a90b67e5506ed
)
>
0
)
{
OAR
=
OraclizeAddrResolverI
(
0x1d3b2638a7cc9f2cb3d298a3da7a90b67e5506ed
)
;
return
true
;
}
if
(
getCodeSize
(
0x9efbea6358bed926b293d2ce63a730d6d98d43dd
)
>
0
)
{
OAR
=
OraclizeAddrResolverI
(
0x9efbea6358bed926b293d2ce63a730d6d98d43dd
)
;
return
true
;
}
if
(
getCodeSize
(
0x20e12a1f859b3feae5fb2a0a32c18f5a65555bbf
)
>
0
)
{
OAR
=
OraclizeAddrResolverI
(
0x20e12a1f859b3feae5fb2a0a32c18f5a65555bbf
)
;
return
true
;
}
if
(
getCodeSize
(
0x9a1d6e5c6c8d081ac45c6af98b74a42442afba60
)
>
0
)
{
OAR
=
OraclizeAddrResolverI
(
0x9a1d6e5c6c8d081ac45c6af98b74a42442afba60
)
;
return
true
;
}
return
false
;
}
function
oraclize_query
(
string
datasource
,
string
arg
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
200000
)
return
0
;
// unexpectedly high price
return
oraclize
.
query
.
value
(
price
)
(
0
,
datasource
,
arg
)
;
}
function
oraclize_query
(
uint
timestamp
,
string
datasource
,
string
arg
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
200000
)
return
0
;
// unexpectedly high price
return
oraclize
.
query
.
value
(
price
)
(
timestamp
,
datasource
,
arg
)
;
}
function
oraclize_query
(
uint
timestamp
,
string
datasource
,
string
arg
,
uint
gaslimit
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
,
gaslimit
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
gaslimit
)
return
0
;
// unexpectedly high price
return
oraclize
.
query_withGasLimit
.
value
(
price
)
(
timestamp
,
datasource
,
arg
,
gaslimit
)
;
}
function
oraclize_query
(
string
datasource
,
string
arg
,
uint
gaslimit
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
,
gaslimit
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
gaslimit
)
return
0
;
// unexpectedly high price
return
oraclize
.
query_withGasLimit
.
value
(
price
)
(
0
,
datasource
,
arg
,
gaslimit
)
;
}
function
oraclize_query
(
string
datasource
,
string
arg1
,
string
arg2
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
200000
)
return
0
;
// unexpectedly high price
return
oraclize
.
query2
.
value
(
price
)
(
0
,
datasource
,
arg1
,
arg2
)
;
}
function
oraclize_query
(
uint
timestamp
,
string
datasource
,
string
arg1
,
string
arg2
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
200000
)
return
0
;
// unexpectedly high price
return
oraclize
.
query2
.
value
(
price
)
(
timestamp
,
datasource
,
arg1
,
arg2
)
;
}
function
oraclize_query
(
uint
timestamp
,
string
datasource
,
string
arg1
,
string
arg2
,
uint
gaslimit
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
,
gaslimit
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
gaslimit
)
return
0
;
// unexpectedly high price
return
oraclize
.
query2_withGasLimit
.
value
(
price
)
(
timestamp
,
datasource
,
arg1
,
arg2
,
gaslimit
)
;
}
function
oraclize_query
(
string
datasource
,
string
arg1
,
string
arg2
,
uint
gaslimit
)
oraclizeAPI
internal
returns
(
bytes32
id
)
{
uint
price
=
oraclize
.
getPrice
(
datasource
,
gaslimit
)
;
if
(
price
>
1
ether
+
tx
.
gasprice*
gaslimit
)
return
0
;
// unexpectedly high price
return
oraclize
.
query2_withGasLimit
.
value
(
price
)
(
0
,
datasource
,
arg1
,
arg2
,
gaslimit
)
;
}
function
oraclize_cbAddress
(
)
oraclizeAPI
internal
returns
(
address
)
{
return
oraclize
.
cbAddress
(
)
;
}
function
oraclize_setProof
(
byte
proofP
)
oraclizeAPI
internal
{
return
oraclize
.
setProofType
(
proofP
)
;
}
function
oraclize_setCustomGasPrice
(
uint
gasPrice
)
oraclizeAPI
internal
{
return
oraclize
.
setCustomGasPrice
(
gasPrice
)
;
}
function
getCodeSize
(
address
_addr
)
constant
internal
returns
(
uint
_size
)
{
assembly
{
_size
:
=
extcodesize
(
_addr
)
}
}
function
parseAddr
(
string
_a
)
internal
returns
(
address
)
{
bytes
memory
tmp
=
bytes
(
_a
)
;
uint160
iaddr
=
0
;
uint160
b1
;
uint160
b2
;
for
(
uint
i
=
2
;
i
<
2
+
2
*
20
;
i
+=
2
)
{
iaddr *
=
256
;
b1
=
uint160
(
tmp
[
i
]
)
;
b2
=
uint160
(
tmp
[
i
+
1
]
)
;
if
(
(
b1
>=
97
)
&&
(
b1
<=
102
)
)
b1
-=
87
;
else
if
(
(
b1
>=
48
)
&&
(
b1
<=
57
)
)
b1
-=
48
;
if
(
(
b2
>=
97
)
&&
(
b2
<=
102
)
)
b2
-=
87
;
else
if
(
(
b2
>=
48
)
&&
(
b2
<=
57
)
)
b2
-=
48
;
iaddr
+=
(
b1*
16
+
b2
)
;
}
return
address
(
iaddr
)
;
}
function
strCompare
(
string
_a
,
string
_b
)
internal
returns
(
int
)
{
bytes
memory
a
=
bytes
(
_a
)
;
bytes
memory
b
=
bytes
(
_b
)
;
uint
minLength
=
a
.
length
;
if
(
b
.
length
<
minLength
)
minLength
=
b
.
length
;
for
(
uint
i
=
0
;
i
<
minLength
;
i
++
)
if
(
a
[
i
]
<
b
[
i
]
)
return
-
1
;
else
if
(
a
[
i
]
>
b
[
i
]
)
return
1
;
if
(
a
.
length
<
b
.
length
)
return
-
1
;
else
if
(
a
.
length
>
b
.
length
)
return
1
;
else
return
0
;
}
function
indexOf
(
string
_haystack
,
string
_needle
)
internal
returns
(
int
)
{
bytes
memory
h
=
bytes
(
_haystack
)
;
bytes
memory
n
=
bytes
(
_needle
)
;
if
(
h
.
length
<
1
||
n
.
length
<
1
||
(
n
.
length
>
h
.
length
)
)
return
-
1
;
else
if
(
h
.
length
>
(
2
*
*
128
-
1
)
)
return
-
1
;
else
{
uint
subindex
=
0
;
for
(
uint
i
=
0
;
i
<
h
.
length
;
i
++
)
{
if
(
h
[
i
]
==
n
[
0
]
)
{
subindex
=
1
;
while
(
subindex
<
n
.
length
&&
(
i
+
subindex
)
<
h
.
length
&&
h
[
i
+
subindex
]
==
n
[
subindex
]
)
{
subindex
++
;
}
if
(
subindex
==
n
.
length
)
return
int
(
i
)
;
}
}
return
-
1
;
}
}
function
strConcat
(
string
_a
,
string
_b
,
string
_c
,
string
_d
,
string
_e
)
internal
returns
(
string
)
{
bytes
memory
_ba
=
bytes
(
_a
)
;
bytes
memory
_bb
=
bytes
(
_b
)
;
bytes
memory
_bc
=
bytes
(
_c
)
;
bytes
memory
_bd
=
bytes
(
_d
)
;
bytes
memory
_be
=
bytes
(
_e
)
;
string
memory
abcde
=
new
string
(
_ba
.
length
+
_bb
.
length
+
_bc
.
length
+
_bd
.
length
+
_be
.
length
)
;
bytes
memory
babcde
=
bytes
(
abcde
)
;
uint
k
=
0
;
for
(
uint
i
=
0
;
i
<
_ba
.
length
;
i
++
)
babcde
[
k
++
]
=
_ba
[
i
]
;
for
(
i
=
0
;
i
<
_bb
.
length
;
i
++
)
babcde
[
k
++
]
=
_bb
[
i
]
;
for
(
i
=
0
;
i
<
_bc
.
length
;
i
++
)
babcde
[
k
++
]
=
_bc
[
i
]
;
for
(
i
=
0
;
i
<
_bd
.
length
;
i
++
)
babcde
[
k
++
]
=
_bd
[
i
]
;
for
(
i
=
0
;
i
<
_be
.
length
;
i
++
)
babcde
[
k
++
]
=
_be
[
i
]
;
return
string
(
babcde
)
;
}
function
strConcat
(
string
_a
,
string
_b
,
string
_c
,
string
_d
)
internal
returns
(
string
)
{
return
strConcat
(
_a
,
_b
,
_c
,
_d
,
""
)
;
}
function
strConcat
(
string
_a
,
string
_b
,
string
_c
)
internal
returns
(
string
)
{
return
strConcat
(
_a
,
_b
,
_c
,
""
,
""
)
;
}
function
strConcat
(
string
_a
,
string
_b
)
internal
returns
(
string
)
{
return
strConcat
(
_a
,
_b
,
""
,
""
,
""
)
;
}
// parseInt
function
parseInt
(
string
_a
)
internal
returns
(
uint
)
{
return
parseInt
(
_a
,
0
)
;
}
// parseInt(parseFloat*10^_b)
function
parseInt
(
string
_a
,
uint
_b
)
internal
returns
(
uint
)
{
bytes
memory
bresult
=
bytes
(
_a
)
;
uint
mint
=
0
;
bool
decimals
=
false
;
for
(
uint
i
=
0
;
i
<
bresult
.
length
;
i
++
)
{
if
(
(
bresult
[
i
]
>=
48
)
&&
(
bresult
[
i
]
<=
57
)
)
{
if
(
decimals
)
{
if
(
_b
==
0
)
break
;
else
_b
--
;
}
mint *
=
10
;
mint
+=
uint
(
bresult
[
i
]
)
-
48
;
}
else
if
(
bresult
[
i
]
==
46
)
decimals
=
true
;
}
if
(
_b
>
0
)
mint *
=
10
*
*
_b
;
return
mint
;
}
}
//
contract
mortal
{
address
owner
;
function
mortal
(
)
{
owner
=
msg
.
sender
;
}
function
kill
(
)
{
if
(
msg
.
sender
==
owner
)
suicide
(
owner
)
;
}
}
contract
slot
is
mortal
,
usingOraclize
{
/** which oraclize ID belong to which player address?**/
mapping
(
bytes32
=
>
address
)
players
;
/** the amount of gas to be sent to oraclize**/
uint32
public
oraclizeGas
;
/** probabilities of the different results (absolute frequency out of 1.000.000 spins)**/
uint32
[
]
public
probabilities
;
/** the prize per probability (shifted by two digits -> 375 is acutually 3.75)*/
uint32
[
]
public
prizes
;
/** the amount of ether per bet **/
mapping
(
bytes32
=
>
uint
)
bets
;
/** tell the listeners the result
first value: type, second value: player address, third value: oraclize ID**/
event
gameResult
(
uint
,
address
)
;
// 0-> %5; 1 -> 80%; 2 -> loss, 3->error in callback;
/** **/
function
slot
(
)
payable
{
probabilities
.
push
(
4
)
;
probabilities
.
push
(
50
)
;
probabilities
.
push
(
200
)
;
probabilities
.
push
(
600
)
;
probabilities
.
push
(
1000
)
;
probabilities
.
push
(
2000
)
;
probabilities
.
push
(
4000
)
;
probabilities
.
push
(
30000
)
;
probabilities
.
push
(
90000
)
;
prizes
.
push
(
5000
)
;
prizes
.
push
(
2500
)
;
prizes
.
push
(
2000
)
;
prizes
.
push
(
1900
)
;
prizes
.
push
(
1800
)
;
prizes
.
push
(
1700
)
;
prizes
.
push
(
1600
)
;
prizes
.
push
(
1500
)
;
prizes
.
push
(
375
)
;
oraclizeGas
=
100000
;
}
/**
* If more than 0.1 ether and less than 1 ether is sent and the contracts holds enough to pay out the player in case of a win, a random number is asked from oraclize.
* */
function
(
)
payable
{
if
(
msg
.
sender
!=
owner
)
{
//owner should be able to send funds to the contract anytime
if
(
msg
.
value
<
100000000000000000
||
msg
.
value
>
1000000000000000000
)
throw
;
//bet has to lie between 0.1 and 1 ETH
if
(
address
(
this
)
.
balance
<
msg
.
value
/
100
*
prizes
[
0
]
)
throw
;
//make sure the contract is able to pay out the player in case he wins
bytes32
oid
=
oraclize_query
(
"URL"
,
"https://www.random.org/integers/?num=1&min=1&max=1000000&col=1&base=10&format=plain&rnd=new"
,
oraclizeGas
)
;
bets
[
oid
]
=
msg
.
value
;
players
[
oid
]
=
msg
.
sender
;
}
}
/**
* The random number from Oraclizes decides the game result.
* If Oraclize sends a message instead of the requested number, the bet is returned to the player.
* */
function
__callback
(
bytes32
myid
,
string
result
)
{
if
(
msg
.
sender
!=
oraclize_cbAddress
(
)
)
throw
;
if
(
players
[
myid
]
==
0x0
)
throw
;
uint
random
=
convertToInt
(
result
)
;
if
(
random
==
0
)
{
//result not a number, return bet
if
(
!
players
[
myid
]
.
send
(
bets
[
myid
]
)
)
throw
;
gameResult
(
101
,
players
[
myid
]
)
;
delete
players
[
myid
]
;
return
;
}
uint
range
=
0
;
for
(
uint
i
=
0
;
i
<
probabilities
.
length
;
i
++
)
{
range
+=
probabilities
[
i
]
;
if
(
random
<=
range
)
{
if
(
!
players
[
myid
]
.
send
(
bets
[
myid
]
/
100
*
prizes
[
i
]
)
)
{
gameResult
(
100
,
players
[
myid
]
)
;
//100 -> error
throw
;
}
gameResult
(
i
,
players
[
myid
]
)
;
delete
players
[
myid
]
;
return
;
}
}
//else player loses everything
gameResult
(
probabilities
.
length
,
players
[
myid
]
)
;
delete
players
[
myid
]
;
}
/**
* sets the amount of gas to be sent to oraclize
* */
function
setOraclizeGas
(
uint32
newGas
)
{
if
(
!
(
msg
.
sender
==
owner
)
)
throw
;
oraclizeGas
=
newGas
;
}
/** set the probabilities of the results (absolute frequencies out of 1.000.000 spins) **/
function
setProbabilities
(
uint32
[
]
probs
)
{
if
(
!
(
msg
.
sender
==
owner
)
)
throw
;
probabilities
=
probs
;
}
/** set the prizes of the results (shifted by 2 digits -> 375 means 3.75)**/
function
setPrizes
(
uint32
[
]
priz
)
{
if
(
!
(
msg
.
sender
==
owner
)
)
throw
;
prizes
=
priz
;
}
/**
* allows the owner to collect the accumulated losses
* */
function
collectFees
(
uint
amount
)
{
if
(
!
(
msg
.
sender
==
owner
)
)
throw
;
if
(
address
(
this
)
.
balance
<
amount
)
throw
;
if
(
!
owner
.
send
(
amount
)
)
throw
;
}
/**
* converts a string to an integer (there may only be digits)
* */
function
convertToInt
(
string
_a
)
internal
returns
(
uint
)
{
bytes
memory
bresult
=
bytes
(
_a
)
;
uint
mint
=
0
;
for
(
uint
i
=
0
;
i
<
bresult
.
length
;
i
++
)
{
if
(
(
bresult
[
i
]
>=
48
)
&&
(
bresult
[
i
]
<=
57
)
)
{
mint *
=
10
;
mint
+=
uint
(
bresult
[
i
]
)
-
48
;
}
else
if
(
(
bresult
[
i
]
>=
58
)
&&
(
bresult
[
i
]
<=
126
)
)
return
0
;
//its a message, no pure int
}
return
mint
;
}
}
|
扫一扫
710
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
