Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Problem With Changing Map Size


doomteam1
 Share

Recommended Posts

I've change the map size correctly, on both the client and the server. I've deleted all maps and changed the size of PicScreen. However now it doesn't get the mousex and mousey correctly. What i mean is while moving the the bottom of the screen or to the right the actual place where it says the mouse is and where the mouse actually is becomes separated.

So i was wondering if i missed a place on changing the map size. Or if i have to change anything else.
Link to comment
Share on other sites

Go into the form editor and tell me what the scaleheight and scalewidth are for picScreen. I think that is what affected it for me but I am not 100% sure. And just to be sure, you do have the constants set like this:

actual pixels of map - (x)400 x (y) 600
MAX_MAPX = 12
MAX_MAPY = 18
(as an example, mapx and mapy have to be the actual size - 1 divided by 32.
Link to comment
Share on other sites

yes i've tried with 4 differnt computers, 2 mine, 2 from people in other countries.

It has to do with this
```
            x = x + picHotbar.Left + 1
```
in this sub

```
Private Sub picHotbar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim SlotNum As Long

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    SlotNum = IsHotbarSlot(x, y)

    If SlotNum <> 0 Then
        If Hotbar(SlotNum).sType = 1 Then ' item
            x = x + picHotbar.Left + 1
            y = y + picHotbar.top - picItemDesc.height - 1
            UpdateDescWindow Hotbar(SlotNum).Slot, x, y
            LastItemDesc = Hotbar(SlotNum).Slot ' set it so you don't re-set values
            Exit Sub
        ElseIf Hotbar(SlotNum).sType = 2 Then ' spell
            x = x + picHotbar.Left + 1
            y = y + picHotbar.top - picSpellDesc.height - 1
            UpdateSpellWindow Hotbar(SlotNum).Slot, x, y
            LastSpellDesc = Hotbar(SlotNum).Slot  ' set it so you don't re-set values
            Exit Sub
        End If
    End If

    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
    picSpellDesc.Visible = False
    LastSpellDesc = 0 ' no spell was last loaded

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "picHotbar_MouseMove", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...