Legal Move Will not work
Posted: Tue Aug 19, 2008 7:04 pm
I have my program... I use the following:
http://www.bluemesapc.com/Downloads/soko0.zip
with the following code:
But even though the "game" draws the target rings correctly and will NOT draw one over anything but floor tiles or green target tiles... it still allows movement into those spaces!
What am I not doing?
http://www.bluemesapc.com/Downloads/soko0.zip
with the following code:
Code: Select all
; move example
#WIDE = 1024
#HIGH = 768
#MOUSE = 1030
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Error", "DirectX 7+ Fail!", 0)
End
EndIf
Global Dim LAYER(2,2)
Global Dim PLAYER(16,12) ; holds array info about player available moves / things to encounter or pickup etc.
Global SPX
Global SPY
Global SX
Global SY
Global MaxWide
Global MaxHigh
Global Xwide
Global YHigh
OpenScreen(1024,768,16,"Tiledemo 1")
Procedure OpenMap(filename$)
OpenPreferences(filename$) ; if the file could be read, we continue...
PreferenceGroup("DATA")
MaxWide = ReadPreferenceLong("X2",0)
MaxHigh = ReadPreferenceLong("X3",0)
SPX = ReadPreferenceLong("X4",32)
SPY = ReadPreferenceLong("X5",32)
PreferenceGroup("LAYER")
LVL$ = ReadPreferenceString("X2","")
PreferenceGroup("MAPDATA")
GFile$ = ReadPreferenceString("X1", "MAP-9.bmp")
IntBase = ReadPreferenceLong("X2",4)
SpriteCount = ReadPreferenceLong("X3",4)
ClosePreferences() ; close the previously opened file
result = LoadSprite(999, GFile$)
UseBuffer(999) ; change grab buffer to sprite just created
Imagesize = IntBase * SPX - 1
Spritenumber = 0
For y = 0 To Imagesize ; <== for images arranged in column order the loops should be reversed (making x the outside loop)
For x = 0 To Imagesize
GrabSprite(Spritenumber,x,y,SPX,SPY)
Debug "CREATED SPRITE = "+Str(Spritenumber)
Spritenumber = Spritenumber + 1
If Spritenumber >= SpriteCount ; ********************************* with cursor
Break 2
EndIf
x + SPX - 1 ; <=='variable' step
Next
y + SPY - 1 ; <=='variable' step
Next
UseBuffer(#PB_Default)
Dim LAYER(MaxWide,MaxHigh)
Dim PLAYER(MaxWide,MaxHigh)
#DUDE = 7 ; number in graphic
#TARGET = 8 ; likewise
op = 1
For x = 0 To MaxWide
For y = 0 To MaxHigh
LAYER(x,y) = Asc(Mid(LVL$,op,1)) - 35
PLAYER(x,y) = 0
op = op + 1
Next
Next
Debug "***** MAXWide = "+Str(MaXWide)
Debug "***** MaxHigh = "+Str(MaxHigh)
EndProcedure
Procedure LayTargets(dudex,dudey)
For X = 0 To MaxWide
For Y = 0 To MaxHigh
PLAYER(X,Y) = 0
Next
Next
PLAYER(dudex,dudey) = #DUDE ; reset the DUDE
; check S
If LAYER(dudex,dudey+1) < 3
PLAYER(dudex,dudey+1) = #TARGET
EndIf
; check N
If LAYER(dudex+1, dudey) < 3
PLAYER(dudex+1, dudey) = #TARGET
EndIf
; check
If LAYER(dudex+1, dudey+1) < 3
PLAYER(dudex+1, dudey+1) = #TARGET
EndIf
; check W
If LAYER(dudex-1, dudey) < 3
PLAYER(dudex-1, dudey) = #TARGET
EndIf
; check
If LAYER(dudex-1, dudey-1) < 3
PLAYER(dudex-1, dudey-1) = #TARGET
EndIf
; check
If LAYER(dudex, dudey-1) < 3
PLAYER(dudex, dudey-1) = #TARGET
EndIf
; check
If LAYER(dudex-1, dudey+1) < 3
PLAYER(dudex-1, dudey+1) = #TARGET
EndIf
; check
If LAYER(dudex+1, dudey-1) < 3
PLAYER(dudex+1, dudey-1) = #TARGET
EndIf
EndProcedure
Procedure CheckMove(dudex,dudey)
If dudex > 14 ; boundaries are -1 because of 1 tile border
dudex = 14
EndIf
If dudex < 1
dudex = 1
EndIf
If dudey > 10
dudey = 10
EndIf
If dudey < 1
dudey = 1
EndIf
destination = PLAYER(dudex,dudey) ; see we are only supposed to be able to move onto the O ot #TARGET
Debug "DEST: "+Str(destination) ; I use [[ALT]} + {{TAB}} to view this after placing on a square
If destination = #TARGET
PLAYER(dudex,dudey) = #DUDE ; BUT it still places it even when destination = 0
EndIf
Laytargets(dudex,dudey)
EndProcedure
; ************************************ Change the following to change maps!
filename$ = "SOKO0.rwd"
OpenMap(filename$)
LoadSprite(#MOUSE, "Cursor1.bmp")
MouseLocate(512,381)
PLAYER(7,1) = #DUDE
LayTargets(7,1)
dudex = 7 ; start values
dudey = 1
FineStep = 4 ; 4
Repeat
ExamineKeyboard()
ExamineMouse()
MauX = MouseX() : MauY = MouseY()
ClearScreen(0)
If KeyboardPushed(#PB_Key_Left)
dudex = dudex - 1
CheckMove(dudex,dudey)
EndIf
If KeyboardPushed(#PB_Key_Right)
dudex = dudex + 1
CheckMove(dudex,dudey)
EndIf
If KeyboardPushed(#PB_Key_Up)
dudey = dudey - 1
CheckMove(dudex,dudey)
EndIf
If KeyboardPushed(#PB_Key_Down)
dudey = dudey + 1
CheckMove(dudex,dudey)
EndIf
;*** Tile Engine
For SY=0 To MaxHigh
For SX = 0 To MaxWide
DisplaySprite(LAYER(MapX+SX,MapY+SY), SPX * SX , SPY * SY)
DisplayTransparentSprite(PLAYER(MapX+SX,MapY+SY), SPX * SX - FineX , SPY * SY - FineY ) ; i was trying to use this to show movement
Next
Next
;***********************************
If MouseButton(1)
ActTileX = (MauX+FineX) / SPX + MapX
ActTileY = (MauY+FineY) / SPY + MapY
Text$ = "TILE IS: "+Str(LAYER(ActTileX,ActTileY) )
StartDrawing(ScreenOutput())
DrawText(10, 0, Text$ ,RGB(255,255,255),RGB(0,0,0))
DrawText(10,20," LAYER( "+Str(ActTileX)+" , "+Str(ActTileY)+" ) ")
StopDrawing()
EndIf
DisplayTransparentSprite(#MOUSE,MouseX(),MouseY())
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
What am I not doing?
