Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|458|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Ascii Man

by tnt23 for Workshop #056
Your job is to destroy evil little cyclopse zombies. I know they look cute, but trust me, they're evil.
Cursors and Space
;;;;;;;;;;;;;;;;;;;;
;ASCII MAN 
;;;;;;;;;;;;;;;;;;;;
Const SCREENWIDTH  = 640
Const SCREENHEIGHT = 480
Initialize(SCREENWIDTH,SCREENHEIGHT)

;;;FONTS;;;
Global n = LoadFont("courier new",14)
SetFont n

;;;CONSTANTS;;;
;;scancodes
;arrows
Const up_k = 200
Const down_k = 208
Const left_k = 203
Const right_k = 205
;functions
Const F1_k = 59
;other
Const sp_k = 57
Const return_k = 28
Const enter_k = 156

;;strings
Const title$ = "N3S: ASCII Man"

Const p_health$ = "[+]"
Const p_gun$ = "[M]"
Const p_points$ = "(50)"

;;integers
Const hlprows = 20

;;;GLOBALS;;;
;;string dimensions
Global hw = StringWidth (" || MAN  ==+==") 
Global hh = StringHeight(" || MAN  ==+==")*10.5
Global mw = StringWidth ("\--- /")
Global mh = StringHeight("\--- /")*3


;;strings
Global message$

;;integers
Global hx = 5,hy
Global numaliens,numbullets
Global tx = 320-(StringWidth (title)/2)
Global ty = 240-(StringHeight(title)/2)
Global face = 1
Global it, mt, dead

;menu/ingame
Global menu = True
Global help = False
Global info

;stats
Global score,lvl
Global ammo = 00
Global health = 10

;;;FRAME TIMER;;;
Global timer = CreateTimer(60)

;;;TYPES;;;
Type bullet 
	Field x,y
	Field dx,s$
End Type

Type monster
	Field x,y
	Field dx,dy,t,bt
	Field i
End Type

Type blood
	Field x#,y#
	Field dx#,dy#
	Field s$,t
End Type

Type letter
	Field x,y
	Field dx,dy
	Field ch$
End Type

Type power
	Field x,y
	Field p$
	Field t,c
End Type

InitializeBG()
DisplayTitle()

;;;MAIN LOOP;;;
While KeyHit(1)=False And (dead And info=0)=False
	Cls 
	
	If menu Then
		UpdateTitleBG()
		
		If help Then
			DrawHelp(320,100)
			If KeyHit(enter_k) Or KeyHit(return_k)
				FlushKeys()
				help = 0
			EndIf
		Else	
			Text tx,ty,title
			Text 320,ty+25,">>>PRESS ENTER TO PLAY<<<",1
			Text 320,ty+40,"Press F1 for help",1
			Text 320,ty+55,"Press ESC to quit",1
			If KeyHit(F1_k) Then help = 1
		EndIf
		
		If KeyHit(enter_k) Or KeyHit(return_k) Then menu = 0
	Else
		If info Then
			UpdateBG()
			
			Color 255,255,255
			Text 320,240,message$,1,1
			If MilliSecs()>it+3000 Then info = 0
			

			UpdateBlood()			
			DrawHUD()
		Else	
			UpdateBG()
			DrawMan(hx,hy)
			UpdateInput()
			UpdateBullets()
			UpdateMonsters()
			UpdateBlood()
			UpdatePowers()
			DrawHUD()
				
			If numaliens <= 0 Then LevelUp()
		EndIf
	EndIf
	
	WaitTimer(timer)
	Flip 0
Wend: End 

;;;FUNCTIONS;;;
Function Initialize(w,h)
	Graphics w,h
	
	AppTitle(title)
	SetBuffer BackBuffer()
	HidePointer()
	SeedRnd(MilliSecs())
	
End Function

