Scrollbar to Textboxes Improvement

• shadowchris: Damit stop missing. ><. Dumb fox moved out of it's trap.
  Today at 05:59:43 PM
• viciousdead: Yes, I still play H&H
  Today at 05:59:02 PM
• shadowchris: lol fox won't stay still so I trapped his ass
  Today at 05:48:47 PM
• Soul: It died some time ago.
  Today at 05:46:56 PM
• shadoboy13: Who knows what ever happened to Elysium Diamond?
  Today at 05:46:17 PM
• shadowchris: you still play H@H?
  Today at 05:46:02 PM
• viciousdead: I'm sorry shadow, I can't resist..
  Today at 05:44:39 PM
• shadowchris: lol shut up vicious
  Today at 05:43:58 PM
• SoiWilliamSoi: You still goof'd no matter what <3.
  Today at 05:43:57 PM
• viciousdead: Re: [EO] .ini-based Experience Table
  Today at 05:43:53 PM
• viciousdead: Wow, shadow, your so beast..
  Today at 05:43:28 PM

[EO] .ini-based Experience Table by viciousdead
[Today at 06:05:35 PM]
Free (/open source) Flash Alternatives? by Robin
[Today at 06:00:17 PM]
Whats the best engine by -Vegeta-
[Today at 05:59:41 PM]
Had a good day! by Black★Gold Saw
[Today at 05:56:27 PM]
First GF by Marsh
[Today at 05:53:57 PM]
Myth Has Finally Come To A End (For Now ;)) by Black★Rock Shooter
[Today at 05:52:50 PM]
Thinking about getting back into the game. by Zonova
[Today at 05:51:40 PM]
Coca-Cola v Pepsi by DDunit
[Today at 05:31:21 PM]
Do You Want To Join Myth? by Bone
[Today at 05:29:01 PM]
Hurray.... by DDunit
[Today at 05:21:02 PM]

• Guests: 28
• Hidden: 3
• Users: 28
• Users Online:

• Draken
• shadowchris
• Sojobo
• Dthen
• Azure
• Shadowwulf™
• viciousdead
• Gohan
• Dragoona
• Blux
• Hunterquest
• LOL CHIEF
• Marsh
• crzyone9584
• skevsama
• -Vegeta-
• Raichu
• Black★Gold Saw
• Black★Rock Shooter
• [PIERATE] uh-nig-muh-x™
• Kinjiru
• Athagekin
• Kreator
• Bone
• Zonova

Ok, so I thought it was wrong that eclipse limits your NPC Health, Attack, Defense, and EXP to the max their bars give you. This is a fix for that! It creates text boxes for almost every stat an NPC has (although not that useful, it is just helpful for Boss Monsters and stuff)
Ok, now download this zipped folder, unzip it, and put both files in your Source folder (Client side) and All of this is to your client side
http://www.freemmorpgmaker.com/files/imagehost/pics/b3489b85e8e58c8d94334e26c596b069.zip


Find this snippet of code in Mod GameEditor:

Code: [Select]

Public Sub NpcEditorOk()
    Npc(EditorIndex).name = frmNpcEditor.txtName.Text
    Npc(EditorIndex).AttackSay = frmNpcEditor.txtAttackSay.Text
    Npc(EditorIndex).Sprite = frmNpcEditor.scrlSprite.Value
    Npc(EditorIndex).Behavior = frmNpcEditor.cmbBehavior.ListIndex
    If Npc(EditorIndex).Behavior <> NPC_BEHAVIOR_SCRIPTED Then
        Npc(EditorIndex).SpawnSecs = Val(frmNpcEditor.txtSpawnSecs.Text)
    Else
        Npc(EditorIndex).SpawnSecs = frmNpcEditor.scrlScript.Value
    End If
    Npc(EditorIndex).Range = frmNpcEditor.scrlRange.Value
    Npc(EditorIndex).STR = frmNpcEditor.scrlSTR.Value
    Npc(EditorIndex).DEF = frmNpcEditor.scrlDEF.Value
    Npc(EditorIndex).speed = frmNpcEditor.scrlSPEED.Value
    Npc(EditorIndex).MAGI = frmNpcEditor.scrlMAGI.Value
    Npc(EditorIndex).Big = frmNpcEditor.BigNpc.Value
    Npc(EditorIndex).MaxHp = frmNpcEditor.StartHP.Value
    Npc(EditorIndex).Exp = frmNpcEditor.EXPGive.Value
