Sorry your browser is not supported!

rem New Twist to "Guess The Number Game"


rem randomize the numbers 100 and 255
randomize 100
randomize 255
rem arrary for x and y positions of boxes
dim xypos(100,2)
ink rgb(255,255,255),0
cls 0
set text font "ariel"
set text size 14
center text 320,240,"LOADING...."
create bitmap 1,640,480
set current bitmap 1
cls 0
rem black box to cover the < and > numbers
get image 101,1,1,30,30
rem make images of number of trys the play makes
set text size 30
for t=201 to 300
t2=t-200
center text 50,6,"Try: "+str$(t2)
get image t,0,0,100,50
cls 0
next t

rem make 100 colored boxes and number them 1-100
for t=1 to 100
  randomize timer()
  ink rgb(rnd(100)+55,rnd(100)+55,rnd(100)+55),0
  box 1,1,30,30
  ink rgb(255,255,255),0
  set text size 14
  center text 15,6,str$(t)
  get image t,1,1,30,30
next t
rem make the "play" or "quit" boxes when player wins
ink rgb(255,255,255),0
box 1,1,50,50
box 51,1,100,50
ink rgb(100,100,255),0
box 3,3,47,47
box 53,3,97,47
ink rgb(255,255,255),0
center text 25,14,"Play"
center text 75,14,"Quit"
get image 102,1,1,50,50
get image 103,51,1,100,50
delete bitmap 1
set current bitmap 0
cls 0

rem the game starting label
rem and play again label
startgame:

rem sub routine to choose random number and
rem  to place boxes on screen
gosub putpic

rem the main loop
do

rem "p" keeps the count on what number is in each position
rem "secret" is the random number player searches for
rem "target" is the actual numbered box clicked
rem "wrong" is the times the player trys
rem "time" is the variable used for the < or > numbers
rem p1 and p2 are then variables used to cycle through the numbered boxes
  xp=mousex():yp=mousey():mc=mouseclick()
rem this section checks if chosen number is larger than random number
rem if it is then black boxes cover all then numbers larger than the chosen number
  for p=p1 to p2
    x=xypos(p,1)
    y=xypos(p,2)
      if mc=1 and mke=0 and xp>x and yp>y and xp<x+30 and yp<y+30
        mke=1
        target=p
          if target>secret
            wrong=wrong+1
            for time=target to 100
              paste image 101,xypos(time,1),xypos(time,2)
            next time
            p2=target-1
          endif
rem this section checks if chosen number is smaller than random number
rem if it is then black boxes cover all then numbers smaller than the chosen number
        if target<secret
          wrong=wrong+1
            for time=target to 1 step-1
              paste image 101,xypos(time,1),xypos(time,2)
            next time
            p1=target+1
        endif
rem this section the chosen number matches the random number, player wins
        if target=secret then wrong=wrong+1:gosub win
rem this is the number of trys the player has made
        if wrong>0
          paste image (wrong+200),255,0
        endif
      endif

  next p

rem this prevents then mouse from being clicked twice in a row
  if mc=0 and mke=1 then mke=0
loop

end

rem resets variables "t" and "wrong"
rem "t" is the variable to count arrary "xypos(100,2)"
rem "wrong" is the variable for the times a player trys
rem puts 100 color boxes on screen
rem chooses random number
putpic:

  cls 0
  t=1:wrong=0:p1=1:p2=100
  for y=90 to 360 step 30
    for x=170 to 440 step 30
      paste image t,x,y
      xypos(t,1)=x
      xypos(t,2)=y
      inc t
    next x
   next y
rem this keeps the random number random
  randomize timer()
  secret=rnd(99)+1
  set text size 14
  text 0,400,"The computer has choosen a random number between 1 and 100.  Click numbers to make a guess."
  text 0,415,"If the number clicked is smaller than the random number, then the numbers below the one clicked"
  text 0,430,"are blacked out.  If the number clicked is larger than the random number, then the numbers above"
  text 0,445,"the one clicked are blacked out."
  text 0,460," So click away!!!"
return

rem paste the winning random number box on screen
rem winning text
rem pastes the "play again" or "quit" boxes on screen
rem lets player choose to play again or quit
win:

  cls 0
  paste image secret,285,165
  set text size 14
  center text 300,200,"You Win"
  center text 300,215,"It took you "+str$(wrong)+" trys."
  center text 300,230,"Congradulations!!!"
  center text 300,245,"(I think..)"
  paste image 102,250,265
  paste image 103,302,265

  do
    xp=mousex():yp=mousey():mc=mouseclick()
    if mc=1 and xp>250 and yp>265 and xp<300 and yp<310 then goto startgame
    if mc=1 and xp>303 and yp>265 and xp<350 and yp<310 then end
  loop

end

NewGame:

repeat
until mouseclick()=0

sync on : randomize timer()

ink rgb(255,255,255),0
set text size 14
center text 320,240,"LOADING..."
sync

gosub init_stuff

paste image NumGrid,90,90

