Sorry your browser is not supported!

REM 6 waypoints, 2 coordinates(x and y) each
dim waypoints(6,2)
REM 1000 max targets onscreen and 3 pieces of info (x coord, y coord, and current waypoint)
dim targets(1000,3)

REM DrawLine Function Test
REM ///////////////////////////////////
REM

sync on
sync rate 85
create bitmap 1,640,480

REM ///////////////////////////////////
REM Main Loop
REM ///////////////////////////////////
do

	REM Key Update
	if upkey() = 1 then y = y - 1
	if downkey() = 1 then y = y + 1
	if leftkey() = 1 then x = x - 1
	if rightkey() = 1 then x = x + 1
	
	REM Make Line
	ink rgb(200,155,0),0
	DrawLine(x+320,y+240,mousex(),mousey(),0)

	REM FrameRate
	set cursor 0,0
	print screen fps()

	REM Screen Update
	copy bitmap 1,0
	sync
	cls 0
loop


REM ///////////////////////////////////
REM Function DrawLine
REM ///////////////////////////////////
Function DrawLine(x1,y1,x2,y2,size)

	x# = x2-x1
	y# = y2-y1

	if abs(x#) > abs(y#) then l# = abs(x#)
	if abs(y#) > abs(x#) then l# = abs(y#)

	if l# = 0 then l# = 1

	x# = x#/l#
	y# = y#/l#

	for lp = 0 to l#
		x = x1 + x# * abs(lp)
		y = y1 + y# * abs(lp)
		box x,y,x+size,y+size
	next lp

EndFunction

y=mx+b

`Make the Enemy's Array 
dim path(640,480) 
path(1,1)=1 
path(2,2)=2 

`Tower Defense Demo
`Quirkyjim for DarkNOOBS

`Setup
 sync on:sync rate 60
 lasers = 0

`Make the Tower
 ink rgb(100,100,100),0
 box 300,220,340,260
 ink rgb(255,0,0),0
 box 315,235,325,245

 `Make the Enemy's Array
 dim path(640,480)
 path(1,1)=1
 path(2,2)=2

 `Make the Enemy
 ink rgb(255,255,255),0
 box 0,0,30,30

 `Make another enemy
 ink rgb(0,255,0),0
 box 100,100,130,130

 `Main Loop
   x=320:y=240
   for enemy = 1 to 610
      nx = enemy+30 :ny = enemy+30
      ink rgb(100,100,100),0
      box 300,220,340,260
      ink rgb(255,0,0),0
      box 315,235,325,245
      ink rgb(255,255,255),0
      box enemy, enemy, nx, ny
      ink rgb(0,255,0),0
      box 100,100,130,130

      if lasers = 0
         ink rgb(255,255,255),0
         line x,y,nx,ny
         lasers = 1
         else
         lasers = 0
      endif

      sync:cls
   next enemy

  cls
  print "Laser Demo"
  wait key

`Tower Defense Demo
`Quirkyjim for DarkNOOBS

`Setup
 sync on:sync rate 60
 lasers = 0

`Make the Tower
 ink rgb(100,100,100),0
 box 300,220,340,260
 ink rgb(255,0,0),0
 box 315,235,325,245

 `Make the Enemy's Array
 dim path(640,480)
 path(1,1)=1
 path(2,2)=2

 `Make the Enemy
 ink rgb(255,255,255),0
 box 0,0,30,30

 `Make another enemy
 ink rgb(0,255,0),0
 box 100,100,130,130

 `Main Loop
   x=320:y=240
   for enemy = 1 to 610
      nx = enemy+30 :ny = enemy+30
      ink rgb(100,100,100),0
      box 300,220,340,260
      ink rgb(255,0,0),0
      box 315,235,325,245
      ink rgb(255,255,255),0
      box enemy, enemy, nx, ny
      ink rgb(0,255,0),0
      box 100,100,130,130

      `Tests distance
      dist = sqrt((nx-x)(nx-y))

      if dist < sqrt((130-x)(130-y))
      goto lasefirst
      else
      goto lasesecond
      endif

      `Checks if a laser is being used
      lasefirst:
      if lasers = 0
         ink rgb(255,255,255),0
         line x,y,nx,ny
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      lasesecond:
      if lasers = 0
         ink rgb(255,255,255),0
         line x,y,130,130
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      syncup:
      sync:cls
   next enemy

  cls
  print "Laser Demo"
  wait key

  end

dist = sqrt(((nx-x)exp(2))((nx-y)exp(2)))

`-Round Float to Int-
Function round(a#)
 b= a#+a#
 c= b-int(a#)
Endfunction c

`***Analogue Clock***
hide mouse
sync on

`define colours
Dim colour(3)
colour(0)= rgb(255,255,255)
colour(1)= 65536*255
colour(2)= 256*255
colour(3)= 255

`------------
` Main Loop
`------------
Do
 `check
 ink colour(h),0
 print time(h)
 ink colour(m),0
 print time(m)
 ink colour(s),0
 print time(s)
 print get time$()

 Gosub _get_time
 Gosub _draw_face
 Gosub _draw_hands
 sync:cls
Loop

`----------
` Gosubs
`----------
_draw_face:
 ink colour(0),0
 circle 320,240,210

 for hr= 1 to 12
  a= (hr-3)*30 :`-3 because 0 deg points to 3, *30 to turn 12 into 360 for degrees
  x= cos(a)*200
  y= sin(a)*200
  center text 320+x,234+y,str$(hr)
 next hr
Return
`//

_draw_hands:
  `hours
  x= cos((time(h)-3)*30)*100
  y= sin((time(h)-3)*30)*100
  ink colour(h),0
  line 320,240,320+x,240+y

  `minutes
  x= cos((time(m)-15)*6)*140
  y= sin((time(m)-15)*6)*140
  ink colour(m),0
  line 320,240,320+x,240+y

  `minutes
  x= cos((time(s)-15)*6)*180
  y= sin((time(s)-15)*6)*180
  ink colour(s),0
  line 320,240,320+x,240+y
Return
`//

_get_time:
 time$= get time$()
 DIM time(3)
 h=1 : m=2 : s=3

 for v= 1 to 3
  time(v)= val(left$(time$,2))
  time$= right$(time$,len(time$)-3)
 next v
Return
`//

rem --------------------------
rem Title:Tetris Remake
rem Author: Irojo
rem For: DNG Personal Projects
rem --------------------------

sync on
hide mouse
ink rgb(255,255,255),0
box 0,0,20,20
ink 0,0
box 1,1,19,19
get image 1,0,0,21,21
ink rgb(0,255,0),0
box 0,0,20,20
get image 2,0,0,21,21
cls
for tilex=1 to 16
  for tiley=1 to 16
   paste image 1,tilex*20,tiley*20
  next tiley
next tilex
dim Map(17,17)
speed=10
x=4
y=1
do
cls
if hit=1 then x=4:y=1:rounds=0:hit=0
gosub remake

inc rounds,1
if rounds=speed
 if Map(x,y+1)=0 and y<16
  inc y,1:rounds=0
  else 
 if y=1 then gosub Loss
 hit=1:Map(x,y)=1
 endif
endif
if rightkey()=1 and timer=0 and Map(x+1,y)=0 and x<16 then inc x,1:timer=1
if leftkey()=1 and timer=0 and Map(x-1,y)=0 and x>1 then dec x,1:timer=1
if timer>=1 then inc timer,1
if timer=3 then timer=0
if spacekey()=1 then gosub pause
if downkey()=1 and Map(x,y+1)=0 and y<16 then inc y,1
paste image 2,x*20,y*20
center text 400,240,"Lines Cleared:"+str$(linescleared)
center text 400,300,"FPS:"+str$(screen fps())
sync
loop


remake:
for scany=1 to 16
correct=0
for scanx=1 to 16
 if Map(scanx,scany)=1
  if Map(scanx,scany+1)=0 and scany<16 then Map(scanx,scany+1)=1:Map(scanx,scany)=0
  inc correct,1
 endif
next scanx

if correct=16
 for removex=1 to 16
  Map(removex,scany)=0
 next remove
 inc linescleared,1
endif
next scany

for tilex=1 to 16
  for tiley=1 to 16
   if Map(tilex,tiley)=0 then paste image 1,tilex*20,tiley*20 else paste image 2,tilex*20,tiley*20
  next tiley
next tilex

return

Loss:
cls
print "Failure."
end
Pause:
set text font "Impact",1
set text size 20
cls rgb(255,0,0)
ink rgb(255,255,0),0
center text 320,80,"|Name to be released :P|"
sync
set text font "System",1
ink rgb(100,100,100),0
box 260,210,380,270
ink rgb(255,255,255),0
center text 320,240,"Game Paused"
center text 320,255,"Press A Key To Continue"
wait key:wait key
return

`Tower Defense Demo
`Quirkyjim for DarkNOOBS

`Setup
 sync on:sync rate 60
 lasers = 0

 `Get Backdrop
 load bitmap "Map.bmp",0
 `backdrop on
 `color backdrop 0
 `get image 1,0,0,640,480
 `texture backdrop 1

`Make the Tower
 ink rgb(100,100,100),0
 box 300,220,340,260
 ink rgb(255,0,0),0
 box 315,235,325,245

 `Make the Enemy's Array
 dim path(640,480)
 path(1,1)=1
 path(2,2)=2

 `Make the Enemy
 ink rgb(255,0,0),0
 box 0,0,50,50

 `Make another enemy
 `ink rgb(0,255,0),0
 `box 100,100,130,130

 `Main Loop
   x=320:y=240
   for enemy = 1 to 153
      nx = enemy+46 :ny = enemy+46
      ink rgb(100,100,100),0
      box 300,220,340,260
      ink rgb(255,0,0),0
      box 315,235,325,245
      ink rgb(255,0,0),0
      box 53, enemy, 97, ny
      `ink rgb(0,255,0),0
      `box 100,100,130,130

      `Tests distance
      dist = sqrt(((nx-x)exp(2))((nx-y)exp(2)))

      if dist < sqrt((130-x)(130-y))
      goto lasefirst
      else
      goto lasesecond
      endif

      `Checks if a laser is being used
      lasefirst:
      if lasers = 0
         ink rgb(0,255,0),0
         line x,y,enemy,ny
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      lasesecond:
      if lasers = 0
         ink rgb(0,255,0),0
         line x,y,130,130
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      syncup:
      sync:cls
		load bitmap "Map.bmp",0
		print enemy;" First"
   next enemy

	for enemy = 53 to 253
		nx = enemy+46 :ny = enemy+46
      ink rgb(100,100,100),0
      box 300,220,340,260
      ink rgb(255,0,0),0
      box 315,235,325,245
      ink rgb(255,0,0),0
      box enemy, 153, nx, 153+46
      `ink rgb(0,255,0),0
      `box 100,100,130,130

      `Tests distance
      dist = sqrt(((nx-x)exp(2))((nx-y)exp(2)))

      if dist < sqrt((130-x)(130-y))
      goto lasefirst
      else
      goto lasesecond
      endif

      `Checks if a laser is being used
      lasefirst1:
      if lasers = 0
         ink rgb(0,255,0),0
         line x,y,enemy,ny
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      lasesecond2:
      if lasers = 0
         ink rgb(0,255,0),0
         line x,y,130,130
         lasers = 1
         goto syncup
         else
         lasers = 0
         goto syncup
      endif

      syncup1:
      sync:cls
		load bitmap "Map.bmp",0
		print enemy;" Second"
   next enemy

  cls
  print "Laser Demo"
  wait key

  end

REM STUFF GOES HERE
   Initial code
DO
   Main Loop Code Here
LOOP
REM NOTICE THE USE OF END HERE, this will prevent
REM DBC From running into the code, in which case it will simply
REM Execute the code, which shouldn't be done
END


Subroutine_1:

SUB1 Stuff

RETURN

`New Tower Defense
`Quirkyjim

`[------Call-Subroutines------]

gosub setup
gosub graphics
gosub enemies

wait key
end

`[XXXXX-SUBROUTINES-XXXXX]

`[------Setup------]
setup:

`Set up the refresh rate
sync on:sync rate 60

`Set up x and y variables for use
startx = 53
starty = 3

`Set up color variables for use
red = rgb(255,0,0)
green = rgb(0,255,0)
blue = rgb(0,0,255)
black = 0

return

`[------Graphics-------]
graphics:

`Load the backdrop map
load image "Map.bmp",1

`Paste it to the screen
paste image 1,0,0

return

`[------Enemies------]
enemies:

`Draw the enemy (box) at the starting point
ink red, black
box startx, starty, startx+44, starty+44

return

`[XXXXX-END-OF-SUBROUTINES-XXXXX]

`Login Program/Function
`By Quirkyjim

`Call The Function (duh!)
If Login() = 1
   print "Success"
else
   print "Aww..."
endif

wait key
end


`The Function

Function Login()
   if file exist("Users.txt")=1
      goto login_user
   else
      gosub register_user
      goto login_user
   endif

   login_user:
      open to read 1, "Users.txt"
      temp = 1
      temp$ = STR$(temp)

      repeat
         read string 1, user$+temp$
         inc temp
      until file end(1) = 1

      input "Username?", username$

      for checkuser = 1 to temp
         checkuser$ = str$(checkuser)
         if username$ = user$+temp$
            goto success
         else
            goto startagain
         endif
         startagain:
      next checkuser
      goto fail

   register_user:
      open to write 1, "Users.txt"
         input "What would you like your username to be?", wanted_user$
         write string 1, wanted_user$
      close file 1

      print "Proceding to login..."

      return

      success:
         print "Login Successful"
         success = 1
         goto done

      fail:
         print "Login Unsuccessful"
         success = 0
         goto done

      done:
endfunction success

inc rounds,1
if rounds=speed
 if Map(x,y+1)=0 and y<16
  inc y,1:rounds=0
[b]  else
 if y=1 then gosub Loss
 hit=1:Map(x,y)=1[/b]
 endif
endif

inc rounds,1
if rounds=speed
 if Map(x,y+1)=0 and y<16
  inc y,1:rounds=0
[b] else
  if y=1 then gosub Loss
  hit=1:Map(x,y)=1[/b]
 endif
endif