Posts: 3,964
Threads: 176
Joined: Apr 2022
Reputation:
219
09-01-2023, 09:49 AM
(This post was last modified: 09-01-2023, 09:51 AM by bplus.)
```Dim Shared row, col As Integer
Dim Shared levelMap(1 To 12) As String
Dim Shared tileSymbol As String
Sub LoadLabel (numLevel)
' ??µ??????a ???t? t?? pa????d???
levelMap(1) = " ############ "
levelMap(2) = " # # "
levelMap(3) = " # # "
levelMap(4) = " # $$ # "
levelMap(5) = " # $ $ # "
levelMap(6) = " # $$ # "
levelMap(7) = " ###############"
levelMap(8) = "# #"
levelMap(9) = "# #"
levelMap(10) = "# #"
levelMap(11) = "# #"
levelMap(12) = "############### "
' ??as??ste t?? ???t? ?a? ???ste ta ?a?a?t???st??? t?? p?a??d???
For row = 1 To MapHeight ' <<<<<<<<<<<<<<<<<<<<<<< what is MapHeight?
For col = 1 To MapWidth ' <<<<<<<<<<<<<<<<<<<<<< what is MapWidth
tileSymbol = Mid$(levelMap(row), col, 1)
MapTiles(col, row).Symbol = tileSymbol ' what is .Symbol ? no type definition given
MapTiles(col, row).IsBox = 0 ' what is .IsBox ? no type definition given
MapTiles(col, row).IsGoal = 0 ' what is .IsGoal ? no type definition given
If tileSymbol = "$" Then
MapTiles(col, row).IsBox = 1
ElseIf tileSymbol = "." Then
MapTiles(col, row).IsGoal = 1
End If
Next col
Next row
End Sub```
```
MapTiles(col, row).Symbol = tileSymbol ' what is .Symbol ? no type definition given
MapTiles(col, row).IsBox = 0 ' what is .IsBox ? no type definition given
MapTiles(col, row).IsGoal = 0 ' what is .IsGoal ? no type definition given```
This kind of stuff needs a UDT = User Defined Type which is what people tried to show you in posts above.
b = b + ...
Posts: 35
Threads: 5
Joined: Apr 2022
Reputation:
5
Code: (Select All) Screen _NewImage(640, 480, 32)
Const MapWidth = 30
Const MapHeight = 22
TileWidth = 20
TileHeight = 13
Type GoalType
Score As Integer
Description As String
IsComplete As Integer
End Type
Type Tile
Symbol As String * 1 'use higher numbers if you need more chars
IsBox As Integer ' 0 for False, 1 for True
IsGoal As Integer ' 0 for False, 1 for True
HasBox As Integer ' 0 for False, 1 for True
HasPlayer As Integer ' 0 for False, 1 for True
X As Integer
Y As Integer
End Type
Dim Shared row, col As Integer
Dim Shared levelMap(0 To 20) As String
Dim Shared tileSymbol As String
Dim Shared MapTiles(MapWidth, MapHeight) As Tile
Dim Shared Map(MapWidth, MapHeight) As Integer
Dim Shared PlayerX, PlayerY
Dim Shared NumGoals, GoalsCompleted
Dim Shared GoalsCoveredCount As Integer
Dim Shared boxTile As Tile
Dim Shared currentTile As Tile
Dim Shared prevX As Integer
Dim Shared prevY As Integer
Dim Shared newBoxTile As Tile
Dim Shared positionAfterBox As Tile
Dim Shared prevSymbol As String
Dim Shared prevIsGoal As Integer
Dim Shared possibleMove As _Unsigned _Byte
Dim Shared otherGoal As Tile
Dim Shared goal As Tile
Dim Shared j As Integer
Dim Shared Goals(6) As Tile
Dim Shared GoalArr(10) As GoalType
' Initialize MapTiles
' Set up walls
InitializeGame
LoadLabel
' Initialize GoalsCoveredCount to 0
GoalsCoveredCount = 0
Do
_Limit 60
DrawMap
_Display
Do
key$ = InKey$
If Len(key$) > 0 Then Exit Do
Loop
If key$ = Chr$(27) Then Exit Do
newX = PlayerX
newY = PlayerY
Select Case UCase$(key$)
Case "W", Chr$(0) + Chr$(72) ' "w" key or up arrow
newY = PlayerY - 1
Case "S", Chr$(0) + Chr$(80) ' "s" key or down arrow
newY = PlayerY + 1
Case "A", Chr$(0) + Chr$(75) ' "a" key or left arrow
newX = PlayerX - 1
Case "D", Chr$(0) + Chr$(77) ' "d" key or right arrow
newX = PlayerX + 1
End Select
If newX >= 1 And newX <= MapWidth And newY >= 1 And newY <= MapHeight Then
If MapTiles(newX, newY).Symbol = " " Or MapTiles(newX, newY).Symbol = "." Then
MovePlayer newX, newY
ElseIf Map(newX, newY) = 36 Then
MoveBox newX, newY, newBoxX, newBoxY
End If
End If
mouseX = _MouseX
mouseY = _MouseY
If mouseX >= 0 And mouseX <= 640 And mouseY >= 0 And mouseY <= 480 Then
tileX = Int(mouseX / TileWidth) + 1
tileY = Int(mouseY / TileHeight) + 1
If tileX >= 1 And tileX <= MapWidth And tileY >= 1 And tileY <= MapHeight Then
If MOUSECLICK() Then
If Map(tileX, tileY) = 0 Or Map(tileX, tileY) = 46 Then ' 0 για κενό, 46 για τελεία
MovePlayer tileX, tileY
ElseIf Map(tileX, tileY) = 36 Then ' 36 για το σύμβολο $
MoveBox tileX, tileY, newBoxX, newBoxY
End If
End If
End If
End If
Loop Until GoalsCompleted = NumGoals
Cls
Print "Congratulations! You completed the level."
End
Sub PushGoals (dx As Integer, dy As Integer)
Dim i As Integer
For i = 0 To UBound(GoalArr)
GoalArr(i).Score = 0
GoalArr(i).Description = ""
GoalArr(i).IsComplete = 0
Next
ReDim Goals(6) As Tile
Goals(1).Symbol = "o"
Goals(2).Symbol = "."
Goals(3).Symbol = "*"
'Goals(1).IsBox = False
'Goals(1).IsGoal = True
'Goals(1).HasBox = False
'Goals(1).HasPlayer = False
Goals(1).IsBox = 0
Goals(1).IsGoal = 1
Goals(1).HasBox = 0
Goals(1).HasPlayer = 0
Goals(1).X = 4
Goals(1).Y = 7
For i = 1 To NumGoals
goal = MapTiles(i, j)
If goal.X = PlayerX + dx And goal.Y = PlayerY + dy Then
' The goal is in that direction
' Check if we can move it
If IsTileWalkable(goal.X + dx, goal.Y + dy) And Not IsGoalAtLocation(goal.X + dx, goal.Y + dy) Then
' Move the goal to the new position
MapTiles(goal.X, goal.Y).Symbol = "."
MapTiles(goal.X + dx, goal.Y + dy).Symbol = goal.Symbol
goal.X = goal.X + dx
goal.Y = goal.Y + dy
' See if there is another goal to move
possibleMove = True
Do Until Not possibleMove
possibleMove = False
For j = 1 To NumGoals
otherGoal = MapTiles(j, j)
If i <> j Then
If otherGoal.X = goal.X And otherGoal.Y = goal.Y Then
' There is another goal next to this one; move it too
If IsTileWalkable(otherGoal.X + dx, otherGoal.Y + dy) And Not IsGoalAtLocation(otherGoal.X + dx, otherGoal.Y + dy) Then
MapTiles(otherGoal.X, otherGoal.Y).Symbol = "."
MapTiles(otherGoal.X + dx, otherGoal.Y + dy).Symbol = otherGoal.Symbol
otherGoal.X = otherGoal.X + dx
otherGoal.Y = otherGoal.Y + dy
possibleMove = True
Exit Do
End If
End If
End If
Next j
Loop
Exit Sub
End If
End If
Next i
End Sub
Sub DrawMap ()
Cls
For y = 1 To MapHeight
For x = 1 To MapWidth
If x = PlayerX And y = PlayerY Then
Print "@"; ' Draw the player
Else
If MapTiles(x, y).Symbol = "." Then
Print "o";
Else
Print MapTiles(x, y).Symbol;
End If
End If
Next x
Print
Next y
Print "Goals completed: " + Str$(GoalsCompleted) + "/" + Str$(NumGoals) + "/" + Str$(GoalsCoveredCount) + "/" + Str$(tileSymol)
End Sub
Sub MovePlayer (newX, newY)
prevX = PlayerX
prevY = PlayerY
currentTile = MapTiles(PlayerX, PlayerY)
prevSymbol = currentTile.Symbol
prevIsGoal = currentTile.IsGoal
If currentTile.IsGoal = 1 Then
currentTile.Symbol = "."
MoveBox PlayerX, PlayerY, newX, newY
Else
currentTile.Symbol = " "
End If
PlayerX = newX
PlayerY = newY
End Sub
Sub MoveBox (boxX, boxY, newBoxX, newBoxY)
If newBoxTile.Symbol = "." Then
positionAfterBox = MapTiles(newBoxX + (newBoxX - boxX), newBoxY + (newBoxY - boxY))
If newBoxX >= 1 And newBoxX <= MapWidth And newBoxY >= 1 And newBoxY <= MapHeight Then
newBoxTile = MapTiles(newBoxX, newBoxY)
If positionAfterBox.Symbol <> "." Then
boxTile = MapTiles(boxX, boxY)
If boxTile.IsGoal = 1 Then
boxTile.Symbol = "."
Else
boxTile.Symbol = " "
End If
newBoxTile.Symbol = "$"
MapTiles(newBoxX, newBoxY).Symbol = "."
MapTiles(newBoxX, newBoxY).HasBox = 1
MapTiles(boxX, boxY).HasBox = 0
GoalsCoveredCount = GoalsCoveredCount + 1
MoveBox PlayerX, PlayerY, newX, newY
MovePlayer boxX, boxY
End If
ElseIf newBoxTile.Symbol = " " Then
boxTile = MapTiles(boxX, boxY)
If boxTile.IsGoal = 1 Then
boxTile.Symbol = "."
Else
boxTile.Symbol = " "
End If
End If
End If
End Sub
Sub InitializeGame ()
NumGoals = 6
GoalsCompleted = 0
' Set up player
PlayerX = 13
PlayerY = 10
MapTiles(PlayerX, PlayerY).Symbol = "@"
For y = 1 To MapHeight
For x = 1 To MapWidth
Map(x, y) = Asc(" ")
Next x
Next y
For y = 1 To MapHeight
For x = 1 To MapWidth
MapTiles(x, y).Symbol = " "
MapTiles(x, y).IsGoal = 0
MapTiles(x, y).IsBox = 0
Next x
Next y
For x = 1 To MapWidth
MapTiles(x, 1).Symbol = "*"
MapTiles(x, MapHeight).Symbol = "*"
Next x
For y = 1 To MapHeight
MapTiles(1, y).Symbol = "*"
MapTiles(MapWidth, y).Symbol = "*"
Next y
End Sub
Sub LoadLabel ()
' Δημιουργία χάρτη του παιχνιδιού
levelMap(1) = " ##### "
levelMap(2) = " # # "
levelMap(3) = " #$ # "
levelMap(4) = " ### $# "
levelMap(5) = " # $ $ # "
levelMap(6) = " # # ## # ##### "
levelMap(7) = " #### # ## ## ..# "
levelMap(8) = " # $ ..# "
levelMap(9) = " #### ## # ## ..# "
levelMap(10) = " ### ## ######### "
levelMap(11) = " # # "
levelMap(12) = " ################ "
' Διασχίστε τον χάρτη και ορίστε τα χαρακτηριστικά των πλακιδίων
For row = 1 To MapHeight
For col = 1 To MapWidth
'tileSymbol = MID(levelMap(row), col, 1)
MapTiles(col, row).Symbol = tileSymbol
MapTiles(col, row).IsBox = 0
MapTiles(col, row).IsGoal = 0
If tileSymbol = "$" Then
MapTiles(col, row).IsBox = 1
ElseIf tileSymbol = "." Then
MapTiles(col, row).IsGoal = 1
End If
Next col
Next row
End Sub
This is all code.
Thanks.
Posts: 3,964
Threads: 176
Joined: Apr 2022
Reputation:
219
09-01-2023, 10:08 AM
(This post was last modified: 09-01-2023, 10:09 AM by bplus.)
EDIT: ah you posted something with more info
b = b + ...
Posts: 35
Threads: 5
Joined: Apr 2022
Reputation:
5
09-01-2023, 10:19 AM
(This post was last modified: 09-01-2023, 10:26 AM by gaslouk.)
(09-01-2023, 10:08 AM)bplus Wrote: EDIT: ah you posted something with more info As many as you needed.
Change this line please
Code: (Select All) levelMap(8) = " # $ ..# "
with this line.
Code: (Select All) levelMap(8) = " # $ $ ..# "
Τhanks.
Posts: 3,964
Threads: 176
Joined: Apr 2022
Reputation:
219
09-01-2023, 11:18 AM
(This post was last modified: 09-01-2023, 11:22 AM by bplus.)
should his be loadLevel not loadLabel?
Code: (Select All) Sub LoadLabel () ' <<< loadLevel(LevelNumber)
' ??µ??????a ???t? t?? pa????d???
levelMap(levelNumber, 1) = " ##### " ' <<< each line like this >> has (level number, row number)
levelMap(2) = " # # "
levelMap(3) = " #$ # "
levelMap(4) = " ### $# "
levelMap(5) = " # $ $ # "
levelMap(6) = " # # ## # ##### "
levelMap(7) = " #### # ## ## ..# "
levelMap(8) = " # $ ..# "
levelMap(9) = " #### ## # ## ..# "
levelMap(10) = " ### ## ######### "
levelMap(11) = " # # "
levelMap(12) = " ################ "
' level needs to have as many rows and columns as MapTiles
' ??as??ste t?? ???t? ?a? ???ste ta ?a?a?t???st??? t?? p?a??d???
For row = 1 To MapHeight
For col = 1 To MapWidth
tileSymbol = MID$(levelMap(row), col, 1) '<<< don't comment you need tileSymbol for next line and need $ for MID$
MapTiles(col, row).Symbol = tileSymbol
MapTiles(col, row).IsBox = 0
MapTiles(col, row).IsGoal = 0
If tileSymbol = "$" Then
MapTiles(col, row).IsBox = 1
ElseIf tileSymbol = "." Then
MapTiles(col, row).IsGoal = 1
End If
Next col
Next row
End Sub
I can only guess at what this stuff is suppose to be or do, don't have a clue. Thought it might be a soccer game but your level map is too complicated.
Anyway level has to match map in width and height, you only show 12 rows
b = b + ...
Posts: 35
Threads: 5
Joined: Apr 2022
Reputation:
5
Thanks b+ for the help.
The game is a clone of Sokoban.
Code: (Select All) Screen _NewImage(640, 480, 32)
Const MapWidth = 30
Const MapHeight = 22
TileWidth = 30
TileHeight = 22
Type GoalType
Score As Integer
Description As String
IsComplete As Integer
End Type
Type Tile
Symbol As String * 1 'use higher numbers if you need more chars
IsBox As Integer ' 0 for False, 1 for True
IsGoal As Integer ' 0 for False, 1 for True
HasBox As Integer ' 0 for False, 1 for True
HasPlayer As Integer ' 0 for False, 1 for True
X As Integer
Y As Integer
End Type
Dim Shared row, col As Integer
Dim Shared levelMap As String * 25
Dim Shared tileSymbol As String
Dim Shared MapTiles(MapWidth, MapHeight) As Tile
Dim Shared Map(MapWidth, MapHeight) As Integer
Dim Shared PlayerX, PlayerY
Dim Shared NumGoals, GoalsCompleted
Dim Shared GoalsCoveredCount As Integer
Dim Shared boxTile As Tile
Dim Shared currentTile As Tile
Dim Shared prevX As Integer
Dim Shared prevY As Integer
Dim Shared newBoxTile As Tile
Dim Shared positionAfterBox As Tile
Dim Shared prevSymbol As String
Dim Shared prevIsGoal As Integer
Dim Shared possibleMove As _Unsigned _Byte
Dim Shared otherGoal As Tile
Dim Shared goal As Tile
Dim Shared j As Integer
Dim Shared Goals(6) As Tile
Dim Shared GoalArr(10) As GoalType
' Initialize MapTiles
' Set up walls
InitializeGame
LoadLevel (1)
' Initialize GoalsCoveredCount to 0
GoalsCoveredCount = 0
Do
_Limit 60
DrawMap
_Display
Do
key$ = InKey$
If Len(key$) > 0 Then Exit Do
Loop
If key$ = Chr$(27) Then Exit Do
newX = PlayerX
newY = PlayerY
Select Case UCase$(key$)
Case "W", Chr$(0) + Chr$(72) ' "w" key or up arrow
newY = PlayerY - 1
Case "S", Chr$(0) + Chr$(80) ' "s" key or down arrow
newY = PlayerY + 1
Case "A", Chr$(0) + Chr$(75) ' "a" key or left arrow
newX = PlayerX - 1
Case "D", Chr$(0) + Chr$(77) ' "d" key or right arrow
newX = PlayerX + 1
End Select
If newX >= 1 And newX <= MapWidth And newY >= 1 And newY <= MapHeight Then
If MapTiles(newX, newY).Symbol = " " Or MapTiles(newX, newY).Symbol = "." Then
MovePlayer newX, newY
ElseIf Map(newX, newY) = 36 Then
MoveBox newX, newY, newBoxX, newBoxY
End If
End If
mouseX = _MouseX
mouseY = _MouseY
If mouseX >= 0 And mouseX <= 640 And mouseY >= 0 And mouseY <= 480 Then
tileX = Int(mouseX / TileWidth) + 1
tileY = Int(mouseY / TileHeight) + 1
If tileX >= 1 And tileX <= MapWidth And tileY >= 1 And tileY <= MapHeight Then
If MOUSECLICK() Then
If Map(tileX, tileY) = 0 Or Map(tileX, tileY) = 46 Then ' 0 για κενό, 46 για τελεία
MovePlayer tileX, tileY
ElseIf Map(tileX, tileY) = 36 Then ' 36 για το σύμβολο $
MoveBox tileX, tileY, newBoxX, newBoxY
End If
End If
End If
End If
Loop Until GoalsCompleted = NumGoals
Cls
Print "Congratulations! You completed the level."
End
Sub PushGoals (dx As Integer, dy As Integer)
Dim i As Integer
For i = 0 To UBound(GoalArr)
GoalArr(i).Score = 0
GoalArr(i).Description = ""
GoalArr(i).IsComplete = 0
Next
ReDim Goals(6) As Tile
Goals(1).Symbol = "o"
Goals(2).Symbol = "."
Goals(3).Symbol = "*"
Goals(1).IsBox = 0
Goals(1).IsGoal = 1
Goals(1).HasBox = 0
Goals(1).HasPlayer = 0
Goals(1).X = 4
Goals(1).Y = 7
For i = 1 To NumGoals
goal = MapTiles(i, j)
If goal.X = PlayerX + dx And goal.Y = PlayerY + dy Then
' The goal is in that direction
' Check if we can move it
If IsTileWalkable(goal.X + dx, goal.Y + dy) And Not IsGoalAtLocation(goal.X + dx, goal.Y + dy) Then
' Move the goal to the new position
MapTiles(goal.X + dx, goal.Y + dy).Symbol = goal.Symbol
MapTiles(goal.X, goal.Y).Symbol = "."
goal.X = goal.X + dx
goal.Y = goal.Y + dy
' See if there is another goal to move
possibleMove = True
Do Until Not possibleMove
possibleMove = False
For j = 1 To NumGoals
otherGoal = MapTiles(j, j)
If i <> j Then
If otherGoal.X = goal.X And otherGoal.Y = goal.Y Then
' There is another goal next to this one; move it too
If IsTileWalkable(otherGoal.X + dx, otherGoal.Y + dy) And Not IsGoalAtLocation(otherGoal.X + dx, otherGoal.Y + dy) Then
MapTiles(otherGoal.X, otherGoal.Y).Symbol = "."
MapTiles(otherGoal.X + dx, otherGoal.Y + dy).Symbol = otherGoal.Symbol
otherGoal.X = otherGoal.X + dx
otherGoal.Y = otherGoal.Y + dy
possibleMove = True
Exit Do
End If
End If
End If
Next j
Loop
Exit Sub
End If
End If
Next i
End Sub
Sub DrawMap ()
Cls
For y = 1 To MapHeight
For x = 1 To MapWidth
If x = PlayerX And y = PlayerY Then
Print "@"; ' Draw the player
Else
If MapTiles(x, y).Symbol = "." Then
Print "o";
Else
Print MapTiles(x, y).Symbol;
End If
End If
Next x
Print
Next y
Print "Goals completed: " + Str$(GoalsCompleted) + "/" + Str$(NumGoals) + "/" + Str$(GoalsCoveredCount)
End Sub
Sub MovePlayer (newX, newY)
prevX = PlayerX
prevY = PlayerY
currentTile = MapTiles(PlayerX, PlayerY)
prevSymbol = currentTile.Symbol
prevIsGoal = currentTile.IsGoal
If currentTile.IsGoal = 1 Then
currentTile.Symbol = "."
MoveBox PlayerX, PlayerY, newX, newY
Else
currentTile.Symbol = " "
End If
PlayerX = newX
PlayerY = newY
End Sub
Sub MoveBox (boxX, boxY, newBoxX, newBoxY)
'Dim boxTile As Tile ' Πρέπει να δηλώσετε τις μεταβλητές boxX και boxY
If newBoxTile.Symbol = "." Then
'positionAfterBox = MapTiles(newBoxX + (newBoxX - boxX), newBoxY + (newBoxY - boxY))
If newBoxX >= 1 And newBoxX <= MapWidth And newBoxY >= 1 And newBoxY <= MapHeight Then
newBoxTile = MapTiles(newBoxX, newBoxY)
If positionAfterBox.Symbol <> "." Then
boxTile = MapTiles(boxX, boxY)
If boxTile.IsGoal = 1 Then
boxTile.Symbol = "."
Else
boxTile.Symbol = " "
End If
newBoxTile.Symbol = "$"
MapTiles(newBoxX, newBoxY).Symbol = "."
MapTiles(newBoxX, newBoxY).HasBox = 1
MapTiles(boxX, boxY).HasBox = 0
GoalsCoveredCount = GoalsCoveredCount + 1
MoveBox PlayerX, PlayerY, newBoxX, newBoxY
MovePlayer boxX, boxY
End If
ElseIf newBoxTile.Symbol = " " Then
boxTile = MapTiles(boxX, boxY)
If boxTile.IsGoal = 1 Then
boxTile.Symbol = "."
Else
boxTile.Symbol = " "
End If
End If
End If
End Sub
Sub InitializeGame ()
NumGoals = 6
GoalsCompleted = 0
' Set up player
PlayerX = 11
PlayerY = 9
MapTiles(PlayerX, PlayerY).Symbol = "@"
For y = 1 To MapHeight
For x = 1 To MapWidth
Map(x, y) = Asc(" ")
Next x
Next y
For y = 1 To MapHeight
For x = 1 To MapWidth
MapTiles(x, y).Symbol = " "
MapTiles(x, y).IsGoal = 0
MapTiles(x, y).IsBox = 0
Next x
Next y
For x = 1 To MapWidth
MapTiles(x, 1).Symbol = "*"
MapTiles(x, MapHeight).Symbol = "*"
Next x
For y = 1 To MapHeight
MapTiles(1, y).Symbol = "*"
MapTiles(MapWidth, y).Symbol = "*"
Next y
End Sub
Sub LoadLevel (levelNumber As Integer)
ReDim levelMap(levelNumber, 23) As String * 25 ' Δημιουργία του δυναμικού πίνακα με τον απαιτούμενο αριθμό σειρών
levelMap(levelNumber, 1) = " ##### "
levelMap(levelNumber, 2) = " # # "
levelMap(levelNumber, 3) = " #$ # "
levelMap(levelNumber, 4) = " ### $# "
levelMap(levelNumber, 5) = " # $ $ # "
levelMap(levelNumber, 6) = " # # ## # ##### "
levelMap(levelNumber, 7) = " #### # ## ## ..# "
levelMap(levelNumber, 8) = " # $ $ ..# "
levelMap(levelNumber, 9) = " #### ## # ## ..# "
levelMap(levelNumber, 10) = " ### ## ######### "
levelMap(levelNumber, 11) = " # # "
levelMap(levelNumber, 12) = " ################ "
For row = 1 To MapHeight
For col = 1 To MapWidth
tileSymbol = Mid$(levelMap(levelNumber, row), col, 1)
MapTiles(col, row).Symbol = tileSymbol
MapTiles(col, row).IsBox = 0
MapTiles(col, row).IsGoal = 0
If tileSymbol = "$" Then
MapTiles(col, row).IsBox = 1
ElseIf tileSymbol = "." Then
MapTiles(col, row).IsGoal = 1
End If
Next col
Next row
End Sub
I have problems with the push of the boxes.
help please.
Thanks again.
Posts: 3,964
Threads: 176
Joined: Apr 2022
Reputation:
219
09-03-2023, 06:39 PM
(This post was last modified: 09-03-2023, 06:41 PM by bplus.)
I think you want to MoveBox when player is trying to go into $ location.
So when moving player see if he is trying to go into $ sign place.
But then there is a problem: can the box be moved in the direction the player is pushing?
I looked up the SmallBASIC version of Sokoban here:
https://raw.githubusercontent.com/smallb...okoban.bas
It is massive!!! but might help you @gaslouk ???
(I never learned that game, at first I thought it 2048 another one I never tried.)
b = b + ...
|
