Sorry your browser is not supported!

mytime$ = get time$()

rem Extract only the minutes using string mid
myminute$ = mid$(mytime$,4)
myminute$ = myminute$ + mid$(mytime$,5)

rem Length of the minute hand
radius = 40

rem anglem is the angle the minute hand should be at
rem the same code can be used for seconds, and to
rem calculate hours change /60 to /12

anglem = (((val(myminute$) / 60) * 360) -90)

rem Draw a line in the centre of a 640x480 display (so 320x240)
line 320,240,(radius * cos(anglem))+320,(radius * sin(anglem))+240

set display mode 800,600,32

sync on


cx = 150
cy = 150
radius = 50

secHandLength = 50
minHandLength = 40
hourHandLength = 30



repeat
   cls


   if mouseclick() = 1
      mx = mousex()
      my = mousey()
   endif


   for x = cx-radius to cx+radius
      for y = cy-radius to cy+radius
         ink rgb(255,0,0),0
         `dot x,y
         if (x-cx)^2 + (y-cy)^2 <= radius^2
            p# = ((mx-x)^2 + (my-y)^2+0.0) / radius^2
            if p# > 1 then p#=1.0
            ink getTransitionalColor(rgb(225,225,225),rgb(28,28,28),p#),0
            dot x,y
         endif
      next y
   next x

   circleOutline(cx,cy,radius+16,radius)

   rem draw numbers on clock
   ink rgb(52,78,98),0
   for n = 1 to 12
      a# = wrapvalue(360*(n/12.0)-90)
      nx = (cx+cos(a#)*(radius+7)) - text width(str$(n))/2.0
      ny = (cy+sin(a#)*(radius+7)) - text height(str$(n))/2.0
      text nx,ny,str$(n)
   next n

   rem calculate current seconds
   time$ = get time$()
   seconds = val(right$(time$,2))
   rem calculate angle of 'seconds' hand on clock
   angle# = wrapvalue((360*(seconds/60.0))-90)
   tx = cx+cos(angle#)*secHandLength
   ty = cy+sin(angle#)*secHandLength
   ink rgb(0,255,0),0
   line cx,cy,tx,ty

   rem calculate current minutes
   minutes = val(mid$(time$,4)+mid$(time$,5))
   angle# = wrapvalue(360*(minutes/60.0)-90)
   tx = cx+cos(angle#)*minHandLength
   ty = cy+sin(angle#)*minHandLength
   ink rgb(0,0,255),0
   line cx,cy,tx,ty


   rem calculate current hour
   hour = val(left$(time$,2))
   if hour > 12 then hour = hour-12
   angle# = wrapvalue(hour*30+(30*(minutes/60.0))-90)
   tx = cx+cos(angle#)*hourHandLength
   ty = cy+sin(angle#)*hourHandLength
   ink rgb(0,255,255),0
   line cx,cy,tx,ty



   set cursor 0,0
   print "FPS: ",screen fps()
   print "Hour: ",hour
   print "Min: ",minutes
   print "Sec: ",seconds

   sync
until spacekey()



REM **************************************************
REM Draws the outline of a circle given the center
REM co-ordinates [cx,cy] and its inner and outer radii
REM **************************************************
function circleOutline(cx,cy,outerRadius,innerRadius)
   for x = cx-outerRadius to cx+outerRadius
      for y = cy-outerRadius to cy+outerRadius
         sqDistance = (cx-x)^2 + (cy-y)^2
         if  sqDistance <= outerRadius*outerRadius and sqDistance >= innerRadius*innerRadius
            p# = (((x-cx)^2 + (y-cy)^2+0.0) - innerRadius^2) / (outerRadius^2-innerRadius^2)
            if p# > 1 then p#=1.0
            ink getTransitionalColor(rgb(188,194,200),rgb(46,51,55),p#),0
            dot x,y
         endif
      next y
   next x
endfunction

REM **************************************************
REM Returns a linear interpolated color between base
REM color and target color. Percent ranges from 0 to 1
REM **************************************************
function getTransitionalColor(base, target, percent#)
   br = rgbr(base)
   bg = rgbg(base)
   bb = rgbb(base)
   tr = rgbr(target)
   tg = rgbg(target)
   tb = rgbb(target)
   tr = br + (tr-br)*percent#
   tg = bg + (tg-bg)*percent#
   tb = bb + (tb-bb)*percent#
   color = rgb(tr,tg,tb)
endfunction color

set display mode 800,600,32

sync on
sync rate 0


cx = 150
cy = 150
radius = 50

secHandLength = 50
minHandLength = 40
hourHandLength = 30



repeat
   `cls


   if mouseclick() = 1
      mx = mousex()
      my = mousey()
   endif


   for x = cx-radius to cx+radius
      for y = cy-radius to cy+radius
         ink rgb(255,0,0),0
         `dot x,y
         if (x-cx)^2 + (y-cy)^2 <= radius^2
            p# = ((mx-x)^2 + (my-y)^2+0.0) / radius^2
            if p# > 1 then p#=1.0
            ink getTransitionalColor(rgb(225,225,225),rgb(28,28,28),p#),0
            dot x,y
         endif
      next y
   next x

   if flag=0
      circleOutline(cx,cy,radius+16,radius)
      flag=1
   endif

   rem draw numbers on clock
   ink rgb(52,78,98),0
   for n = 1 to 12
      a# = wrapvalue(360*(n/12.0)-90)
      nx = (cx+cos(a#)*(radius+7)) - text width(str$(n))/2.0
      ny = (cy+sin(a#)*(radius+7)) - text height(str$(n))/2.0
      text nx,ny,str$(n)
   next n

   rem calculate current seconds
   time$ = get time$()
   seconds = val(right$(time$,2))
   rem calculate angle of 'seconds' hand on clock
   angle# = wrapvalue((360*(seconds/60.0))-90)
   tx = cx+cos(angle#)*secHandLength
   ty = cy+sin(angle#)*secHandLength
   ink rgb(0,255,0),0
   line cx,cy,tx,ty

   rem calculate current minutes
   minutes = val(mid$(time$,4)+mid$(time$,5))
   angle# = wrapvalue(360*(minutes/60.0)-90)
   tx = cx+cos(angle#)*minHandLength
   ty = cy+sin(angle#)*minHandLength
   ink rgb(0,0,255),0
   line cx,cy,tx,ty


   rem calculate current hour
   hour = val(left$(time$,2))
   if hour > 12 then hour = hour-12
   angle# = wrapvalue(hour*30+(30*(minutes/60.0))-90)
   tx = cx+cos(angle#)*hourHandLength
   ty = cy+sin(angle#)*hourHandLength
   ink rgb(0,255,255),0
   line cx,cy,tx,ty



   set cursor 0,0
   print "FPS: ",screen fps()
   print "Hour: ",hour
   print "Min: ",minutes
   print "Sec: ",seconds

   sync
until spacekey()



REM **************************************************
REM Draws the outline of a circle given the center
REM co-ordinates [cx,cy] and its inner and outer radii
REM **************************************************
function circleOutline(cx,cy,outerRadius,innerRadius)
   for x = cx-outerRadius to cx+outerRadius
      for y = cy-outerRadius to cy+outerRadius
         sqDistance = (cx-x)^2 + (cy-y)^2
         if  sqDistance <= outerRadius*outerRadius and sqDistance >= innerRadius*innerRadius
            p# = (((x-cx)^2 + (y-cy)^2+0.0) - innerRadius^2) / (outerRadius^2-innerRadius^2)
            if p# > 1 then p#=1.0
            ink getTransitionalColor(rgb(188,194,200),rgb(46,51,55),p#),0
            dot x,y
         endif
      next y
   next x
endfunction

REM **************************************************
REM Returns a linear interpolated color between base
REM color and target color. Percent ranges from 0 to 1
REM **************************************************
function getTransitionalColor(base, target, percent#)
   br = rgbr(base)
   bg = rgbg(base)
   bb = rgbb(base)
   tr = rgbr(target)
   tg = rgbg(target)
   tb = rgbb(target)
   tr = br + (tr-br)*percent#
   tg = bg + (tg-bg)*percent#
   tb = bb + (tb-bb)*percent#
   color = rgb(tr,tg,tb)
endfunction color

sync on:sync rate 0
set display mode 800,600,32

cx = 320
cy = 240
radius = 50

secHandLength = 50
minHandLength = 40
hourHandLength = 30
circleOutline(cx,cy,radius+16,radius)

   rem draw numbers on clock
   ink rgb(52,78,98),0
   for n = 1 to 12
      a# = wrapvalue(360*(n/12.0)-90)
      nx = (cx+cos(a#)*(radius+7)) - text width(str$(n))/2.0
      ny = (cy+sin(a#)*(radius+7)) - text height(str$(n))/2.0
      text nx,ny,str$(n)
   next n
repeat
   if mouseclick() = 1
      mx = mousex()
      my = mousey()
   endif

         ink rgb(0,0,0),0
SBFillCircle(cx,cy,radius)

   rem calculate current seconds
   time$ = get time$()
   seconds = val(right$(time$,2))
   rem calculate angle of 'seconds' hand on clock
   angle# = wrapvalue((360*(seconds/60.0))-90)
   tx = cx+cos(angle#)*secHandLength
   ty = cy+sin(angle#)*secHandLength
   ink rgb(0,255,0),0
   line cx,cy,tx,ty

   rem calculate current minutes
   minutes = val(mid$(time$,4)+mid$(time$,5))
   angle# = wrapvalue(360*(minutes/60.0)-90)
   tx = cx+cos(angle#)*minHandLength
   ty = cy+sin(angle#)*minHandLength
   ink rgb(0,0,255),0
   line cx,cy,tx,ty

   rem calculate current hour
   hour = val(left$(time$,2))
   if hour > 12 then hour = hour-12
   angle# = wrapvalue(hour*30+(30*(minutes/60.0))-90)
   tx = cx+cos(angle#)*hourHandLength
   ty = cy+sin(angle#)*hourHandLength
   ink rgb(0,255,255),0
   line cx,cy,tx,ty
   sync
until spacekey()



REM **************************************************
REM Draws the outline of a circle given the center
REM co-ordinates [cx,cy] and its inner and outer radii
REM **************************************************
function circleOutline(cx,cy,outerRadius,innerRadius)
   for x = cx-outerRadius to cx+outerRadius
      for y = cy-outerRadius to cy+outerRadius
         sqDistance = (cx-x)^2 + (cy-y)^2
         if  sqDistance <= outerRadius*outerRadius and sqDistance >= innerRadius*innerRadius
            p# = (((x-cx)^2 + (y-cy)^2+0.0) - innerRadius^2) / (outerRadius^2-innerRadius^2)
            if p# > 1 then p#=1.0
            ink getTransitionalColor(rgb(188,194,200),rgb(46,51,55),p#),0
            dot x,y
         endif
      next y
   next x
   sync
endfunction

REM **************************************************
REM Returns a linear interpolated color between base
REM color and target color. Percent ranges from 0 to 1
REM **************************************************
function getTransitionalColor(base, target, percent#)
   br = rgbr(base)
   bg = rgbg(base)
   bb = rgbb(base)
   tr = rgbr(target)
   tg = rgbg(target)
   tb = rgbb(target)
   tr = br + (tr-br)*percent#
   tg = bg + (tg-bg)*percent#
   tb = bb + (tb-bb)*percent#
   color = rgb(tr,tg,tb)
endfunction color


function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

sync on
ink rgb(80,80,80),0
box 1,1,117,57
ink rgb(100,150,50),0
box 14,14,103,43
ink rgb(140,140,140),0
for x=0 to 3
for y=2 to 5
box x*30,y*30,x*30+28,y*30+28
next y
next x
set text to bold
set text font "Times new roman"
ink rgb(255,255,255),0
set text size 15
text 30,1,"Calculator"
set text size 25

for by=2 to 5
for bx=0 to 3
read buttonword$
center text bx*30+14,by*30,buttonword$
next bx
next by
sync
get image 1,0,0,bx*30+14,by*30
cls
paste image 1,0,0
set text font "courier new"
sync rate 0
set text size 22
do
round=0
for x=0 to 3
for y=2 to 5
inc round,1
if mousex()>x*30 and mousex()<x*30+28 and mousey()>y*30 and mousey()<y*30+28
 if mouseclick()
  if round=12 then cls:num$="":paste image 1,0,0
  if len(num$)<8
   if round=1 then num$=num$+"1"
   if round=2 then num$=num$+"5"
   if round=3 then num$=num$+"9"
   if round=4 then num$=num$+"+"
   if round=5 then num$=num$+"2"
   if round=6 then num$=num$+"6"
   if round=7 then num$=num$+"0"
   if round=8 then num$=num$+"-"
   if round=9 then num$=num$+"3"
   if round=10 then num$=num$+"7"
   if round=11 then num$=num$+"X"
   if round=13 then num$=num$+"4"
   if round=14 then num$=num$+"8"
   if round=15 then num$=num$+"/"
   if round=16 then gosub calc
    repeat:until mouseclick()=0
   endif
 endif
endif
text 16,16,num$
next y
next x


sync
loop
calc:
cls
paste image 1,0,0
for scan=1 to len(num$)

next scan
text 16,16,num$
return

data "1","2","3","4","5","6","7","8","9","0","X","/","+","-","C","="

rem Preference
set window on
set window title "GadgetCenter"
w=1
rem --

start:
cls
sync rate 40
restore startpoint
set text font "system"
set text to normal
set text transparent
set text size 20
show mouse
sync on

for select=0 to 5
ink rgb(100,100,100),0
box (select*50)+2,0,(select*50)+50,50
read msg$
ink rgb(130*(select+1),130*(select+1),130*(select+1)),0
center text (select*50+2+(select*50)+50)/2,25,msg$
next select
set text opaque
ink rgb(100,100,100),0
do
for detect=0 to 5
if mousex()>(detect*50)+2 and mousey()>0 and mousex()<(detect*50)+50 and mousey()<50
if mouseclick()=1
for drop=50 to 100
if detect=5 then end
box (detect*50)+2,drop,(detect*50)+50,drop+2
sync
next drop
if detect=3
if w=1 then set window off:w=0 else set window on:w=1
print w
gosub start
endif
if detect=2 then gosub Tools
if detect=1 then gosub Art
if detect=0 then gosub Games
endif
endif
sync
next detect


sync
loop







rem --------

Art:
color=255
x=0
y=0
sync rate 0
repeat
dec color,1
set gamma color,color,color
sync
until color=0
cls
wait 10
set gamma 255,255,255
`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400
x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
ink rgb(255,255,255),0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
wait key

repeat
cls
ink rgb(255,255,255),0
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" on the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
ink rgb(rnd(255),rnd(255),rnd(255)),0
print "PRESS TAB WHEN IN EDITOR MODE TO RETURN TO MAIN MENU!!!"
ink rgb(255,255,255),0
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."
sync
until returnkey()=1





the_program:
cls
programsbegin:
currentx=320
currenty=240


do
x=0
y=0
if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
x=0
y=0
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()
  If scancode()=15 then gosub start

 sync
loop

















end














rem ----------
Games:
set text transparent
sync rate 140
ink rgb(255,255,255),0
for slide=1 to 102
box 0,0,300,slide
sync
next slide
sync rate 0
for center=1 to (screen width()-300)/2
cls
box center,0,center+300,slide
sync
next center
color=255
repeat
dec color,1
ink rgb(color,color,color),0
box center-1,0,center+300,slide
sync

