Mod+Admin News Script

[Niko]

Yo guys, im just getting into the scripting thing, and i gotta tell ya it unlocks alot of cool features for your games.  alright so imma start posting some of my scripts up see what u guys think. Heres a sceript i made a while ago.. one of my firsts.

You guys know when u loggin it says "welcome to <yourgame>"   Well i made a script for when a person with lvl 1 access or higher loggs in it posts a little news on whats going on development side. Only mods+ can see. To change what the news says, just type in the text, then save the main. The jump over to your server contorl panel and click reload scripts.



Put this under the player join sub... you can edit to your likings, just replace the old welcome script with this.



Script:

Code: [Select]

If GetPlayerAccess(index)>=1 Then
Call PlayerMsg(index, "Welcome Mods & Admins <News>", 4)
Else
Call PlayerMsg (index, "welcome to" & GameName &"!", 15)
End If

[Heytherejake]

I edited it a bit:

Add this command

Code: [Select]

If LCase(Mid(TextSay, 1, 10)) = "/adminnews" Then
     If GetPlayerAccess => 4
       If Len(TextSay) > 5 Then
           TextSay = Mid(TextSay, 5, Len(TextSay) - 4)          
           Call PUtvar("adminnews.ini", "News", Current, Trim(Textsay))
           Call PlayerMsg(index, "The Admin News has been changed to" & Trim(Textsay), 6)
       End If
      Else
Call PlayerMsg(index, "You are not authorized to use that command!", 4)
End If
       Exit Sub
   End If

And this is the new joingame code

Code: [Select]

If GetPlayerAccess(index)>=1 Then
Call PlayerMsg(index, "Welcome! The Current News is:" & getvar("adminnews.ini", "News", Current), 4)
Else
Call PlayerMsg (index, "welcome to" & GameName &"!", 15)
End If

Tell me if I made a mistake anywhere...

[Niko]

Looks good, and im still beginer so.. yeah thnxs

And if u guys didnt no, the sencond scirpt will make a .ini and u type in the admin anf devloper emssage their and it shows up when anyone lvl 1access and above loggs in. So they can be intouch with the latest in development news.

[Heytherejake]

No problem. I have no clue if its correct, cuz I only started with vars last night...

[Niko]

can ya give it a test id love to see if it works, and if it dont we can try to give it a nice de bugging.

[Heytherejake]

I cant, my computer is being evil and wont load any servers....

[The Emblem]

I edited it a bit:

Add this command

If LCase(Mid(TextSay, 1, 10)) = "/adminnews" Then
     If GetPlayerAccess => 4 Then
       If Len(TextSay) > 11 Then
           TextSay = Mid(TextSay, 11, Len(TextSay) - 10)          
           Call PutVar("adminnews.ini", "News", Current, Trim(Textsay))
           Call PlayerMsg(index, "The Admin News has been changed to: " & Trim(Textsay), 6)
       End If
      Else
   Call PlayerMsg(index, "You are not authorized to use that command!", 4)
   End If
       Exit Sub
   End If

And this is the new joingame code

If GetPlayerAccess(index)>=1 Then
Call PlayerMsg(index, "Welcome! The Current News is:" & Trim(GetVar("adminnews.ini", "News", Current)), 4)
'Note: I added a trim to the above line to remove any errors, Its not required though
Else
Call PlayerMsg (index, "Welcome to " & GameName &"!", 15)
'ERROR: You didnt define GameName
End If

Tell me if I made a mistake anywhere...

I changed any errors i found in the code above...
I hilighted them in red

Edit: For the record.. its still untested...

[Heytherejake]

Thanks! I knew I screwed SOMETHING up... And for not defining game name, its earlier on, i should have posted teh whole sub

[Heytherejake]

Could you explain the numbers for textsay though? I just copied the Bio script for that part...

[Brutal - Zeldo]

Ok i change it to the format i use and fix it emblem u missed an then after the If GetPlayerAccess => 4 Then

Here what i came up with(if i post it it messes up the code for some reason so i uploaded it to a file host i have)

Code Here

[The Emblem]

Ooo good catch brutal


The numbers are just.. well.. its hard to explain... it gets the text after the /adminnews

[Heytherejake]

Is there a tutorial anywhere?

[Brutal - Zeldo]

Ya right here XD

If LCase(Mid(TextSay, 1, 10)) = "/adminnews" Then
If Len(TextSay) > 11 Then

The 10 is how long the command is (including the /) The first 11 is to make sure they have more than just the command if u still dont understand msn me

[Heytherejake]

I dont get the eleven, and I dont use msn.. I use aim

[Brutal - Zeldo]

The 11 is the make sure they have more than /adminnews when they go to use the command

[Heytherejake]

So if I didnt want to make sure theres more... I would put it as a case? Or make the number the same?

[The Emblem]

If LCase(Mid(TextSay, 1, 10)) = "/adminnews" Then
'If LowerCase of 10 charactors of TextSay starting at charactor #1 is equal to /adminnews
If Len(TextSay) > 11 Then
'If the length of textsay is Greater than 11 (To make sure they have more than the command)

There ya go, exactly what the code does

Edit: If anyone can make this sound better (im confusing myself) then go ahead...