movallerik wrote:
Code:
0:While Ans=0 or Ans<=5
getkey
End
Ans->K
if K=1:"PLAY
if K=2:"INSTALL
if K=3:"NET
if K=4:"OPTIONS
if K=5:Goto Q
Ans
real(10,0,0
prgmXTEMP000
real(10,1,0
Will this using xLIB use the string or will i need to do that manualy
I figured it out so my code looks like this
Code:
:DCS
E0D0C8C8C89020C0
1:real(0)
if not(Ans:Then
ClrHome
Output(1,1,"PLZ ENABLE xLIB VIA APPS MENU
0:Repeat Ans
getkey:End
lbl Q
ClrDraw:ZStandard:Output(1,1,"
Return:End
CoordOff:GridOff:AxesOff:LabelOff
real(12,6,0,0,95,63
real(13,1
text(0,1,"After the 3rd Battle with
text(6,1,"the forces of evil lead by
text(12,1,"Diablo was banished back
text(18,1,"to Hell permently.
text(24,1,"the world is safe forever
text(30,1,"or so people thought...
Pause
Lbl M
real(12,6,0,0,95,63
real(13,1
text(-1,0,0,"Diablo's Revenge
real(12,1,0,8,95,8
text(9,1,"1) Play Game
text(15,1,"2) Install Game
text(21,1,"3) Battle.net /// this function will not be operationable at first.
text(27,1,"4) Options
test(33,1,"5) Quit
0:repeat Ans>=83 and Ans<=94
getkey
End
Ans->K
if K>83 and K<92:Goto M
if K=92:"PLAY
if K=93:"INSTALL
if K=94:"NET
if K=82:"OPTIONS
if K=83:Goto Q
real(10,0,0
prgmXTEMP000
real(10,1,0