And replace it with this code

Code: [Select]

Public Sub NpcEditorOk()
    Npc(EditorIndex).name = frmNpcEditor.txtName.Text
    Npc(EditorIndex).AttackSay = frmNpcEditor.txtAttackSay.Text
    Npc(EditorIndex).Sprite = frmNpcEditor.scrlSprite.Value
    Npc(EditorIndex).Behavior = frmNpcEditor.cmbBehavior.ListIndex
    If Npc(EditorIndex).Behavior <> NPC_BEHAVIOR_SCRIPTED Then
        Npc(EditorIndex).SpawnSecs = Val(frmNpcEditor.txtSpawnSecs.Text)
    Else
        Npc(EditorIndex).SpawnSecs = frmNpcEditor.scrlScript.Value
    End If
    Npc(EditorIndex).Range = frmNpcEditor.scrlRange.Value
    Npc(EditorIndex).STR = frmNpcEditor.scrlSTR.Text
    Npc(EditorIndex).DEF = frmNpcEditor.scrlDEF.Text
    Npc(EditorIndex).speed = frmNpcEditor.scrlSPEED.Text
    Npc(EditorIndex).MAGI = frmNpcEditor.scrlMAGI.Text
    Npc(EditorIndex).Big = frmNpcEditor.BigNpc.Value
    Npc(EditorIndex).MaxHp = frmNpcEditor.StartHP.Text
    Npc(EditorIndex).Exp = frmNpcEditor.EXPGive.Text
Then Find This:

Code: [Select]

Public Sub NpcEditorInit()
    On Error Resume Next

    frmNpcEditor.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    frmNpcEditor.txtName.Text = Trim$(Npc(EditorIndex).name)
    frmNpcEditor.txtAttackSay.Text = Trim$(Npc(EditorIndex).AttackSay)
    frmNpcEditor.scrlSprite.Value = Npc(EditorIndex).Sprite
    frmNpcEditor.txtSpawnSecs.Text = STR(Npc(EditorIndex).SpawnSecs)
    frmNpcEditor.cmbBehavior.ListIndex = Npc(EditorIndex).Behavior
    frmNpcEditor.scrlRange.Value = Npc(EditorIndex).Range
    frmNpcEditor.scrlSTR.Value = Npc(EditorIndex).STR
    frmNpcEditor.scrlDEF.Value = Npc(EditorIndex).DEF
    frmNpcEditor.scrlSPEED.Value = Npc(EditorIndex).speed
    frmNpcEditor.scrlMAGI.Value = Npc(EditorIndex).MAGI
    frmNpcEditor.BigNpc.Value = Npc(EditorIndex).Big
    frmNpcEditor.StartHP.Value = Npc(EditorIndex).MaxHp
    frmNpcEditor.EXPGive.Value = Npc(EditorIndex).Exp
    frmNpcEditor.scrlChance.Value = Npc(EditorIndex).ItemNPC(1).chance
    frmNpcEditor.scrlNum.Value = Npc(EditorIndex).ItemNPC(1).ItemNum
    frmNpcEditor.scrlValue.Value = Npc(EditorIndex).ItemNPC(1).ItemValue
    If Npc(EditorIndex).Behavior = NPC_BEHAVIOR_SCRIPTED Then
        frmNpcEditor.scrlScript.Value = Npc(EditorIndex).SpawnSecs
        frmNpcEditor.scrlElement.Value = Npc(EditorIndex).Element
    End If
    If Val(0 + Npc(EditorIndex).SpriteSize) = 0 Then
        frmNpcEditor.Opt32.Value = 1
        frmNpcEditor.Opt64.Value = 0
    Else
        frmNpcEditor.Opt64.Value = 1
        frmNpcEditor.Opt32.Value = 0
    End If
    If Npc(EditorIndex).SpawnTime = 0 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Checked
    ElseIf Npc(EditorIndex).SpawnTime = 1 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Unchecked
    ElseIf Npc(EditorIndex).SpawnTime = 2 Then
        frmNpcEditor.chkDay.Value = Unchecked
        frmNpcEditor.chkNight.Value = Checked
    End If

    frmNpcEditor.Show vbModal
