tsuki

RyokuHasu, just a suggestion, can you add an unlock spell type?

@RyokuHasu: > I have a tile set for that, ill include it in the tut =P Will be a very very very useful tutorial

@RyokuHasu: > KaosKaizer… Best I can say is get a new copy and redo both... As RyokuHasu said, get a new copy and redo. Remember to do backups before any change. I tried the projectiles and this door system and both works perfectly.

@Reflow: > this code works great but i see one problem. well not really a problem, once u use the spell you do not return back to your original sprite create a way to save the player's sprite number and a counter.

@Skillzalot: > it doesnt update automatically, you need to close your quest log and re open it Even if I close and open again it happens. The questlog only shows one quest (the first on the quest editor menu) and when I click, the quest gets canceled

@KaosKaizer: > I installed this and I just noticed one thing after I compiled it… All the warps I had no longer work? I had three warps, 1 on map 1(leads to map 15... it's a lift type warp) and 2 on map 15(lift to 1 and path to 14...) and none of the three work. On the attributes, they are all still there in the proper places, they just don't warp. I'm wondering if this is a bug in your code or if it was a bug created by me during installation? To me it works percectly. All the warps still working as well Try to install again.

simple, but very useful!

Nice tutorial, man! Very useful for mage class!

Yeah. Hard or not, the tutorial of Ryoku is one of the best I have seen on this forum. Great job, man!

I got a problem. The system works, but with a bug in the quest log. The only quest displayed is the first and sometimes when a click, it cancel the quest.

great tutorial. All the bugs are fixed?

@Kemerd: > A nice contribution to the community. Well done. > > ~ Kemerd Very thanks, Kemerd :cheesy:

@beckymegan: > Hey guys, I'm not exactly a noob but I know I'm missing something probably basic ;P How do you change the description from warrior to magician and ho do you change the picture from something small to a 96x96 image. Thanks guys! > The \data files\graphics\picdesc\ is the the directory of the description picture. > The frmMenu.picDesc is the frame name > > OBS: In case of you use same sprite for different classes, do a copy of the sprite, because the displayed picture's number will be equal with the selected sprite's number. Read again all the tutorial. The description of the class is part of an image (like the attached one) The number of the image displayed is equal with the sprite selected you should create a image for each sprite. In case of a same sprite for two different classes, do a copy of the sprite file and change the description of the picture and remember to rename with the same name of the sprite file. To a different size, just change the picDesc size and image size. ;) I know it's not dynamic, but works perfectly, its simple and to me is very useful :embarrassed:

@SpiceyWolf: > OH the create a character and all that? yea ud have to make a new gui code for that and make it a button rather then a lable >.> The code are just needed for the effect buttons. For the people who wants a simlple graphic button, just create a background image (as the attached one) and align a label without caption. it works perfectly ;)

@Connor: > Alright, I'll post once I've done it all again. > Oh, and how do you make the buttons on the image work? > > Sorry for all the questions, but yeah. Haven't done any GUI based stuff before. No problem, man :cheesy: I like to help people for transform the attached image just delete the caption of the "Accept" (lblCAccept) and resize it to the button on the image and move to the right alignement. Like this: [](http://www.freemmorpgmaker.com/files/imagehost/#b36c93101218091ef4b33b2fde9dd415.jpg) [](http://www.freemmorpgmaker.com/files/imagehost/#4a83b7c4170b1891010f14d796be4252.jpg) (it works with all buttons) To make it more easy, go to Backstyle and set **1 - Opaque** to see the alignement on the game, when the buttons are in the correct position go back to Backstyle and set **0 - Transparent** again [](http://www.freemmorpgmaker.com/files/imagehost/#139b8ff9a98c821c5952e2c7dfc144a7.jpg)