until color=100


set text font "Times New Roman"
set text size 40
ink rgb(255,255,255),0
center text (center+300+center-1)/2,slide/2,"Games"
for boxes=1 to 3
ink rgb(200,240,0),0
box 320-41,boxes*60+91,320+41,boxes*60+121
ink rgb(60,20,80),0
box 320-39,boxes*60+89,320+39,boxes*60+119
next boxes
set text size 14
label=1
ink rgb(100,240,0),0
center text 320,label*60+91,"Ninja Stickman"
label=2
ink rgb(100,240,0),0
center text 320,label*60+91,"Other"
label=3
ink rgb(100,240,0),0
center text 320,label*60+91,"Back"
r=10
x=420
y=240
circle 420,240,30
dot 410,230
dot 430,230
sync on
 For dg= 0 to 180
   ax= sin(dg-100)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
r=10
x=220
y=240
circle 220,240,30
dot 210,230
dot 230,230
sync on
 For dg= 0 to 180
   ax= sin(dg-120)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
do

for boxes=1 to 3
ink rgb(200,240,0),0
if mousex()>320-40 and mousex()<320+40 and mousey()>boxes*60+91 and mousey()<boxes*60+121
if mouseclick()=1
 if boxes=1 then gosub NinjaStickman
 if boxes=2 then gosub Other
 if boxes=3 then gosub start
endif
endif
next boxes
sync
loop

end


Tools:
cls rgb(200,80,90)
sync on
for line=1 to screen width()
ink rgb(line*line,line,line),0
box line-1,0,line,screen height()-1
next line
sync
ink rgb(0,0,0),0
box 240,100,402,202
for x=240 to 400
for y=100 to 200
ink rgb(x*x+5,x+5,x+5),0
dot x,y
next y
next x
sync
set text font "Arial"
set text size 30
set text to normal
set text transparent
ink rgb(200,200,200),0
center text 320,150,"Tools"


for boxstep=0 to 2
ink rgb(8,220,216),0
box 240,240+(boxstep*50),400,280+(boxstep*50)
next boxstep
boxstep=0

set text font "Impact"
ink rgb(100,100,100),0
set text size 20
center text 320,250+(boxstep*50),"English -> Binary"
boxstep=1
center text 320,250+(boxstep*50),"Calculator"
boxstep=2
center text 320,250+(boxstep*50),"Return To Main Menu"
do

for boxstep=0 to 2
if mousex()>240 and mousex()<400 and mousey()>240+(boxstep*50) and mousey()<280+(boxstep*50)
if mouseclick()
if boxstep=0 then gosub Binary
if boxstep=1 then gosub Calculator
if boxstep=2 then gosub start
endif
endif
next boxstep
sync
loop




Binary:
rem -------------The following Code was Created by Irojo (me)-----------
rem -------------------I used an online translator to find the Binary--------
rem -------------------letters needed. It includes a-z, and spaces only--------
rem -----------I may do other characters later-------
sync on
set text transparent
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(200,200,200),0
print
set text font "Impact"
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,31
ink rgb(255,255,255),0
print "English:";
sync
input msg$

for scan=1 to len(msg$)


if mid$(msg$,scan)="a" then s$=s$+"01100001"
if mid$(msg$,scan)="b" then s$=s$+"01100010"
if mid$(msg$,scan)="c" then s$=s$+"01100011"
if mid$(msg$,scan)="d" then s$=s$+"01100100"
if mid$(msg$,scan)="e" then s$=s$+"01100101"
if mid$(msg$,scan)="f" then s$=s$+"01100110"
if mid$(msg$,scan)="g" then s$=s$+"01100111"
if mid$(msg$,scan)="h" then s$=s$+"01101000"
if mid$(msg$,scan)="i" then s$=s$+"01101001"
if mid$(msg$,scan)="j" then s$=s$+"01101010"
if mid$(msg$,scan)="k" then s$=s$+"01101011"
if mid$(msg$,scan)="l" then s$=s$+"01101100"
if mid$(msg$,scan)="m" then s$=s$+"01101101"
if mid$(msg$,scan)="n" then s$=s$+"01101110"
if mid$(msg$,scan)="o" then s$=s$+"01101111"
if mid$(msg$,scan)="p" then s$=s$+"01110000"
if mid$(msg$,scan)="q" then s$=s$+"01110001"
if mid$(msg$,scan)="r" then s$=s$+"01110010"
if mid$(msg$,scan)="s" then s$=s$+"01110011"
if mid$(msg$,scan)="t" then s$=s$+"01110100"
if mid$(msg$,scan)="u" then s$=s$+"01110101"
if mid$(msg$,scan)="v" then s$=s$+"01110110"
if mid$(msg$,scan)="w" then s$=s$+"01110111"
if mid$(msg$,scan)="x" then s$=s$+"01111000"
if mid$(msg$,scan)="y" then s$=s$+"01111001"
if mid$(msg$,scan)="z" then s$=s$+"01111010"
if mid$(msg$,scan)=" " then s$=s$+"00100000"
if mid$(msg$,scan)="." then s$=s$+"00101110"
if mid$(msg$,scan)="!" then s$=s$+"00100001"
if mid$(msg$,scan)="'" then s$=s$+"00100111"
if mid$(msg$,scan)="/" then s$=s$+"00101111"
if mid$(msg$,scan)="" then s$=s$+"01011100"
if mid$(msg$,scan)="|" then s$=s$+"01111100"
if mid$(msg$,scan)="A" then s$=s$+"01000001"
if mid$(msg$,scan)="B" then s$=s$+"01000010"
if mid$(msg$,scan)="C" then s$=s$+"01000011"
if mid$(msg$,scan)="D" then s$=s$+"01000100"
if mid$(msg$,scan)="E" then s$=s$+"01000101"
if mid$(msg$,scan)="F" then s$=s$+"01000110"
if mid$(msg$,scan)="G" then s$=s$+"01000111"
if mid$(msg$,scan)="H" then s$=s$+"01001000"
if mid$(msg$,scan)="I" then s$=s$+"01001001"
if mid$(msg$,scan)="J" then s$=s$+"01001010"
if mid$(msg$,scan)="K" then s$=s$+"01001011"
if mid$(msg$,scan)="L" then s$=s$+"01001100"
if mid$(msg$,scan)="M" then s$=s$+"01001101"
if mid$(msg$,scan)="N" then s$=s$+"01001110"
if mid$(msg$,scan)="O" then s$=s$+"01001111"
if mid$(msg$,scan)="P" then s$=s$+"01010000"
if mid$(msg$,scan)="Q" then s$=s$+"01010001"
if mid$(msg$,scan)="R" then s$=s$+"01010010"
if mid$(msg$,scan)="S" then s$=s$+"01010011"
if mid$(msg$,scan)="T" then s$=s$+"01010100"
if mid$(msg$,scan)="U" then s$=s$+"01010101"
if mid$(msg$,scan)="V" then s$=s$+"01010110"
if mid$(msg$,scan)="W" then s$=s$+"01010111"
if mid$(msg$,scan)="X" then s$=s$+"01011000"
if mid$(msg$,scan)="Y" then s$=s$+"01011001"
if mid$(msg$,scan)="Z" then s$=s$+"01011010"
next scan
sync
write to clipboard s$
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(200,200,200),0
print
set text font "Impact"
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,30
ink rgb(255,255,255),0
print "English:";
print msg$
set text size 14
set text font "courier new"
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(255,255,255),0
for y=240 to screen height()-10 step 10
 for x=1 to screen width()-7 step 7
 inc rounds,1
 if rounds=len(s$) then leave=1:exit
 text x,y,mid$(s$,rounds)
 next y
 if leave=1 then exit
next x
wait key
print "ERROR"
goto Tools
end


Calculator:
return













startpoint:
data "Games","Art","Tools","Screen","Res.","Quit"















NinjaStickman:
undim msg$()
cls
restore Ninja
skipthrough=0
xmsgd=100
y=100
totalstar=0
count=0
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new"
set text size 15
dim msg$(1000)
gosub msg_data
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0
hide mouse
text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

for k=1 to messages
if k=2 then extra=1 else extra=0
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
next k



goto skipover
msg_data:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=11
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(1)="Ninja Stickman... I need you.2"
msg$(2)="What- Who is this!?1"
msg$(3)="I am a Ninja Lord. And I am dying...2"
msg$(4)="I need you to collect yellow stars for me.2"
msg$(5)="No... I am not yet skilled enough.1"
msg$(6)="You are a stickman. It is in your blood. Go get stars.2"
msg$(7)="Why haven't you told me what the stars are for?1"
msg$(8)="I will keep that reason to myself!2"
msg$(9)="Yes sir.1"
msg$(10)="Remember: Orange stars bad, yellow good.2"
msg$(11)="And I suppose I ought to remind you to be honourable...2"
return
REM (No other choice)
skipover:





rem Intro

if sprite exist(1) then scale sprite 1,100
if hidden_ninja=1 then show sprite 1
set text font "System"
ink rgb(255,255,255),0
box 0,0,screen width()-1,60
get image 1,0,0,screen width()-1,60
y2=screen height()
y=-60
sc=0
starcount=0
cls
ink rgb(0,255,0),0
set text size 90
center text 320,240,"Ninja Stickman"
screen=1
repeat
if screen=1
sprite 1,0,y,1
sprite 2,0,y2,1
endif

if screen=1 and y<=-1 then inc y,1 else up2=1
if screen=1 and y2>=screen height()-60 then dec y2,1 else up=1
if up=1 and up2=1
rem A pause but still sensitive to button pressing.
for k=1 to 60
if spacekey() then exit
sync
next k

k=0
up=0
up2=0
y2=screen height()
y=-60
screen=0
exit
endif

sync
until spacekey()
cls
delete sprite 1
delete sprite 2
delete image 1


rem -----------GAME HERE-----------

set text size 20


sync on
rem Right
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4

ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,2,9
line 4,18,9,8
get image 1,0,0,9,32

hide mouse
sync

cls
rem Left
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4
ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,0,9
line 4,18,8,8
get image 2,0,0,9,32
sync
r=rnd(1)+1
cls rgb(0,100,0)
move=2
r=0
miny#=screen height()
y#=400




sc=3
ink rgb(255,255,0),0
text 0,0,"*"
get image 100,0,0,6,9
ink rgb(255,100,0),0
text 0,0,"*"
get image 101,0,0,6,9


cls
for rounds=1 to 7
x#=0
y#=400
dim danger(100)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove

for y=1 to screen height() step 48
 x=1
 for x=1 to screen width() step 64
  read okay
  
  if okay=1 then sprite sc,x,y,100:inc sc,1:scale sprite sc-1,160:danger(sc-1)=1:inc totalstar,1
  if okay=2 then sprite sc,x,y,101:inc sc,1:scale sprite sc-1,160:danger(sc-1)=2
 next x
next y
sync
print screen height()/10


do
if r=0 then  cls rgb(0,100,0)

if rightkey()=1
inc x#,1:move=1
if ground=1 then inc x#,.6
endif
if leftkey()=1

dec x#,1:move=2
if ground=1 then dec x#,.6
endif

sprite 1,x#,y#,move
ink rgb(50,50,50),0
if r=0 then text x#-2,y#-15,"P1":ink rgb(255,255,255),0:text 0,0,"Level 1."+str$(rounds)
if ground=0 and jp#=0 then inc descent#,.05
if ground=0 and jp#=0 then inc y#,descent#+default#
if ground=1 then descent#=0

if spacekey()=1 and jumps<2 then wfr=1
if ground=1 then jumps=0
if wfr=1 and spacekey()=0 and jumps<2 and jp#=0 then wfr=0:jp#=5:inc jumps,1
if jp#>0 then dec jp#,.1
if jp#<0 then jp#=0
dec y#,jp#
if y#<miny# then miny#=y#
`if y#<=maxheighty# and jp#>0 then jp#=0
if y#>=screen height()-33 then ground=1 else ground=0
if r=1 then line oldx#,oldy#,x#,y#
if inkey$()="d" then r=1
if inkey$()="n" then r=0
oldx#=x#
oldy#=y#
ink rgb(0,50,100),0
text 0,20,"Stars:"+str$(count)
if ground=1 then inair=1
if spacekey()=1 and ground=1 and jumps=0 then maxheighty#=y#-234.25
for k=3 to sc-1
if sprite collision(k,1)
delete sprite k
if danger(k)=1 then inc count,1
if danger(k)=2 then goto death
endif
next k
ink rgb(0,0,0),0
box 500,screen height()-60,550,screen height()-1
if x#>500 and y#>screen height()-60 and x#<551 then exit
sync
loop
next round
gosub victory
rem 1.1
Ninja:
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,0,0
rem 1.2
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,2,0,1,0,0,0,1,2
data 0,0,2,1,1,1,1,0,0,1
data 0,0,2,0,0,0,0,0,0,1
data 0,0,0,0,0,0,1,0,0,0
rem 1.3
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,1,0
data 0,0,0,1,2,1,1,0,0,0
data 0,0,0,0,2,2,0,0,0,2
data 0,0,0,0,2,2,1,0,0,0
rem 1.4
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2,1,0,0,0,0
data 0,0,0,0,1,2,1,0,0,0
data 0,0,1,0,1,0,2,0,0,0
data 0,0,2,2,1,0,2,0,0,0
rem 1.5
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0
data 0,2,1,0,1,2,0,0,0,0
data 0,0,0,2,1,2,0,0,0,0
data 0,1,0,2,1,0,1,0,0,0
rem 1.6
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,1,1,1,2,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
rem 1.7
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,2,2,2
data 0,0,0,0,0,1,1,0,0,2
data 0,0,0,1,1,1,0,0,0,2
data 0,0,0,1,2,2,0,0,0,1
death:
cls
for remove=1 to 1000
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100-z
sync
next z
delete sprite 1
xmsgd=100
y=100
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new"
set text size 15

gosub msg_data2
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0

text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
cancel=0
skipthrough=0
for k=12 to 14
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
sync
next k
set text size 200
center text 320,240,"X"
wait key
for remove=1 to 100
if sprite exist(remove) then delete sprite remove
if image exist(remove) then delete image remove
next remove
gosub start
end


msg_data2:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=14
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(12)="Ninja Stickman... I see you have joined the dead.2"
msg$(13)="Of the areas you entered, you collected "+str$(count)+"/"+str$(totalstar)+" stars2"
msg$(14)="You have failed me.2"
return

end








victory:
cls rgb(0,255,0)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100+z
sync
next z

ink rgb(0,100,200),0
center text 320,240,"Ninja Stickman-"
center text 320,260,"You have survived all the obstacles in front of you."
center text 320,280,"You collected "+str$(count)+"/"+str$(totalstar)+" stars."
center text 320,300,"Congratulations."
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
wait key
scale sprite 1,100
hide sprite 1:hidden_ninja=1
gosub start












return



















Other:
return

set text font "impact",1

if len(msg$) > 30 then msg$ = left$(msg$,30)
set cursor 100,50
print "Your string was too long and was truncated to:"
set cursor 100,70
print msg$
sync
suspend for key

` ********************************************
` * Hope this isnt too bad for a first entry *
` * into the DBC Coding Challenge. The aim   *
` * here was to use many different commands  *
` * and practice using them.                 *
` ********************************************
` * Feed The Fish game: Just click above the *
` * fish to drop food, if the food touches   *
` * him then he gains +1% health for each    *
` * food bit that touches him.               *
` ********************************************


