Scrolling Game Development Kit Forum

Hey gang,

Long time, but still kicking it.  Working on my modified version of 1.4.6 (I'll release it if I ever finish Runsetter, I want it perfect).  Ben, was wondering how you've implemented the map editor.  I've noticed that it will scroll vertically for tiles larger than the screen resolution, but not horizontally.  For example, if my screen resolution is 1024x768 and I have a bitmap that is 2048x2048 with tiles set at 1024x1024 each, then I can scroll vertically to select the tiles in view, but not the tiles not currently in view.  Here's the lines of code I've altered, but don't seem to be taking effect:

This is inside the MapEdit class...

...                ElseIf EditMode = 1 Then                ...                If MouseX > HorizontalResolution - 16 Then                     TSOffsetX = TSOffsetX + 8                     If TSOffsetX > Disp.HimetricToPixelX(theMap.MapLayer(EditLayer).TSDef.Image.Width) - HorizontalResolution Then                         TSOffsetX = Disp.HimetricToPixelX(theMap.MapLayer(EditLayer).TSDef.Image.Width) - HorizontalResolution                     End If                 End If                 If MouseX < 16 Then                     TSOffsetX = TSOffsetX - 8                 End If                 If TSOffsetX < 0 Then TSOffsetX = 0                                 Disp.DrawTile MouseTS, 2, MouseX, MouseY, 0, 0, HorizontalResolution, VerticalResolution, True

Theoretically, it should work the same way it's drawn during runtime, so why isn't it scrolling?

Tricks with counters in the individual map's inventory didn't cut the mustard for me, not efficiently.  Well, I suppose I had to succumb to scripting and been trying to pick it up lately.  So here's the script to make the Left-Right player sprite face the Right direction at runtime:



'Declare variables for direction last facing
'Could use one boolean variable, but makes easier for non-scripter to understand
Dim facingLeft
Dim facingRight

'Before play loop starts, initialize the custom variables
Sub Player_OnPlayInit
   facingLeft = 0
   facingRight = 1
End Sub

'Depending on last button pressed, set last direction facing
Sub Player_OnControllerMove(OldActions, NewActions)
With ProjectObj.GamePlayer.PlayerSprite
   'If user presses Left arrow
   If (Not OldActions) And NewActions And ACTION_LEFT Then
      facingLeft = 1
      facingRight = 0
   End If
   'If user presses Right arrow
   If (Not OldActions) And NewActions And ACTION_RIGHT Then
      facingLeft = 0
      facingRight = 1
   End If
End With
End Sub

'Before the player's movements are processed, set the player state according
Sub Player_OnBeforeMoveSprites
With ProjectObj.GamePlayer.PlayerSprite
   'If not moving in either direction, and was last facing right, then face right
   If (.CurState Mod 2) = 0 And facingRight = 1 Then
       .CurState = 1
       'CurState = 0  facing left with no velocity
       'CurState = 1  facing right with no velocity
       'CurState = 2  facing left with velocity
       'CurState = 3  facing right with velocity
       'Didn't use these for boolean setup because CurState changes all the time
       'and as the designer, I want control over variables
   End If
End With
End Sub



That should be good globally and puts a smile on MY face. Whew!  If you want to use it, generate a VBS script using the scripting wizard and place the code from above into the proper Sub procedure.  Sub procedures are the blocks of code starting with Sub and ending with End Sub.

Hey gang,

I found a freeware program that will record our games during runtime into videos.

It's called CamStudio. Here's a link:

http://www.camstudio.org

I recorded a Runsetter demo you can view here, bottom of page:

http://www.geocities.com/eastfist/gamedev.htm


Unfortunately, no sound.

Level 2 is 90% completed. So far, it takes 17 minutes to test-play the first two levels... whew... still chugging alone.