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

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by Ertzel
[Today at 10:11:57 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• drifter000
• RavenStar
• Bloodmyst
• BRiM570N3
• jncoblack15
• Ertzel
• yaratemaster
• bunnyphantom
• Blue Fly
• 314piwm
• Back to teeming
• LegendWeaver
• Gamma™
• Mikekan13
• sotyrrocks

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

Ilnair

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

JayR

very very nice.

Marsh

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

Anna Comnena

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

@ Marsh: Thanks

Ilnair

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

Draken

total uberness

Grim_Reaper

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

Brutal - Zeldo

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

Ilnair

please put me down for retarded

JayR

Lol, sure. What you want dude.


Please stick to the topic though, this aint chitchat .

Ilnair

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

JayR

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

:DNINJA

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

Whos the other owner?

Myshuki

No, will only work on Eclipse Evolution.

Ilnair

Sweet Script!!!

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

PS. Im not on dificulties eather :

Tylian!

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 ????????

:DNINJA

I installed it and everything but I dont get anytihng when I press pageup it shows the menu and both the
"Charachter Info" and "Messages" titles but nothing else

Hoplite

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 ????????

Don't know what you mean here, but it's possible. I'm not going to script it though :p. Hrmm, hoplite, dunno then. It should be working.

Ilnair

lol yeah lol I put a few wrong words in by mistake but as long as u say its posible then thats great ill have a look at what I can do with it...

:DNINJA