@Connor: > I don't have any suggestions, but a question. > When I did this, I ended up with an ugly white border around my image, are you sure you use a picturebox and not an image? > > Cause I couldn't seem to make it go away. :P [](http://www.freemmorpgmaker.com/files/imagehost/#b8be7f3b7dd1596805372f730628f0e4.jpg) in BorderStyle select **0 - None** I'll update the original post. Thanks for remember me. Tell me if this fix the white border for you

@Connor: > Very helpful for us beginners, thanks. > Taught me a lot about editing the GUI, you have been a massive help in my attempts to learn VB6\. :) I'm glad it helps you :cheesy: If someone have any suggestions or questions about the tutorial, just ask me ;)

@Savints: > Thank you very much for this, this makes my game look a lot more professional, I also added in another picture box that uses .bmp so I can have two images on screen. > > Thanks again. I'm glad it's been helpful for you.

@SpiceyWolf: > OMG since the EO 1 ive been tryna figure out how to do that… i am kinda stupid arent I? i can figure out complicated stuff and not something like a menu... eh i get knocked around enough as it is... there ive been punished already XD and all too many times by god... im on his bad side >.> dont even know what i did Dx It means you liked my tutorial? :P

@Robin: > It's really not genius, it's based understanding of the language and English. > > If you actually read up on the errors and find out what causes them then you'll easily find out what the problem is. That's what I did originally. Hell, if I come across an error who do you think I can turn to for help? No one on here can help me with the level of programming I have to do with Origins (well, except Jacob.) > > Google is your best friend. You're right, I'll remember this. Very thanks, Robin!

@Robin: > What do you mean 'still'? That's a completely different line. >_> > > Anyway, it's trying to set the scrollbar to a value it can't handle. Hover over '.buffType' and tell me what value it's trying to set it as. > > Then tell me the MAX and MIN of the scrollbar. Robin, you're a genius! The error was because the value was 0 and the min was 1 I changed the scrollbar min and it works perfectly! Very thanks!

@Robin: > Post the line it errors on. still pointing to this line

@Erwin: > Nice tutorial and very well explained ;) Thanks Erwin :cheesy:

