SoCoder - Wed. Workshop

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

There are no comments for this entry.

Latest Posts

some help with a space shooter
j\'ordos Fri 17:49

downloading Videos
CodersRule Fri 05:49

Passive Net Gaming
BGDDisco Fri 05:14

What Have You Done : 28th July 2010
dna Thu 18:20

Where'd Phoenix go?
Afr0 Tue 11:43

Anyone started iphone game development?
worchyld Tue 05:26

PHP Frameworks
worchyld Tue 05:21

Oh My God
Jayenkai Mon 21:23

Design : Programming Languages
HoboBen Mon 16:12

Programming language design
Tikihead Mon 05:28
More

Latest Comments

Link : Animation Software
steve_ancell Fri 11:11
Showcase : Microbe2
CodersRule Thu 15:40
Link : Film yourself!
CodersRule Wed 19:39
Dev-Diary : Ascension for Android (and Disjointed Rambling!)
CodersRule Tue 04:49
Dev-Diary : I should probably start adding icons!
HoboBen Mon 07:28
Link : New Youtube Codes..
HoboBen Mon 07:25
Dev-Diary : Tearing my Hair Out
Jayenkai Sun 23:40
Snippet : Packet
Stealth Sat 12:24
Snippet : The Sobel Function
Andy_A Fri 14:10
Dev-Diary : Prodding at 2D again
Mog Fri 11:11
Showcase : Lexini - ini file parser
HoboBen Fri 08:56
More

Latest Uploads

wallpaper_ ... stages.png

Jayenkai

shitlink.png

Jayenkai

JNKPlat '10 Icon

lawandcontradiction

agawx2.png

Jayenkai

becomeafan.png

Jayenkai

makes_sense.png

Jayenkai

Who's Online
Erebel55
Sat, at 22:48
lawandcontradiction
Sat, at 22:44
Stealth
Sat, at 21:06
CodersRule
Sat, at 21:06
mindstorm8191
Sat, at 21:02
9572AD
Sat, at 19:47
Tikihead
Sat, at 19:45
Spare
Sat, at 19:35
Cower
Sat, at 18:38
dna
Sat, at 18:37

Link to this page
Site : Jayenkai 2006-2009 | Page took 0.465296 |
MudChat's origins, BBCode's former life, Image Scaler.