Posts: 292
Threads: 15
Joined: Apr 2022
Reputation:
49
wow that's three insults in a row, very nice
Posts: 3,885
Threads: 174
Joined: Apr 2022
Reputation:
202
I'd call it Merry Making
b = b + ...
Posts: 81
Threads: 8
Joined: May 2022
Reputation:
3
03-24-2023, 05:19 AM
(This post was last modified: 03-24-2023, 11:13 AM by DANILIN.)
my artificial intelligence predicted dependence of covid on sun
and there is my picture about covid waves specially from April 1, 2020
when there was not a single wave of covid
and if there is a download tool with a download date, date will be confirmed
plus my ours no one was sick to covid after making 3 vaccinations of sputink
milli gif 35 kB in my automatic neuronet nano quantum algorithm
Write name of program in 1st line to copy & paste & save filename.bas
Insert program pictures: press print-screen-shot button
Open paint & Paste & Save as PNG
Add picture file to program topic
Russia looks world from future. Big data is peace data.
I never recommend anything & always write only about myself
Posts: 1,588
Threads: 59
Joined: Jul 2022
Reputation:
52
03-24-2023, 05:49 AM
Thank you DANILIN.
Posts: 292
Threads: 15
Joined: Apr 2022
Reputation:
49
hey I saw that edit, bplus
Posts: 3,885
Threads: 174
Joined: Apr 2022
Reputation:
202
Freudian slip ;-))
b = b + ...
Posts: 1,588
Threads: 59
Joined: Jul 2022
Reputation:
52
(03-23-2023, 11:18 AM)DANILIN Wrote: plus it looks like XONIX
It just hit me what this "XONIX" could be. Downloaded the latest KolibriOS (update March 2023) and came across that game. Which reminded me of one that was very addictive to me many years ago written in Turbo Pascal v3.0 called "Antix" or something like that. It was like that "Qix" game I played on Nintendo Game Boy, but with bouncing balls as enemies. But the sound effects were annoying LOL. The game was hard, could never reserve more than half the area against three balls.
That "Antix" was pretty good from the late 1980's, it helped open my eyes that it was possible to create a game with BASIC or Pascal which ran very quickly if certain things were in order, and not resort to assembly language. Back then I had a Tandy1000HX with a memory board expanding to 640KB and it was pokey. I should have been able to come up with a game like that with Turbo Pascal v5.5 or v6.0 but became lazy and unrealistic with the goals. I hated pointers that much, wanted nothing to do with C but wound up learning it and dabbling into it anyway, less for games. With that I was trying to get some kind of advantage while searching for employment.
Side note: KolibriOS is an entirely different operating system from what you might have seen. The disk image is only about 250MB. It could be written raw to an USB stick and booted. It's a throwback to Windows98 or something like that, has some development tools and many games. It has a Tiny Basic interpreter -- too tiny for me LOL. The operating system was written by a bunch of Russian programmers. Not to be confused with ReactOS, an attempt to re-create WindowsNT.
Posts: 3,885
Threads: 174
Joined: Apr 2022
Reputation:
202
Quote:it's easy to make multiple stalkers aiming for a hero
Basic Chase and Prize Game: The Sequel
Code: (Select All) _Title "Basic Chase and Prize Game: The Sequel" ' b+ 2023-03-24, 2023-04-01
Randomize Timer
Type XY
As Long x, y
End Type
Dim doomer(1 To 5) As XY
Screen _NewImage(640, 480, 32) '80 cols X 30 rows
_ScreenMove 250, 100
Locate 7, 20: Print "*** Basic Chase and Prize Game ***"
Locate 10, 20: Print "H = Hero"
Locate 12, 20: Print "* = Prize"
Locate 14, 20: Print "X = Doom!"
Locate 18, 20: Print "Object: Use NumberPad to Collect prizes,"
Locate 19, 28: Print "don't let Doom come to Hero!"
Locate 25, 20: Print "press any to start...."
Sleep
While _KeyDown(27) = 0
DoomMoves = 20
dooms = 1
HeroX = 40: HeroY = 15
score = 0
PrizeX = Int(Rnd * 80) + 1: PrizeY = Int(Rnd * 30) + 1
doomer(dooms).x = Int(Rnd * 80) + 1: doomer(dooms).y = Int(Rnd * 30) + 1
Do
Cls ' screen update
Locate HeroY, HeroX: Print "H";
Locate PrizeY, PrizeX: Print "*";
For i = 1 To dooms
Locate doomer(i).y, doomer(i).x: Print "X";
Next
If HeroX = PrizeX And HeroY = PrizeY Then
score = score + 1
PrizeX = Int(Rnd * 80) + 1: PrizeY = Int(Rnd * 30) + 1
If DoomMoves > 14 Then DoomMoves = DoomMoves - 1
If dooms < 5 Then dooms = dooms + 1
For i = 1 To dooms
doomer(i).x = Int(Rnd * 80) + 1: doomer(i).y = Int(Rnd * 30) + 1
Next
Else
For i = 1 To dooms
If doomer(i).x = HeroX And doomer(i).y = HeroY Then
Locate 15, 33: Print "Game Over ...ZZZ"
Beep: _Delay 3: _KeyClear: Sleep: Exit Do
End If
Next
End If
_Title "Prizes:" + Str$(score)
kh& = _KeyHit
Select Case kh& ' top left to bottom right
Case 55, 18176 ' up and left
DX = -1: DY = -1
Case 56, 18432 ' up
DX = 0: DY = -1
Case 57, 18688 ' up and right
DX = 1: DY = -1
Case 52, 19200 ' left
DX = -1: DY = 0
Case 54, 19712 ' right
DX = 1: DY = 0
Case 49, 20224 ' left and down
DX = -1: DY = 1
Case 50, 20480 ' down
DX = 0: DY = 1
Case 51, 20736 ' down and right
DX = 1: DY = 1
Case Else
DX = 0: DY = 0
End Select
testX = HeroX + DX: testY = HeroY + DY
If testX > 0 And testX < 81 And testY > 0 And testY < 31 Then
HeroX = testX: HeroY = testY
Else
Beep
End If
lc = lc + 1
If lc >= DoomMoves Then
For i = 1 To dooms
doomer(i).x = doomer(i).x + Sgn(HeroX - doomer(i).x): doomer(i).y = doomer(i).y + Sgn(HeroY - doomer(i).y)
Next
lc = 0
End If
_Limit 30
Loop Until _KeyDown(27)
Wend
b = b + ...
Posts: 3,885
Threads: 174
Joined: Apr 2022
Reputation:
202
Basic Chase and Prize Game - Prize Winning Edition
Code: (Select All) _Title "Basic Chase and Prize Game - The Prize Winning Edition" ' b+ 2023-03-24, 2023-04-01
Randomize Timer
Type XY
As Long x, y
End Type
Dim doomer(1 To 5) As XY
Dim prize(1 To 5) As XY
Screen _NewImage(640, 480, 32) '80 cols X 30 rows
_ScreenMove 250, 100
Locate 7, 20: Print "*** Basic Chase and Prize Game ***"
Locate 10, 20: Print "H = Hero"
Locate 12, 20: Print "* = Prize"
Locate 14, 20: Print "X = Doom!"
Locate 18, 20: Print "Object: Use NumberPad to Collect prizes,"
Locate 19, 28: Print "don't let Doom come to Hero!"
Locate 25, 20: Print "press any to start...."
Sleep
While _KeyDown(27) = 0
DoomMoves = 20
dooms = 1
HeroX = 40: HeroY = 15
score = 0
prize(dooms).x = Int(Rnd * 80) + 1: prize(dooms).y = Int(Rnd * 30) + 1
doomer(dooms).x = Int(Rnd * 80) + 1: doomer(dooms).y = Int(Rnd * 30) + 1
Do
Cls ' screen update
Locate HeroY, HeroX: Print "H";
For i = 1 To dooms
Locate doomer(i).y, doomer(i).x: Print "X";
Locate prize(i).y, prize(i).x: Print "*";
Next
For i = 1 To dooms
If HeroX = prize(i).x And HeroY = prize(i).y Then
score = score + 1
prize(i).x = Int(Rnd * 80) + 1: prize(i).y = Int(Rnd * 30) + 1
If DoomMoves > 14 Then DoomMoves = DoomMoves - 1
If dooms < 5 Then
dooms = dooms + 1
prize(dooms).x = Int(Rnd * 80) + 1: prize(dooms).y = Int(Rnd * 30) + 1
End If
For j = 1 To dooms
doomer(j).x = Int(Rnd * 80) + 1: doomer(j).y = Int(Rnd * 30) + 1
Next
Else
If doomer(i).x = HeroX And doomer(i).y = HeroY Then
Locate 15, 33: Print "Game Over ...ZZZ"
Beep: _Delay 3: _KeyClear: Sleep: Exit Do
End If
End If
Next
_Title "Basic Chase and Prize Game - Prize Winning Edition Prizes:" + Str$(score)
kh& = _KeyHit
Select Case kh& ' top left to bottom right
Case 55, 18176 ' up and left
DX = -1: DY = -1
Case 56, 18432 ' up
DX = 0: DY = -1
Case 57, 18688 ' up and right
DX = 1: DY = -1
Case 52, 19200 ' left
DX = -1: DY = 0
Case 54, 19712 ' right
DX = 1: DY = 0
Case 49, 20224 ' left and down
DX = -1: DY = 1
Case 50, 20480 ' down
DX = 0: DY = 1
Case 51, 20736 ' down and right
DX = 1: DY = 1
Case Else
DX = 0: DY = 0
End Select
testX = HeroX + DX: testY = HeroY + DY
If testX > 0 And testX < 81 And testY > 0 And testY < 31 Then
HeroX = testX: HeroY = testY
End If
lc = lc + 1
If lc >= DoomMoves Then
For i = 1 To dooms
doomer(i).x = doomer(i).x + Sgn(HeroX - doomer(i).x)
doomer(i).y = doomer(i).y + Sgn(HeroY - doomer(i).y)
Next
lc = 0
End If
_Limit 30
Loop Until _KeyDown(27)
Wend
b = b + ...
Posts: 3,885
Threads: 174
Joined: Apr 2022
Reputation:
202
I was going to do a version of Coin Hunt going around some other forums and realized its just this game!
So how come I hadn't posted my last version of the game that is far prettier?
Code: (Select All)
_Title "Basic Chase and Prize Game - With a Face" ' b+ 2023-03-24, 2023-04-01, 2023-04-02
Randomize Timer
Const cellW = 30
Type XY
As Long x, y
End Type
Dim doomer(1 To 5) As XY
Dim prize(1 To 5) As XY
Screen _NewImage(1200, 600, 32) '40 x 20
_ScreenMove 50, 50
_MouseHide
Do
Cls
k$ = InKey$
yCP 100, "*** Basic Chase and Prize Game ***"
_PrintString (550, 200), "Hero"
makeFace 650, 200
_PrintString (550, 250), "Prize"
drawstar 650, 250
_PrintString (550, 300), "Doom!"
toggle = 1 - toggle
monster 650, 300, toggle
yCP 350, "Object: Use NumberPad to Collect prizes,"
yCP 370, "don't let Doom come to Hero!"
yCP 500, "press any to start...."
_Display
_Limit 5
Loop Until Len(k$)
Color , &HFF009900: Cls
While _KeyDown(27) = 0
DoomMoves = 20
dooms = 1
HeroX = 20: HeroY = 10
score = 0
prize(dooms).x = Int(Rnd * 40) + 1: prize(dooms).y = Int(Rnd * 20) + 1
doomer(dooms).x = Int(Rnd * 40) + 1: doomer(dooms).y = Int(Rnd * 20) + 1
Do
Cls ' screen update
lc2 = lc2 + 1
If lc2 >= 10 Then toggle = 1 - toggle: lc2 = 0
makeFace HeroX * cellW - .5 * cellW, HeroY * cellW - .5 * cellW
For i = 1 To dooms
monster doomer(i).x * cellW - .5 * cellW, doomer(i).y * cellW - .5 * cellW, toggle
drawstar prize(i).x * cellW - .5 * cellW, prize(i).y * cellW - .5 * cellW
Next
For i = 1 To dooms
If HeroX = prize(i).x And HeroY = prize(i).y Then
score = score + 1
prize(i).x = Int(Rnd * 40) + 1: prize(i).y = Int(Rnd * 20) + 1
If DoomMoves > 16 Then DoomMoves = DoomMoves - 1
If dooms < 4 Then
dooms = dooms + 1
prize(dooms).x = Int(Rnd * 40) + 1: prize(dooms).y = Int(Rnd * 20) + 1
End If
For j = 1 To dooms
doomer(j).x = Int(Rnd * 40) + 1: doomer(j).y = Int(Rnd * 20) + 1
Next
Else
If doomer(i).x = HeroX And doomer(i).y = HeroY Then
yCP 18 * 16, "Game Over ...ZZZ"
Beep: _Display: _Delay 3: _KeyClear: Sleep: Exit Do
End If
End If
Next
_Title "Basic Chase and Prize Game - Prize Winning Edition Prizes:" + Str$(score)
kh& = _KeyHit
Select Case kh& ' top left to bottom right
Case 55, 18176 ' up and left
DX = -1: DY = -1
Case 56, 18432 ' up
DX = 0: DY = -1
Case 57, 18688 ' up and right
DX = 1: DY = -1
Case 52, 19200 ' left
DX = -1: DY = 0
Case 54, 19712 ' right
DX = 1: DY = 0
Case 49, 20224 ' left and down
DX = -1: DY = 1
Case 50, 20480 ' down
DX = 0: DY = 1
Case 51, 20736 ' down and right
DX = 1: DY = 1
Case Else
DX = 0: DY = 0
End Select
testX = HeroX + DX: testY = HeroY + DY
If testX > 0 And testX < 81 And testY > 0 And testY < 31 Then
HeroX = testX: HeroY = testY
End If
lc = lc + 1
If lc >= DoomMoves Then
For i = 1 To dooms
doomer(i).x = doomer(i).x + Sgn(HeroX - doomer(i).x)
doomer(i).y = doomer(i).y + Sgn(HeroY - doomer(i).y)
Next
lc = 0
End If
_Display
_Limit 30
Loop Until _KeyDown(27)
Wend
Sub makeFace (x, y)
fcirc x, y, cellW / 2.5, &HFF88AAFF
fcirc x - 3 * cellW / 24, y, cellW / 14, &HFFFFFFFF
fcirc x + 3 * cellW / 24, y, cellW / 14, &HFFFFFFFF
fcirc x - 3 * cellW / 24, y + 1, cellW / 28, &HFF000000
fcirc x + 3 * cellW / 24, y + 1, cellW / 28, &HFF000000
Line (x - cellW / 12, y + cellW / 6 + 2)-Step(cellW / 6, 2), &HFFFF4444, BF
End Sub
Sub monster (x, y, mouth)
fcirc x, y, cellW / 2.5, &HFF990000
If mouth Then
Line (x - cellW / 6, y - 6)-Step(cellW / 18, 1), &HFF000000, BF
Line (x + cellW / 12, y - 6)-Step(cellW / 18, 1), &HFF000000, BF
fcirc x, y + cellW / 6, cellW / 6, &HFF000000
Else
Line (x - cellW / 6, y - 2)-Step(cellW / 18, 1), &HFF000000, BF
Line (x + cellW / 12, y - 2)-Step(cellW / 18, 1), &HFF000000, BF
Line (x - cellW / 12, y + cellW / 6)-Step(cellW / 6, 2), &HFF000000, BF
End If
End Sub
Sub drawstar (x, y)
Star x, y, .19 * cellW, .5 * cellW, 5, 18, &HFFFFFF00, -1
End Sub
Sub Star (x, y, rInner, rOuter, nPoints, angleOffset, c~&, TFfill)
' x, y are same as for circle,
' rInner is center circle radius
' rOuter is the outer most point of star
' nPoints is the number of points,
' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
' this is to allow us to spin the polygon of n sides
' TFfill filled True or False (1 or 0)
p_angle = _D2R(360 / nPoints): rad_angle_offset = _D2R(angleOffset)
x1 = x + rInner * Cos(rad_angle_offset)
y1 = y + rInner * Sin(rad_angle_offset)
For i = 0 To nPoints - 1
x2 = x + rOuter * Cos(i * p_angle + rad_angle_offset + .5 * p_angle)
y2 = y + rOuter * Sin(i * p_angle + rad_angle_offset + .5 * p_angle)
x3 = x + rInner * Cos((i + 1) * p_angle + rad_angle_offset)
y3 = y + rInner * Sin((i + 1) * p_angle + rad_angle_offset)
Line (x1, y1)-(x2, y2), c~&
Line (x2, y2)-(x3, y3), c~&
x1 = x3: y1 = y3
Next
If TFfill Then
'Circle (x, y), 2, &HFFFFFFFF
Paint (x, y), c~&, c~&
End If
End Sub
Sub yCP (y, s$) 'for xmax pixel wide graphics screen
_PrintString ((_Width - Len(s$) * 8) / 2, y), s$
End Sub
Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)
Dim Radius As Integer, RadiusError As Integer
Dim X As Integer, Y As Integer
Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0
If Radius = 0 Then PSet (CX, CY), C: Exit Sub
Line (CX - X, CY)-(CX + X, CY), C, BF
While X > Y
RadiusError = RadiusError + Y * 2 + 1
If RadiusError >= 0 Then
If X <> Y + 1 Then
Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
End If
X = X - 1
RadiusError = RadiusError - X * 2
End If
Y = Y + 1
Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
Wend
End Sub
Because you probably can't get much farther than 5 stars.
b = b + ...
|