I tried to do what Robin said, but when I compile and run it, when I open de spell editor something strange occurs. all the captions are not displayed I'm posting my spell editor code. I'm sure that the other parts are matching now, so maybe the mistake is in there ``` Option Explicit Private Sub chkAOE_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If chkAOE.Value = 0 Then Spell(EditorIndex).IsAoE = False Else Spell(EditorIndex).IsAoE = True End If ' Error handler Exit Sub errorhandler: HandleError "chkAOE_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmbClass_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Spell(EditorIndex).ClassReq = cmbClass.ListIndex ' Error handler Exit Sub errorhandler: HandleError "cmbClass_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmbType_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Spell(EditorIndex).Type = cmbType.ListIndex If cmbType.ListIndex = 5 Then frmBuff.Visible = True Else frmBuff.Visible = False End If ' Error handler Exit Sub errorhandler: HandleError "cmbType_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdDelete_Click() Dim tmpIndex As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler ClearSpell EditorIndex tmpIndex = lstIndex.ListIndex lstIndex.RemoveItem EditorIndex - 1 lstIndex.AddItem EditorIndex & ": " & Spell(EditorIndex).Name, EditorIndex - 1 lstIndex.ListIndex = tmpIndex SpellEditorInit ' Error handler Exit Sub errorhandler: HandleError "cmdDelete_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdSave_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler SpellEditorOk ' Error handler Exit Sub errorhandler: HandleError "cmdSave_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlBuff_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblBuffDur.Caption = "Buffer Duration: " & scrlBuff.Value & " min" Spell(EditorIndex).BuffDur = scrlBuff.Value ' Error handler Exit Sub errorhandler: HandleError "scrlBuff_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlBuffType_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlBuffType.Value = 1 Then lblBuff.Caption = "Buffer type: Str" ElseIf scrlBuffType.Value = 2 Then lblBuff.Caption = "Buffer type: End" ElseIf scrlBuffType.Value = 3 Then lblBuff.Caption = "Buffer type: Int" ElseIf scrlBuffType.Value = 4 Then lblBuff.Caption = "Buffer type: Agi" ElseIf scrlBuffType.Value = 5 Then lblBuff.Caption = "Buffer type: Will" End If Spell(EditorIndex).BuffType = scrlBuffType.Value ' Error handler Exit Sub errorhandler: HandleError "scrlBuffType_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlSprite_Change() lblSprite.Caption = "Transformation sprite: " & scrlSprite.Value Spell(EditorIndex).Sprite = scrlSprite.Value End Sub Private Sub lstIndex_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler SpellEditorInit ' Error handler Exit Sub errorhandler: HandleError "lstIndex_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmdCancel_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler SpellEditorCancel ' Error handler Exit Sub errorhandler: HandleError "cmdCancel_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlAccess_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlAccess.Value > 0 Then lblAccess.Caption = "Access Required: " & scrlAccess.Value Else lblAccess.Caption = "Access Required: None" End If Spell(EditorIndex).AccessReq = scrlAccess.Value ' Error handler Exit Sub errorhandler: HandleError "scrlAccess_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlAnim_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlAnim.Value > 0 Then lblAnim.Caption = "Animation: " & Trim$(Animation(scrlAnim.Value).Name) Else lblAnim.Caption = "Animation: None" End If Spell(EditorIndex).SpellAnim = scrlAnim.Value ' Error handler Exit Sub errorhandler: HandleError "scrlAnim_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlAnimCast_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlAnimCast.Value > 0 Then lblAnimCast.Caption = "Cast Anim: " & Trim$(Animation(scrlAnimCast.Value).Name) Else lblAnimCast.Caption = "Cast Anim: None" End If Spell(EditorIndex).CastAnim = scrlAnimCast.Value ' Error handler Exit Sub errorhandler: HandleError "scrlAnimCast_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlAOE_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlAOE.Value > 0 Then lblAOE.Caption = "AoE: " & scrlAOE.Value & " tiles." Else lblAOE.Caption = "AoE: Self-cast" End If Spell(EditorIndex).AoE = scrlAOE.Value ' Error handler Exit Sub errorhandler: HandleError "scrlAOE_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlCast_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblCast.Caption = "Casting Time: " & scrlCast.Value & "s" Spell(EditorIndex).CastTime = scrlCast.Value ' Error handler Exit Sub errorhandler: HandleError "scrlCast_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlCool_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblCool.Caption = "Cooldown Time: " & scrlCool.Value & "s" Spell(EditorIndex).CDTime = scrlCool.Value ' Error handler Exit Sub errorhandler: HandleError "scrlCool_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlDir_Change() Dim sDir As String ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Select Case scrlDir.Value Case DIR_UP sDir = "Up" Case DIR_DOWN sDir = "Down" Case DIR_RIGHT sDir = "Right" Case DIR_LEFT sDir = "Left" End Select lblDir.Caption = "Dir: " & sDir Spell(EditorIndex).Dir = scrlDir.Value ' Error handler Exit Sub errorhandler: HandleError "scrlDir_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlDuration_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblDuration.Caption = "Duration: " & scrlDuration.Value & "s" Spell(EditorIndex).Duration = scrlDuration.Value ' Error handler Exit Sub errorhandler: HandleError "scrlDuration_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlIcon_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlIcon.Value > 0 Then lblIcon.Caption = "Icon: " & scrlIcon.Value Else lblIcon.Caption = "Icon: None" End If Spell(EditorIndex).Icon = scrlIcon.Value EditorSpell_BltIcon ' Error handler Exit Sub errorhandler: HandleError "scrlIcon_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlInterval_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblInterval.Caption = "Interval: " & scrlInterval.Value & "s" Spell(EditorIndex).Interval = scrlInterval.Value ' Error handler Exit Sub errorhandler: HandleError "scrlInterval_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlLevel_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlLevel.Value > 0 Then lblLevel.Caption = "Level Required: " & scrlLevel.Value Else lblLevel.Caption = "Level Required: None" End If Spell(EditorIndex).LevelReq = scrlLevel.Value ' Error handler Exit Sub errorhandler: HandleError "scrlLevel_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlMap_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblMap.Caption = "Map: " & scrlMap.Value Spell(EditorIndex).Map = scrlMap.Value ' Error handler Exit Sub errorhandler: HandleError "scrlMap_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlMP_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlMP.Value > 0 Then lblMP.Caption = "MP Cost: " & scrlMP.Value Else lblMP.Caption = "MP Cost: None" End If Spell(EditorIndex).MPCost = scrlMP.Value ' Error handler Exit Sub errorhandler: HandleError "scrlMP_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlRange_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlRange.Value > 0 Then lblRange.Caption = "Range: " & scrlRange.Value & " tiles." Else lblRange.Caption = "Range: Self-cast" End If Spell(EditorIndex).Range = scrlRange.Value ' Error handler Exit Sub errorhandler: HandleError "scrlRange_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlStun_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If scrlStun.Value > 0 Then lblStun.Caption = "Stun Duration: " & scrlStun.Value & "s" Else lblStun.Caption = "Stun Duration: None" End If Spell(EditorIndex).StunDuration = scrlStun.Value ' Error handler Exit Sub errorhandler: HandleError "scrlStun_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlVital_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblVital.Caption = "Vital: " & scrlVital.Value Spell(EditorIndex).Vital = scrlVital.Value ' Error handler Exit Sub errorhandler: HandleError "scrlVital_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlX_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblX.Caption = "X: " & scrlX.Value Spell(EditorIndex).x = scrlX.Value ' Error handler Exit Sub errorhandler: HandleError "scrlX_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub scrlY_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler lblY.Caption = "Y: " & scrlY.Value Spell(EditorIndex).y = scrlY.Value ' Error handler Exit Sub errorhandler: HandleError "scrlY_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtDesc_Change() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Spell(EditorIndex).Desc = txtDesc.text ' Error handler Exit Sub errorhandler: HandleError "txtDesc_Change", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub txtName_Validate(Cancel As Boolean) Dim tmpIndex As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If EditorIndex = 0 Then Exit Sub tmpIndex = lstIndex.ListIndex Spell(EditorIndex).Name = Trim$(txtName.text) lstIndex.RemoveItem EditorIndex - 1 lstIndex.AddItem EditorIndex & ": " & Spell(EditorIndex).Name, EditorIndex - 1 lstIndex.ListIndex = tmpIndex ' Error handler Exit Sub errorhandler: HandleError "txtName_Validate", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Private Sub cmbSound_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If cmbSound.ListIndex >= 0 Then Spell(EditorIndex).Sound = cmbSound.List(cmbSound.ListIndex) Else Spell(EditorIndex).Sound = "None." End If ' Error handler Exit Sub errorhandler: HandleError "cmdSound_Click", "frmEditor_Spell", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ```

@Mïlk: > Server side: > > So change your server side one to: > > ``` > Private Type SpellRec > Name As String * NAME_LENGTH > Desc As String * 255 > Sound As String * NAME_LENGTH > > Type As Byte > MPCost As Long > LevelReq As Long > AccessReq As Long > ClassReq As Long > CastTime As Long > CDTime As Long > Icon As Long > Map As Long > x As Long > y As Long > Dir As Byte > Vital As Long > Duration As Long > Interval As Long > Range As Byte > IsAoE As Boolean > AoE As Long > CastAnim As Long > SpellAnim As Long > StunDuration As Long > BuffType As Byte > BuffDur As Long > Sprite As Long > End Type > ``` same error '-' I did everything four times and still getting error