Function DrawMan(x,y)
	If face Then Restore man Else Restore man2
	
	For i = 0 To 13
		Read r$
			
		Select i
			Case 0 
				Color 189,123,0
			Case 2 
				Color 255,180,100
			Case 4
				Color 255,180,100
			Case 5
				Color 255,180,100
			Case 10
				Color 0,128,255
			Case 11
				Color 0,128,255 
			Case 12
				Color 0,128,255
			Default
				Color 255,255,255
		End Select

		Text hx,hy+(i*10),r$
	
	Next
	Color 255,255,255
End Function

;UPDATE BULLETS
;ALSO CHECKS COLLISIONS WITH PLAYER CHARACTER
Function UpdateBullets() 
	numbullets = 0
	For  b.bullet = Each bullet
		b\x = b\x + b\dx
		If b\s = "=" Then Color 0,255,255 Else Color 0,255,0
		Text b\x,b\y,b\s	Color 255,255,255
		
		
		;;player collisions
		If RectsOverlap(b\x,b\y,StringWidth(b\s),StringHeight(b\s), hx,hy,hw-20,hh)

			health = health - 1 
			BloodSplat(b\x,b\y,10)
			Delete b
			

			If health <= 0
				dead = True
				info = True
				message = "Game Over; Your score is " + score
				it = MilliSecs()
				Bloodsplat(hx+(hw/2),hy+(hh/2),200)
			
EndIf
			
			Return
		EndIf
					
		numbullets = numbullets + 1
		If b\x > 640 Or b\x<0 Then Delete b
	Next
End Function

Function UpdateInput()
	If ammo > 0 Then
		If KeyDown(sp_k) And MilliSecs()>mt+100 Then
			b.bullet = New bullet
			
mt = MilliSecs()
			ammo = ammo - 1
			If face Then	
				b\x = hx + hw
				b\y = hy + StringHeight("|||")*6
				b\dx = 25
				b\s = "o>"

				Color 255,255,0
				Text b\x+3,b\y-3,"*"		
			Else
				b\x = hx
				b\y = hy + StringHeight("|||")*6
				b\dx = -25
				b\s = "<o"
			
				Color 255,255,0
				Text b\x-8,b\y-3,"*"		
			EndIf
		EndIf
	Else
		If KeyHit(sp_k) Then
			b.bullet = New bullet
			If face Then	
				b\x = hx + hw
				b\y = hy + StringHeight("|||")*6
				b\dx = 25
				b\s = "o>"

				Color 255,255,0
				Text b\x+3,b\y-3,"*"		
			Else
				b\x = hx
				b\y = hy + StringHeight("|||")*6
				b\dx = -25
				b\s = "<o"
			
				Color 255,255,0
				Text b\x-8,b\y-3,"*"		
			EndIf
		EndIf
	
	EndIf
	
	If KeyDown(up_k) Then
		If hy>-(hh/2) Then hy = hy - 6
	ElseIf KeyDown(down_k)
		If hy <480-(hh/2) Then hy = hy + 6
	EndIf
	
	If KeyDown(left_k) Then
		face = 0 
		If hx>0 Then hx = hx - 6
	ElseIf KeyDown(right_k) Then
		face = 1
		If hx<640-hw Then hx = hx + 6
	EndIf
End Function

Function LevelUp()
	Delete Each bullet
	Delete Each monster
	hx = 0 : hy = 0
	lvl = lvl + 1
	
	If health<10 Then health = health + 1
		
	Repeat 
		add = Rand(-1,2)
		Local num = lvl + add
	Until num<>0
		
	For i = 0 To num-1
		m.monster = New monster
		m\x = Rand(hx+hw+20,640-mw-25)
		m\y = Rand(20,480-(mh*2)-(hh/2))
		
		m\i = Rand(3000,5000)
		
		Repeat	
			m\dx = Rand(-5,5)
			m\dy = Rand(-5,5)
		Until m\dx<>0 And m\dy<>0
		
		m\bt = MilliSecs()
	Next
	
	info = True
	it = MilliSecs()
	message = "Now entering Level " + lvl
