Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|649|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Ninja Attack

by Eikon for Workshop #001

Your sword only has collision on its tip, so you must be skillful to deflect incoming shurikens.

Cursors and Space

AppTitle "Ninja Attack"
Graphics 320, 240, 16, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global pX = 150, pY = 110, pS = 20, pA = 0, pL# = 15, bSwing = False
Global bEnemy = False, eX, eY, bStar = False, eA = 0, eR = 0, eSX, eSY, eSD
Dim bC(3)

.Title
FlushKeys()
pX = 150: pY = 110: pS = 20: pA = 0: pL = 15: bSwing = False: bEnemy = False: bStar = False
Repeat
	Color 0, 255, 255: Text 1, 1, "Ninja Attack"
	Color 255, 255, 255: Text 1, 16, "by Eikon"
	Color 255, 255, 0: Text 1, 48, "Press Enter to play"
	Text 1, 64, "Press Escape to exit"
	Color 0, 255, 0: Text 1, 226, "Instructions: Hold space to attack"
	If KeyDown(1) Then End
	Flip: Cls
Until KeyHit(28)
FlushKeys()

While Not KeyDown(1)

If bSwing = True Then
	Color 178, 178, 178: Line pX + 5, pY + 5, 20 * Cos(pA) + (pX + 5), 20 * Sin(pA) + (pY + 5) ; 1
	If pA < 360 Then pA = pA + 15 Else bSwing = False
	;Color 255, 0, 0: Rect 20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6
	If bEnemy = True Then
		If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eX, eY, 10, 10) Then
			bEnemy = False: pS = pS + 10
		EndIf
	EndIf
EndIf

Color 255, 255, 0: Oval pX, pY, 10, 10       ; 2
If bEnemy = True Then                        ; 4
	Color bC(0), bC(1), bC(2): Rect eX, eY, 10, 10
	If pX < eX Then eX = eX - 1 ElseIf pX > eX Then eX = eX + 1
	If pY < eY Then eY = eY - 1 ElseIf pY > eY Then eY = eY + 1
	If RectsOverlap(pX, pY, 10, 10, eX, eY, 10, 10) Then
		If Int(pL) >= 1 Then pL = pL - .05 Else Goto GameOver		
	EndIf
	If Rand(1, 100) = 50 And bStar = False Then
		bStar = True
		eA = ATan2(pY - eY, pX - eX): eR = 0: eSD = 1
		If eA < 0 Then eA = eA + 360
		eSX = eX: eSY = eY
	EndIf
	If bStar = True Then
		Color 178, 178, 178: Rect eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2
		If eSD = 1 Then eR = eR + 2 Else eR = eR - 2
		If eR * Cos(eA) + eSX < 0 Or eR * Cos(eA) + eSX > 320 Then bStar = False
		If eR * Sin(eA) + eSY < 20 Or eR * Sin(eA) + eSY > 240 Then bStar = False
		If RectsOverlap(pX, pY, 10, 10, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then
			If Int(pL) >= 1 Then pL = pL - 1: bStar = False Else Goto GameOver
		EndIf
		If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then eSD = 0
	EndIf
EndIf

Color 0, 255, 255: Text 1, 1, "Score: " + pS + "    Life: " + Int(pL) ; 3

If KeyDown(203) And pX > 0 Then pX = pX - 2
If KeyDown(205) And pX < 310 Then pX = pX + 2
If KeyDown(200) And pY > 20 Then pY = pY - 2
If KeyDown(208) And pY < 230 Then pY = pY + 2

If KeyDown(57) Then
	If bSwing = False And pS > 0 Then bSwing = True: pA = 0: pS = pS - 1
EndIf

If bEnemy = False Then
	bEnemy = True
	For i = 0 To 2: bC(i) = Rand(78, 255): Next
	eX = Rand(0, 310)
	tmp = Rand(1, 2)
	If tmp = 1 Then eY = 20 Else eY = 230
EndIf

If Int(pL) < 1 Then Goto GameOver

Flip: Cls
Wend: End

.GameOver
FlushKeys()
Repeat
	Color 255, 255, 0: Text 1, 1, "Final Score: " + pS
	Color 255, 255, 255: Text 1, 224, "Press Enter"
	Flip: Cls
Until KeyHit(28)
Goto Title