Mod+Admin News Script

• 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: 23
• Hidden: 0
• Users: 16
• Users Online:

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

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

Niko

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

Heytherejake

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.

Niko

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

Heytherejake

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.

Niko

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

Heytherejake

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

Tylian!

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

Heytherejake

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

Brutal - Zeldo

Ooo good catch brutal


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

Tylian!

Is there a tutorial anywhere?

Heytherejake

Ya right here

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

Brutal - Zeldo

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

Heytherejake

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

Brutal - Zeldo

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

Heytherejake

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

Tylian!