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

doomteam1

Members
  • Posts

    254
  • Joined

  • Last visited

    Never

Posts posted by doomteam1

  1. @Robin:

    > So it can fill up with another 160 pages of spam? No point cleaning it if it's just going to get dirty again.

    Same thing about taking a shower?
    ewwww lol jk
    Anyways i love the engine robin, just few stuff i cna't get to work. because i don't know how they work.
  2. 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
    ```
×
×
  • Create New...