' Mini Cash Case.ibas

' Listing generated by ViziBasic v2.1
' 17/04/2009 @ 18:04:37

{CREATORID "WTVr"}
{VERSION "0.1"}
'{MINOSVERSION "3.0"}
'{PARSER OFF}
'{KEYEVENTS OFF}
'{SECUREFILES ON}
'{CONSOLEFONT ON}

DIM %EVT%,%P1%,%P2%,%P3%
DIM %P1$,%P2$,%P3$,%BTN%,%AARRAY$
DIM %BTN$,%TXT$,%VLU%,%LOP%
DIM A(80)
DIM %AARRAY%,%AARRAY2%

_Clicky:
	%TXT$="You clicked case #"+%BTN$
	UPDATELABEL #9,%TXT$
	%BTN% = VAL(%BTN$)

	%AARRAY2% = A(%BTN%)
	%AARRAY$ = STR$(%AARRAY2%,0)
	%TXT$="It was worth $" + %AARRAY$
	UPDATELABEL #10,%TXT$
	%EVT%=WAITEVENT
RETURN

_TryAgainLabel:
	%LOP% = %LOP% + 1
	%VLU% = RND(8)
	if %VLU%=0 let %VLU%=1
	A(%LOP%)=%VLU%
	%AARRAY% = A(%LOP%)
return

BEGIN
GOSUB _OnAppStart
%P1$="This is just a *very* rough draft¶¶v.0.1"
ABOUTBOX %P1$
GOSUB _GenerateGUI

A(1)=0

WHILE %LOP% <> 9
           gosub _TryAgainLabel
	%AARRAY2%=A(1) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(2) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(3) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(4) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(5) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(6) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(7) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
	%AARRAY2%=A(8) : if %AARRAY%=%AARRAY2% gosub _TryAgainLabel
WEND


GOSUB _EventsLoop
GOSUB _OnAppExit
END

_GenerateGUI:
%P1$="#1"
SETFONT 0
BUTTON #1,%P1$,5,20,15,15
%P1$="#2"
SETFONT 0
BUTTON #2,%P1$,25,20,15,15
%P1$="#3"
SETFONT 0
BUTTON #3,%P1$,45,20,15,15
%P1$="#4"
SETFONT 0
BUTTON #4,%P1$,65,20,15,15
%P1$="#5"
SETFONT 0
BUTTON #5,%P1$,5,40,15,15
%P1$="#6"
SETFONT 0
BUTTON #6,%P1$,25,40,15,15
%P1$="#7"
SETFONT 0
BUTTON #7,%P1$,45,40,15,15
%P1$="#8"
SETFONT 0
BUTTON #8,%P1$,65,40,15,15
%P1$="You clicked case ..."
SETFONT 0
LABEL #9,%P1$,5,60
%P1$="It was worth..."
SETFONT 0
LABEL #10,%P1$,5,60
RETURN

_EventsLoop:

REPEAT
 %EVT%=WAITEVENT
 SELECT CASE %EVT%
  CASE 1
   GOSUB _BUTTON_1
  CASE 2
   GOSUB _BUTTON_2
  CASE 3
   GOSUB _BUTTON_3
  CASE 4
   GOSUB _BUTTON_4
  CASE 5
   GOSUB _BUTTON_5
  CASE 6
   GOSUB _BUTTON_6
  CASE 7
   GOSUB _BUTTON_7
  CASE 8
   GOSUB _BUTTON_8
 END SELECT
UNTIL %EVT%=-1
RETURN

_BUTTON_1:
%BTN$="1"
GOSUB _Clicky
RETURN

_BUTTON_2:
%BTN$="2"
GOSUB _Clicky
RETURN

_BUTTON_3:
%BTN$="3"
GOSUB _Clicky
RETURN

_BUTTON_4:
%BTN$="4"
GOSUB _Clicky
RETURN

_BUTTON_5:
%BTN$="5"
GOSUB _Clicky
RETURN

_BUTTON_6:
%BTN$="6"
GOSUB _Clicky
RETURN

_BUTTON_7:
%BTN$="7"
GOSUB _Clicky
RETURN

_BUTTON_8:
%BTN$="8"
GOSUB _Clicky
RETURN

_OnAppStart:

RETURN

_OnAppExit:

RETURN