Sorry your browser is not supported!

sync on
sync rate 0

`draw the 'arena'
ink rgb(0,255,0),1
box 0,0,639,479

`reset the colours
ink rgb(0,0,255),1

`make our blue guy
q=5
for v=1 to q
circle 10,10,v
next v
dot 10,10
get image 1,5,5,16,16

`set the colour to red annd make our red guy
ink rgb(255,0,0),1
for v=1 to q
circle 10,10,v
next v
dot 10,10
get image 2,5,5,16,16

`get rid of what's extra
cls

`position our sprites
sprite 1,rnd(639)+1,rnd(479)+1,1
sprite 2,rnd(639)+1,rnd(479)+1,2

`change our sync rate to something suitable
sync rate 70

`remake our 'arena', and set the colour to blue
ink rgb(0,255,0),1
box 0,0,639,479
ink rgb(0,0,255),1

x1#=rnd(639) :`starting x coordinate
y1#=rnd(479) :`starting y coordinate
o=rnd(2)+1
g=rnd(2)+1

if o=1 then a1=1 else a2=1
if g=1 then b1=1 else b2=1

`=====================
`Main Loop
`=====================

do

`=====================
REM EVADER
`=====================
`increase blue guy's X value
if a1=1
	x1#=x1#+2
	if x1#>=639
		a2=1
		a1=0
	endif
endif

`increase blue guy's Y value
if b1=1
	y1#=y1#+2
	if y1#>=479
		b2=1
		b1=0
	endif
endif

`decrease blue guy's X value
if a2=1
	x1#=x1#-2
	if x1#<=1
		a1=1
		a2=0
	endif
endif

`decrease blue guy's Y value
if b2=1
	y1#=y1#-2
	if y1#<=1
		b1=1
		b2=0
	endif
endif

`position our blue guy
sprite 1,x1#,y1#,1

`=====================
REM CHASER
`=====================

c1#=sprite x(1) :`find blue's X
d1#=sprite y(1) :`find blue's Y
e1#=sprite x(2) :`find red's X
f1#=sprite y(2) :`find red's Y

rem Inspired by OBese87
a# = curveangle( atanfull(c1#-e1#,d1#-f1#) ,a#, abs((c1#-x#)+(d1#-y#))/5)
x# = x# + sin(a#)*2
y# = y# + cos(a#)*2
rem end inspiration xD

`position our red guy
sprite 2,x#,y#,2

`set the collision to the red guy
coll#=sprite collision(2,0)

if coll#=1
goto finish
endif

sync
loop

finish:
delete sprite 1
delete sprite 2
cls
print "AHH! RED CAUGHT UP!!"
print "Click to end"
sync
repeat
until mouseclick()=1
end

DisplayMapPPath:

   ink 0,0
   for x=1 to mapwidth
      for y=1 to mapheight
         if map(x,y)=1
            ink 0,0
         else
            PPath=ProbablePath#(x,y)*50
            n= PPath * (90/1275.)
            r= sin(n)*255
            g= sin(n*2)*255
            b= cos(n)*255
            ink rgb(r,g,b),0
         endif
         box x*10+1,y*10+1,x*10+10,y*10+10
      next y
   next x

return

hide mouse
sync on

for n = 0 to 90
  r= sin(n)*255
  g= sin(n*2)*255
  b= cos(n)*255
  cls rgb(r,g,b)
  sync:wait 10
next n

DisplayMapPPath:

   ink 0,0
   for x=1 to mapwidth
      for y=1 to mapheight
         if map(x,y)=1
            ink 0,0
         else
            PPath=ProbablePath#(x,y)-5
            if PPath<=0
               n=(PPath+5)*(90/5.0)
               r=255
               g=cos(n)*255
               b=cos(n)*255
            else
               n= (PPath) * (90/15.)
               r= cos(n)*255
               g= sin(n*2)*255
               b= sin(n)*255
            endif
            ink rgb(r,g,b),0
         endif
         box x*10+1,y*10+1,x*10+10,y*10+10
      next y
   next x

return

Latch

Nano-great work on that one, it was really impressive

For n= 0 to 255
  r= n
  g= 255 – abs(127-n)*2
  b= 255 – n