`-------------------------------------------------
`MAIN LOOP
`-------------------------------------------------
do

   sync


   if mouseclick()=1
      gosub CheckGridClick
      select LessGreater
         case 1
            ink 0,0
            for fillrow=1 to row
               if fillrow<row
                  for fillcolumn=1 to 10
                     box (fillcolumn-1)*30+90,(fillrow-1)*30+90,fillcolumn*30+90,fillrow*30+90
                  next fillcolumn
               else
                  for fillcolumn=1 to column
                     box (fillcolumn-1)*30+90,(fillrow-1)*30+90,fillcolumn*30+90,fillrow*30+90
                  next fillcolumn
               endif
            next fillrow
         endcase
         case 2
            cls
            gosub Win_Sequence
         endcase
         case 3
            ink 0,0
            for fillrow=10 to row step -1
               if fillrow>row
                  for fillcolumn=1 to 10
                     box (fillcolumn-1)*30+90,(fillrow-1)*30+90,fillcolumn*30+90,fillrow*30+90
                  next fillcolumn
               else
                  for fillcolumn=10 to column step -1
                     box (fillcolumn-1)*30+90,(fillrow-1)*30+90,fillcolumn*30+90,fillrow*30+90
                  next fillcolumn
               endif
            next fillrow
         endcase
      endselect
   endif



loop








`-------------------------------------------------
`SUBROUTINES
`-------------------------------------------------

init_stuff:

   `since sync is on then this cls wont show
   cls

   `this will ensure new game works
   if image exist(100)=1 then delete image 100


   `make image of grid of numbers
   num=1
   set text size 10
   for y=0 to 9
      for x=0 to 9
         red=rnd(155)+100
         green=rnd(155)+100
         blue=rnd(155)+100
         ink rgb(red,green,blue),0
         box x*30,y*30,(x+1)*30,(y+1)*30
         ink 0,0
         center text x*30+15,y*30+6,str$(num)
         inc num
      next x
   next y
   NumGrid=100
   get image NumGrid,0,0,300,300

   cls

   `make a random target number
   target=rnd(99)+1

return




CheckGridClick:

   if mouseover(90,90,390,390)=1

      mx=mousex() : my=mousey()

      for row=1 to 10
         if (row-1)*30+90<=my and my<=row*30+90
            for column=1 to 10
               if (column-1)*30+90<=mx and mx<=column*30+90
                  ink 0,0
                  LessGreater=CheckLessGreater(column,row,target)
                  goto skip
               endif
            next column
         endif
      next row

      skip:

   endif

return




Win_Sequence:

   cls

   red=rnd(155)+100
   green=rnd(155)+100
   blue=rnd(155)+100
   ink rgb(red,green,blue),0

   box 305,225,335,255
   ink 0,0
   center text 320,231,str$(target)

   dim buttoncoords(2,4)
      left=1 : top=2 : right=3 : bottom=4
      buttoncoords(1,left)=320-(.5*text width("Play Again"))
      buttoncoords(1,top)=300
      buttoncoords(1,right)=320+(.5*text width("Play Again"))
      buttoncoords(1,bottom=300+text height("Play Again"))
      buttoncoords(2,left)=320-(.5*text width("Quit"))
      buttoncoords(2,top)=350
      buttoncoords(2,right)=320+(.5*text width("Quit"))
      buttoncoords(2,bottom=350+text height("Quit"))

   red=rnd(155)+100
   green=rnd(155)+100
   blue=rnd(155)+100
   ink rgb(red,green,blue),0

   box buttoncoords(1,1),buttoncoords(1,2),buttoncoords(1,3),buttoncoords(1,4)
   ink 0,0
   center text 320,300,"Play Again"

   red=rnd(155)+100
   green=rnd(155)+100
   blue=rnd(155)+100
   ink rgb(red,green,blue),0

   box buttoncoords(2,1),buttoncoords(2,2),buttoncoords(2,3),buttoncoords(2,4)
   ink 0,0
   center text 320,350,"Quit"

   NoButtonPressed:

   repeat
   sync
   until mouseclick()=0

   repeat
   sync
   until mouseclick()=1

   buttonpressed=0

   if mouseover(buttoncoords(1,1),buttoncoords(1,2),buttoncoords(1,3),buttoncoords(1,4))=1
      buttonpressed=1
   endif

   if mouseover(buttoncoords(2,1),buttoncoords(2,2),buttoncoords(2,3),buttoncoords(2,4))=1
      buttonpressed=2
   endif

   select buttonpressed
      case 0 : goto NoButtonPressed : endcase
      case 1 : goto NewGame : endcase
      case 2 : end : endcase
   endselect

return








`------------------------------------------------
`FUNCTIONS
`------------------------------------------------

function mouseover(x1,y1,x2,y2)

   mx=mousex() : my=mousey()

   if x1<mx and mx<x2
      if y<my and my<y2
         exitfunction 1
      endif
   endif

endfunction 0




function CheckLessGreater(column,row,target)

   selectedbox=(10*(row-1))+column

   if selectedbox=target
      exitfunction 2
   endif

   if selectedbox<target
      exitfunction 1
   endif

   if selectedbox>target
      exitfunction 3
   endif

endfunction 0