Upgrade 1.0.3 to 1.0.4

From VbGORE Visual Basic Online RPG Engine

Contents 1 Fix - NPC spawning 2 Fix - Choppy images

This guide will lead you through how to upgrade Version 1.0.3 to Version 1.0.4. For help, please refer to the How to upgrade article. It is highly recommended you read it before ever upgrading.

Fix - NPC spawning

Open GameServer.vbp.

Find:

<vb>

   'Clear the variables
   NPCList(NPCIndex).Char.CharIndex = 0
   NPCList(NPCIndex).Flags.NPCAlive = 0
   NPCList(NPCIndex).Flags.NPCActive = 0

</vb>

Replace with:

<vb>

   'Clear the variables
   NPCList(NPCIndex).Char.CharIndex = 0
   NPCList(NPCIndex).Flags.NPCAlive = 0

</vb>

Just the last line is being chopped off.

Fix - Choppy images

Open GameClient.vbp.

Find and delete:

<vb>

       'If the image is partially outside of the screen, it is trimmed so only that which is in the screen is drawn
       'This provides for quite a decent FPS boost if you have lots of tiles that stretch outside of the view area
       '------------------------------------------------------------------------------------------------------
       'Important: Something about this doesn't seem to be functioning correctly. If you remove the + 32 from the
       'ScreenWidth and ScreenHeight, you will get a very slightly distorted image for some tiles (usually 32x32 ones)
       'To help hide this up, only those images more than 32 pixels outside of the viewing area will be trimmed
       'If you want to help and try to fix this, change the TrimOffset to 0. On most graphic cards, you should notice
       'some "cuts" in tiles being trimmed. If you can find out how to get rid of this "cut", contact me (Spodi)
       'with what you did to fix it and I'll get it updated. :D It is easiest to see the cuts on the main map, on the
       'bottom of the screen, in the water.
       '------------------------------------------------------------------------------------------------------
       Const TrimOffset As Single = 32
       If X < 0 Then
           SrcX = SrcX - X
           SrcWidth = SrcWidth + X
           Width = Width + X
           X = 0
       End If
       If Y < 0 Then
           SrcY = SrcY - Y
           SrcHeight = SrcHeight + Y
           Height = Height + Y
           Y = 0
       End If
       If X + Width > ScreenWidth Then
           L = X + Width - ScreenWidth
           Width = Width - L
           SrcWidth = SrcWidth - L
       End If
       If Y + Height > ScreenHeight Then
           L = Y + Height - ScreenHeight
           Height = Height - L
           SrcHeight = SrcHeight - L
       End If

</vb>