Ha! was wondering how it should be filled it, plus what goes in Memo.
Quote: "There would be nothing wrong with limiting the amount to thousands."
If I did that how could you then bet a small fortune on one spin, Yes, you guess it I am working out how to ask for how much to gamble on each spin.
edit
code update if you have all ready down load one of the above then just copy this over the code you have.
Rem Project: dicefruitsa1
Rem Created: Tuesday, July 20, 2010
rem by Howdo
Rem ***** Main Source File *****
sync on
sync rate 60
`set image colorkey rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
`checkforfont()
randomize timer()
load image "dicefrutsopenscreen.png",10
paste image 10,0,0
load image "hold_r_1.png",2 :rem dark
load image "hold_r_2.png",3:rem dark
load image "hold_r_3.png",4 :rem light
load image "hold_c_1.png",5 :rem light
load image "hold_c_2.png",6 :rem glow light
load image "hold_c_3.png",7:rem glow light
load image "chk1.png",10:rem cheuqe.
load image "Fa_dice.jpg",11:rem glow dice
load image "backgroundpic1.png",12:rem back ground picture
load image "bankdraft.png",14:rem bank draft
load image "dicefruitslogo1.png",13:rem logo
rem open a bitmap to grab some text
create bitmap 1,256,256
cls rgb(255,150,255)
text 0,0,"CANCEL"
get image 8,0,0,text width("CANCEL"),text height("H"),1
`save current bitmap "cancel1.png"
cls 0
ink rgb(255,0,255),rgb(30,30,30)
text 0,0,"--Winning Line--"
get image 9,0,0,text width("--Winning Line--"),text height("H"),1
ink rgb(255,255,255),0
rem set font
set text font "Aril"
`set text font "monterey bt"
set text size 24
rem set up dims
`set image colorkey 0,0,0
dim wc(36) as string
dim wcs(36) as string
dim face(9,2)
dim holdstate(6) as integer
dim number(9) as string
dim unit(5) as string
global dim nums(38) as string
nums(0) = "ZERO"
nums(1) = "ONE"
nums(2) = "TWO"
nums(3) = "THREE"
nums(4) = "FOUR"
nums(5) = "FIVE"
nums(6) = "SIX"
nums(7) = "SEVEN"
nums(8) = "EIGHT"
nums(9) = "NINE"
nums(10) = "TEN"
nums(11) = "ELEVEN"
nums(12) = "TWELVE"
nums(13) = "THIRTEEN"
nums(14) = "FOURTEEN"
nums(15) = "FIFTEEN"
nums(16) = "SIXTEEN"
nums(17) = "SEVENTEEN"
nums(18) = "EGIGHTEEN"
nums(19) = "NINETEEN"
nums(20) = "TWENTY"
nums(21) = "THIRTY"
nums(22) = "FOURTY"
nums(23) = "FIFTY"
nums(24) = "SIXTY"
nums(25) = "SEVENTY"
nums(26) = "EIGHTY"
nums(27) = "NINETY"
nums(28) = ""
nums(29) = "THOUSAND"
nums(30) = "MILLION"
nums(31) = "BILLION"
nums(32) = "TRILLIONn"
nums(33) = "quadrillion"
nums(34) = "quintillion"
nums(35) = "sextillion"
nums(36) = "septillion"
nums(37) = "octillion"
nums(38) = "nonillion"
sprite 1,0,0,12
hide sprite 1
for i=0 to 9
face(i,1)=i
next i
autocam off
position camera 0,5,-145
point camera 0,0,0
rem load dice object
load object "f_dice1.x",1
rem position and clone object
position object 1,-40,40,0
clone object 2,1
position object 2,0,40,0
clone object 3,1
position object 3,40,40,0
clone object 4,1
position object 4,-40,0,0
clone object 5,1
position object 5,0,0,0
clone object 6,1
position object 6,40,0,0
clone object 7,1
position object 7,-40,-40,0
clone object 8,1
position object 8,0,-40,0
clone object 9,1
position object 9,40,-40,0
rem place hold buttons <<<<<<<<<<<<<<<<<<<<<
make object plain 10,20,20
position object 10,75,40,0
clone object 11,10,1
position object 11,75,0,0
clone object 12,10,1
position object 12,75,-40,0
rem rows
make object plain 13,20,20
position object 13,-40,-75,0
clone object 14,13
position object 14,0,-75,0
clone object 15,13
position object 15,40,-75,0
rem put hold graphics on the objects
for tt=10 to 12
set object transparency tt,1
texture object tt,2
set object transparency tt+3,1
texture object tt+3,5
next tt
rem make cancel button
make object plain 16,25,25
position object 16,80,-75,0
texture object 16,8
load object "startbutton1.x",23
make object plain 17,500,300
texture object 17,12
hide object 17
`make object plain 23,25,25
position object 23,-80,-70,0
texture object 23,4
rem set up globals and start values
global time delay row money win done holdon t1$ t2$ t3$ r t4$ wins name$ number1$ unit$
time=timer()
delay=1500
spindice()
t1$="Your Money"
t2$="You Won"
wait key
delete bitmap 1
set current bitmap 0
name$=welcome()
clear entry buffer
money=howmuchtospend()
rem ready to loop
position light 0,camera position x(0),camera position y(0),camera position z(0)
` sprite 1,0,0,12
`hide sprite 1
rem ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
show object 17
do
position object 17,0,0,6
showmoney()
if (mouseclick()<>0 and pick object(mousex(),mousey(),23,23)>0 and money<>0 ) or (spacekey()<>0 and money<>0 )
money=money-1
wins=0
showmoney()
time=timer()
spindice()
checkforwin()
if holdon=0
rem down buttons
for tt=10 to 12
texture object tt,2
next tt
rem across buttons
for tt= 13 to 15
texture object tt,5
next tt
endif
row=rnd(6)
if row=0
holdon=1 :holdheld()
else
for i=1 to 9
face(i,2)=0
next i
endif
endif
sync
loop
function holdheld()
local time2
local delay2
delay2=500
time2=timer()
while holdon=1
showmoney()
if timer()>time2+delay2
on=1-on
time2=timer()
endif
for h=0 to 5
if h<3
if holdstate(h+1)=1
texture object 10+h,4
else
if on=1
texture object 10+h,3
else
if on=0
texture object 10+h,2
endif
endif
endif
else
if holdstate(h+1)=1
texture object 10+h,7
else
if on=1
texture object 10+h,6
else
if on=0
texture object 10+h,5
endif
endif
endif
endif
if mouseclick()=1
cursorobj=(pick object(mousex(),mousey(),10,16))
endif
if cursorobj=10
holdstate(1)=1
face(1,2)=1
face(2,2)=1
face(3,2)=1
endif
if cursorobj=11
holdstate(2)=1
face(4,2)=1
face(5,2)=1
face(6,2)=1
endif
if cursorobj=12
holdstate(3)=1
face(7,2)=1
face(8,2)=1
face(9,2)=1
endif
if cursorobj=13
holdstate(4)=1
face(1,2)=1
face(4,2)=1
face(7,2)=1
endif
if cursorobj=14
holdstate(5)=1
face(2,2)=1
face(5,2)=1
face(8,2)=1
endif
if cursorobj=15
holdstate(6)=1
face(3,2)=1
face(6,2)=1
face(9,2)=1
endif
next h
if cursorobj=16
for c=1 to 9
face(c,2)=0
next c
for gh=1 to 6
holdstate(gh)=0
next gh
endif
if (pick object(mousex(),mousey(),23,23))=1 or spacekey()=1
holdon=0
for gh=1 to 6
holdstate(gh)=0
next gh
spindice()
endif
if cursorobj=0
endif
sync
endwhile
endfunction
function showmoney()
`how object 17
`position object 17,0,0,15
`paste sprite 1,0,0
`sync
center text text width(t1$)/2,0,t1$
center text text width(t1$)/2-text width("£"+str$(money))/2+20,text height("I"),"£"+str$(money)
paste image 13,screen width()/2-image width(13)/2,0,1
`center text screen width()/2,5,"DICE FRUITS"
center text text width(t2$)/2,(text height("I")*2),t2$
center text text width(str$(wins))/2,(text height("I")*3),str$(wins)
endfunction
function checkforwin()
wins=0
showmoney()
rem clear last values
for o=1 to 36
wc(o)=""
wcs(o)=""
next o
stepcount=0
rem set up check and make win line
d=1
for k= 1 to 6
for p= 1 to 9
if mid$(t3$,p)=str$(k) then wc(k)=wc(k)+"1" else wc(k)=wc(k)+"0"
if mid$(t4$,p)=str$(k) then wc(k+6)=wc(k+6)+"1" else wc(k+6)=wc(k+6)+"0"
next p
next k
d=1
for y = 1 to 36 step 3
wcs(y)=left$(wc(d),3)
wcs(y+1)=left$(right$(wc(d),6),3)
wcs(y+2)=right$(wc(d),3)
inc d
next y
rem find winning line
r=0
for l= 1 to 36
rem rows a columns
if wcs(l)="111"
inc r
select l
case 1,4,7,10,13,16: drawinline(1,3):endcase
case 2,5,8,11,14,17: drawinline(4,6):endcase
case 3,6,9,12,15,18: drawinline(7,9):endcase
case 19,22,25,28,31,34: drawinline(1,7):endcase
case 20,23,26,29,32,35: drawinline(2,8):endcase
case 21,24,27,30,33,36 :drawinline(3,9):endcase
endselect
sync
wait 1000
endif
next l
`text 100,220,str$( r)
if r=6 then wins=50
if r=5 then wins=25
if r=4 then wins=20
if r=3 then wins=15
if r=2 then wins=5
if r=1 then wins=1
money=money+wins
done=0
holdon=0
rem reset hold buttons
for gh=1 to 6
holdstate(gh)=0
next gh
endfunction
function drawinline(a,b)
line object screen x (a),object screen y(a),object screen x(b),object screen y(b)
`texture object a,11
`texture object b,11
endfunction
function spindice()
while timer()<time+delay
showmoney()
t3$=""
t4$=""
if count>=9 then count =0
inc count
if face(count,2)<>1
face=rnd(5)+1
if face=6
rotate object face(count,1),0,0,0
face(count,0)=6
endif
if face=5
rotate object face(count,1),90,0,0
face(count,0)=5
endif
if face=4
rotate object face(count,1),0,90,0
face(count,0)=4
endif
if face=3
rotate object face(count,1),0,-90,0
face(count,0)=3
endif
if face=2
rotate object face(count,1),-90,0,0
face(count,0)=2
endif
if face=1
rotate object face(count,1),180,0,0
face(count,0)=1
endif
endif
for u=1 to 9
t3$=t3$+str$(face(u,0))
next u
t4$=mid$(t3$,1)+mid$(t3$,4)+mid$(t3$,7)+mid$(t3$,2)+mid$(t3$,5)+mid$(t3$,8)+mid$(t3$,3)+mid$(t3$,6)+mid$(t3$,9)
sync
endwhile
endfunction
function welcome()
while returnkey()<>1
paste image 12,0,0,1
paste image 13,(screen width()/2)-(image width(13)/2),50,1:rem logo
yh=250
xh=screen width()/2
th=text height("H")*2
center text xh,yh,"'Welcome', Now before we start to play."
inc yh,th
center text xh,yh,"Let's get some personality into the Game."
inc yh,th
center text xh,yh,"Could you please type in the name you wish to use for playing."
inc yh,th
b$=entry$(1) : rem specify a one to automatically account for backspace delete
text (screen width()/2)-(text width("Name : "+b$)/2),yh, "Name : "+b$
sync
endwhile
create bitmap 1,1024,128
`set text font "Aril"
set text font "monterey bt"
set text size 72
ink rgb(0,0,128),0
text 0,0,B$
get image 100,0,0,text width(b$)+2,text height(b$)+2,1
delete bitmap 1
set text font "Aril"
set text size 24
wait 500
endfunction b$
function howmuchtospend()
stars$="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
while returnkey()=0
paste image 12,0,0,1
paste image 13,(screen width()/2)-(image width(13)/2),50,1:rem logo
paste image 14,screen width()/2-(image width(14)/2),200,1
yh=145
xh=screen width()/2
th=text height("H")
ink rgb(255,255,255),0
center text xh,yh,"Ok"+Name$+" Let's fill out the Banker's Draft."
inc yh, th
center text xh,yh,"How much you like to spend?"
text 0,0,str$(mousex())+" "+str$(mousey())
b$=entry$(1) : rem specify a one to automatically account for backspace delete
ink rgb(0,0,0),0
if Money$=""
text 615,366, "0.00"+left$(stars$,7-len(money$))
else
text 615,366, Money$+".00"+left$(stars$,7-len(money$))
endif
moneystring$=figures_to_text(Money$)
ml=len(moneystring$)
text 610,310,get date$()
text 163,364,"========== M. T. Pockets Ltd.=========="
paste image 100,(screen width()-image width(100)-15),442,1
while text width(moneystring$)<text width(stars$)
moneystring$=moneystring$+"X"
endwhile
text 40,406,moneystring$
if right$(b$,1)>chr$(47) and right$(b$,1)<chr$(58) and len(b$)>width and len(money$)<6
width=len(b$)
money$=money$+mid$(right$(b$,1),1)
else
money$=left$(money$,len(b$))
width=len(b$)
endif
sync
endwhile
ink rgb(255,255,255),0
m=val(money$)
endfunction m
function figures_to_text(n$)
` n$ = str$(n)
l = len(n$)
while l mod 3
n$ = "0" + n$
inc l
endwhile
l = l/3
result$ = ""
for i = 0 to l-1
tri$ = right$(n$, 3)
n$ = left$(n$, len(n$)-3)
cur$ = ""
a$ = mid$(tri$, 1)
b$ = mid$(tri$, 2)
c$ = mid$(tri$, 3)
if a$ <> "0"
cur$ = cur$ + nums(int(val(a$))) + " HUNDRED "
if b$ <> "0" or c$ <> "0" then cur$ = cur$ + "AND "
else
if i = 0 and l > 1 then cur$ = cur$ + "AND "
endif
if b$ <> "1"
if b$ <> "0" then cur$ = cur$ + nums(int(val(b$))+18) + " "
if c$ <> "0" then cur$ = cur$ + nums(int(val(c$))) + " "
else
cur$ = cur$ + nums(int(val(b$ + c$))) + " "
endif
if tri$ = "000"
if i = 0 then cur$ = cur$ + "ZERO"
else
cur$ = cur$ + nums(i+28) + " "
endif
result$ = cur$ + result$
next i
endfunction result$
Dark Physics makes any hot drink go cold.