Next n

max# = 100
factor# =  255 / max#

For n= 0 to max# step (480/max#)
  r= n * factor#
  g= (255 – abs(127-n) * 2) * factor#
  b= (255 – n) * factor#

  ink rgb(r,g,b),0
  y= n*(480/max#) :`not sure about this part can't test it.
  line 0,y,639,y
Next n

Function Rainbow(n,max#)
  factor#= 255/max#
  r= n*factor#
  g= (255 – abs(127-n) * 2) * factor#
  b= (255 – n) * factor#
Endfunction rgb(r,g,b)

set window on
set window title "GadgetCenter"
start:
cls
restore startpoint
set text font "system"
set text to normal
set text transparent
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
center text 320,240,str$(detect)
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 then gosub Tools
if detect=2 then gosub Humor
if detect=1 then gosub Art
if detect=0 then gosub Games
endif
endif
sync
next detect


sync
loop




Humor:
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

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,"Humor"
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 26
label=1
ink rgb(100,240,0),0
center text 320,label*60+91,"Riddles"
label=2
ink rgb(100,240,0),0
center text 320,label*60+91,"Jokes"
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 Riddles
 if boxes=2 then gosub Jokes
 if boxes=3 then gosub start
endif
endif
next boxes
sync
loop




Riddles:
end
Jokes:
end
rem --------

Art:
end
rem ----------
Games:
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,30
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"
next scan
sync
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","Humor","Tools","Res.","Quit"

hide mouse
sync on
sync rate 60

for x= 0 to 1500
  cls rainbow(x,1500.0)
  sync
next x


END

Function Rainbow(n,max#)
  col#= (n/max#)*255
  r#= col#
  g#= 255 - abs(127.5-col#)*2
  b#= 255 - col#
Endfunction rgb(r#,g#,b#)

  repeat
    InitRoutine
    MainProgram
    CleanShutDown
  until UserQuit = true

rem binary translator

repeat
   cls
   input "Type message to Translate into Binary  :  ";msg$
   for scan=1 to len(msg$)
      byt=asc(mid$(msg$,scan))
      result$=bin$(byt)
      print chr$(byt);"'s Binary representation is :  ";right$(result$,8)
   next scan
   print
   print "press enter"
   wait key
until mouseclick()<>0

_make_clock_sprite:

rem Assign DB time to mytime variable
mytime$ = get time$()


clockradius = 55
clockangle# = 0.0
clock_step# = 1.0

set current bitmap 1
cls rgb(100,100,255)


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 Run the whatminuteangle function to determine the angle needed
anglem = whatminuteangle(myminute$)

rem Length of minute line
minlength = 40

rem Draw a line from the screen center, that is 35 pixels long
rem and use the angle we just got from the function
line 320,240,(40 * cos(anglem))+320,(40 * sin(anglem))+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)-2,(hoursy + 240)-2,hoursx+320+4,hoursy+240+4
	hoursangle# = wrapvalue(hoursangle# + hours_step#)
	next i


rem End of block drawing


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

rem Run the whathourangle function to determine the angle needed
angleh = whathourangle(myhours$)


rem Now to determine the offset from the hour.
rem Real clocks move the hour hand really slowly
rem but we will just add some degrees on if the
rem minutes is between 15-29,30-44,45-59.

rem That way it when its nearly 7, it
rem wont look like its 1 minute to 6 o clock
rem and then suddenly jump to 7 o clock

	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$) < 00)
	angleh = wrapvalue(angleh +18)
	endif


rem Draw a line from the screen center, that is 30pixels long
rem and use the angle we just got from the function
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


	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 Left and bottom in dark blue
ink rgb(50,50,255),0
line 256,180,256,320
line 256,320,384,320

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


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

center text 320,300,mytime$

get image 2,256,180,384,320
cls 0

set current bitmap 0

return



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

rem No doubt there is a much better way to do this than
rem type all the angles out. If anyone can suggest a better
rem way, please let me know :)

function whathourangle(myhours$)
thisangle = 0