End Function 

Function DrawAlien(x,y)
	Restore alien
	
	Color 0,255,0
	For i = 0 To 3
		Read r$
		Text x,y+(i*10),r$
	Next
	
	Color 255,255,255
End Function 


Function UpdateMonsters() ;;updates monsters&AI n draws 'em
	numaliens = 0
	For m.monster = Each monster
		m\x = m\x + m\dx
		m\y = m\y + m\dy
		
		If m\x >= 640-(mw*2) Or m\x<=10 Or (m\t< MilliSecs()+3000 And Rand(50)=25)
			m\dx = -m\dx
			m\t=MilliSecs()
		EndIf
		
		If m\y >= 480-(mh*2)-(hh/2) Or m\y<=10 Or (m\t< MilliSecs()+3000 And Rand(50)=25)
			m\dy = -m\dy
			m\t=MilliSecs()
		EndIf
		
		If m\dx = 0 Then m\dx = Rand(-5,5)
		If m\dy = 0 Then m\dy = Rand(-5,5)
		DrawAlien(m\x,m\y)
	
		numaliens = numaliens + 1
		qwerty = Rand(0,5)
		If MilliSecs()>m\bt+m\i-(level*2) And Rand(0,10)=qwerty And numbullets<3 Then
			b.bullet = New bullet
			b\x = m\x
			b\y = m\y + StringHeight("|")
			b\dx = -5
			b\s = "="
			m\bt = MilliSecs()
		
		EndIf
		
		For b.bullet = Each bullet
			If RectsOverlap(b\x,b\y,StringWidth(b\s),StringHeight(b\s),m\x,m\y,mw,mh)
				If b\s = "o>" Or b\s = "<o"
					If Rand(1,10) = 5 Then 
						p.power = New power
						p\x = m\x: p\y = m\y
						
p\t = MilliSecs()
						p\c = 255
						
						temp = Rand(1,3)
						
						Select temp
							Case 1
								p\p = p_health
							Case 2
								p\p = p_gun
							Case 3
								p\p = p_points
						End Select
					EndIf
					
					BloodSplat(m\x,m\y,10)
					Delete b
					Delete m
					score = score + 10			
					numaliens = numaliens-1
					Exit
				EndIf
			EndIf
		Next
	Next
End Function

