Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|506|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

Fiery Fourth

by Eikon for Workshop #003

You begin with 5 health, and your mission is to set off as many fireworks as possible before the red guys get you.

AppTitle "Fiery Fourth by Eikon"
Graphics 640, 480, 16, 2
SeedRnd MilliSecs()

Const Dist = 32

Type Obj 
	Field X, Y#, ID, G#, S#, D, A, R#, C[2], W
End Type

Dim Points.Obj((640 / Dist) + 1)

Global pImg = CreateImage(8, 9)
Global eImg = CreateImage(8, 9)
Global gImg = CreateImage(640, 50)

RenderImg
RenderLand

.Again
Global pX = 20, pY = 340, pG# = 0, pJump = False
Global pLife = 5, pScore = 0
Local tmp, eTime = MilliSecs(), bTime, bBlink = False, bFire = False

SetBuffer BackBuffer()
While Not KeyDown(1)

If bBlink = True Then
	If Rand(1, 2) = 1 Then DrawImage pImg, pX, pY
	If MilliSecs() >= bTime + 2000 Then bBlink = False
Else
	DrawImage pImg, pX, pY
EndIf

DrawImage gImg, 0, 430
Color 255, 255, 255: Text 1, 1, "Life: " + pLife
Text 1, 16, "Score: " + pScore

If Not ImagesCollide(pImg, pX, pY, 0, gImg, 0, 430, 0) Then 
	If pG < 2 Then pG = pG + .1
	pY = pY + pG
Else
	pJump = False
EndIf

If KeyDown(203) And pX > 0 Then 
	If ImageRectCollide(gImg, 0, 430, 0, pX - 4, pY + ImageHeight(pImg) - 4, 4, 4) Then pY = pY - 2
	pX = pX - 2
EndIf
If KeyDown(205) And pX < 640 - ImageWidth(pImg) Then 
	If ImageRectCollide(gImg, 0, 430, 0, pX + ImageWidth(pImg), pY + ImageHeight(pImg) - 4, 4, 4) Then pY = pY - 2
	pX = pX + 2
EndIf

If KeyDown(57) And pJump = False Then
	pG = -2: pJump = True
EndIf

If pJump = True Then
	If pG >= 2 Then pG = pG + .1
	pY = pY + pG
EndIf

If MilliSecs() >= eTime + 3000 Then 
	o.Obj = New Obj
	o\X = Rand(0, 620): o\Y = 340: o\ID = 1: o\G = 0
	eTime = MilliSecs()
EndIf

If bFire = False Then
	o.Obj = New Obj
	o\X = Rand(0, 620): o\Y = 340: o\ID = 2: o\G = 0
	bFire = True
EndIf