rem Depending on the hour passed in here we will return
rem the angle needed to point at the right red block
if (myhours$ = "00") or (myhours$ = "12") then thisangle = 270
if (myhours$ = "01") or (myhours$ = "13") then thisangle = 300
if (myhours$ = "02") or (myhours$ = "14") then thisangle = 330
if (myhours$ = "03") or (myhours$ = "15") then thisangle = 0
if (myhours$ = "04") or (myhours$ = "16") then thisangle = 30
if (myhours$ = "05") or (myhours$ = "17") then thisangle = 60
if (myhours$ = "06") or (myhours$ = "18") then thisangle = 90
if (myhours$ = "07") or (myhours$ = "19") then thisangle = 120
if (myhours$ = "08") or (myhours$ = "20") then thisangle = 150
if (myhours$ = "09") or (myhours$ = "21") then thisangle = 180
if (myhours$ = "10") or (myhours$ = "22") then thisangle = 210
if (myhours$ = "11") or (myhours$ = "23") then thisangle = 240
endfunction thisangle




function whatminuteangle(myminute$)
thisangle = 0

rem This function returns the angle for whatever the minute is
rem so we know which yellow block to point at

if (myminute$ = "00") then thisangle = 270
if (myminute$ = "01") then thisangle = 276
if (myminute$ = "02") then thisangle = 282
if (myminute$ = "03") then thisangle = 288
if (myminute$ = "04") then thisangle = 294
if (myminute$ = "05") then thisangle = 300
if (myminute$ = "06") then thisangle = 306
if (myminute$ = "07") then thisangle = 312
if (myminute$ = "08") then thisangle = 318
if (myminute$ = "09") then thisangle = 324
if (myminute$ = "10") then thisangle = 330
if (myminute$ = "11") then thisangle = 336
if (myminute$ = "12") then thisangle = 342
if (myminute$ = "13") then thisangle = 348
if (myminute$ = "14") then thisangle = 354
if (myminute$ = "15") then thisangle = 0
if (myminute$ = "16") then thisangle = 6
if (myminute$ = "17") then thisangle = 12
if (myminute$ = "18") then thisangle = 18
if (myminute$ = "19") then thisangle = 24
if (myminute$ = "20") then thisangle = 30
if (myminute$ = "21") then thisangle = 36
if (myminute$ = "22") then thisangle = 42
if (myminute$ = "23") then thisangle = 48
if (myminute$ = "24") then thisangle = 54
if (myminute$ = "25") then thisangle = 60
if (myminute$ = "26") then thisangle = 66
if (myminute$ = "27") then thisangle = 72
if (myminute$ = "28") then thisangle = 78
if (myminute$ = "29") then thisangle = 84
if (myminute$ = "30") then thisangle = 90
if (myminute$ = "31") then thisangle = 96
if (myminute$ = "32") then thisangle = 102
if (myminute$ = "33") then thisangle = 108
if (myminute$ = "34") then thisangle = 114
if (myminute$ = "35") then thisangle = 120
if (myminute$ = "36") then thisangle = 126
if (myminute$ = "37") then thisangle = 132
if (myminute$ = "38") then thisangle = 138
if (myminute$ = "39") then thisangle = 144
if (myminute$ = "40") then thisangle = 150
if (myminute$ = "41") then thisangle = 156
if (myminute$ = "42") then thisangle = 162
if (myminute$ = "43") then thisangle = 168
if (myminute$ = "44") then thisangle = 174
if (myminute$ = "45") then thisangle = 180
if (myminute$ = "46") then thisangle = 186
if (myminute$ = "47") then thisangle = 192
if (myminute$ = "48") then thisangle = 198
if (myminute$ = "49") then thisangle = 204
if (myminute$ = "50") then thisangle = 210
if (myminute$ = "51") then thisangle = 216
if (myminute$ = "52") then thisangle = 222
if (myminute$ = "53") then thisangle = 228
if (myminute$ = "54") then thisangle = 234
if (myminute$ = "55") then thisangle = 240
if (myminute$ = "56") then thisangle = 246
if (myminute$ = "57") then thisangle = 252
if (myminute$ = "58") then thisangle = 258
if (myminute$ = "59") then thisangle = 264
endfunction thisangle