Victorious - NetEntin tuorein taidonnäyte ei satunnaisesta..

Joo kyllah.. Ei taida olla sattumaa et noin joka toisella kierroksella tulee 2 freespinmerkkiä kolmella ekalla linjalla. Hyvin usein niitä tulee neljä mutta kas kas juuri niin että kolmella ekalla linjalla on se yksi tyhjä. Sattumaa, sattumaa.. On se hauska toi NetEntti! Kusetuksen mestari.

pelasin kokeeellisesti playtech rulettia tyhjää pyöritellen ja toisella tietokoneella oli ohjelma joka taltioi pelin kierrokset voitot tappiot.

Lienekkö mikään uutinen mut tuplasin kaksi kymppisen nopeaan tahtiin lukuja 1-12 pelaamalla kymmenen sentin panoksin.

En ole vastaavaa kokenut oikealla rahalla missään.

mää haluisin ampuu sen jannun joka ton pelin on kehittäny. olenko aivan hullu kun tuollaista ajattelen?

eli jos joku haluaa kokeilla.

fixaile ohjelma joka arpoo 13 numeroa 0-12 kymmenen kierrosta.. Tallentaa osumat numeroissa 1-12. esiintyneet osumat pelataan 13ta asti jos ei osu sitten ohjelma nolla tallennukset 0-12 ja otetaan uusi otos uudestaan. Osuma kohdassa tai huti 13 syötetään ja miinustetaan esim hiirellä pelattujen kierrroksien määrä ohjelma samalla helposti saadaan miinustamaan automaattisesti pelattujen numeroiden määrän saldosta ynnätään numero voitto esim hiirellä.

nikkaroin noin puolessa tunnissa on qbasic lle yksinkertainen tallentava vers
tarvii kansion C:lle roulette sekä txt tiedost data
voi ehkä joku osuma putki tullakkin hyvänä päivänä jäi vähän testailu välillä kesken. käynnistyy qb ja


f=OpenToRead("C:\roulette\data.txt")
s=ReadLine(f)
CloseFile f'........................

fic:

ng=0

ag=0
bg=0
cg=0
dg=0
eg=0
fg=0
gg=0
hg=0
ig=0
jg=0
kg=0
lg=0
mg=0
ay=0
by=1
cy=2
dy=3
ey=4
fy=5
gy=6
hy=7
iy=8
jy=9
ky=10
ly=11
my=12

foe:

ng 1

an=Rand(0,36)


If an=ay Then ag=1
If an=by Then bg=1
If an=cy Then cg=1
If an=dy Then dg=1
If an=ey Then eg=1
If an=fy Then fg=1

If an=gy Then gg=1
If an=hy Then hg=1
If an=iy Then ig=1
If an=jy Then jg=1
If an=ky Then kg=1
If an=ly Then lg=1
If an=my Then mg=1

og=ag bg cg dg eg fg gg hg ig jg kg lg mg

fix:

Text 60,10,ay
If bg>0 Then Color 255,255,0
Text 30,30,by
Color 255,255,255
If cg>0 Then Color 255,255,0
Text 60,30,cy
Color 255,255,255
If dg>0 Then Color 255,255,0
Text 90,30,dy
Color 255,255,255
If eg>0 Then Color 255,255,0
Text 30,60,ey
Color 255,255,255
If fg>0 Then Color 255,255,0
Text 60,60,fy
Color 255,255,255
If gg>0 Then Color 255,255,0
Text 90,60,gy
Color 255,255,255
If hg>0 Then Color 255,255,0
Text 30,90,hy
Color 255,255,255
If ig>0 Then Color 255,255,0
Text 60,90,iy
Color 255,255,255
If jg>0 Then Color 255,255,0
Text 90,90,jy
Color 255,255,255
If kg>0 Then Color 255,255,0
Text 28,120,ky
Color 255,255,255
If lg>0 Then Color 255,255,0
Text 58,120,ly
Color 255,255,255
If mg>0 Then Color 255,255,0
Text 88,120,my
Color 255,255,255

Text 30,200,s " saldo"

Text 30,230,"h vas vähentää kierrokset h oik lisää 36"
Text 30,250,"pelaa osumaan tai 13 kierrosta ja leftkey"
Text 30,270,"ja saat uudet satunnaisluvut 1-12"

DrawScreen

If MouseHit(1) Then s-og
If MouseHit(2) Then s 36

