Mail System / Charactersheet Script (difficulty: 4/5)

[Ilnair]

Heya all,

Well, I just love this new feature called Custom Menus, so I decided to make a nice script with it, post it, and then be the first to post a script using this feature :p.

Dificulty:
newb: 6/5 (way to hard, forget about it I think)
advanced scripter: 3/5
pro-scriptor: 1/5 (shouldn't be any problem)
Me or Baron or Unnownzor 0/5.
Brutal, or GreyFox: around 22.45 x 10 ^220 / 5 (I think)

Anyway, this is what the script does:

1. You press Page UP (or another hotkey), and a window appears, like this:


2. In this window you will see your own stats, wich ofcourse isn't interesting, but if you want, you can enter a name in the box, press ok, and the system will then show the stats of the person that you entered.

3. The screen also shows your messages, as you can see, I got no friends, and nobody has sent any mesages to me :(.

4. You can use the Clear Inbox thingy to clear your inbox. And refresh to reload your inbox to the screen.

5. When you are looking at someone's stats (in this case i'm looking at my own), you can send him/her a message by typing it, and then pressing OK. Make sure it isn't to long, because else it will go of screen and they won't be able to read it.





Ok, that's how it works. Now you all ofcourse want the code. And guess what, I'm posting it including a tutorial, so you guys won't have to ask ANYTHING about it because it explains itself!
**********************************
Step 1: Adding the hotkey
**********************************
This should be kinda easy. Find Sub Hotkey1(index), or if you can't find it in your main.txt, create it. Ofcourse, you can also use hotkey2 or hotkey4 (and hotkey3, doh). Add the folowing code:

Code: [Select]

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 Name
Dim Guild
Dim ClassName
Dim Sex
Dim Level
Dim Strenght
Dim Defence
Dim Speed
Dim Magic
Dim HP
Dim MP
Dim MAXHP
Dim MAXMP
Dim msg1
Dim msg2
Dim msg3
Dim msg4
Dim msg5

Call 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 If


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)

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
Well, that was easy aight. Don't bother pushing PageUP right away, because it won't work, and probably crash your client :p.

**********************************
Step 2: Downloading a picture
**********************************
Download this picture:


and save it in your CLIENT folder in the folowing folder:*client folder*\GUI\CUSTOM\perkament.gif.
It has to be named "perkament.gif" (without the "), that EXACT same way! I'm not gonna further explain this one.

**********************************
Step 3: Adding a few subs
**********************************
Add the folowing subs to your main.txt:

Code: [Select]

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
Just past this at the botom of your main.txt.

**********************************
Step 4: Adding something in OnMapLoad
**********************************
Find Sub OnMapLoad(index) in your main.txt, or if you can't find it, create it the folowing way:

Code: [Select]

Sub OnMapLoad(index)
Call SaveCharInfo(index)
End Sub
Ofcourse if you already have this sub, you only paste Call SaveCharInfo(index) at the top of it!

**********************************
Step 5: Adding yet another sub
**********************************
Ok, now we want this thing to actually do something, so we are going to add another sub, that controlls the behaviour of this menu. Find Sub MenuScripts, if you don't have it, simply past this at the bottom of you main.txt, and skip to the next step:

Code: [Select]

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 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
If you do have it, but you have never used it before, or never used menu's before, delete it, and then paste above code in your main.txt. If you HAVE used it before, you probably are a bloody good scriptor, and i'm not going to explain how to get it working.

**********************************
Step 6: Testing
**********************************
Well, hit the save button. Open your server window, and press reload scripts. Then log your ass into your game, and be amazed after you press PageUP :D.

It should all explain itself. If for some reason you can't look at someone's stats, first tell him to change map (that's where it saves the stats), and if that doesn't help make sure you are spelling the name correctly.


**********************************
Step 7: Trouble-Shooting
**********************************
Well, if you are still having any problems, add me to msn (if you are smart enough you'll find my msn somewhere), or just post a msg here.

I can not help any of you to understand my bad english, I hope you can understand what i've been saying here, if not, sorry, i'm Dutch, I can't do any better.

And 1 last thing:

Code: [Select]

'*****************************************************************'
'*****************************************************************'
'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'
'*****************************************************************'
'*****************************************************************'

[JayR]

nice this will most likly be in my game,i'll talk tot he other owner

[Marsh]

very very nice.

[Anna Comnena]

Cool, so can custom menu background images have transparency? I was wondering about that because I wanted to try a similar "scroll" theme.

[Ilnair]

@ Anna: I don't know. Don't think so.

@ Marsh: Thanks

[Daddy Gnome Draken]

this will be added for sure, man great job on this ive been wanting something to look at players stats. Ill test this when i get home

[Grim_Reaper]

total uberness

[Brutal - Zeldo]

:| im not in the hardness list :'( - but nice job

[Ilnair]

Thanks Thanks. And I'll add you brutal :p.

[JayR]

please put me down for retarded

[Ilnair]

Lol, sure. What you want dude.


Please stick to the topic though, this aint chitchat .

[JayR]

alright well to get back on topic,i'll say it once i'll say it again.nice script

[:DNINJA]

this looks verry afective and ill install it as soon as i can !!!!!!!!! is it only conpatable with the new EE or can i try it out on the old eclipse engine as im waiting for EE final

[Myshuki]

nice this will most likly be in my game,i'll talk tot he other owner

Whos the other owner?

[Ilnair]

No, will only work on Eclipse Evolution.

[The Emblem]

Sweet Script!!!

Hehe when EE Final comes out im going to use this script!

PS. Im not on dificulties eather :