For o.Obj = Each Obj
	Del = 0
	If o\ID = 1 ; Enemy
		DrawImage eImg, o\X, o\Y
		
		If Rand(0, 100) = 50 Then o\D = Rand(0, 2)
		
		If o\D = 0 Then     ; Left
			If o\X > 0 Then 
				If ImageRectCollide(gImg, 0, 430, 0, o\X - 4, o\Y + ImageHeight(eImg) - 4, 4, 4) Then o\Y = o\Y - 2
				o\X = o\X - 1
			Else
				o\D = 1
			EndIf
		ElseIf o\D = 1 Then ; Right
			If o\X < 640 - ImageWidth(pImg) Then
				If ImageRectCollide(gImg, 0, 430, 0, o\X + ImageWidth(eImg), o\Y + ImageHeight(eImg) - 4, 4, 4) Then o\Y = o\Y - 2
				o\X = o\X + 1
			Else
				o\D = 0
			EndIf
		EndIf
		
		If Not ImagesCollide(eImg, o\X, o\Y, 0, gImg, 0, 430, 0) Then 
			If o\G < 2 Then o\G = o\G + .1
			o\Y = o\Y + o\G
		EndIf

		If ImageRectCollide(eImg, o\X, o\Y, 0, pX, pY + ImageHeight(pImg), ImageWidth(pImg), 1) And pJump = True Then 
			pScore = pScore + 10
			Del = 1
		EndIf
			
		If Del = 0 Then
			If ImageRectCollide(eImg, o\X, o\Y, 0, pX, pY, 1, ImageHeight(pImg)) - 2 And bBlink = False Then
				pLife = pLife - 1
				bTime = MilliSecs(): bBlink = True
			ElseIf ImageRectCollide(eImg, o\X, o\Y, 0, pX + ImageWidth(pImg), pY, 1, ImageHeight(pImg)) - 2 And bBlink = False Then
				pLife = pLife - 1
				bTime = MilliSecs(): bBlink = True
			EndIf 
		EndIf
		
		;Color 255, 0, 0: Rect pX, pY + ImageHeight(pImg), ImageWidth(pImg), 1
		;Rect pX, pY, 1, ImageHeight(pImg) - 2
		;Rect pX + ImageWidth(pImg), pY, 1, ImageHeight(pImg) - 2
		
	ElseIf o\ID = 2 Then ; Firework
		Color 0, 255, 255: Rect o\X, o\Y, 10, 10
		
		If Not ImageRectCollide(gImg, 0, 430, 0, o\X, o\Y, 10, 10) Then 
			If o\G < 2 Then o\G = o\G + .1
			o\Y = o\Y + o\G
		EndIf
		
		If ImageRectCollide(pImg, pX, pY, 0, o\X, o\Y, 10, 10) Then
			CreateFuse o\X, o\Y
			pScore = pScore + 20: bFire = False
			Del = 1
		EndIf
	ElseIf o\ID = 3 Then ; Fuse
		Color 255, 255, 0: Rect o\X, o\Y, 2, 2
		If o\Y > o\S Then 
			o\Y = o\Y - 3
		Else
			CreateFire o\X, o\Y
			Del = 1
		EndIf
	ElseIf o\ID = 4 Then ; Firework
		Color o\C[0], o\C[1], o\C[2]
		Rect o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\W, o\W
		If o\R >= Rand(20, 50) And o\D = 0 Then CreateFade o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\C[0], o\C[1], o\C[2], 4: o\D= 1: o\W = 4
		If o\R >= Rand(50, 80) And o\D = 1 Then CreateFade o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\C[0], o\C[1], o\C[2], 3: o\D = 2: o\W = 3
		If o\R >= Rand(80, 110) And o\D = 2 Then CreateFade o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\C[0], o\C[1], o\C[2], 2: o\D = 3: o\W = 2
		If o\R >= Rand(110, 140) And o\D = 3 Then CreateFade o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\C[0], o\C[1], o\C[2], 1: o\D = 4: o\W = 1

		o\R = o\R + o\S: o\Y = o\Y + .5
		If o\C[0] >= 0 Then o\C[0] = o\C[0] - Rand(1, 2)
		If o\C[1] >= 0 Then o\C[1] = o\C[1] - Rand(1, 2)
		If o\C[2] >= 0 Then o\C[2] = o\C[2] - Rand(1, 2)
		If o\C[0] < 0 Then o\C[0] = 0
		If o\C[1] < 0 Then o\C[1] = 0
		If o\C[2] < 0 Then o\C[2] = 0

		If o\C[0] <= 0 And o\C[1] <= 0 And o\C[2] <= 0 Then Del = 1
	ElseIf o\ID = 5 Then ; Fader
		Color o\C[0], o\C[1], o\C[2]
		Rect o\X, o\Y, o\W, o\W

		If o\C[0] >= 0 Then o\C[0] = o\C[0] - Rand(1, 2) Else o\C[0] = 0
		If o\C[1] >= 0 Then o\C[1] = o\C[1] - Rand(1, 2) Else o\C[1] = 0
		If o\C[2] >= 0 Then o\C[2] = o\C[2] - Rand(1, 2) Else o\C[2] = 0
		If o\C[0] < 0 Then o\C[0] = 0
		If o\C[1] < 0 Then o\C[1] = 0
		If o\C[2] < 0 Then o\C[2] = 0

		If o\C[0] <= 0 And o\C[1] <= 0 And o\C[2] <= 0 Then Del = 1			
	EndIf

	If Del = 1 Then Delete o
