Sorry your browser is not supported!

if Mode = 0 & file exist(FileSelect$) then esc = 1 : KeyM = 3

cd FilePath$+""+Folder$

if Mode = 0 & file exist(FilePath$+""+Folder$+""+FileSelect$) then esc = 1 : KeyM = 3

if filename$ = "" then return

sync on:`SetBestScreen()
hide mouse
ink rgb(200,200,0),0
text 0,1,"*"
get image 100,0,0,10,20
cls
ink rgb(255,20,20),0
box 0,0,40,10
get image 65000,0,0,40,10
cls
ink rgb(20,20,20),0
box 0,0,50,50
get image 2,0,0,50,50
ink rgb(5,5,50),0
box 0,0,50,50
get image 4,0,0,50,50
cls
ink rgb(210,214,100),0
text x,y,"/\"
get image 1,0,0,10,17
cls
x#=180
ink rgb(255,0,0),0
circle 320,240,5
circle 320,240,4
circle 320,241,3
center text 320,240,"||"
get image 3,310,230,330,250
  sprite 4,460,240,4
  sprite 2,180,240,2
ys65#=240
xs65#=320
do
  cls
  sprite 1,x#,y#,1
  sprite 65000,xs65#,ys65#,65000
  sprite 100,500,230,100
  if air=1 and direct=0 then inc xs65#,.1
  if air=0 and direct=0 then inc xs65#,1.5
  if xs65#<=250 then direct=0
  if direct=1 and air=1 then dec xs65#,.1
  if direct=1 and air=0 then dec xs65#,1.5
  if xs65#>=400 then direct=1
  if sprite collision(1,100)>0
   for r=1 to 65000
    if sprite exist(r) then delete sprite r
   next r
   set text size 50:center text 320,240,"You got the star.":end
  endif
  if leftkey()=1 and air=0 then dec x#,2
  if rightkey()=1 and air=0 then inc x#,2
  if air=1 and leftkey()=1 then dec x#,.1
  if air=1 and rightkey()=1 then inc x#,.1
  if air=1 then sync rate 0:inc y#,.5 else sync rate 30
  if sprite collision(1,0)=0
   air=1
    else
   air=0
  endif
  if inkey$()="r" then used=0
  if spacekey()=1 and air=0 and jump=0 then jump=1
  if jump=1 then line 0,y#+10,640,y#+10:wait 2
  if upkey()=1 and air=1 then jump_air=1
  if inkey$()="g" then y#=40
  if inkey$()="1" and used=0 then inc x#,20:dec y#,10:used=1
  if hidden=1 and jump_air=1 and air=1 then show sprite 3
  if jump_air=1 and air=1 then sprite 3,x#-5,y#+below,3
  if jump_air=1 and air=1 then inc below,1
  if below=400 then hide sprite 3:hidden=1:below=0:jump_air=0
  if below=1 then dec y#,20:grab=1
  if grab=1 then wait 40:dec y#,11:inc c,1
  if c=10 then grab=0:c=0
  if sprite collision(1,0)>1 and sprite exist(3) then hide sprite 3
  sync
loop

set display mode 640,480,16
sync on
sync rate 60

cls
ink 255,0
dot 0,0
ink rgb(0,255,0),0
dot 1,0
ink rgb(255,255,0),0
dot 2,0

get image 1,0,0,3,1
sync
dim basecolor(3)

make memblock from image 1,1
dp=memblock dword(1,8)
bytes=dp/8

rem if bytes = 2 then we read a WORD for each color if 4 then we read a DWORD
for n=0 to 2
    pos=12+(n*bytes)
   if bytes=2
      basecolor(n+1)=memblock word(1,pos)
   endif
   if bytes=4
      basecolor(n+1)=memblock dword(1,pos)
   endif
   print basecolor(n+1)
next n

REM ----------------------------------------------------------------------
REM Setup
REM ----------------------------------------------------------------------
set display mode 640,480,32
sync on
sync rate 85
state = 0

REM ----------------------------------------------------------------------
REM MainLoop
REM ----------------------------------------------------------------------
Do
	REM Clear Screen, Default should be 0
	cls rgb(150,230,255)
	
	REM State Check
	select state
		case 0 : gosub state0_DKNintro : endcase
		case 1 : gosub state1_dataload : endcase
		case 2 : gosub state2_mainmenu : endcase
		case 3 : gosub state3_gameplay : endcase
		case 4 : gosub state4_mapmaker : endcase
		case 5 : gosub state5_gamewipe : end : endcase
	endselect

	REM Update Screen
	sync
Loop

REM ----------------------------------------------------------------------
REM State0 DarkNoobIntro
REM ----------------------------------------------------------------------
state0_DKNintro:
	REM State Change
	state = 1
return


REM ----------------------------------------------------------------------
REM State1 Dataload
REM ----------------------------------------------------------------------
state1_dataload:
	REM Load Images
	load image "ninja1.png",101
	load image "ninja2.png",102
	load image "ninja3.png",103
	
	REM Setup Variables

	Direction = 0
	Frame = 0
	FrameInc = 1
	PlayerX# = 200
	PlayerY# = 200
	MoveX# = 1
	MoveY# = 1
	Speed = 1
	Walk = 1

	ScrollX = 0
	ScrollY = 0

	PlatformColor = rgb(160,150,0)
	dim PlatformCheck(10,2)


	REM Setup Map Variables
	dim map(100,20)
	dim enemy(50,2)
		REM Key Color Map
	dim mapKey(100*32,20*32)

	REM State Change
	state = 2
	
	rem Load Map
	gosub load_map
return


REM ----------------------------------------------------------------------
REM State2 Main Menu
REM ----------------------------------------------------------------------
state2_mainmenu:
	REM State Change
	state = 3
return


REM ----------------------------------------------------------------------
REM State3 GamePlay
REM ----------------------------------------------------------------------
state3_gameplay:

	REM Reset Variable
	Count = 0

	REM Repeat is used for frame skiping.
	repeat
		REM Clear Screen
		cls rgb(150,230,255)

		REM Update 
		Count = Count + 1	

		REM Key Update
		gosub key_update	

		REM Map Update
		gosub map_update

		REM Gravity Update
		gosub gravity_update

		REM Draw Player
		paste image 101+(Frame/10)+(Direction*0),PlayerX#,PlayerY#,1
		
	until Count > Speed

return


REM ////////////////////////////////////
REM Map Update
REM ////////////////////////////////////
map_update:
	REM Reset Variables
	PlatCheck = 0

	REM Drawing
	for lpy = 0 to 14
	for lpx = 0 to 17
		if map(lpx,lpy) > 0
			x = lpx*32
			y = lpy*32
			LineBox(x,y,32,32,PlatformColor)
		endif
	next lpy
	next lpx
return

REM ////////////////////////////////////
REM Gravity Update
REM ////////////////////////////////////
gravity_update:

	REM Reset Variable
	Fall = 1
	WalkL = 1
	WalkR = 1

	REM Check for going Up
	if MoveY# < 0
		for lpy = 0 to 1
		for lpx = 9 to 22
			x = PlayerX# + lpx
			y = PlayerY# + lpy
			if mapKey(x,y) > 0 then Fall = 1 : Jump = 0 : MoveY# = 1
		next lpx
		next lpy
	endif

	REM Check for going Down
	if MoveY# > 0
		for lpy = 30 to 31
		for lpx = 9 to 22
			x = PlayerX# + lpx
			y = PlayerY# + lpy
			if mapKey(x,y) > 0 then Fall = 0 : MoveY# = 1
		next lpx
		next lpy
	endif

	REM Check for going Left
	if Direction = 0
		for lpy = 1 to 30
		for lpx = 9 to 9
			x = PlayerX# + lpx
			y = PlayerY# + lpy
			if mapKey(x,y) > 0 then WalkL = 0 : MoveX# = 0
		next lpx
		next lpy
	endif

	REM Check for going Right
	if Direction = 1
		for lpy = 1 to 30
		for lpx = 23 to 23
			x = PlayerX# + lpx
			y = PlayerY# + lpy
			if mapKey(x,y) > 0 then WalkR = 0 : MoveX# = 0
		next lpx
		next lpy
	endif
	
	REM Falling
	if Fall = 1 or Jump = 1 then PlayerY# = PlayerY# + MoveY# : Jump = 0 : Frame = 24

	REM Decreace Variable going up and gradually turn it downward.
	if MoveY# < 1 then MoveY# = MoveY# + .007 : Speed = 4

return

REM ////////////////////////////////////
REM Key Update
REM ////////////////////////////////////
key_update:

	REM UpKey and SpaceKey Check 
	if upkey() = 1 or spacekey() = 1
		
		REM Checks for First time press
		if KeyU = 0 & Fall = 0
			Jump = 1
			MoveY# = -1
		endif

		REM Flags the KeyUP
		KeyU = 1

		else

		REM Unflags the KeyUp if not being pressed.
		KeyU = 0
	endif

	REM LeftKey Check
	if leftkey() = 1

		REM Flags Direction 0=Left 1=Right
		Direction = 0

		REM Checks if Walking to the Right is alowed
		if WalkL = 1 
			if Fall = 0
				REM While on the Ground Movement speed is faster
				if MoveX# > -1 then MoveX# = MoveX# - .1
				else
				REM While Falling Movement speed is slower
				if MoveX# > -1 then MoveX# = MoveX# - .02
			endif
		endif
	endif
	
	REM RightKey Check
	if rightkey() = 1

		REM Flags Direction 0=Left 1=Right
		Direction = 1

		REM Checks if Walking to the Right is alowed
		if WalkR = 1 
			if Fall = 0
				REM While on the Ground Movement speed is faster
				if MoveX# < 1 then MoveX# = MoveX# + .1
				else
				REM While Falling Movement speed is slower
				if MoveX# < 1 then MoveX# = MoveX# + .02
			endif
		endif
	endif

	if MoveX# <> 0
		REM Position the X coord
		PlayerX# = PlayerX# + MoveX#

		REM Moving Speed will vary while Falling or on Ground
		if Fall = 0 then x# = .05
		if Fall = 1 then x# = .01

		REM Reduce Movement while going Left
		if MoveX# < 0
			MoveX# = MoveX# + x#
			if MoveX# > 0 then MoveX# = 0
		endif

		REM Reduce Movement while going Right
		if MoveX# > 0
			MoveX# = MoveX# - x#
			if MoveX# < 0 then MoveX# = 0
		endif
	
		REM Frame Update
		gosub frame_update

		return
	endif

	REM Reset Variables If nothing happens
	Frame = 0
	FrameInc = 1
	Speed = 1
return

REM ////////////////////////////////////
REM Frame Update
REM ////////////////////////////////////
frame_update:
	if Frame < 0 then FrameInc = 3 : Speed = 2
	if Frame > 24 then FrameInc = -3 : Speed = 2 
	Frame = Frame + FrameInc
return


REM ////////////////////////////////////
REM Load Map
REM ////////////////////////////////////
load_map:
	open to read 1,"1.map"

		REM Clearing the Current Map first
		for lpy = 0 to mapY-1
		for lpx = 0 to mapX-1
			map(lpx,lpy) = 0
		next lpx
		next lpy

		REM Read first 2 bytes into MapX MapY
		read byte 1,mapX
		read byte 1,mapY

		REM Read the rest of map data
		for lpy = 0 to mapY-1
		for lpx = 0 to mapX-1
			read byte 1,map(lpx,lpy)
			if map(lpx,lpy) > 0
				for lpy2 = 0 to 31
				for lpx2 = 0 to 31
					mapKey(lpx*32+lpx2,lpy*32+lpy2) = 1
				next lpx2
				next lpy2
			endif
		next lpx
		next lpy

	close file 1
return


REM ----------------------------------------------------------------------
REM State4 Map Maker
REM ----------------------------------------------------------------------
state4_mapmaker:
	c3 = rgb(0,0,255)


	for lpy = 1 to 14
	for lpx = 1 to 14
		if map(lpx,lpy) = 1 then ink c3,0
		box lpx,lpy,lpx+32,lpy+32
	next lpy
	next lpx

	
return


REM ----------------------------------------------------------------------
REM State5 GameWipe
REM ----------------------------------------------------------------------
state5_gamewipe:
	REM Clear images from memory
	for lp = 1 to 65536
		if image exist(lp) then delete image lp
	next lp
return



REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
REM Function - Check Area
REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Function CheckArea(px,py,x,y,l,h)
	retval = 0
	if px > x-1 & px < x+l+1 & py > y-1 & py < y+h+1 then retval = 1
EndFunction retval

REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
REM Function - Line Box
REM <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Function LineBox(x,y,l,h,c)
	ink c,0
	box x,y,x+l,y
	box x,y,x,y+h
	box x+l,y,x+l,y+h
	box x,y+h,x+l,y+h
EndFunction