Scrollbar to Textboxes Improvement

• TDog: Tdog is at school
  Today at 04:52:23 AM
• Sealbreaker: http://www.touchofdeathforums.com/smf/index.php/topic,57753.msg615781.html#msg615781
  Today at 04:51:53 AM
• Jungletoe: Hello
  Today at 03:55:03 AM
• RavenStylez: hi hi
  Today at 02:50:03 AM
• мсичġġєт: hello
  Today at 01:47:08 AM
• lc3: ello everyone
  Today at 01:37:51 AM
• мсичġġєт: Autoupdatin shoutbox? NOOO!
  Today at 01:24:17 AM
• gothikaboy: Hi gamma
  March 11, 2010, 11:46:20 PM
• Gamma™: hi all
  March 11, 2010, 11:40:35 PM
• Anna Comnena: Marsh if you have a Hulu account I suggest the movie "Totally Baked"
  March 11, 2010, 11:04:46 PM
• Marsh: night admiral
  March 11, 2010, 10:10:49 PM
• Admiral Refuge: Well Eclipse, it's time for me to go to bed; night everyone.
  March 11, 2010, 10:10:16 PM

Scripting by waltercross
[Today at 05:26:24 AM]
Let's make a spritesheet! by Jungletoe
[Today at 04:25:34 AM]
Lets make a tileset! by Jungletoe
[Today at 04:19:06 AM]
The Rules of the Game by Godlord
[Today at 03:59:08 AM]
Im fairly new to this. by lc3
[Today at 03:23:04 AM]
Pointing something out... by Ddunit - Aizawa
[Today at 02:29:15 AM]
Pokemon Cyrus Online 2010 by Ddunit - Aizawa
[Today at 01:57:07 AM]
My first graphic by мсичġġєт
[Today at 01:39:55 AM]
Rate this image! by мсичġġєт
[Today at 01:36:52 AM]
Last one to post Wins by In7el3ct
[Today at 12:28:59 AM]

• Guests: 30
• Hidden: 1
• Users: 8
• Users Online:

• Yoseph
• Gwen
• Gamma™
• Harris
• MegaDude
• Sealbreaker
• waltercross

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: (vb) [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: (vb) [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: (vb) [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: (vb) [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!
http://www.touchofdeathforums.com/smf/index.php/topic,31706.0.html

Diskmaster J