Function BloodSplat(x,y,parts=10)
	For i = 0 To parts
		bl.blood = New blood
		bl\x = x : bl\y = y
		
		bl\dx = Sin(Rnd#(0,359))*Rnd#(-2,5)
		bl\dy = Cos(Rnd#(0,359))*Rnd#(-5,5)

		bl\t = MilliSecs()
		
		q=Rand(0,1)
		
		If q Then bl\s = "." Else bl\s=","
	Next
End Function

Function UpdateBlood()
	For bl.blood = Each blood 
		bl\x = bl\x + bl\dx
		bl\y = bl\y + bl\dy
		
		bl\dy = bl\dy + 0.1
		
		Color 255,0,0
		Text bl\x,bl\y,bl\s
		Color 255,255,255
		
		If MilliSecs() > bl\t + Rand(3000,5000) Then Delete bl
	Next
End Function

Function InitializeBG()
	For i = 0 To 19
	
	l.letter = New letter
	
		l\x = Rand(0,630)
		l\y = Rand(0,470)
		
		l\dx = Rand(-4,-10)
		l\dy = Rand(4,10)
				
		l\ch = Chr$(Rand(33,122))
	Next
End Function

Function UpdateTitleBG()
	For l.letter = Each letter
		l\y = l\y + l\dy
		
		If l\y > 480 Then 
			
			l\x = Rand(0,630)
			l\y = -10
		EndIf
		
		Color 0,150,0
		Text l\x,l\y,l\ch
		Color 255,255,255
	Next
End Function

Function UpdateBG()
	For l.letter = Each letter
		l\x = l\x + l\dx
		
		If l\x < 0 Then 
			l\x = 660
			l\y = Rand(0,470)
		EndIf
		
		Color 0,150,0
		Text l\x,l\y,l\ch
		Color 255,255,255
	Next
End Function

Function DisplayTitle()
	
	Local temp$ = ""
	
	Local cs$ = ""
	For i = 1 To Len(title)
		cs = Mid(title,i,1)
		
		x = tx+StringWidth(temp)
		
		For y = 0 To ty Step 20
			Cls
			
			updatetitleBG()
			
			Text tx,ty,temp
			Text x,y,cs
			If KeyHit(1) Then End
			Flip
		Next
		temp = temp + cs$
	Next

	
	m = MilliSecs()
	
	c = 255
	Repeat
		Cls
		updatetitleBG()
		c = c - 5
		Color c,c,c
		Text tx,ty,title
		If KeyHit(1) Then End
		Flip
	Until c<=100
		
End Function

Function DrawHelp(x,y)
	Restore help
	
	For i = 0 To hlprows-1
		Read r$
		
		Text x,y+ay,r$,1
		ay = ay + StringHeight(r$)
	Next
End Function

Function DrawHUD()
	
	Local x = 500
	Text x,0,"Score: " + score
	If health>0 Then 
		Text x,10,"Health: " + String$("|",health)
	Else
		Text x,10,"Health: DEAD"
	EndIf
	If ammo Then Text x,20,"Ammo: " + ammo Else Text x,20,"Ammo: Infinite"
End Function

Function UpdatePowers()
	For p.power = Each power
		
		
If MilliSecs()>p\t+3000 Then p\c = p\c - 1
		
		Color p\c,p\c,0
		Text p\x,p\y,p\p
		
		Color 255,255,255
		
		If RectsOverlap(p\x,p\y,StringWidth(p\p),StringHeight(p\p),hx,hy,hw,hh)
			Select p\p
				Case p_health
					health = 10
				Case p_points
					score = score + 50
				Case p_gun
					ammo = ammo + 100
			End Select
			Delete p
			Return
		EndIf
		
		If p\c < 5 Then Delete p
	Next
End Function

		
;;;DATA;;;

.man 
Data "/======\      "
Data "|      ..     "
Data "|       >     "
Data "|     \_|     "
Data "\_______/     "
Data "   |  |       "
Data "  /-  - \     "
Data " ||ASCII |    "
Data " || MAN  ==+=="
Data " uu      | || "
Data "  |  ^   |    "
Data " /  / \  \    "
Data " |  |  |  |   "
Data "<<__    __>>  "

.man2 
Data "     /======\ "
Data "    ..       |"
Data "    <        |"
Data "    |_/      |"
Data "    \_______/ "
Data "       |  |   "
Data "     /-  - \  "
Data "    |ASCII || "
Data "==+==  MAN || "
Data " || |      uu "
Data "    |   ^   | "
Data "    /  / \  \ "
Data "   |  |  |  | "
Data "  <<__    __>>"

.alien
Data "/\_/\ "
Data "|(.) |"
Data "| ^  |" 
Data "\--- /"

.help
Data "Welcome to ASCII Man!"
Data ""
Data "You play as the text based superhero, ASCII Man.           "
Data "Your job is to destroy evil little cyclopse zombies. I know"
Data "they look cute, but trust me, they're evil.                "

Data ""
Data "Levelling Up"
Data "Level up by destroying all the monsters in the current   "
Data "level. When you level up, you are awarded one life point."
Data ""
Data "Controls"
Data "Move with the arrow keys and shoot with space."
Data ""
Data "Pickups"
Data "[+]  - Health - Restores you to full health           "
Data "[M]  - Machine Gun - Gives you 100 machine gun bullets"
Data "(50) - Adds 50 points to your score.                  "
Data ""
Data ""
Data "<<<PRESS ENTER TO RETURN TO MAIN MENU>>>"