rem All images are generated by code:

rem Image 1: Date
rem Image 2: Time
rem Image 3: Goldfish
rem Image 4: Foodbits
rem Image 5: Fish Food Pot
rem Image 6: Fish Health

rem Images 13-22 are for the buttons
rem Image 23 is for the button holder sprite,y=205


rem Sprite 1: Date
rem Sprite 2: Time
rem Sprite 3: Goldfish

rem Sprites 4-10 are reserved for the foodbits

rem Sprite 11 is the fish food pot that we attach to the mouse pointer
rem Sprite 12 is the fish health sprite
rem Sprites 13-17 are the buttons



rem Manual refresh
sync on

rem Hide the default mouse pointer
hide mouse

rem Year prefix,
yyprefix$ = "20"


rem The names of the calendar months
dim month_name$(12)
month_name$(1) = "January"
month_name$(2) = "February"
month_name$(3) = "March"
month_name$(4) = "April"
month_name$(5) = "May"
month_name$(6) = "June"
month_name$(7) = "July"
month_name$(8) = "August"
month_name$(9) = "September"
month_name$(10) = "October"
month_name$(11) = "November"
month_name$(12) = "December"


rem Foodbits are the bits of fish food.
rem We keep track of where they on the
rem screen using this array.
dim foodbits(7,2)

rem 7 bits of food assigned to sprites
rem 4 to 10. Since a sprite needs an
rem x coordinate and a y coordinate
rem we have two boxes inside each
rem foodbits drawer (assuming you
rem visualise arrays as drawers and boxes!)


rem .......X coordinate..........Y Coodinate
foodbits(1,1) = 320 : foodbits(1,2) = 650
foodbits(2,1) = 320 : foodbits(2,2) = 650
foodbits(3,1) = 320 : foodbits(3,2) = 650
foodbits(4,1) = 320 : foodbits(4,2) = 650
foodbits(5,1) = 320 : foodbits(5,2) = 650
foodbits(6,1) = 320 : foodbits(6,2) = 650
foodbits(7,1) = 320 : foodbits(7,2) = 650


rem Where the goldfish actually is on the screen
fishx = 320
fishy = 240

rem How much health the fish has - if it reaches
rem zero then he dies
fish_health = 100

rem How many milliseconds pass before we remove some health from the fish
fish_diminish_rate = 1000


rem How much percent of health should be removed each
rem time the diminish_rate elapses
fish_diminish_amount = 1


rem When we last subtracted some health - this one just initalises it
last_diminish_time = timer()


rem An integer that acts like a boolean (1 = pause, 0 = do not)
pause_diminish = 0


rem Horizontal and vertical direction keepers
rem If vdirection is set to zero string then
rem the fish only moves left and right
hdirection$ = "left"
vdirection$ = ""

rem Play with these values to alter difficulty

rem Leave this at normal and use the buttons in the game to change
rem difficulty
level$ = "normal"

speed = 8
move_interval = 50


rem Last time the fish moved
last_move = timer()

rem Last time we picked a new vertical direction
rem - this makes the fish appear to move about
rem aimlessly like...well like a goldfish!
last_vdirection = timer()


rem Set how a random amount of time that must elapse
rem before we choose another direction. 0-10 seconds
vdirection_interval = rnd(10000)


rem If you dont like the default sidebar colour then you
rem can change it here
sidebar = rgb(100,100,180)


rem Make the background

rem wipe screen with dark blue 
cls rgb(0,0,155)


rem Now make some yellow sand
ink rgb(220,180,22),0
box 0,400,639,479


rem Add some random dots to make it more interesting
ink rgb(50,50,0),0
for i=1 to 1000
dot rnd(640),400 + rnd(475)
next i

rem Grab it and put it in a stupidly high image number
get image 65000,0,0,640,480
cls 0

rem End of making the background





rem Create an offscreen buffer
create bitmap 1,640,480
cls 0


rem Set the program up
gosub _make_date_sprite
gosub _make_clock_sprite
gosub _make_button_holder_sprite
gosub _make_goldfish_sprite
gosub _make_fishstuff
gosub _make_fish_health_sprite
gosub _make_buttons


rem Goldfish sprite
sprite 3,fishx,fishy,3

rem Boost the fish size by 10
scale sprite 3,fish_health+10




rem ------------------- Main Program Loop ----------------------------
do
cls 0


paste image 65000,0,0


rem Date box sprite
sprite 1,512,0,1

rem Clock box sprite
sprite 2,512,65,2

gosub _move_fish

rem Goldfish sprite
sprite 3,fishx,fishy,3

if mydate$ <> get date$() then gosub _make_date_sprite
if mytime$ <> get time$() then gosub _make_clock_sprite


	rem Check if its time to dimish fish's health
	if (timer() - last_diminish_time) >= fish_diminish_rate

	rem Knock health off fish
	gosub diminish_fish

	endif


rem Health sprite
sprite 12,10,10,6


rem Probably could have done this better with select and case
rem statements, maybe next time, eh?

sprite 23,512,205,23

rem Easy button
if (level$ = "easy")
sprite 13,512,205,18
else
sprite 13,512,205,13
endif


rem Normal button
if (level$ = "normal")
sprite 14,512,225,19
else
sprite 14,512,225,14
endif


rem Hard button
if (level$ = "hard")
sprite 15,512,245,20
else
sprite 15,512,245,15
endif


rem New Fish button
sprite 16,512,265,16

rem See if any food has touched the fish sprite
gosub _has_fish_eaten


rem Keep the fish falling if its on the screen
gosub _keep_food_falling


rem Use the new foodbits x and y coordinates to update the foodbits sprites
sprite 4,foodbits(1,1),foodbits(1,2),4
sprite 5,foodbits(2,1),foodbits(2,2),4
sprite 6,foodbits(3,1),foodbits(3,2),4
sprite 7,foodbits(4,1),foodbits(4,2),4
sprite 8,foodbits(5,1),foodbits(4,2),4
sprite 9,foodbits(6,1),foodbits(6,2),4
sprite 10,foodbits(7,1),foodbits(7,2),4


rem Fish food can sprite
sprite 11,mousex(),mousey(),5


rem Did user toggle easy?
if (mouseclick()=1 and mousex() >= 512 and mousex() <= 639)

	if (mousey() >= 206 and mousey() <= 222)
	level$ = "easy"	
	speed = 4
	endif

endif


rem Did user toggle normal?
if (mouseclick()=1 and mousex() >= 512 and mousex() <= 639)

	if (mousey() >= 226 and mousey() <= 242)
	level$ = "normal"
	speed = 6
	endif

endif


rem Did user toggle hard?
if (mouseclick()=1 and mousex() >= 512 and mousex() <= 639)

	if (mousey() >= 246 and mousey() <= 262)
	level$ = "hard"	
	speed = 12
	endif

endif



if mouseclick()=1 then gosub _make_food
sync
loop
rem End of Main Program Loop





` (((((((((((((((((((( S U B  R O U T I N E S ))))))))))))))))))))))))))



_make_date_sprite:

remstart

This subroutine creates a blue box with the date
inside, formatted as:

	MONTH

DATE NUMBER

	YYYY

remend


rem Assign the DB date to mydate variable
mydate$ = get date$()

rem Extract the first two chars and assign to month
month$ = left$(mydate$,2)

	rem If less than ten then bin the leading zero
	rem to make comparison with the month name array
	rem easier
	if val(month$) < 10
	month$ = mid$(month$,2)
	endif


rem Look at the month number as a number and use it as
rem an index to what month name is. Finally assign
rem month name to month
month$ = month_name$(val(month$))


rem Just an excuse to use the upper case command
month$ = UPPER$(month$)


rem Extract the two characters from the middle and
rem assign to daynum (the date, 1-31)
daynum$ = mid$(mydate$,4)
daynum$ = daynum$ + mid$(mydate$,5)

	rem If daynum is less than ten then bin the leading zero
	rem just because I feel like it ;)
	if val(daynum$) < 10
	daynum$ = mid$(daynum$,2)
	endif

rem Extract the year part
year$ = right$(mydate$,2)

rem Turn yy into yyyy by prefixing it
year$ = yyprefix$ + year$


`print "DB Date: ";mydate$
`print "Day Number: ";daynum$
`print "Month: ";month$
`print "Year: ";year$


set current bitmap 1

rem Set pen color to sidebar colour and draw a box
ink sidebar,0
box 0,0,128,64


rem Draw a border...

rem Left and bottom in dark blue
`ink rgb(50,50,255),0
`line 0,0,0,64
`line 0,64,128,64

rem Right and top in white
ink rgb(255,255,255),0
line 128,64,128,0
line 128,0,0,0

rem Do a basic horizontal centre by using number of characters
rem point size 10 is 10 pixels per char approx
posx = 64 - (5 * len(month$))

rem Print month name
ink rgb(255,255,255),0
set text font "arial"
set text size 10
text 2+posx,2,month$

rem Print day number of the month
set text size 32

rem Do another basic horizontal centre
posx = 64 - (13 * len(daynum$))
text posx,10,daynum$


rem Print year
set text size 10
text 50,50,year$

get image 1,0,0,128,64
cls

set current bitmap 0
return



remstart

This function creates an analogue clock with digital
time underneath it.

Credit to NanoGamez guy for explaining
how to calculate the angle on the fly, rather than use
a huge list of angles for every hour, minute and second. 

remend

_make_clock_sprite:

rem Assign DB time to mytime variable


mytime$ = get time$()

set current bitmap 1

rem Clear the screen with the sidebar colour
cls sidebar


rem This bunch of code puts yellow blocks at 6degree
rem points around the face, then you get one block for
rem each minute of the clock face
minutesradius = 50
minutesangle# = 0.0
minutes_step# = 6.0

