Sub HOTSCRIPT1(index)'*****************************************************************''*****************************************************************''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''*****************************************************************''*****************************************************************'Dim NameDim GuildDim ClassNameDim SexDim LevelDim StrenghtDim DefenceDim SpeedDim MagicDim HPDim MPDim MAXHPDim MAXMPDim msg1Dim msg2Dim msg3Dim msg4Dim msg5Call CustomMenuShow(index, "mailsystem", "\GUI\CUSTOM\perkament.gif", 1)Call CustomMenuLabel(index, 1, "Character Info", 60, 30, 15, 0, 0, 400, 40)Call CustomMenuLabel(index, 2, "Messages", 315, 30, 15, 0, 0, 400, 40)Name = GetPlayerName(index) & ""Guild = GetPlayerGuild(index) & ""ClassName = GetPlayerClassName(index) & ""Level = GetPlayerLevel(index) & ""Strenght = GetPlayerStr(index) + 0 & ""Defence = GetPlayerDef(index) & ""Speed = GetPlayerSpeed(index) & ""Magic = GetPlayerMagi(index) + 0 & ""HP = GetPlayerHP(index) & ""MP = GetPlayerMP(index) & ""MAXHP = GetPlayerMaxHP(index) & ""MAXMP = GetPlayerMaxMP(index) & ""If GetPlayerSex(index) = 0 Then Sex = "Male"Else Sex = "Female"End IfCall 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)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 CustomMenuLabel(index, 19, "Clear Inbox", 300, 140, 10, 0, 0, 100, 14)Call CustomMenuLabel(index, 12, "Refresh", 300, 150, 10, 0, 0, 100, 14)Call CustomMenuTextBox(index, 1, 180, 65, 235, "Enter a name!")Call CustomMenuTextBox(index, 2, 180, 65, 260, "Enter a message!")End Sub
Sub SaveCharInfo(index)On Error Resume NextDim sexCall 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 IfCall 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 SubSub ClearMailBox(index)Dim Nn = 1Do While n < 6 Call PutVar("mailsystem\" & GetPlayerName(index) & ".ini", "mailbox", "box" & n & "", "Empty!") n = n + 1LoopCall PlayerMsg(index, "Mailbox Cleared!", 12)End Sub
Sub OnMapLoad(index)Call SaveCharInfo(index)End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' This sub runs when something on a custom menu is clicked. Sub MenuScripts(index, Clicked_Index, Menu_Type) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~On Error Resume NextDim field_messageDim menu_titleDim nDim boxDim recievermenu_title = getplayermenuclicktitle(index)field_message = getplayermenuclickmsg(index)' Figure out what type of button was clicked ie picture, textbox, label.Select Case Menu_TypeCase 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_titleCase "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 SubCase Else Exit SubEnd SelectCase 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 SubEnd SelectEnd SelectEnd Sub
'*****************************************************************''*****************************************************************''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''*****************************************************************''*****************************************************************'
nice this will most likly be in my game,I'll talk tot he other owner
1 question is it posible to edit the script so once uv written the message/letter for the player it appears in your imbox as an item called lets say "un delivered mail" which then u go to a letter box and step on the tile in front and a window pops up with a drop down menu and then u select the option send 1 letter **if selected a new drop down menu appears where it has a list of unread letters named by who there written to "to jimmibobjim"** or send all letters in inbox ????????