Join Script For Diff Access Levels

• 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 314piwm
[Today at 10:21:04 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:

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

Code: [Select]

Sub JoinGame(index)
Dim GameName
Dim MOTD
Dim getadmin

GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName"))
MOTD = GetVar("motd.ini", "MOTD", "Msg")
getadmin = GetPlayerAccess(index)

Call AdminJoinCheck(index,getadmin)

    ' Send them welcome
    Call PlayerMsg(index, "Welcome to " & GameName & "!", 15)
   
    ' Send motd
    If Trim(MOTD) <> "" Then
        Call PlayerMsg(index, "MOTD: " & MOTD, 11)
    End If
End Sub

and at the bottom of main.txt

Code: [Select]

Sub AdminJoinCheck(index,access)

Select Case access

Case 0
Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 7)

Case 1
Call GlobalMsg("Moderator " & GetPlayerName(index) & " has joined " & GameName & "!", 7)

Case 2
Call GlobalMsg("Mapper " & GetPlayerName(index) & " has joined " & GameName & "!", 7)

Case 3
Call GlobalMsg("Developer " & GetPlayerName(index) & " has joined " & GameName & "!", 7)

Case 4
Call GlobalMsg(GetPlayerName(index) & " the Creator graces " & GameName & "once again!", 12)

End Select
End Sub

Baron

I like that one

Diaga

Im to lazy to find out what it does, so can you tell me? My time is priceless, yours is not

Cro

awww that was mean of me...... im sorry

Cro

it checks the access then gives a special msg if they are a admin
am I correct?

[Pie] ICT

O god that was hard to find out lol... the subject said that much lol...

Jman Killer

well look at some of the questions that people post. not everyone has gods gift of smarts like the best of us



ooo, that was mean of me.. but I'm not sorry!
Mwahahaha!

Diaga

another pointless post by diaga and me =)

but with this just put a msg in the " " part

[Pie] ICT

Not exactly a difficult script to write, but some recognition for admins and stuff is cool I reckon.

Baron

yeah but barron I think you took a harder aproch to it

[Pie] ICT

he took a harder approch in order to have many varying msgs... but I like it

yakuza_II

Feel free to post up your own solution icecream.

Baron