Dastyruck

About your server question, just got a killer idea to have the server run on a website, ill try implementing it first though.

send them a version of your client as a .zip or .rar file.

I might port it over, that might help people quite a bit with source editing… Also would get the engine to being more how should I put this... up to date.

I get this after setting the scroll x and y to anything other than 30…

Hey, can this edit VB6?

On 3\. I have never been able to get more than 30 by 30 tiles…

no, it would be number 9

You can use a key and have an NPC sell the keys…

k, whenever I tried to change it, it didnt work and failed on startup…

14, this is a fairly young community…

How big can the maps be?

YES! GREAT VID!

You might have to edit the source witch is written in VB(I think) and is supposedly hard to edit due to the difficult to find editor(I am not really sure about that either…).

You need the ELI or Library Files, located on the main page or somewhere here in the forums…

Sorry for double post… just realized that I missed a comma in OnMapLoad... it works now! thanks!

It uses both…

1\. Its called a custom menu, I dont know how to do it though… For further clarification on what he means, he wants something like a welcoming message for he noobs when they first create a character and login, like a noob advice page.

Could you explain more?

do I have to manually make each .ini?

Oh, its OnMapLoad

Here that sub is, quite long.. ``` '=============================================== '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' This sub runs when something on a custom menu is clicked. Sub MenuScripts(index, Clicked_Index, Menu_Type) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ On Error Resume Next Dim field_message Dim menu_title Dim n Dim box Dim reciever menu_title = getplayermenuclicktitle(index) field_message = getplayermenuclickmsg(index) ' Figure out what type of button was clicked ie picture, textbox, label. Select Case Menu_Type Case 1 ' PICTURE WAS CLICKED ' Player has clicked a picture box whos number is clicked_index on the custom menu named menu_title 'Call playermsg(index, "Clicked picture number " & clicked_index & " on the menu named " & menu_title, 14) Case 2 ' FIELD WAS CLICKED ' Player has clicked a text field OK button whos number is clicked_index on the custom menu named menu_title. 'Call playermsg(index, "Clicked field number " & clicked_index & " on the menu named " & menu_title & ". The field text was " & field_message, 14) Select Case menu_title Case "mailsystem" '*****************************************************************' '*****************************************************************' 'XX This script has been created by Ilnair, aka Dinand Mentink XX' 'XX Please do not give it out saying you made it, or distribute XX' 'XX it anywhere outside the Eclipse forums! Also, please always XX' 'XX distribute these credits along with the script! XX' 'XX www.nishansu.tk ©Dinand Mentink (aka Ilnair)XX' '*****************************************************************' '*****************************************************************' Call CustomMenuTextBox(index, 1, 180, 65, 235, "Enter a name!") Call CustomMenuTextBox(index, 2, 180, 65, 260, "Enter a message!") Select Case clicked_index Case 1 If Int(GetVar("mailsystem\" & field_message & ".ini", "Info", "Exists") + 0) = 0 Then Call CustomMenuLabel(index, 3, "Name: " & field_message, 85, 80, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 4, "Guild: Error", 85, 90, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 5, "Class: Error", 85, 100, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 6, "Sex: Error", 85, 110, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 7, "Level: Error", 85, 130, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 8, "Strenght: Error", 85, 140, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 9, "Defence: Error", 85, 150, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 10, "Magic: Error", 85, 160, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 11, "Speed: Error", 85, 170, 10, 0, 0, 400, 40) Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "tempvars", "sendto", "none") Exit Sub End If Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "tempvars", "sendto", field_message & "") Name = field_message Guild = GetVar("mailsystem\" & field_message & ".ini", "Info", "Guild") & "" ClassName = GetVar("mailsystem\" & field_message & ".ini", "Info", "Class") & "" Level = GetVar("mailsystem\" & field_message & ".ini", "Info", "Level") & "" Strenght = GetVar("mailsystem\" & field_message & ".ini", "Info", "Strenght") & "" Defence = GetVar("mailsystem\" & field_message & ".ini", "Info", "Defence") & "" Speed = GetVar("mailsystem\" & field_message & ".ini", "Info", "Speed") & "" Magic = GetVar("mailsystem\" & field_message & ".ini", "Info", "Magic") & "" HP = GetVar("mailsystem\" & field_message & ".ini", "Info", "HP") & "" MP = GetVar("mailsystem\" & field_message & ".ini", "Info", "MP") & "" MAXHP = GetVar("mailsystem\" & field_message & ".ini", "Info", "MAXHP") & "" MAXMP = GetVar("mailsystem\" & field_message & ".ini", "Info", "MAXMP") & "" Sex = GetVar("mailsystem\" & field_message & ".ini", "Info", "Sex") & "" Call CustomMenuLabel(index, 3, "Name: " & Name, 85, 80, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 4, "Guild: " & Guild, 85, 90, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 5, "Class: " & ClassName, 85, 100, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 6, "Sex: " & Sex, 85, 110, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 7, "Level: " & Level, 85, 130, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 8, "Strenght: " & Strenght, 85, 140, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 9, "Defence: " & Defence, 85, 150, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 10, "Magic: " & Magic, 85, 160, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 11, "Speed: " & Speed, 85, 170, 10, 0, 0, 400, 40) Exit Sub Case 2 reciever = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "tempvars", "sendto") & "" If reciever = "none" Then Call PlayerMsg(index, "Please chose a valid person to send a message!", 12) Exit Sub End If n = 1 Do While n < 6 If GetVar("mailsystem\" & reciever & ".ini", "mailbox", "box" & n) = "Empty!" Then Call PutVar("mailsystem\" & reciever & ".ini", "mailbox", "box" & n, GetPlayerName(index) & ": " & field_message & "") n = 6 Call PlayerMsg(index, "Message sent!", 10) Exit Sub End If n = n + 1 Loop Call PlayerMsg(index, "Mailbox full!", 12) Case Else Exit Sub End Select Exit Sub Case Else Exit Sub End Select Case 3 ' LABEL WAS CLICKED ' Player has clicked a label button whos number is clicked_index on the custom menu named menu_title 'Call playermsg(index, "Clicked label number " & clicked_index & " on the menu named " & menu_title, 14) Select Case menu_title case "mailsystem" '*****************************************************************' '*****************************************************************' 'XX This script has been created by Ilnair, aka Dinand Mentink XX' 'XX Please do not give it out saying you made it, or distribute XX' 'XX it anywhere outside the Eclipse forums! Also, please always XX' 'XX distribute these credits along with the script! XX' 'XX www.nishansu.tk ©Dinand Mentink (aka Ilnair)XX' '*****************************************************************' '*****************************************************************' Select Case clicked_index Case 19 ClearMailBox(index) msg1 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box1") msg2 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box2") msg3 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box3") msg4 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box4") msg5 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box5") Call CustomMenuLabel(index, 14, "Message 1: " & msg1, 300, 70, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 15, "Message 2: " & msg2, 300, 80, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 16, "Message 3: " & msg3, 300, 90, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 17, "Message 4: " & msg4, 300, 100, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 18, "Message 5: " & msg5, 300, 110, 10, 0, 0, 400, 40) Case 12 msg1 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box1") msg2 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box2") msg3 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box3") msg4 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box4") msg5 = GetVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box5") Call CustomMenuLabel(index, 14, "Message 1: " & msg1, 300, 70, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 15, "Message 2: " & msg2, 300, 80, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 16, "Message 3: " & msg3, 300, 90, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 17, "Message 4: " & msg4, 300, 100, 10, 0, 0, 400, 40) Call CustomMenuLabel(index, 18, "Message 5: " & msg5, 300, 110, 10, 0, 0, 400, 40) Call PlayerMsg(index, "Refreshed mailbox!", 10) Case Else Exit Sub End Select Case Else Exit Sub End Select End Select End Sub ```

Hrmmm, that might be it… Here is the whole sub though.. ``` Sub SaveCharInfo(index) On Error Resume Next Dim sex Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Exists", "1") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Class", GetPlayerClassName(index) & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Guild", GetPlayerGuild(index) & "") If GetPlayerSex(index) = 0 Then sex = "Male" Else sex = "Female" End If Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Sex", sex & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Level", GetPlayerLevel(index) & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Strenght", GetPlayerStr(index) & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Defence", GetPlayerDef(index) & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Speed", GetPlayerSpeed(index) & "") Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "Info", "Magic", GetPlayerMagi(index) & "") End Sub Sub ClearMailBox(index) Dim N n = 1 Do While n < 6 Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box" & n & "", "Empty!") n = n + 1 Loop Call PlayerMsg(index, "Mailbox Cleared!", 12) End Sub ```

I have a mailsystem folder…

Still not working…

I would be a string, useful for anything.