Upgrade 1.0.9 to 1.0.10

From VbGORE Visual Basic Online RPG Engine

Contents

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

Fix - Resolution changing in windowed mode

Open GameClient.vbp.

Find:

<vb>

   'Set the D3DDevices

</vb>

Before, add:

<vb>

   'Make sure the form is the correct side
   frmMain.Width = ScreenWidth * Screen.TwipsPerPixelX
   frmMain.Height = ScreenHeight * Screen.TwipsPerPixelY

</vb>

Fix - Projectile speed

Open GameClient.vbp.

Find:

<vb>

               ProjectileList(j).X = ProjectileList(j).X + (Sin(Angle) * 10)
               ProjectileList(j).Y = ProjectileList(j).Y - (Cos(Angle) * 10)

</vb>

Replace with:

<vb>

               ProjectileList(j).X = ProjectileList(j).X + (Sin(Angle) * ElapsedTime * 0.63)
               ProjectileList(j).Y = ProjectileList(j).Y - (Cos(Angle) * ElapsedTime * 0.63)</vb>

Fix - Better GrhDatMaker

Replace ToolGrhDatMaker with the one found in Version 1.0.10.

Add - Map back-up before crashing on missing texture

Open EditorMap.vbp.

Find:

<vb>

   'Check if the texture exists
   If Engine_FileExist(FilePath, vbNormal) = False Then
       MsgBox "Error! Could not find the following texture file:" & vbNewLine & FilePath, vbOKOnly
       IsUnloading = 1
       Exit Sub
   End If

</vb>

Replace with:

<vb>

   'Check if the texture exists
   If Engine_FileExist(FilePath, vbNormal) = False Then
       MsgBox "Error! Could not find the following texture file:" & vbNewLine & FilePath & vbNewLine & vbNewLine & _
           "A back-up of your map has been made and placed in your \Maps\ and \MapsEX\ folder.", vbOKOnly
       Game_SaveMapData CurMap, True
       IsUnloading = 1
       Exit Sub
   End If

</vb>

Fix - Saving in bright mode

Open EditorMap.vbp.

Find:

<vb> Private Sub BrightPic_Click() </vb>

Replace with:

<vb> Public Sub BrightPic_Click() </vb>

Cut the whole BrightPic_Click sub from frmMain and move it to module General.

Find:

<vb> Dim FileNumMap As Byte Dim FileNumInf As Byte </vb>

Before, add:

<vb> Dim InBright As Boolean </vb>

Find:

<vb>

   'Check for bright mode
   If BrightChkValue = 1 Then
       MsgBox "Error! Can not save a map while in Bright Mode!", vbOKOnly
       Exit Sub
   End If

</vb>

Replace with:

<vb>

   'Check for bright mode
   If BrightChkValue = 1 Then
       BrightPic_Click
       InBright = True
   End If

</vb>

At the end of the sub, after:

<vb> Engine_CreateTileLayers </vb>

Add:

<vb>

   If InBright Then
       BrightPic_Click
   End If

</vb>

Fix - Quest string fix

Open GameServer.vbp.

Find:

<vb>

   Else
       If QuestData(QuestID).FinishReqObj Then
           MessageID = 11                      'Needs object

</vb>

Replace with:

<vb>

           MessageID = 10                      'Needs object

</vb>

Fix - Banking packet

Open GameServer.vbp.

Find:

<vb>

               ConBuf.Put_Byte DataCode.User_Bank_Open

</vb>

Before, add:

<vb>

               ConBuf.PreAllocate 2

</vb>

Fix - Better server hiding

Open GameServer.vbp.

Find:

<vb>

   Me.Hide

</vb>

Before, add:

<vb>

   Me.Visible = False

</vb>

Remove - Needless right-click code

Open GameClient.vbp.

In sub Input_Mouse_RightClick_Window, find and delete each case of:

<vb>

                       'Item was not clicked
                       SelGameWindow = WriteMessageWindow
                       Exit Function

</vb>

Fix - Slash graphic

Replace the slash graphic with that found in Version 1.0.10.

Fix - GrhRawAssistant width / height

Open ToolGrhRawAssistant.vbp.

Go to the visual form editor for frmMain and swap the locations of the Width and Height text boxes.

Personal tools