End Sub
Take that and replace it with this:

Code: [Select]

Public Sub NpcEditorInit()
    On Error Resume Next

    frmNpcEditor.picSprites.Picture = LoadPicture(App.Path & "\GFX\Sprites.bmp")

    frmNpcEditor.txtName.Text = Trim$(Npc(EditorIndex).name)
    frmNpcEditor.txtAttackSay.Text = Trim$(Npc(EditorIndex).AttackSay)
    frmNpcEditor.scrlSprite.Value = Npc(EditorIndex).Sprite
    frmNpcEditor.txtSpawnSecs.Text = STR(Npc(EditorIndex).SpawnSecs)
    frmNpcEditor.cmbBehavior.ListIndex = Npc(EditorIndex).Behavior
    frmNpcEditor.scrlRange.Value = Npc(EditorIndex).Range
    frmNpcEditor.scrlSTR.Text = Npc(EditorIndex).STR
    frmNpcEditor.scrlDEF.Text = Npc(EditorIndex).DEF
    frmNpcEditor.scrlSPEED.Text = Npc(EditorIndex).speed
    frmNpcEditor.scrlMAGI.Text = Npc(EditorIndex).MAGI
    frmNpcEditor.BigNpc.Value = Npc(EditorIndex).Big
    frmNpcEditor.StartHP.Text = Npc(EditorIndex).MaxHp
    frmNpcEditor.EXPGive.Text = Npc(EditorIndex).Exp
    frmNpcEditor.scrlChance.Value = Npc(EditorIndex).ItemNPC(1).chance
    frmNpcEditor.scrlNum.Value = Npc(EditorIndex).ItemNPC(1).ItemNum
    frmNpcEditor.scrlValue.Value = Npc(EditorIndex).ItemNPC(1).ItemValue
    If Npc(EditorIndex).Behavior = NPC_BEHAVIOR_SCRIPTED Then
        frmNpcEditor.scrlScript.Value = Npc(EditorIndex).SpawnSecs
        frmNpcEditor.scrlElement.Value = Npc(EditorIndex).Element
    End If
    If Val(0 + Npc(EditorIndex).SpriteSize) = 0 Then
        frmNpcEditor.Opt32.Value = 1
        frmNpcEditor.Opt64.Value = 0
    Else
        frmNpcEditor.Opt64.Value = 1
        frmNpcEditor.Opt32.Value = 0
    End If
    If Npc(EditorIndex).SpawnTime = 0 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Checked
    ElseIf Npc(EditorIndex).SpawnTime = 1 Then
        frmNpcEditor.chkDay.Value = Checked
        frmNpcEditor.chkNight.Value = Unchecked
    ElseIf Npc(EditorIndex).SpawnTime = 2 Then
        frmNpcEditor.chkDay.Value = Unchecked
        frmNpcEditor.chkNight.Value = Checked
    End If

    frmNpcEditor.Show vbModal
End Sub
And then you are done 
I hope this worked for u
Oh, and I learned how to do this from this tutorial(as well as trial and error). I don't want to discredit anyone!
NPC HP Values > 32767

Diskmaster J