If LeftKey() Then GoSub fic
If RightKey() Then GoSub save

If ng=10 Then GoSub fix

GoSub foe
save:

f=OpenToWrite("C:\roulette\data.txt")
WriteLine f,s
CloseFile f'........................

Tuossa kehittyneempi päivitys selkeytettynä saldon tallentava sekä 1st12 2nd12 3rd12 arean vaihto päivitys edelliselle ruletti toosalle. Eli roulette kansio C.lle kansioon lisätään tekstitiedosto data joku aloitus saldo kopioi jätetty ohjelmanteksti ja laita Coolbasic (qb oli painovirhe :) ) käynnistä tai avaa cb valikko ja Bulitd.exe (joku nimi) roulette kansioon.

good luck mut huomaat et osumat tulevat helpommin tyhjää pyörittäessä ja vähemmin vie tuuri vierestä.

f=OpenToRead("C:\roulette\data.txt")
s=ReadLine(f)
CloseFile f'........................
cv=1
fic:
ng=0
ag=0
bg=0
cg=0
dg=0
eg=0
fg=0
gg=0
hg=0
ig=0
jg=0
kg=0
lg=0
mg=0
If cv>1 Then GoSub rigte
ay=0
by=1
cy=2
dy=3
ey=4
fy=5
gy=6
hy=7
iy=8
jy=9
ky=10
ly=11
my=12
GoSub foe
rigte:
If cv>2 Then GoSub rigtx
by=13
cy=14
dy=15
ey=16
fy=17
gy=18
hy=19
iy=20
jy=21
ky=22
ly=23
my=24
GoSub foe
rigtx:
by=25
cy=26
dy=27
ey=28
fy=29
gy=30
hy=31
iy=32
jy=33
ky=34
ly=35
my=36
foe:
ng 1
an=Rand(0,36)
If an=ay Then ag=1
If an=by Then bg=1
If an=cy Then cg=1
If an=dy Then dg=1
If an=ey Then eg=1
If an=fy Then fg=1
If an=gy Then gg=1
If an=hy Then hg=1
If an=iy Then ig=1
If an=jy Then jg=1
If an=ky Then kg=1
If an=ly Then lg=1
If an=my Then mg=1
og=ag bg cg dg eg fg gg hg ig jg kg lg mg
fix:
If cv>1 Then GoSub dow
If ag>0 Then Color 128,168,4
Text 60,10,ay
dow:
Color 255,255,255
If bg>0 Then Color 255,255,0
Text 30,40,by
Color 255,255,255
If cg>0 Then Color 255,255,0
Text 60,40,cy
Color 255,255,255
If dg>0 Then Color 255,255,0
Text 90,40,dy
Color 255,255,255
If eg>0 Then Color 255,255,0
Text 30,70,ey
Color 255,255,255
If fg>0 Then Color 255,255,0
Text 60,70,fy
Color 255,255,255
If gg>0 Then Color 255,255,0
Text 90,70,gy
Color 255,255,255
If hg>0 Then Color 255,255,0
Text 30,100,hy
Color 255,255,255
If ig>0 Then Color 255,255,0
Text 60,100,iy
Color 255,255,255
If jg>0 Then Color 255,255,0
Text 90,100,jy
Color 255,255,255
If kg>0 Then Color 255,255,0
Text 28,130,ky
Color 255,255,255
If lg>0 Then Color 255,255,0
Text 58,130,ly
Color 255,255,255
If mg>0 Then Color 255,255,0
Text 88,130,my
Color 255,255,255
Text 150,40,s " saldo"
Text 150,70,cv " 1st12 2nd12 3rd12"
Text 30,200,"h vas vähentää kierrokset h oik lisää 36"
Text 30,220,"leftkey uudet satunnaisluvut"
Text 30,240,"näppäin 1=1st12 2=2nd12 3=3rd12"
Text 30,260,"rightkey tallena saldo ja poistu"
DrawScreen
If MouseHit(1) Then s-og
If MouseHit(2) Then s 36
If KeyHit(2) Then cv=1
If KeyHit(3) Then cv=2
If KeyHit(4) Then cv=3
If LeftKey() Then GoSub fic
If RightKey() Then GoSub save
If ng=10 Then GoSub fix
GoSub foe
save:
f=OpenToWrite("C:\roulette\data.txt")
WriteLine f,s
CloseFile f'........................