Next

If pLife <= 0 Then Goto GameOver

;Color 255, 0, 0: Rect pX + ImageWidth(pImg), pY + ImageHeight(pImg) - 4, 4, 4
;Rect pX - 4, pY + ImageHeight(pImg) - 4, 4, 4

Flip: Cls
Wend: End

Function RenderImg()
SetBuffer ImageBuffer(pImg): Cls
Restore playerImage: Color 255, 255, 0
For y = 0 To 8
	For x = 0 To 7
		Read tmp: If tmp = 1 Then Rect x, y, 1, 1
	Next
Next
ScaleImage pImg, 1.5, 1.5

SetBuffer ImageBuffer(eImg): Cls
Restore playerImage: Color 255, 0, 0
For y = 0 To 8
	For x = 0 To 7
		Read tmp: If tmp = 1 Then Rect x, y, 1, 1
	Next
Next
ScaleImage eImg, 1.5, 1.5

End Function

Function RenderLand()
SetBuffer ImageBuffer(gImg): Cls
tmp = 1
For i = 0 To 640 Step Dist    ; Create points
	Points.Obj(tmp) = New Obj ; Create type
	Points(tmp)\X = i
	Points(tmp)\Y = 50 - Rand(20, 50)
	tmp = tmp + 1
Next
Color 0, 178, 0
For i = 1 To tmp - 1
	If i <> 1 Then Line Points(i - 1)\X, Points(i - 1)\Y, Points(i)\X, Points(i)\Y
	If i <> 1 Then Line Points(i - 1)\X, Points(i - 1)\Y + 1, Points(i)\X, Points(i)\Y + 1
	If i <> 1 Then Line Points(i - 1)\X, Points(i - 1)\Y + 1, Points(i)\X, Points(i)\Y + 2
	If i <> 1 Then Line Points(i - 1)\X, Points(i - 1)\Y + 1, Points(i)\X, Points(i)\Y + 3
Next

End Function

Function CreateFuse(x, y)
	o.Obj = New Obj
	o\X = X + 4: o\Y = Y: o\ID = 3: o\S = Rand(50, 250)
End Function

Function CreateFire(x, y)
	tmp1 = Rand(100, 255): tmp2 = Rand(100, 255): tmp3 = Rand(100, 255)
	For i = 0 To 50
		o.Obj = New Obj
		o\X = X: o\Y = Y: o\A = Rand(0, 359): o\W = 5
		o\R = 0: o\S = Rnd(.1, 2): o\ID = 4: o\D = 0
		o\C[0] = tmp1: o\C[1] = tmp2: o\C[2] = tmp3
	Next
End Function

Function CreateFade(x, y, c1, c2, c3, w)
	o.Obj = New Obj
	o\ID = 5: o\W = w: o\A = a: o\R = R: o\S = S
	o\X = x: o\Y = y
	o\C[0] = c1: o\C[1] = c2: o\C[2] = c3
End Function

.GameOver
FlushKeys()
Repeat
Color 255, 255, 255: Text 1, 1, "You have died while valiantly fighting for your country."
Color 255, 255, 0: Text 1, 16, "Final Score: " + pScore
Color 0, 255, 255: Text 1, 48, "Press ENTER to try again, or ESCAPE to exit"

If KeyDown(1) Then End

Flip: Cls
Until KeyDown(28)
Delete Each Obj
Goto Again

.playerImage
Data 0,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,0,1,1,0,1,1
Data 1,1,1,1,1,1,1,1
Data 1,1,0,0,0,0,1,1
Data 1,1,1,0,0,1,1,1
Data 1,1,1,1,1,1,1,1
Data 0,1,1,1,1,1,1,0