rem Switch to a yellow pen
ink rgb(255,255,0),0

	for i = 0 to 60
   minutesx = minutesradius * cos(minutesangle#)
   minutesy = minutesradius * sin(minutesangle#)
	box (minutesx + 320)-1,(minutesy + 240)-1,minutesx+320+2,minutesy+240+2
	minutesangle# = wrapvalue(minutesangle# + minutes_step#)
	next i

rem End of block drawing

rem Extract the minute from mytime
myminute$ = mid$(mytime$,4)
myminute$ = myminute$ + mid$(mytime$,5)



rem The angle of a minute is: (minute / 60) * 360 -90
anglem = (((val(myminute$) / 60) * 360) -90)

line 320,240,(40 * cos(anglem))+320,(40 * sin(anglem))+240




rem Switch to a grey pen
ink rgb(80,80,80),0


rem Extract the seconds from mytime
myseconds$ = right$(mytime$,2)


rem The angle of a second is: (second / 60) * 360 -90
angles = (((val(myseconds$) / 60) * 360) -90)

line 320,240,(40 * cos(angles))+320,(40 * sin(angles))+240






rem This bunch of code puts red blocks at 30 degree
rem points around the face, then you get one block for
rem each hour of the clock face
hoursradius = 50
hoursangle# = 0.0
hours_step# = 30.0

rem Switch to a red pen
ink rgb(255,0,0),0

	for i = 1 to 12
   hoursx = hoursradius * cos(hoursangle#)
   hoursy = hoursradius * sin(hoursangle#)
	box (hoursx + 320)-1,(hoursy + 240)-1,hoursx+320+2,hoursy+240+2
	hoursangle# = wrapvalue(hoursangle# + hours_step#)
	next i

rem End of block drawing


rem Extract the hour from mytime
myhours$ = left$(mytime$,2)


rem The angle of an hour is: (hour / 12) * 360 -90
angleh = (((val(myhours$) / 12) * 360) -90)




rem Just to add some inbetweening

	rem If its quarter past the hour to just before half past
	if (val(myminute$) >= 15) and (val(myminute$) < 30)
	angleh = wrapvalue(angleh +6)
	endif


	rem If its half past the hour to just before quarter to
	if (val(myminute$) >= 30) and (val(myminute$) < 45)
	angleh = wrapvalue(angleh +12)
	endif


	rem If its quarter to the hour to just before hour
	if (val(myminute$) >= 45) and (val(myminute$) <= 59)
	angleh = wrapvalue(angleh +18)
	endif



rem Draw hour hand
line 320,240,(30 * cos(angleh))+320,(30 * sin(angleh))+240



rem Set pen colour to white and draw a big circle for the clock face
ink rgb(255,255,255),0

clockradius = 55
clockangle# = 0.0
clock_step# = 1.0




	for i = 0 to 360
        clockx = clockradius * cos(clockangle#)
        clocky = clockradius * sin(clockangle#)
	box (clockx + 320)-1,(clocky + 240)-1,clockx+320+2,clocky+240+2
	clockangle# = wrapvalue(clockangle# + clock_step#)
	next i
	rem End of block drawing


rem Draw a border...

rem Right and top in white
ink rgb(255,255,255),0
line 384,320,384,180
line 384,180,256,180


rem Set pen to white
ink rgb(255,255,255),0
set text font "arial"
set text size 10

rem Write out the full time in digital form
center text 320,300,mytime$

rem Capture the image and place in image slot 2
get image 2,256,180,384,320


rem Switch canvas back to the screen
set current bitmap 0

rem Return to Main Program Loop 
return




_make_button_holder_sprite:

set current bitmap 1

rem Clear the screen with a pale blueish colour
cls sidebar


rem Get image for use as the button holder
get image 23,0,0,128,275


set current bitmap 0

return




rem Quite simply this sub does some drawing
rem to create a crude goldfish. I was kind
rem of lazy with this as wanted a quick result

_make_goldfish_sprite:

set current bitmap 1
cls 0

rem Set pen to orange
ink rgb(239,84,0),0

fishh = 1
rem Quick way of drawing a filled ellipse
for fishw = 1 to  25
ellipse 25,10,fishw,fishh
if fishh < 10 then inc fishh
next fishw

rem Cover over the dots
box 18,4,34,18

rem Now to draw the tail
for i=4 to 14
line 50,10,65,i
next i

rem The back line of the tail
line 65,4,65,14


rem Make an eyeball
ink rgb(255,255,255),0

for i = 0 to 4
circle 16,8,i
next i


rem Make an eyeball
ink rgb(0,128,0),0

for i = 0 to 2
circle 14,8,i
next i



get image 3,0,0,66,22
cls 0

set current bitmap 0
return



_make_fishstuff:

set current bitmap 1
cls 0

rem Make orange fish food piece and grab image
ink rgb(255,164,33),0
box 0,0,2,2
get image 4,0,0,2,2
cls 0

rem Set pen colour to yellow
ink rgb(255,255,0),0

rem Draw a pot of fish food
rem this will track the mousex and mousey
rem and food will appear to fall out of it
rem when the mouse is clicked
line 12,0,17,5
line 10,0,17,7
line 10,1,16,7
line 9,1,16,8
line 9,2,15,8
line 8,2,15,9
line 8,3,14,9
line 7,3,14,10
line 7,4,13,10
line 6,4,13,11
line 6,5,12,11
line 5,5,12,12
line 5,6,11,12
line 4,6,11,13
line 4,7,10,13
line 3,7,10,14
line 3,8,9,14
line 2,8,9,15
line 2,9,8,15
line 1,9,8,16
line 1,10,7,16
line 10,10,7,17

rem Set pen colour to blue
ink rgb(0,0,255),0

rem Draw an F at an angle
line 4,10,10,4
line 7,7,9,9
line 10,4,13,7

rem Extract image and put food pot into image 5
get image 5,0,0,18,18
cls 0

rem Place the sprites offscreen
for i = 4 to 10
sprite i,320,650,4
next i

rem Set canvas to screen
set current bitmap 0

rem Return to Main Program Loop
return



rem This sub grabs the mouse pointers x and y coordinates
rem then creates a random (but small) offset from them
rem this gives the appearance of sprinkles of food falling
rem out of the pot. 
_make_food:

mx = mousex()
my = mousey()

	rem For all 7 foodbits
	for i = 1 to 7

	rem Check foodbits i is offscreen and mouse isnt over sidebar
	rem if we meet both these conditions then its OK to render
	rem foodbits i on screen 
	if foodbits(i,2) >= 400 and mousex() < 482
	foodbits(i,2) = my + rnd(4) + 2
	foodbits(i,1 = mx + rnd(10) + 18
	endif
	
	next i

return



rem If foodbits i y coordinate is less than screen (plus 10)
rem then increment its y coordinate to make it appear to fall.
rem Repeat for all 7 foodbits.
_keep_food_falling:

curvalue = 0

for i = 1 to 7

	if foodbits(i,2) < 400
	curvalue = foodbits(i,2)
	inc curvalue,2
	foodbits(i,2) = curvalue
	endif
	
	next i

return



rem This is simply a text indication of how
rem much health the fish has left

_make_fish_health_sprite:

set current bitmap 1
cls 0

rem Set pen to orange
ink rgb(239,84,0),0

set text font "arial"
set text size 16

rem Convert the fish_health value to a string and append to Health literal
healthstring$ = "Health: " + str$(fish_health) + "%"

rem Render text
text 0,0,healthstring$

rem Grab an image ready for use as a sprite
get image 6,0,0,128,22

rem Switch canvas back to screen
set current bitmap 0

rem Back to the Main Program Loop
return


rem This slowly diminishes the fish's health over time

diminish_fish:

	if fish_health >0 and pause_diminish = 0

	rem Decrease health by 1%
	dec fish_health,fish_diminish_amount

	rem Update the Fish Health Sprite
	gosub _make_fish_health_sprite

	rem Shrink the fish everytime it loses health
	rem Scale by health, plus another 10 or the fish would get
	rem small to quickly
	scale sprite 3,fish_health+10

	rem When we last subtracted some health - this one just initalises it
	last_diminish_time = timer()

	endif



	if fish_health >0 and pause_diminish = 1

	rem Update the Fish Health Sprite
	gosub _make_fish_health_sprite

	rem Shrink the fish everytime it loses health
	rem Scale by health, plus another 10 or the fish would get
	rem small to quickly
	scale sprite 3,fish_health+10

	rem Add a 2 second pause
	last_diminish_time = timer() + 2000

	rem Reset pause diminish now we are done with it
	pause_diminish = 0

	endif



_make_buttons:

makebutton("Easy",13)
makebutton("Normal",14)
makebutton("Hard",15)
makebutton("New Fish",16)
`makebutton("Exit",17)


makebuttonpressed("Easy",18)
makebuttonpressed("Normal",19)
makebuttonpressed("Hard",20)
makebuttonpressed("New Fish",21)
`makebuttonpressed("Exit",22)

return



rem Return to Main Program Loop
return




rem If fish has got more than 0% health then he can move
_move_fish:


	rem Decide if its time to move
	if (timer() - last_move) > move_interval
	

			rem If fish is not touching left of screen and is
			rem looking left then move him left a bit
			if (fishx > 20) and hdirection$ = "left"
			dec fishx,speed			
			endif


			rem If fish has reached left edge of tank (screen)
			if (fishx <= 20)
			mirror sprite 3
			hdirection$ = "right"
			endif

			
			rem If fish is not touching right of screen and is
			rem looking right then move him right a bit
			if (fishx < 446) and hdirection$ = "right"
			inc fishx,speed			
			endif


			rem If fish has reached right edge of tank (screen)
			rem (marked by sidebar)
			if (fishx >= 446)
			mirror sprite 3
			hdirection$ = "left"
			endif

			

	rem Choose a new vertical direction only if its time to (determined by
	rem a random interval - which is set on each direction change)
	if (timer() - last_vdirection) > vdirection_interval
	gosub _up_down_none

	rem Make this event happen in a random 1-10 seconds time
	vdirection_interval = rnd(10000)

	rem Make a note of the timer to compare with random interval
	last_vdirection = timer()

	endif



rem If looking up and still not touched top of screen
if (vdirection$ = "up") and fishy > 40
dec fishy,2
endif


rem If looking down and still not touched bottom
if (vdirection$ = "down") and fishy < 400
inc fishy,2
endif



rem Since we just moved, make a note of what the timer
rem reading is.
last_move = timer()	
endif


return



rem Direction chooser subroutine
_up_down_none:

rem Randomly choose a direction 0,1 or 2
chosendir = rnd(2)


		select chosendir

		case 0: vdirection$ = "" : endcase
		case 1: vdirection$ = "up" : endcase
		case 2: vdirection$ = "down" : endcase
		endselect


return




_has_fish_eaten:

	rem For all 7 foodbits
	for i = 1 to 7


		rem Are the food bits vertically colliding with fish?
		if foodbits(i,2) >= fishy and foodbits(i,2) <= fishy + sprite height(3)

			rem Now check horizontally - if so then the food has touched the fish sprite
			if foodbits(i,1) >= fishx and foodbits(i,1) <= fishx + sprite width(3)

			rem Reset the foodbit to offscreen
			foodbits(i,2) = 650

			rem Increase health a bit
			inc fish_health

			pause_diminish = 1

			endif

		endif
	
	next i


rem Correct fish health if it is too big
if fish_health > 100 then fish_health = 100


return



` (((((((((((((((((((( F U N C T I O N S ))))))))))))))))))))))))))



function makebutton(caption$,buttonnum)

set current bitmap 1
cls 0


rem The purple body of the button
ink rgb(83,30,120),0
box 0,0,128,16



rem The pink highlight of the button
ink rgb(187,123,237),0
box 0,0,128,1
box 0,0,1,16


rem The dark purple shadow of the button
ink rgb(56,9,93),0
box 0,15,128,16
box 128,16,128,0

ink rgb(255,255,255),0
set text font "arial"
set text size 10


posx = 64 - (4 * len(caption$))

text posx,1,caption$

get image buttonnum,0,0,129,17
cls 0
set current bitmap 0

endfunction




function makebuttonpressed(caption$,buttonnum)

set current bitmap 1
cls 0


rem The light purple body of the button
ink rgb(127,22,208),0
box 0,0,128,16


rem The pink highlight of the button
ink rgb(187,123,237),0
box 0,15,128,16
box 128,16,128,0



rem The dark purple shadow of the button
ink rgb(56,9,93),0
box 0,0,128,1
box 0,0,1,16


ink rgb(255,255,255),0
set text font "arial"
set text size 10


posx = 64 - (4 * len(caption$))

text posx,1,caption$

get image buttonnum,0,0,129,17
cls 0
set current bitmap 0

endfunction



` END OF FILE

rem Preference
set window on
set window title "GadgetCenter"
w=1
rem --

start:
cls
sync rate 40
restore startpoint
set text font "system",1
set text to normal
set text transparent
set text size 20
show mouse
sync on

for select=0 to 5
ink rgb(100,100,100),0
box (select*50)+2,0,(select*50)+50,50
read msg$
ink rgb(130*(select+1),130*(select+1),130*(select+1)),0
center text (select*50+2+(select*50)+50)/2,25,msg$
next select
set text opaque
ink rgb(100,100,100),0
do
for detect=0 to 5
if mousex()>(detect*50)+2 and mousey()>0 and mousex()<(detect*50)+50 and mousey()<50
if mouseclick()=1
for drop=50 to 100
if detect=5 then end
box (detect*50)+2,drop,(detect*50)+50,drop+2
sync
next drop
if detect=3
if w=1 then set window off:w=0 else set window on:w=1
print w
gosub start
endif
if detect=2 then gosub Tools
if detect=1 then gosub Art
if detect=0 then gosub Games
endif
endif
sync
next detect


sync
loop







rem --------

Art:
color=255
x=0
y=0
sync rate 0
repeat
dec color,1
set gamma color,color,color
sync
until color=0
cls
wait 10
set gamma 255,255,255
`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400
x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
ink rgb(255,255,255),0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
wait key

repeat
cls
ink rgb(255,255,255),0
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" on the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
ink rgb(rnd(255),rnd(255),rnd(255)),0
print "PRESS TAB WHEN IN EDITOR MODE TO RETURN TO MAIN MENU!!!"
ink rgb(255,255,255),0
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."
sync
until returnkey()=1





the_program:
cls
programsbegin:
currentx=320
currenty=240


do
x=0
y=0
if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
x=0
y=0
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()
  If scancode()=15 then gosub start

 sync
loop

















end














rem ----------
Games:
set text transparent
sync rate 140
ink rgb(255,255,255),0
for slide=1 to 102
box 0,0,300,slide
sync
next slide
sync rate 0
for center=1 to (screen width()-300)/2
cls
box center,0,center+300,slide
sync
next center
color=255
repeat
dec color,1
ink rgb(color,color,color),0
box center-1,0,center+300,slide
sync

until color=100


set text font "Times New Roman",1
set text size 40
ink rgb(255,255,255),0
center text (center+300+center-1)/2,slide/2,"Games"
for boxes=1 to 3
ink rgb(200,240,0),0
box 320-41,boxes*60+91,320+41,boxes*60+121
ink rgb(60,20,80),0
box 320-39,boxes*60+89,320+39,boxes*60+119
next boxes
set text size 14
label=1
ink rgb(100,240,0),0
center text 320,label*60+91,"Ninja Stickman"
label=2
ink rgb(100,240,0),0
center text 320,label*60+91,"Other"
label=3
ink rgb(100,240,0),0
center text 320,label*60+91,"Back"
r=10
x=420
y=240
circle 420,240,30
dot 410,230
dot 430,230
sync on
 For dg= 0 to 180
   ax= sin(dg-100)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
r=10
x=220
y=240
circle 220,240,30
dot 210,230
dot 230,230
sync on
 For dg= 0 to 180
   ax= sin(dg-120)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
do

for boxes=1 to 3
ink rgb(200,240,0),0
if mousex()>320-40 and mousex()<320+40 and mousey()>boxes*60+91 and mousey()<boxes*60+121
if mouseclick()=1
 if boxes=1 then gosub NinjaStickman
 if boxes=2 then gosub Other
 if boxes=3 then gosub start
endif
endif
next boxes
sync
loop

end


Tools:
cls rgb(200,80,90)
sync on
for line=1 to screen width()
ink rgb(line*line,line,line),0
box line-1,0,line,screen height()-1
next line
sync
ink rgb(0,0,0),0
box 240,100,402,202
for x=240 to 400
for y=100 to 200
ink rgb(x*x+5,x+5,x+5),0
dot x,y
next y
next x
sync
set text font "Arial",1
set text size 30
set text to normal
set text transparent
ink rgb(200,200,200),0
center text 320,150,"Tools"


for boxstep=0 to 2
ink rgb(8,220,216),0
box 240,240+(boxstep*50),400,280+(boxstep*50)
next boxstep
boxstep=0

set text font "Impact",1
ink rgb(100,100,100),0
set text size 20
center text 320,250+(boxstep*50),"English -> Binary"
boxstep=1
center text 320,250+(boxstep*50),"Calculator"
boxstep=2
center text 320,250+(boxstep*50),"Return To Main Menu"
do

for boxstep=0 to 2
if mousex()>240 and mousex()<400 and mousey()>240+(boxstep*50) and mousey()<280+(boxstep*50)
if mouseclick()
if boxstep=0 then gosub Binary
if boxstep=1 then gosub Calculator
if boxstep=2 then gosub start
endif
endif
next boxstep
sync
loop




Binary:
rem -------------The following Code was Created by Irojo (me)-----------
rem -------------------I used an online translator to find the Binary--------
rem -------------------letters needed. It includes a-z, and spaces only--------
rem -----------I may do other characters later-------
sync on
set text transparent
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(200,200,200),0
print
set text font "Impact",1
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,31
ink rgb(255,255,255),0
print "English:";
sync
input msg$
if len(msg$) > 30
sg$ = left$(msg$,30)
set cursor 100,50
print "Your string was too long and was truncated to:"
set cursor 100,70
print msg$
sync
wait key

goto Tools
endif
for scan=1 to len(msg$)


if mid$(msg$,scan)="a" then s$=s$+"01100001"
if mid$(msg$,scan)="b" then s$=s$+"01100010"
if mid$(msg$,scan)="c" then s$=s$+"01100011"
if mid$(msg$,scan)="d" then s$=s$+"01100100"
if mid$(msg$,scan)="e" then s$=s$+"01100101"
if mid$(msg$,scan)="f" then s$=s$+"01100110"
if mid$(msg$,scan)="g" then s$=s$+"01100111"
if mid$(msg$,scan)="h" then s$=s$+"01101000"
if mid$(msg$,scan)="i" then s$=s$+"01101001"
if mid$(msg$,scan)="j" then s$=s$+"01101010"
if mid$(msg$,scan)="k" then s$=s$+"01101011"
if mid$(msg$,scan)="l" then s$=s$+"01101100"
if mid$(msg$,scan)="m" then s$=s$+"01101101"
if mid$(msg$,scan)="n" then s$=s$+"01101110"
if mid$(msg$,scan)="o" then s$=s$+"01101111"
if mid$(msg$,scan)="p" then s$=s$+"01110000"
if mid$(msg$,scan)="q" then s$=s$+"01110001"
if mid$(msg$,scan)="r" then s$=s$+"01110010"
if mid$(msg$,scan)="s" then s$=s$+"01110011"
if mid$(msg$,scan)="t" then s$=s$+"01110100"
if mid$(msg$,scan)="u" then s$=s$+"01110101"
if mid$(msg$,scan)="v" then s$=s$+"01110110"
if mid$(msg$,scan)="w" then s$=s$+"01110111"
if mid$(msg$,scan)="x" then s$=s$+"01111000"
if mid$(msg$,scan)="y" then s$=s$+"01111001"
if mid$(msg$,scan)="z" then s$=s$+"01111010"
if mid$(msg$,scan)=" " then s$=s$+"00100000"
if mid$(msg$,scan)="." then s$=s$+"00101110"
if mid$(msg$,scan)="!" then s$=s$+"00100001"
if mid$(msg$,scan)="'" then s$=s$+"00100111"
if mid$(msg$,scan)="/" then s$=s$+"00101111"
if mid$(msg$,scan)="\" then s$=s$+"01011100"
if mid$(msg$,scan)="|" then s$=s$+"01111100"
if mid$(msg$,scan)="A" then s$=s$+"01000001"
if mid$(msg$,scan)="B" then s$=s$+"01000010"
if mid$(msg$,scan)="C" then s$=s$+"01000011"
if mid$(msg$,scan)="D" then s$=s$+"01000100"
if mid$(msg$,scan)="E" then s$=s$+"01000101"
if mid$(msg$,scan)="F" then s$=s$+"01000110"
if mid$(msg$,scan)="G" then s$=s$+"01000111"
if mid$(msg$,scan)="H" then s$=s$+"01001000"
if mid$(msg$,scan)="I" then s$=s$+"01001001"
if mid$(msg$,scan)="J" then s$=s$+"01001010"
if mid$(msg$,scan)="K" then s$=s$+"01001011"
if mid$(msg$,scan)="L" then s$=s$+"01001100"
if mid$(msg$,scan)="M" then s$=s$+"01001101"
if mid$(msg$,scan)="N" then s$=s$+"01001110"
if mid$(msg$,scan)="O" then s$=s$+"01001111"
if mid$(msg$,scan)="P" then s$=s$+"01010000"
if mid$(msg$,scan)="Q" then s$=s$+"01010001"
if mid$(msg$,scan)="R" then s$=s$+"01010010"
if mid$(msg$,scan)="S" then s$=s$+"01010011"
if mid$(msg$,scan)="T" then s$=s$+"01010100"
if mid$(msg$,scan)="U" then s$=s$+"01010101"
if mid$(msg$,scan)="V" then s$=s$+"01010110"
if mid$(msg$,scan)="W" then s$=s$+"01010111"
if mid$(msg$,scan)="X" then s$=s$+"01011000"
if mid$(msg$,scan)="Y" then s$=s$+"01011001"
if mid$(msg$,scan)="Z" then s$=s$+"01011010"
next scan
sync
write to clipboard s$
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(200,200,200),0
print
set text font "Impact",1
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,30
ink rgb(255,255,255),0
print "English:";
print msg$
set text size 14
set text font "courier new",1
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(255,255,255),0
for y=240 to screen height()-10 step 10
 for x=1 to screen width()-7 step 7
 inc rounds,1
 if rounds=len(s$) then leave=1:exit
 text x,y,mid$(s$,rounds)
 next y
 if leave=1 then exit
next x
wait key
print "ERROR"
goto Tools
end


Calculator:
return













startpoint:
data "Games","Art","Tools","Screen","Res.","Quit"















NinjaStickman:
undim msg$()
cls
restore Ninja
skipthrough=0
xmsgd=100
y=100
totalstar=0
count=0
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new",1
set text size 15
dim msg$(1000)
gosub msg_data
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0
hide mouse
text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

for k=1 to messages
if k=2 then extra=1 else extra=0
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
next k



goto skipover
msg_data:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=11
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(1)="Ninja Stickman... I need you.2"
msg$(2)="What- Who is this!?1"
msg$(3)="I am a Ninja Lord. And I am dying...2"
msg$(4)="I need you to collect yellow stars for me.2"
msg$(5)="No... I am not yet skilled enough.1"
msg$(6)="You are a stickman. It is in your blood. Go get stars.2"
msg$(7)="Why haven't you told me what the stars are for?1"
msg$(8)="I will keep that reason to myself!2"
msg$(9)="Yes sir.1"
msg$(10)="Remember: Orange stars bad, yellow good.2"
msg$(11)="And I suppose I ought to remind you to be honourable...2"
return
REM (No other choice)
skipover:





rem Intro

if sprite exist(1) then scale sprite 1,100
if hidden_ninja=1 then show sprite 1
set text font "System",1
ink rgb(255,255,255),0
box 0,0,screen width()-1,60
get image 1,0,0,screen width()-1,60
y2=screen height()
y=-60
sc=0
starcount=0
cls
ink rgb(0,255,0),0
set text size 90
center text 320,240,"Ninja Stickman"
screen=1
repeat
if screen=1
sprite 1,0,y,1
sprite 2,0,y2,1
endif

if screen=1 and y<=-1 then inc y,1 else up2=1
if screen=1 and y2>=screen height()-60 then dec y2,1 else up=1
if up=1 and up2=1
rem A pause but still sensitive to button pressing.
for k=1 to 60
if spacekey() then exit
sync
next k

k=0
up=0
up2=0
y2=screen height()
y=-60
screen=0
exit
endif

sync
until spacekey()
cls
delete sprite 1
delete sprite 2
delete image 1


rem -----------GAME HERE-----------

set text size 20


sync on
rem Right
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4

ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,2,9
line 4,18,9,8
get image 1,0,0,9,32

hide mouse
sync

cls
rem Left
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4
ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,0,9
line 4,18,8,8
get image 2,0,0,9,32
sync
r=rnd(1)+1
cls rgb(0,100,0)
move=2
r=0
miny#=screen height()
y#=400




sc=3
ink rgb(255,255,0),0
text 0,0,"*"
get image 100,0,0,6,9
ink rgb(255,100,0),0
text 0,0,"*"
get image 101,0,0,6,9


cls
for rounds=1 to 7
x#=0
y#=400
dim danger(100)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove

for y=1 to screen height() step 48
 x=1
 for x=1 to screen width() step 64
  read okay
  
  if okay=1 then sprite sc,x,y,100:inc sc,1:scale sprite sc-1,160:danger(sc-1)=1:inc totalstar,1
  if okay=2 then sprite sc,x,y,101:inc sc,1:scale sprite sc-1,160:danger(sc-1)=2
 next x
next y
sync
print screen height()/10


do
if r=0 then  cls rgb(0,100,0)

if rightkey()=1
inc x#,1:move=1
if ground=1 then inc x#,.6
endif
if leftkey()=1

dec x#,1:move=2
if ground=1 then dec x#,.6
endif

sprite 1,x#,y#,move
ink rgb(50,50,50),0
if r=0 then text x#-2,y#-15,"P1":ink rgb(255,255,255),0:text 0,0,"Level 1."+str$(rounds)
if ground=0 and jp#=0 then inc descent#,.05
if ground=0 and jp#=0 then inc y#,descent#+default#
if ground=1 then descent#=0

if spacekey()=1 and jumps<2 then wfr=1
if ground=1 then jumps=0
if wfr=1 and spacekey()=0 and jumps<2 and jp#=0 then wfr=0:jp#=5:inc jumps,1
if jp#>0 then dec jp#,.1
if jp#<0 then jp#=0
dec y#,jp#
if y#<miny# then miny#=y#
`if y#<=maxheighty# and jp#>0 then jp#=0
if y#>=screen height()-33 then ground=1 else ground=0
if r=1 then line oldx#,oldy#,x#,y#
if inkey$()="d" then r=1
if inkey$()="n" then r=0
oldx#=x#
oldy#=y#
ink rgb(0,50,100),0
text 0,20,"Stars:"+str$(count)
if ground=1 then inair=1
if spacekey()=1 and ground=1 and jumps=0 then maxheighty#=y#-234.25
for k=3 to sc-1
if sprite collision(k,1)
delete sprite k
if danger(k)=1 then inc count,1
if danger(k)=2 then goto death
endif
next k
ink rgb(0,0,0),0
box 500,screen height()-60,550,screen height()-1
if x#>500 and y#>screen height()-60 and x#<551 then exit
sync
loop
next round
gosub victory
rem 1.1
Ninja:
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,0,0
rem 1.2
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,2,0,1,0,0,0,1,2
data 0,0,2,1,1,1,1,0,0,1
data 0,0,2,0,0,0,0,0,0,1
data 0,0,0,0,0,0,1,0,0,0
rem 1.3
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,1,0
data 0,0,0,1,2,1,1,0,0,0
data 0,0,0,0,2,2,0,0,0,2
data 0,0,0,0,2,2,1,0,0,0
rem 1.4
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2,1,0,0,0,0
data 0,0,0,0,1,2,1,0,0,0
data 0,0,1,0,1,0,2,0,0,0
data 0,0,2,2,1,0,2,0,0,0
rem 1.5
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0
data 0,2,1,0,1,2,0,0,0,0
data 0,0,0,2,1,2,0,0,0,0
data 0,1,0,2,1,0,1,0,0,0
rem 1.6
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,1,1,1,2,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
rem 1.7
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,2,2,2
data 0,0,0,0,0,1,1,0,0,2
data 0,0,0,1,1,1,0,0,0,2
data 0,0,0,1,2,2,0,0,0,1
death:
cls
for remove=1 to 1000
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100-z
sync
next z
delete sprite 1
xmsgd=100
y=100
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new",1
set text size 15

gosub msg_data2
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0

text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
cancel=0
skipthrough=0
for k=12 to 14
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
sync
next k
set text size 200
center text 320,240,"X"
wait key
for remove=1 to 100
if sprite exist(remove) then delete sprite remove
if image exist(remove) then delete image remove
next remove
gosub start
end


msg_data2:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=14
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(12)="Ninja Stickman... I see you have joined the dead.2"
msg$(13)="Of the areas you entered, you collected "+str$(count)+"/"+str$(totalstar)+" stars2"
msg$(14)="You have failed me.2"
return

end








victory:
cls rgb(0,255,0)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100+z
sync
next z

ink rgb(0,100,200),0
center text 320,240,"Ninja Stickman-"
center text 320,260,"You have survived all the obstacles in front of you."
center text 320,280,"You collected "+str$(count)+"/"+str$(totalstar)+" stars."
center text 320,300,"Congratulations."
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
wait key
scale sprite 1,100
hide sprite 1:hidden_ninja=1
gosub start












return



















Other:
return

for select=0 to 5
ink rgb(100,100,100),0
box (select*50)+2,0,(select*50)+50,50
read msg$
ink rgb(130*(select+1),130*(select+1),130*(select+1)),0
center text (select*50+2+(select*50)+50)/2,25,msg$
next select
rem set text opaque
ink rgb(100,100,100),0
do
for detect=0 to 5
if mousex()>(detect*50)+2 and mousey()>0 and mousex()<(detect*50)+50 and mousey()<50
if mouseclick()=1
for drop=50 to 100
if detect=5 then end
box (detect*50)+2,drop,(detect*50)+50,drop+2
sync
next drop
if detect=3
if w=1 then set window off:w=0 else set window on:w=1
print w
gosub start
endif
if detect=2 then gosub Tools
if detect=1 then gosub Art
if detect=0 then gosub Games
endif
endif
sync
next detect

rem ----------
Games:
set text transparent
sync rate 140
ink rgb(255,255,255),0
for slide=1 to 102
box 0,0,300,slide
sync
next slide
sync rate 0
for center=1 to (screen width()-300)/2
cls
box center,0,center+300,slide
sync
next center
color=255
repeat
dec color,1
ink rgb(color,color,color),0
box center-1,0,center+300,slide
sync

until color=100


set text font "Times New Roman",1
set text size 40
ink rgb(255,255,255),0
center text (center+300+center-1)/2,slide/2,"Games"
sync
...

create bitmap 1,640,480

set current bitmap 1 : cls 0

get image 1,0,0,128,32

set current bitmap 0

sprite 1,320,240,1

rem The names of the calendar months
dim month_name$(12)
month_name$(1) = "January"
month_name$(2) = "February"
month_name$(3) = "March"
month_name$(4) = "April"
month_name$(5) = "May"
month_name$(6) = "June"
month_name$(7) = "July"
month_name$(8) = "August"
month_name$(9) = "September"
month_name$(10) = "October"
month_name$(11) = "November"
month_name$(12) = "December"

rem The names of the calendar months
dim month_name$(12)
rem the restore command can say exactly where to read the data from
rem in the follow case, it will be at the label _months
restore _months
for n=1 to 12
   read month_name$(n)
next end

rem the rest of your program goes here

rem put the data statements at the end of the program
_months:
   data "January","February","March","April","May","June"
   data "July","August","September","October","November","December"

rem Did user toggle easy?
if (mouseclick()=1 and mousex() >= 512 and mousex() <= 639)

   if (mousey() >= 206 and mousey() <= 222)
   level$ = "easy"
   speed = 4
   endif

endif

rem Did user toggle easy?
if (mouseclick()=1 and mousex() >= 512 and mousex() <= 639)

   if (mousey() >= 206 and mousey() <= 222)
      level$ = "easy"
      speed = 4
   endif

endif

REM Ashingda's Fake OS
set display mode 640,480,32
sync on
sync rate 80
create bitmap 1,640,480


REM Main Loop
do
	if State = 0 then gosub State0
	if State = 1 then gosub State1
	if State = 2 then gosub State2
	copy bitmap 1,0
	sync
loop

State0:
	REM Loading OS Screen
	hide mouse
	set text size 100
	ink rgb(255,255,255),0
	center text 320,0,"Ashingda"
	set text size 99
	ink rgb(155,155,155),0
	center text 320,1,"Ashingda"
	set text size 200
	ink rgb(150,200,255),0
	center text 320,100,"OS"
	set text size 195
	ink rgb(100,150,205),0
	center text 320,105,"OS"
	for lpx = 1 to 12
		ink rgb(c+lpx*20,c+lpx*20,c+lpx*20),0
		box lpx*48-12,440,lpx*48+24,440+24
	next lpx
	c = c - 4
	if c < 0 then c = c + 255 : exitC = exitC + 1
	if exitC > 4 then State = 1 : exitC = 0 : c = 0 : set text size 10
Return

State1:
	REM Load Variables
	BGC = rgb(150,200,255)
	
	dim iconDat(10,3)	
	dim iconName$(10)


	if file exist("Desktop.dat") = 1 then delete file "Desktop.dat"
		 
	open to write 1,"Desktop.dat"
		write string 1, "100.100.001.Computer"
		write string 1, "100.150.002.Trash Bin"
		write string 1, "100.200.003.Calculator"
		write string 1, "100.250.004.Text Pad"
	close file 1


	DeskC = 0
	open to read 1, "Desktop.dat"
		repeat
			DeskC = DeskC + 1
			read string 1, g$
			iconDat(DeskC,0) = val(left$(g$,3))
			iconDat(DeskC,1) = val(right$(left$(g$,7),3))
			iconDat(DeskC,2) = val(right$(left$(g$,11),3))
			iconName$(DeskC) = right$(g$,len(g$)-12)
		until file end(1) = 1
	close file 1

	show mouse
	State = 2
return

State2:
	REM Desktop
	cls BGC
	MenuBox(1,460,638,19,205,205,205,"",1)
	MenuBox(3,462,40,15,205,205,205,"Start",1)

	time$ = get time$()
	hour = val(left$(time$,2))
	min = val(right$(left$(time$,5),2))
	sec = val(right$(time$,2))
	if hour > 12 then hour = hour - 12
	time$ = right$(" "+str$(hour),2)+":"+right$("0"+str$(min),2)+":"+right$("0"+str$(sec),2)

	MenuBox(577,462,60,15,205,205,205,time$,2)

	for lp = 1 to DeskC-1
		Icon(iconDat(lp,0),iconDat(lp,1),iconDat(lp,2))
	next lp
return



REM \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
REM ------------------------------------------------------------------------
REM Functions //////////////////////////////////////////////////////////////

Function Icon(x,y,ID)
	MenuBox(x,y,21,21,205,235,255,"",1)

	If ID = 1
		c1 = rgb(200,200,200)
		c2 = rgb(255,255,255)
		ink 0,0:box x+3,y+2,x+17,y+17
		ink c1,0:box x+4,y+3,x+16,y+16
		ink 0,0:Box x+5,y+4,x+15,y+12
		ink c2,0:Box x+6,y+5,x+10,y+9
		ink 0,0:Box x+7,y+6,x+15,y+12
		ink 0,0:Box x+14,y+14,x+15,y+15
	endif


	If ID = 2
		c1 = rgb(200,200,200)
		c2 = rgb(255,255,255)
		ink 0,0:box x+5,y+2,x+15,y+17
		ink c1,0:box x+6,y+3,x+14,y+16
		ink 0,0:box x+4,y+2,x+16,y+4
		ink c1,0:box x+5,y+3,x+15,y+3
	endif

	If ID = 3
		c1 = rgb(200,200,200)
		ink 0,0:box x+5,y+2,x+15,y+17
		ink c1,0:box x+6,y+3,x+14,y+16
		ink 0,0:lBox(x+7,y+4,6,2)
		for lpy = 0 to 4 step 2
		for lpx = 0 to 4 step 2
			ink 0,0:lBox(x+7+lpx,y+8+lpy,2,2)
		next lpx
		next lpy
	endif

	If ID = 4
		if CheckArea(x,y,21,21) = 1
		endif
		c1 = rgb(200,200,200)
		c2 = rgb(255,255,255)
		ink 0,0:box x+3,y+2,x+17,y+17
		ink c2,0:box x+4,y+3,x+16,y+16
		ink 0,0:lbox(x+6,y+2,11,15)
		ink 0,0:box x+8,y+5,x+15,y+5
		ink 0,0:box x+8,y+7,x+15,y+7
		ink 0,0:box x+8,y+9,x+15,y+9
		ink 0,0:box x+8,y+11,x+15,y+11
		ink 0,0:box x+8,y+13,x+15,y+13
	endif


	ink 0,0
	center text x+10,y+22,IconName$(ID)
EndFunction

Function Calculator()
	REM 

EndFunction

Function CheckArea(x,y,l,h)
	retval = 0
	mx = mousex()
	my = mousey()
	mc = mouseclick()
	if mx > x & mx < x+l & my > y & my < y+h then retval = 1
EndFunction retval

Function lBox(x,y,l,h)
	box x,y,x+l,y
	box x,y,x,y+h
	box x,y+h,x+l,y+h
	box x+l,y,x+l,y+h
EndFunction

Function MenuBox(x,y,l,h,r,g,b,t$,mode)
	REM X,Y,Length,Height,R,G,B
	if mode = 1
		c1 = rgb(r/2,g/2,b/2)
		c2 = rgb(255,255,255)
		else
		c2 = rgb(r/2,g/2,b/2)
		c1 = rgb(255,255,255)
	endif
	ink c1,0 : lbox(x,y,l,h)
	ink c2,0 : lbox(x,y,l-1,h-1)
	ink rgb(r,g,b),0 : box x+1,y+1,x+l-1,y+h-1
	ink 0,0 : center text x+l/2,y,t$
EndFunction

start:
cls

sync rate 40
restore startpoint
set text font "system",1
set text to normal
set text transparent
set text size 20
show mouse
sync on

for select=0 to 5
ink rgb(100,100,100),0
box (select*50)+2,0,(select*50)+50,50
read msg$
ink rgb(130*(select+1),130*(select+1),130*(select+1)),0
center text (select*50+2+(select*50)+50)/2,25,msg$
next select
set text opaque
ink rgb(100,100,100),0
do
for detect=0 to 5
if mousex()>(detect*50)+2 and mousey()>0 and mousex()<(detect*50)+50 and mousey()<50
if mouseclick()=1
for drop=50 to 100
if detect=5 then end
box (detect*50)+2,drop,(detect*50)+50,drop+2
sync
next drop
if detect=3
if w=1 then set window off:w=0 else set window on:w=1
gosub start
endif
if detect=2 then gosub Tools
if detect=1 then gosub Art
if detect=0 then gosub Games
endif
endif
sync
next detect


sync
loop







rem --------

Art:
color=255
x=0
y=0
sync rate 0
repeat
dec color,1
set gamma color,color,color
sync
until color=0
cls
wait 10
set gamma 255,255,255
`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400
x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
ink rgb(255,255,255),0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
wait key

repeat
cls
ink rgb(255,255,255),0
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" on the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
ink rgb(rnd(255),rnd(255),rnd(255)),0
print "PRESS TAB WHEN IN EDITOR MODE TO RETURN TO MAIN MENU!!!"
ink rgb(255,255,255),0
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."
sync
until returnkey()=1





the_program:
cls
programsbegin:
currentx=320
currenty=240


do
x=0
y=0
if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
x=0
y=0
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()
  If scancode()=15 then gosub start

 sync
loop

















end














rem ----------
Games:
set text transparent
sync rate 140
ink rgb(255,255,255),0
for slide=1 to 102
box 0,0,300,slide
sync
next slide
sync rate 0
for center=1 to (screen width()-300)/2
cls
box center,0,center+300,slide
sync
next center
color=255
repeat
dec color,1
ink rgb(color,color,color),0
box center-1,0,center+300,slide
sync

until color=100


set text font "Times New Roman",1
set text size 40
ink rgb(255,255,255),0
center text (center+300+center-1)/2,slide/2,"Games"
for boxes=1 to 3
ink rgb(200,240,0),0
box 320-41,boxes*60+91,320+41,boxes*60+121
ink rgb(60,20,80),0
box 320-39,boxes*60+89,320+39,boxes*60+119
next boxes
set text size 14
label=1
ink rgb(100,240,0),0
center text 320,label*60+91,"Ninja Stickman"
label=2
ink rgb(100,240,0),0
center text 320,label*60+91,"Other"
label=3
ink rgb(100,240,0),0
center text 320,label*60+91,"Back"
r=10
x=420
y=240
circle 420,240,30
dot 410,230
dot 430,230
sync on
 For dg= 0 to 180
   ax= sin(dg-100)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
r=10
x=220
y=240
circle 220,240,30
dot 210,230
dot 230,230
sync on
 For dg= 0 to 180
   ax= sin(dg-120)*r +x
   ay= cos(dg-100)*r +y
   
   dot ax,ay
 Next dg
sync
do

for boxes=1 to 3
ink rgb(200,240,0),0
if mousex()>320-40 and mousex()<320+40 and mousey()>boxes*60+91 and mousey()<boxes*60+121
if mouseclick()=1
 if boxes=1 then gosub NinjaStickman
 if boxes=2 then gosub Other
 if boxes=3 then gosub start
endif
endif
next boxes
sync
loop

end


Tools:
cls rgb(200,80,90)
sync on
for line=1 to screen width()
ink rgb(line*line,line,line),0
box line-1,0,line,screen height()-1
next line
sync
ink rgb(0,0,0),0
box 240,100,402,202
for x=240 to 400
for y=100 to 200
ink rgb(x*x+5,x+5,x+5),0
dot x,y
next y
next x
sync
set text font "Arial",1
set text size 30
set text to normal
set text transparent
ink rgb(200,200,200),0
center text 320,150,"Tools"


for boxstep=0 to 2
ink rgb(8,220,216),0
box 240,240+(boxstep*50),400,280+(boxstep*50)
next boxstep
boxstep=0

set text font "Impact",1
ink rgb(100,100,100),0
set text size 20
center text 320,250+(boxstep*50),"English -> Binary"
boxstep=1
center text 320,250+(boxstep*50),"Calculator"
boxstep=2
center text 320,250+(boxstep*50),"Return To Main Menu"
do

for boxstep=0 to 2
if mousex()>240 and mousex()<400 and mousey()>240+(boxstep*50) and mousey()<280+(boxstep*50)
if mouseclick()
if boxstep=0 then gosub Binary
if boxstep=1 then gosub Calculator
if boxstep=2 then gosub start
endif
endif
next boxstep
sync
loop




Binary:
rem -------------The following Code was Created by Irojo (me)-----------
rem -------------------I used an online translator to find the Binary--------
rem -------------------letters needed. It includes a-z, and spaces only--------
rem -----------I may do other characters later-------
sync on
set text transparent
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(200,200,200),0
print
set text font "Impact",1
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,31
ink rgb(255,255,255),0
print "English:";
sync
input msg$
if len(msg$) > 30
sg$ = left$(msg$,30)
set cursor 100,50
print "Your string was too long and was truncated to:"
set cursor 100,70
print msg$
sync
wait key

goto Tools
endif
for scan=1 to len(msg$)


if mid$(msg$,scan)="a" then s$=s$+"01100001"
if mid$(msg$,scan)="b" then s$=s$+"01100010"
if mid$(msg$,scan)="c" then s$=s$+"01100011"
if mid$(msg$,scan)="d" then s$=s$+"01100100"
if mid$(msg$,scan)="e" then s$=s$+"01100101"
if mid$(msg$,scan)="f" then s$=s$+"01100110"
if mid$(msg$,scan)="g" then s$=s$+"01100111"
if mid$(msg$,scan)="h" then s$=s$+"01101000"
if mid$(msg$,scan)="i" then s$=s$+"01101001"
if mid$(msg$,scan)="j" then s$=s$+"01101010"
if mid$(msg$,scan)="k" then s$=s$+"01101011"
if mid$(msg$,scan)="l" then s$=s$+"01101100"
if mid$(msg$,scan)="m" then s$=s$+"01101101"
if mid$(msg$,scan)="n" then s$=s$+"01101110"
if mid$(msg$,scan)="o" then s$=s$+"01101111"
if mid$(msg$,scan)="p" then s$=s$+"01110000"
if mid$(msg$,scan)="q" then s$=s$+"01110001"
if mid$(msg$,scan)="r" then s$=s$+"01110010"
if mid$(msg$,scan)="s" then s$=s$+"01110011"
if mid$(msg$,scan)="t" then s$=s$+"01110100"
if mid$(msg$,scan)="u" then s$=s$+"01110101"
if mid$(msg$,scan)="v" then s$=s$+"01110110"
if mid$(msg$,scan)="w" then s$=s$+"01110111"
if mid$(msg$,scan)="x" then s$=s$+"01111000"
if mid$(msg$,scan)="y" then s$=s$+"01111001"
if mid$(msg$,scan)="z" then s$=s$+"01111010"
if mid$(msg$,scan)=" " then s$=s$+"00100000"
if mid$(msg$,scan)="." then s$=s$+"00101110"
if mid$(msg$,scan)="!" then s$=s$+"00100001"
if mid$(msg$,scan)="'" then s$=s$+"00100111"
if mid$(msg$,scan)="/" then s$=s$+"00101111"
if mid$(msg$,scan)="\" then s$=s$+"01011100"
if mid$(msg$,scan)="|" then s$=s$+"01111100"
if mid$(msg$,scan)="A" then s$=s$+"01000001"
if mid$(msg$,scan)="B" then s$=s$+"01000010"
if mid$(msg$,scan)="C" then s$=s$+"01000011"
if mid$(msg$,scan)="D" then s$=s$+"01000100"
if mid$(msg$,scan)="E" then s$=s$+"01000101"
if mid$(msg$,scan)="F" then s$=s$+"01000110"
if mid$(msg$,scan)="G" then s$=s$+"01000111"
if mid$(msg$,scan)="H" then s$=s$+"01001000"
if mid$(msg$,scan)="I" then s$=s$+"01001001"
if mid$(msg$,scan)="J" then s$=s$+"01001010"
if mid$(msg$,scan)="K" then s$=s$+"01001011"
if mid$(msg$,scan)="L" then s$=s$+"01001100"
if mid$(msg$,scan)="M" then s$=s$+"01001101"
if mid$(msg$,scan)="N" then s$=s$+"01001110"
if mid$(msg$,scan)="O" then s$=s$+"01001111"
if mid$(msg$,scan)="P" then s$=s$+"01010000"
if mid$(msg$,scan)="Q" then s$=s$+"01010001"
if mid$(msg$,scan)="R" then s$=s$+"01010010"
if mid$(msg$,scan)="S" then s$=s$+"01010011"
if mid$(msg$,scan)="T" then s$=s$+"01010100"
if mid$(msg$,scan)="U" then s$=s$+"01010101"
if mid$(msg$,scan)="V" then s$=s$+"01010110"
if mid$(msg$,scan)="W" then s$=s$+"01010111"
if mid$(msg$,scan)="X" then s$=s$+"01011000"
if mid$(msg$,scan)="Y" then s$=s$+"01011001"
if mid$(msg$,scan)="Z" then s$=s$+"01011010"
next scan
sync
write to clipboard s$
cls rgb(40,100,0)
ink rgb(100,200,0),0

box 200,100,440,200
ink rgb(200,200,200),0
print
set text font "Impact",1
set text size 30
center text 320,150,"Binary Translator"
ink rgb(0,0,0),0
box 0,15,screen width()-1,30
ink rgb(255,255,255),0
print "English:";
print msg$
set text size 14
set text font "courier new",1
ink rgb(100,100,100),0
box 0,240,screen width()-1,screen height()-1
ink rgb(255,255,255),0
for y=240 to screen height()-10 step 10
 for x=1 to screen width()-7 step 7
 inc rounds,1
 if rounds=len(s$) then leave=1:exit
 text x,y,mid$(s$,rounds)
 next y
 if leave=1 then exit
next x
wait key
print "ERROR"
goto Tools
end


Calculator:
return













startpoint:
data "Games","Art","Tools","Screen","Res.","Quit"















NinjaStickman:
undim msg$()
cls
restore Ninja
skipthrough=0
xmsgd=100
y=100
totalstar=0
count=0
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new",1
set text size 15
dim msg$(1000)
gosub msg_data
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0
hide mouse
text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"

for k=1 to messages
if k=2 then extra=1 else extra=0
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
next k



goto skipover
msg_data:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=11
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(1)="Ninja Stickman... I need you.2"
msg$(2)="What- Who is this!?1"
msg$(3)="I am a Ninja Lord. And I am dying...2"
msg$(4)="I need you to collect yellow stars for me.2"
msg$(5)="No... I am not yet skilled enough.1"
msg$(6)="You are a stickman. It is in your blood. Go get stars.2"
msg$(7)="Why haven't you told me what the stars are for?1"
msg$(8)="I will keep that reason to myself!2"
msg$(9)="Yes sir.1"
msg$(10)="Remember: Orange stars bad, yellow good.2"
msg$(11)="And I suppose I ought to remind you to be honourable...2"
return
REM (No other choice)
skipover:





rem Intro

if sprite exist(1) then scale sprite 1,100
if hidden_ninja=1 then show sprite 1
set text font "System",1
ink rgb(255,255,255),0
box 0,0,screen width()-1,60
get image 1,0,0,screen width()-1,60
y2=screen height()
y=-60
sc=0
starcount=0
cls
ink rgb(0,255,0),0
set text size 90
center text 320,240,"Ninja Stickman"
screen=1
repeat
if screen=1
sprite 1,0,y,1
sprite 2,0,y2,1
endif

if screen=1 and y<=-1 then inc y,1 else up2=1
if screen=1 and y2>=screen height()-60 then dec y2,1 else up=1
if up=1 and up2=1
rem A pause but still sensitive to button pressing.
for k=1 to 60
if spacekey() then exit
sync
next k

k=0
up=0
up2=0
y2=screen height()
y=-60
screen=0
exit
endif

sync
until spacekey()
cls
delete sprite 1
delete sprite 2
delete image 1


rem -----------GAME HERE-----------

set text size 20


sync on
rem Right
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4

ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,2,9
line 4,18,9,8
get image 1,0,0,9,32

hide mouse
sync

cls
rem Left
ink rgb(155,155,155),0
circle 4,4,4
ink rgb(10,10,10),0
box 0,2,8,4
ink rgb(80,50,40),0
line 4,8,4,20
line 4,20,2,30
line 4,20,6,30
line 4,18,0,9
line 4,18,8,8
get image 2,0,0,9,32
sync
r=rnd(1)+1
cls rgb(0,100,0)
move=2
r=0
miny#=screen height()
y#=400




sc=3
ink rgb(255,255,0),0
text 0,0,"*"
get image 100,0,0,6,9
ink rgb(255,100,0),0
text 0,0,"*"
get image 101,0,0,6,9


cls
for rounds=1 to 7
x#=0
y#=400
dim danger(100)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove

for y=1 to screen height() step 48
 x=1
 for x=1 to screen width() step 64
  read okay
  
  if okay=1 then sprite sc,x,y,100:inc sc,1:scale sprite sc-1,160:danger(sc-1)=1:inc totalstar,1
  if okay=2 then sprite sc,x,y,101:inc sc,1:scale sprite sc-1,160:danger(sc-1)=2
 next x
next y
sync
print screen height()/10


do
if r=0 then  cls rgb(0,100,0)

if rightkey()=1
inc x#,1:move=1
if ground=1 then inc x#,.6
endif
if leftkey()=1

dec x#,1:move=2
if ground=1 then dec x#,.6
endif

sprite 1,x#,y#,move
ink rgb(50,50,50),0
if r=0 then text x#-2,y#-15,"P1":ink rgb(255,255,255),0:text 0,0,"Level 1."+str$(rounds)
if ground=0 and jp#=0 then inc descent#,.05
if ground=0 and jp#=0 then inc y#,descent#+default#
if ground=1 then descent#=0

if spacekey()=1 and jumps<2 then wfr=1
if ground=1 then jumps=0
if wfr=1 and spacekey()=0 and jumps<2 and jp#=0 then wfr=0:jp#=5:inc jumps,1
if jp#>0 then dec jp#,.1
if jp#<0 then jp#=0
dec y#,jp#
if y#<miny# then miny#=y#
`if y#<=maxheighty# and jp#>0 then jp#=0
if y#>=screen height()-33 then ground=1 else ground=0
if r=1 then line oldx#,oldy#,x#,y#
if inkey$()="d" then r=1
if inkey$()="n" then r=0
oldx#=x#
oldy#=y#
ink rgb(0,50,100),0
text 0,20,"Stars:"+str$(count)
if ground=1 then inair=1
if spacekey()=1 and ground=1 and jumps=0 then maxheighty#=y#-234.25
for k=3 to sc-1
if sprite collision(k,1)
delete sprite k
if danger(k)=1 then inc count,1
if danger(k)=2 then goto death
endif
next k
ink rgb(0,0,0),0
box 500,screen height()-60,550,screen height()-1
if x#>500 and y#>screen height()-60 and x#<551 then exit
sync
loop
next round
gosub victory
rem 1.1
Ninja:
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,0,0
data 0,0,0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,0,0
rem 1.2
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,2,0,1,0,0,0,1,2
data 0,0,2,1,1,1,1,0,0,1
data 0,0,2,0,0,0,0,0,0,1
data 0,0,0,0,0,0,1,0,0,0
rem 1.3
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,1,0
data 0,0,0,1,2,1,1,0,0,0
data 0,0,0,0,2,2,0,0,0,2
data 0,0,0,0,2,2,1,0,0,0
rem 1.4
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2,1,0,0,0,0
data 0,0,0,0,1,2,1,0,0,0
data 0,0,1,0,1,0,2,0,0,0
data 0,0,2,2,1,0,2,0,0,0
rem 1.5
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0,0,0
data 0,2,1,0,1,2,0,0,0,0
data 0,0,0,2,1,2,0,0,0,0
data 0,1,0,2,1,0,1,0,0,0
rem 1.6
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,1,1,1,2,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
data 0,0,0,2,0,2,0,0,0,0
rem 1.7
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,2,2,2
data 0,0,0,0,0,1,1,0,0,2
data 0,0,0,1,1,1,0,0,0,2
data 0,0,0,1,2,2,0,0,0,1
death:
cls
for remove=1 to 1000
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100-z
sync
next z
delete sprite 1
xmsgd=100
y=100
x=xmsgd
default#=3
sync on:sync rate 60
set text font "courier new",1
set text size 15

gosub msg_data2
r=55
ink rgb(200,200,200),0
box xmsgd-22,y-42,xmsgd+482,y+152
ink rgb(r,0,0),0
box xmsgd-20,y-40,xmsgd+480,y+150
ink rgb(255,255,255),0

text xmsgd-18,y-53,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
text xmsgd-18,y+146,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
cancel=0
skipthrough=0
for k=12 to 14
 if mid$(msg$(k),len(msg$(k)))="1" then extra=1
 if mid$(msg$(k),len(msg$(k)))="2" then extra=0
 if upkey()=1 then skipthrough=1
for scan=1 to len(msg$(k))

 for fadein=1 to 255 step 30

  if cancel=1 then fadein=255
  if extra=1 then ink rgb(fadein/4,fadein/2,fadein/5),0 else ink rgb(fadein,fadein,fadein),0
  text x,y,mid$(msg$(k),scan)
  if spacekey()=1 then cancel=1
  ink rgb(r,g,b),0 
  box len(msg$(k))*7+xmsgd-7,y+3,len(msg$(k))*7+xmsgd,y+12
  sync
 if upkey()=1 then skipthrough=1
 if skipthrough=1 then exit
 next fadein
 inc x,7
 sync
next scan
inc y,12
x=xmsgd
cancel=0
if skipthrough=1 then exit
sync
next k
set text size 200
center text 320,240,"X"
wait key
for remove=1 to 100
if sprite exist(remove) then delete sprite remove
if image exist(remove) then delete image remove
next remove
gosub start
end


msg_data2:
rem Display how many lines are used here.
rem NOTE- IF THERE IS AN ERROR WITH UNREAD TEXT,
rem       IT IS PROBABLY BECAUSE THE MESSAGES NUMBER IS TOO SMALL.
messages=14
rem Your messages. Self explanatory. A 2 after the message is regular text, a 1 is Ninja Stickman talking.
msg$(12)="Ninja Stickman... I see you have joined the dead.2"
msg$(13)="Of the areas you entered, you collected "+str$(count)+"/"+str$(totalstar)+" stars2"
msg$(14)="You have failed me.2"
return

end








victory:
cls rgb(0,255,0)
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
cls rgb(10,0,0)
for z=1 to 100
scale sprite 1,100+z
sync
next z

ink rgb(0,100,200),0
center text 320,240,"Ninja Stickman-"
center text 320,260,"You have survived all the obstacles in front of you."
center text 320,280,"You collected "+str$(count)+"/"+str$(totalstar)+" stars."
center text 320,300,"Congratulations."
for remove=1 to 300
if sprite exist(remove) then delete sprite remove
next remove
wait key
scale sprite 1,100
hide sprite 1:hidden_ninja=1
gosub start












return



















Other:
return

start:
cls

sync rate 40
restore startpoint
set text font "system",1
set text to normal
set text transparent
set text size 20
show mouse
sync on

for select=0 to 5
ink rgb(100,100,100),0
box (select*50)+2,0,(select*50)+50,50
read msg$
ink rgb(130*(select+1),130*(select+1),130*(select+1)),0
center text (select*50+2+(select*50)+50)/2,25,msg$
next select

rem *********************************************
rem Remarking this out seems to fix that flashing
`set text opaque

sync
ink rgb(100,100,100),0

Tools:
cls rgb(200,80,90)
sync on
for line=1 to screen width()
ink rgb(line*line,line,line),0
box line-1,0,line,screen height()-1
next line
sync
ink rgb(0,0,0),0
box 240,100,402,202
for x=240 to 400
for y=100 to 200
ink rgb(x*x+5,x+5,x+5),0
dot x,y
next y
next x
sync
set text font "Arial",1
set text size 30
set text to normal
set text transparent
ink rgb(200,200,200),0
center text 320,150,"Tools"

rem *************************************************
rem You have just changed font and rendered some text
rem so be sure to use a sync or DB will try to render
rem text with both styles
sync

if (len(msg$) > 30)
   
   rem This line grabs only the first 30 characters
   rem then drops the rest, it rewrites the contents of msg$
   msg$ = left$(msg$,30)
   
   set cursor 100,50
   print "Your string was too long and was truncated to:"
   set cursor 100,70
   print msg$
   sync
   wait key
endif

print " "

print

if mousclick()=2 etc.
x1=x1+mousemovex()
y1=y1+mousemovey()
x2=x2+mousemovex()
y2=y2+mousemovey()
etc.

sync on
sync rate 60

x1=10
y1=10
x2=50
y2=50
d=0

tim=timer()
do
   cls
   if timer()-tim >=2000
      d=1-d
      tim=timer()
   endif

   b=toolbar(d,10,x1,y1,x2,y2,1,0,1,0,1,0,1,0,1,1)

   ink rgb(255,255,255),0
   text 200,100,"Button Selected = "+str$(b+1)
   sync
loop



   function toolbar(direction,numbuttons,x1,y1,x2,y2,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9)
      remstart
         toolbar function by latch
         11/13/2008

         originally had clickflag as a parameter but changed it for
         a one time test when the function is first launched
         if you set clickflag to 0, then the buttons will toggle off
         after being clicked.

         if clickflag=1, the buttons will remain on

         direction = 0 horizontal bar
         direction = 1 vertical bar
         x1,y1,x2,y2 position and size of first button
         ts are the tools on the toolbar.  10 posibilities
         on=1
         off=0 for each tool

         the function returns tool number
         return -1 = no tool
      remend
      if clickflag=0 then button=-1

      dim t(9)
      t(0)=t0 : t(1)=t1 : t(2)=t2 : t(3)=t3 : t(4)=t4
      t(5)=t5 : t(6)=t6 : t(7)=t7 : t(8)=t8 : t(9)=t9

      if direction < 0 then direction=0
      if direction > 1 then direction=1

      if numbuttons<=0 then exitfunction -1
      if numbuttons > 10 then numbuttons=10

      rem figure out bar size
      wd=x2-x1
      ht=y2-y1
      if direction=0
         fwd=(wd+2)*numbuttons
         fht=ht
         ink rgb(170,170,170),0
         box x1-1,y1-1,x1+fwd-1,y2+1
      else
         fht=(ht+2)*numbuttons
         fwd=wd
         ink rgb(170,170,170),0
         box x1-1,y1-1,x2+1,y1+fht-1
      endif

      rem draw and detect buttons
      mx=mousex()
      my=mousey()

      for n=0 to numbuttons-1
         if direction=0
            if t(n)=1
               rem nonpressed button
               x3=x1+(n*wd)+(n*2) : x4=x2+(n*wd)+(n*2)
               ink rgb(192,192,192),0
               box x3,y1,x4,y2
               ink rgb(255,255,255),0
               box x3,y1,x4,y1
               box x3,y1,x3,y2
               ink rgb(32,32,32),0
               box x4,y1+1,x4,y2
               box x3,y2,x4,y2

               rem check for mouse position and click
               if mx >= x3 and mx <= x4 and my >=y1 and my <=y2
                  omc=nmc
                  nmc=mouseclick() & 1
                  if nmc>omc and button <> n
                     button=n
                     clickflag=1
                     exit
                  endif
                  if nmc > omc and button = n
                     button=-1
                     exit
                  endif
               endif
            endif
         endif
         if direction=1
            if t(n)=1
               rem nonpressed button
               y3=y1+(n*ht)+(n*2) : y4=y2+(n*ht)+(n*2)
               ink rgb(192,192,192),0
               box x1,y3,x2,y4
               ink rgb(255,255,255),0
               box x1,y3,x2,y3
               box x1,y3,x1,y4
               ink rgb(32,32,32),0
               box x2,y3+1,x2,y4
               box x1,y4,x2,y4

               rem check for mouse position and click
               if mx >= x1 and mx <= x2 and my >=y3 and my <=y4
                  omc=nmc
                  nmc=mouseclick() & 1
                  if nmc>omc and button <> n
                     button=n
                     clickflag=1
                     exit
                  endif
                  if nmc > omc and button = n
                     button=-1
                     exit
                  endif
               endif

            endif
         endif
      next n

      rem pressed buttons
      if button <> -1 and direction=0
         x3=x1+(button*wd)+(button*2) : x4=x2+(button*wd)+(button*2)
         ink rgb(192,192,192),0
         box x3,y1,x4,y2
         ink rgb(32,32,32),0
         box x3,y1,x4,y1
         box x3,y1,x3,y2
         ink rgb(255,255,255),0
         box x4,y1+1,x4,y2
         box x3,y2,x4,y2
      endif
      if button <> -1 and direction=1
         y3=y1+(button*ht)+(button*2) : y4=y2+(button*ht)+(button*2)
         ink rgb(192,192,192),0
         box x1,y3,x2,y4
         ink rgb(32,32,32),0
         box x1,y3,x2,y3
         box x1,y3,x1,y4
         ink rgb(255,255,255),0
         box x2,y3+1,x2,y4
         box x1,y4,x2,y4
      endif

   endfunction button

remstart
   ==============================================================
   =  Title  : Toolbar example
   =  Author : Latch jkk
   =  Date   : 11/13/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments    Use an ever present toolbar to enter different
               modes (or launch different programs) while some
               main prgram is running.  The modes can be anything.
               The toolbar is designed for up to 10 different
               operations.
               Any of the tools can be turned off or on.  The
               toolbar can be horizontal or vertical, can be sized
               and positioned anywhere on the screen
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   x1=10
   y1=10
   x2=50
   y2=50
   d=0
   white=rgb(255,255,255)

   dim toolinfo$(20)
   for n=0 to 6
      read toolinfo$(n)
   next n
   do
      cls
      ink white,0
      for n=0 to 6
         text 100,160+(n*20),toolinfo$(n)
      next n

      b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
      gosub _menu
      gosub _drag_bar

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _menu:
      rem based on the toolbar selection launch appropriate
      rem action
      select b
         case 0 : gosub _trig_demo : endcase
         case 1 : gosub _darklight_demo : endcase
         case 2 : gosub _sprite_fill_demo : endcase
         case 3 : gosub _cloth_demo : endcase
         case 4 : gosub _clock : endcase

      endselect
   return
`----------------------------------------------------------------
   _trig_demo:
      rem as a point moves around the circle, the x and y change
      rem through an equal positive range and an equal negative range.
      rem the change in x is a relationship to the radius (hypotenuse of a
      rem right triangle) called cosine.  The change in y is a relationship
      rem to the hypotenuse called sine.  The relationship between how y
      rem changes and how x changes is called tangent.
      rem Since y is opposite on the  viewing screen than a cartesian coordinate
      rem system, I multiply it by -1.
      radius=100
      centerx1=105
      centery1=105
      centerx2=105
      centery2=370
      n=3

      rem put toolbar to side, vertical, and slightly smaller
      d=1
      x1=screen width()-50
      y1=10
      x2=x1+40
      y2=y1+40

      rem available bitmap
      bmp=1
      while bitmap exist(bmp)
         inc bmp
      endwhile
      create bitmap bmp,screen width(),screen height()
      set current bitmap 0

      while b=0
         cls
         ink rgb(255,255,255),0
         circle centerx1,centery1,radius

         rem show change in y on circle
         ink rgb(255,0,0),0
         ang=ang+1
         if ang=360 then ang=0
         x1#=radius*cos(ang)+centerx1
         y1#=-1*radius*sin(ang)+centery1
         line centerx1,centery1,x1#,y1#

         ink RGB(192,192,192),0
         box 400,centery1-radius,400,centery1+radius
         box 400-radius,centery1,400+radius,centery1

         rem position y on coordinate grid
         ink RGB(255,255,0),0
         circle x1#,y1#,5
         line x1#,y1#,400,y1#
         circle 400,y1#,5

         rem draw wave
         set current bitmap bmp
         dot 400,y1#
         get image 1,400-radius,0,402,centery1+radius,1
         if n=4
            paste image 1,399-radius,0
            n=0
         else
            inc n
         endif
         set current bitmap 0
         paste image 1,400-radius,0,1

         ink rgb(255,255,255),0
         text 410,y1#,"Y = "+str$(centery1-y1#)

         rem show change in x on circle
         ink rgb(255,255,255),0
         circle centerx2,centery2,radius

         ink rgb(0,255,0),0
         x2#=radius*cos(ang)+centerx2
         y2#=-1*radius*sin(ang)+centery2
         line centerx2,centery2,x2#,y2#

         ink RGB(192,192,192),0
         box 400,centery2-radius,400,centery2+radius
         box 400-radius,centery2,400+radius,centery2

         ink RGB(255,255,0),0
         circle x2#,y2#,5
         line x2#,y2#,x2#+(400-radius),centery2
         circle x2#+(400-radius),centery2,5

         ink rgb(255,255,255),0
         text x2#+(400-radius),centery2-30,"X = "+str$(x2#-centerx2)

         text 220,220,"Assuming the center of the circles are at (0,0)"
         text 220,240,"Tangent of Angle"+str$(ang)+" = "+str$(tan(ang))
         text 220,260,"Y / X = "+str$((centery1-y1#)/(x2#-centerx2))

         b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
         sync
      endwhile
      delete bitmap bmp
      delete image 1
      rem reset the toolbar for the return to main screen
      x1=10
      y1=10
      x2=50
      y2=50
      d=0
      cls
   return
`----------------------------------------------------------------
   _darklight_demo:
      rem put toolbar to side, vertical, and slightly smaller
      d=1
      x1=screen width()-20
      y1=10
      x2=x1+15
      y2=y1+40
      backdrop on

      gosub _make_landscape

      camx#=5000
      camz#=-1000
      camy#=1000

      position camera camx#,camy#,camz#
      point camera 5000,0,5000

      gosub _lighting

      rem make sphere for regular light source
      make object sphere 1,50
      position object 1,5000,1200,0

      rem make sphere for dark light source
      make object sphere 2,50
      position object 2,5000,1000,1000

      rem choose darklight for key movement
      globe=2

      while b=1
         gosub _move_sphere
         text 0,0,globe$
         text 0,20,"FPS   "+str$(screen fps())
         text 0,40,"Press 1 or 2 to switch globes"
         text 0,60,"Move Globes with arrow keys"
         text 0,80,"and CTRL and SHIFT to demonstrate"
         text 0,100,"the effects of a Drak Light"
         text 0,120,"Globe 1 is regular light"
         text 0,140,"Globe 2 is dark light"
         b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
         sync
      endwhile

      rem cleanup
      delete matrix 1
      delete image 1
      delete object 1
      delete object 2
      set ambient light 100
      color ambient light rgb(255,255,255)
      delete light 1
      set directional light 0,0,1,0
      backdrop off
      cls
      x1=10
      y1=10
      x2=50
      y2=50
      d=0
   return
`---------------------------------------------------------
   _make_landscape:
      cls rgb(0,200,0)
      get image 1,0,0,10,10
      make matrix 1,10000,10000,25,25
      prepare matrix texture 1,1,1,1
      randomize matrix 1,1000
      update matrix 1

      calc_mat_normals(1,25,25,10000/50.0,10000/50.0)

   return
`----------------------------------------------------------------
   _lighting:
      set ambient light 10
      color ambient light rgb(132,132,132)
      set point light 0,5000,1200,1000

      rem here's the dark light
      make light 1
      color light 1,-200,-200,-200
   return


   return
`----------------------------------------------------------------
   _move_sphere:

      if keystate(2)=1
         globe=1
         globe$="Regular Point light selected"
      endif
      if keystate(3)=1
         globe=2
         globe$="Dark Light point light selected"
      endif


      x#=object position x(globe)
      y#=object position y(globe)
      z#=object position z(globe)

      if upkey()=1 then z#=z#+10
      if downkey()=1 then z#=z#-10
      if leftkey()=1 then x#=x#-10
      if rightkey()=1 then x#=x#+10
      if shiftkey()=1 then y#=y#+10
      if controlkey()=1 then y#=y#-10

      position object globe,x#,y#,z#

      rem move light with sphere
      set point light globe-1,x#,y#,z#

   return

`----------------------------------------------------------------
   _sprite_fill_demo:
      rem draw a shape with the mouse and it will kinda fill
      x1=100
      y1=10
      x2=120
      y2=30
      d=0
      ink rgb(255,255,255),0
      sync rate 0
      cls
      while b=2
         text 0,100,"Draw with mouse and left click"
         mx=mousex()
         my=mousey()
         rem draw shape
         while mouseclick()=1
            if start=0
               highx=0
               highy=0
               firstx=mx
               lowx=firstx
               firsty=my
               lowy=my
               start=1
            endif
            oldx=mx
            oldy=my
            mx=mousex()
            my=mousey()
            line oldx,oldy,mx,my

            if mx >= firstx and mx >= highx then highx=mx
            if mx < firstx and mx < lowx then lowx=mx
            if my >= firsty and my >=highy then highy=my
            if my < firsty and my < lowy then lowy=my

            if image exist(1) then delete image 1
            get image 1,lowx,lowy,highx+1,highy+1
            b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
            sync
         endwhile
         start=0

         rem fill image
         if image exist(1)
            rem figure out center
            cx#=((highx-lowx)/2)+lowx
            cy#=((highy-lowy)/2)+lowy
            rem exapansion
            xspan#=(highx-lowx)/200.0
            yspan#=(highy-lowy)/200.0

            sprite 1,lowx,lowy,1
            hide sprite 1
            set sprite 1,0,1
            for s=0 to 100
               `s#=s/10.0
               scale sprite 1,s
               `size sprite 1,s#,s#
               dec cx#,xspan#
               dec cy#,yspan#
               paste sprite 1,cx#,cy#
               sync
            next s
            delete image 1
         endif
         b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
         sync
      endwhile
      cls
      x1=10
      y1=10
      x2=50
      y2=50
      d=0
      sync rate 60
   return
`----------------------------------------------------------------
   _cloth_demo:
      sync rate 40
      autocam off

      backdrop on

      x1=300
      y1=10
      x2=350
      y2=50
      d=0

      matx#=2000
      matz#=2000
      tilex=40
      tilez=40
      mat=1

      set camera range 1,10000

      make matrix mat,matx#,matz#,tilex,tilez
      randomize matrix 1,200

      position camera matx#/2,1000,-700
      point camera matx#/2,0,matz#/2

      while b=3
         text 0,0,str$(screen fps())
         ht=rnd(1800)-9800
         if rnd(100) < 11
            set matrix height mat,rnd(tilex-2)+1,rnd(tilez-2)+1,ht
         endif
         for z=1 to tilez-1
            for x=1 to tilex-1
               avg#=(get matrix height(mat,x-1,z)+get matrix height(mat,x+1,z)+get matrix height(mat,x,z-1)+get matrix height(mat,x,z+1))/4
               set matrix height mat,x,z,avg#
            next x
         next z
         update matrix 1
         b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
         sync
      endwhile
      delete matrix mat
      backdrop off
      cls
      x1=10
      y1=10
      x2=50
      y2=50
      d=0
      sync rate 60
   return
`----------------------------------------------------------------
   _clock:
      cx1=screen width()-120
      cy1=120

       `while b=4
         cls
         a$=get time$()
         sizet=len(a$)

         rem get seconds
         sec=val(right$(a$,2))
         rem get minutes
         min=val(mid$(a$,sizet-4)+mid$(a$,sizet-3))
         rem get hours
         hour=val(left$(a$,2))
         if hour > 12 then hour=hour-12


         ink rgb(255,255,255),0

         for n=300 to 630 step 30
            nx=60*cos(n)+cx1
            ny=60*sin(n)+cy1
            tx=70*cos(n)+cx1
            ty=70*sin(n)+cy1
            dot nx,ny
            text tx-(text width("3")/2),ty-(text height("3")/2),str$(((n-300)/30)+1)
         next n

         sang=wrapvalue((sec*6)-90)
         sx2=48*cos(sang)+cx1
         sy2=48*sin(sang)+cy1
         line cx1,cy1,sx2,sy2

         mang=wrapvalue((min*6)-90)
         sx2=55*cos(mang)+cx1
         sy2=55*sin(mang)+cy1
         line cx1,cy1,sx2,sy2

         hang#=wrapvalue((hour*30)-90)
         sx2=35*cos(hang#+(mang/6.0))+cx1
         sy2=35*sin(hang#+(mang/6.0))+cy1
         line cx1,cy1,sx2,sy2
         b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)

   return
`----------------------------------------------------------------
   _drag_bar:
      rem figure out bar size
      wd=x2-x1
      ht=y2-y1
      if d=0
         fwd=(wd+2)*10
         fht=ht
      else
         fht=(ht+2)*10
         fwd=wd
      endif

      if mouse_within(x1,y1,x1+fwd,y1+fht)
         while mouseclick()=2
            cls
            mmx=mousemovex()
            mmy=mousemovey()
            x1=x1+mmx
            y1=y1+mmy
            x2=x2+mmx
            y2=y2+mmy

            b=toolbar(d,10,x1,y1,x2,y2,1,1,1,1,1,1,1,1,1,1)
            sync
         endwhile
      endif
   return

rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function toolbar(direction,numbuttons,x1,y1,x2,y2,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9)
      remstart
         toolbar function by latch
         11/13/2008

         originally had clickflag as a parameter but changed it for
         a one time test when the function is first launched
         if you set clickflag to 0, then the buttons will toggle off
         after being clicked.

         if clickflag=1, the buttons will remain on

         direction = 0 horizontal bar
         direction = 1 vertical bar
         x1,y1,x2,y2 position and size of first button
         ts are the tools on the toolbar.  10 posibilities
         on=1
         off=0 for each tool

         the function returns tool number
         return -1 = no tool
      remend
      if clickflag=0 then button=-1

      dim t(9)
      t(0)=t0 : t(1)=t1 : t(2)=t2 : t(3)=t3 : t(4)=t4
      t(5)=t5 : t(6)=t6 : t(7)=t7 : t(8)=t8 : t(9)=t9

      if direction < 0 then direction=0
      if direction > 1 then direction=1

      if numbuttons<=0 then exitfunction -1
      if numbuttons > 10 then numbuttons=10

      rem figure out bar size
      wd=x2-x1
      ht=y2-y1
      if direction=0
         fwd=(wd+2)*numbuttons
         fht=ht
         ink rgb(170,170,170),0
         box x1-1,y1-1,x1+fwd-1,y2+1
      else
         fht=(ht+2)*numbuttons
         fwd=wd
         ink rgb(170,170,170),0
         box x1-1,y1-1,x2+1,y1+fht-1
      endif

      rem draw and detect buttons
      mx=mousex()
      my=mousey()

      for n=0 to numbuttons-1
         if direction=0
            if t(n)=1
               rem nonpressed button
               x3=x1+(n*wd)+(n*2) : x4=x2+(n*wd)+(n*2)
               ink rgb(192,192,192),0
               box x3,y1,x4,y2
               ink rgb(255,255,255),0
               box x3,y1,x4,y1
               box x3,y1,x3,y2
               ink rgb(32,32,32),0
               box x4,y1+1,x4,y2
               box x3,y2,x4,y2

               rem check for mouse position and click
               if mx >= x3 and mx <= x4 and my >=y1 and my <=y2
                  omc=nmc
                  nmc=mouseclick() & 1
                  if nmc>omc and button <> n
                     button=n
                     clickflag=1
                     exit
                  endif
                  if nmc > omc and button = n
                     button=-1
                     exit
                  endif
               endif
            endif
         endif
         if direction=1
            if t(n)=1
               rem nonpressed button
               y3=y1+(n*ht)+(n*2) : y4=y2+(n*ht)+(n*2)
               ink rgb(192,192,192),0
               box x1,y3,x2,y4
               ink rgb(255,255,255),0
               box x1,y3,x2,y3
               box x1,y3,x1,y4
               ink rgb(32,32,32),0
               box x2,y3+1,x2,y4
               box x1,y4,x2,y4

               rem check for mouse position and click
               if mx >= x1 and mx <= x2 and my >=y3 and my <=y4
                  omc=nmc
                  nmc=mouseclick() & 1
                  if nmc>omc and button <> n
                     button=n
                     clickflag=1
                     exit
                  endif
                  if nmc > omc and button = n
                     button=-1
                     exit
                  endif
               endif

            endif
         endif
      next n

      rem pressed buttons
      if button <> -1 and direction=0
         x3=x1+(button*wd)+(button*2) : x4=x2+(button*wd)+(button*2)
         ink rgb(192,192,192),0
         box x3,y1,x4,y2
         ink rgb(32,32,32),0
         box x3,y1,x4,y1
         box x3,y1,x3,y2
         ink rgb(255,255,255),0
         box x4,y1+1,x4,y2
         box x3,y2,x4,y2
      endif
      if button <> -1 and direction=1
         y3=y1+(button*ht)+(button*2) : y4=y2+(button*ht)+(button*2)
         ink rgb(192,192,192),0
         box x1,y3,x2,y4
         ink rgb(32,32,32),0
         box x1,y3,x2,y3
         box x1,y3,x1,y4
         ink rgb(255,255,255),0
         box x2,y3+1,x2,y4
         box x1,y4,x2,y4
      endif

   endfunction button
`----------------------------------------------------------------
   function mouse_within(x1,y1,x2,y2)
      result=0
      if mousex() <=x2 and mousex() >=x1 and mousey() <=y2 and mousey() >=y1
         result=1
      endif
   endfunction result
`----------------------------------------------------------------
   Function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x,z)
            h2#=get matrix height(mat,x-1,z-1)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   EndFunction
`----------------------------------------------------------------
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
_toolinfo:
data "Tool 1 = Demonstrates the relationship of Sin and Cos to a Circle"
data "and Cartesian coordinates."
data "Tool 2 = Demonstrates a "Dark Light" - a DBC light with minus"
data "color values"
data "Tool 3 = Uses a Sprite to fill and area drawn with the mouse"
data "Tool 4 = Matrix behaving like a cloth or gel Demo."
data "Tool 5 = Analog Clock"