| Mirage Source http://miragesource.net/forums/ |
|
| Elysium Mail System http://miragesource.net/forums/viewtopic.php?f=201&t=4916 |
Page 1 of 1 |
| Author: | Nean [ Fri Jan 02, 2009 6:01 am ] |
| Post subject: | Elysium Mail System |
BTW, I ask these questions because you guys are credible, and the good ol' ED 3.3.2 isn't supported at OGC anymore. So I was bored, and figured it might be a bit fun to design. So far, I'm using GetVar and Putvar functions, to put it in their account file, and then when they want to check it, it grabs the var. However, I have a problem. The way I have the PutVar set up, it always sets it to Msg1. I want there to be ten mail slots, so how would I do this? What I'm asking, is how do I check to see if Msg1 is an open slot to put it, if it's full go to slot 2, and so on and so forth, until there are no slots open. Here's my code. Code: Case MAILMSG_CHAR MsgTo = FindPlayer(Parse$(1)) Msg = Parse$(2) ' Prevent hacking For i = 1 To Len(Msg) If Asc(Mid$(Msg, i, 1)) < 32 Or Asc(Mid$(Msg, i, 1)) > 126 Then Call HackingAttempt(Index, "Player Msg Text Modification") Exit Sub End If Next 'If frmServer.chkP.Value = Unchecked Then ' If GetPlayerAccess(Index) <= 0 Then ' Call PlayerMsg(Index, "PM messages have been disabled by the server!", BrightRed) ' Exit Sub ' End If 'End If ' Check if they are trying to talk to themselves 'If MsgTo <> Index Then If MsgTo > 0 Then Call AddLog(GetPlayerName(Index) & " mailed " & GetPlayerName(MsgTo) & ", " & Msg & "'", PLAYER_LOG) Call PutVar(App.Path & "/accounts/" & GetPlayerLogin(Index) & ".ini", "Mail", "msg1", Msg) Call PlayerMsg(Index, "You sent " & GetPlayerName(MsgTo) & " a message", TellColor) Else Call PlayerMsg(Index, "Player is not online.", White) End If (Yeah, yeah, yeah, I know I ripped a lot of code :\, in fact pretty much all of it.) |
|
| Author: | Tony [ Fri Jan 02, 2009 10:14 am ] |
| Post subject: | Re: Elysium Mail System |
For i = 1 to [max message slots] if getvar(app.path & "/accounts/"& getplayerlogin(MsgTo) & "ini", Mail, "msg" & i) <> "" then Call PutVar(App.Path & "/accounts/" & GetPlayerLogin(MsgTo) & ".ini", "Mail", "msg" & i, Msg) exit sub end if next i Something like that.. |
|
| Author: | Asrrin29 [ Fri Jan 02, 2009 9:03 pm ] |
| Post subject: | Re: Elysium Mail System |
OGC, I just noticed how funny the initials of the new playerworlds brand was. I think Magnus planned it that way |
|
| Author: | Lea [ Sat Jan 03, 2009 2:51 am ] |
| Post subject: | Re: Elysium Mail System |
huh |
|
| Author: | GIAKEN [ Sat Jan 03, 2009 3:16 am ] |
| Post subject: | Re: Elysium Mail System |
OGC (a guy masturbating sideways) |
|
| Author: | Nean [ Sat Jan 03, 2009 3:22 am ] |
| Post subject: | Re: Elysium Mail System |
Hehehe |
|
| Author: | Lea [ Sat Jan 03, 2009 6:05 am ] |
| Post subject: | Re: Elysium Mail System |
>< |
|
| Author: | GIAKEN [ Sat Jan 03, 2009 6:51 am ] |
| Post subject: | Re: Elysium Mail System |
And yes, Online Game Core is secretly a porn site. |
|
| Author: | Matt [ Sat Jan 03, 2009 1:26 pm ] |
| Post subject: | Re: Elysium Mail System |
Rofl, I never noticed that about OGC. XD |
|
| Author: | Tony [ Sat Jan 03, 2009 2:58 pm ] |
| Post subject: | Re: Elysium Mail System |
GIAKEN wrote: OGC (a guy masturbating sideways) ROFLMFAO |
|
| Page 1 of 1 | All times are UTC |
| Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |
|