Moonrise Forums
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Moonrise Forums

MoonRise Forums Homepage

Latest topics
» Many teams made by Revolution.
Alert script EmptySun Apr 19, 2009 4:29 pm by Revolution

» Abandoning MoonRise
Alert script EmptySun Apr 19, 2009 4:16 pm by Revolution

» Items needed on Pokemon Netbatte
Alert script EmptySun Apr 19, 2009 2:56 pm by Warden

» Random Scripts
Alert script EmptySun Mar 29, 2009 12:24 pm by Warden

» Want to destroy your computer? Go here!
Alert script EmptyThu Mar 26, 2009 4:13 pm by Revolution

» People
Alert script EmptyTue Mar 24, 2009 10:34 pm by Warden

» This is most likely in the WRONG forum, but...
Alert script EmptyTue Mar 24, 2009 10:30 pm by Warden

» Abandoning MoonRise
Alert script EmptyTue Mar 24, 2009 10:22 pm by Revolution

» Team
Alert script EmptyTue Feb 17, 2009 6:44 am by The Almighty Flareon

Log in

I forgot my password



Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
Search
 
 

Display results as :
 


Rechercher Advanced Search

Affiliates
free forum
 


Bookmark
Get this site as a widget

You are not connected. Please login or register

Alert script

3 posters

Go down  Message [Page 1 of 1]

1Alert script Empty Alert script Thu Jan 08, 2009 9:50 pm

Warden


Global Administrator
Global Administrator

Alert script,self explanatory
Event +PlayerSignOn
If #GetValue($GetPlayerInfo(#Source, PSID) & "\alert") = 1
If $GetValue($GetPlayerInfo(#Source, PSID) & "\lastname") <> $Name(#Source)
/SendAll "+bot: " & $GetValue($GetPlayerInfo(#Source, PSID) & "\lastname") & ", an alerted player, is hiding under the identity of " & $Name(#Source) & "! Beware!"
/Exit
EndIf
/SendAll "+bot: " & $Name(#Source) & " is on alert! You've been warned!"
/Exit
EndIf
/SaveValue $GetPlayerInfo(#Source, PSID) & "\lastname", $Name(#Source)
EndEvent

Event -ChatMessage
///NOTE: This script is only for admins, but if you want mods to be able to use it, just change the 1s in both of the IF cases to 0s.

If $Left($Message, 7) = "!Alert " AND #Len($Message) > 7 AND #GetPlayerInfo(#Source, AUTH) > 1
/Set #Alert, #PNumber($Right($Message, #Len($Message) - 7))
If #Alert = 0
/SendPM #Source, "+bot: I can't find anybody with that name right now...Sorry..."
/StopEvent
/Exit
EndIf
If #GetPlayerInfo(#Alert, AUTH) = 2
/SendPM #Source, "+bot: Sorry, but admins cannot be put on alert."
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Alert, PSID) & "\alert") = 1
/SendPM #Source, "+bot: They are already on alert, " & $Name(#Source) & "."
/StopEvent
/Exit
EndIf
/SendAll "+bot: " & $Name(#Alert) & " has been put on alert! Everyone, beware!"
/StopEvent
/SaveValue $GetPlayerInfo(#Alert, PSID) & "\alert", 1
/Exit
EndIf

If $Left($Message, 9) = "!Dealert " AND #Len($Message) > 9 AND #GetPlayerInfo(#Source, AUTH) > 1
/Set #Dealert, #PNumber($Right($Message, #Len($Message) - 9))
If #Dealert = 0
/SendPM #Source, "+bot: I can't find anybody with that name right now...Sorry..."
/StopEvent
/Exit
EndIf
If #Dealert = #Source
/SendPM #Source, "+bot: Sorry, but you can't remove yourself from alert..."
/StopEvent
/Exit
EndIf
If #GetValue($GetPlayerInfo(#Dealert, PSID) & "\alert") = 0
/SendPM #Source, "+bot: That person isn't alerted."
/StopEvent
/Exit
EndIf
/SendAll "+Bot: " & $Name(#Dealert) & " has been dealerted, so they must have been forgiven for their actions."
/StopEvent
/SaveValue $GetPlayerInfo(#Dealert, PSID) & "\alert", 0
/Exit
EndIf
EndEvent
Event +TeamChange
/SaveValue $GetPlayerInfo(#Source, PSID) & "\lastname", $Name(#Source)
EndEvent

2Alert script Empty Re: Alert script Sat Jan 10, 2009 1:12 am

Revolution


Global Administrator
Global Administrator

Try this
[code:]If $Left($Message, 7) = "/Alert " OR $Left($Message, 7) = "!Alert " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Tar, #PNumber($Right($Message, #Len($Message) - 7))
If #Tar = 0
/SendPM #Source, $Bot & " '" & $Right($Message, #Len($Message) - 7) & "' is not currently on the server."
/Exit
EndIf
If #TempAuth(#Source) <= #TempAuth(#Tar)
/SendPM #Source, $Bot & " Not authorized to alert " & $Name(#Tar) & "."
/Exit
EndIf
If $GetValue($GetPlayerInfo(#Target, PSID) & "_alert") <> ""
/SendPM #Source, $Bot & " " & $Name(#Tar) & " is already an alerted player."
/Exit
EndIf
/SaveValue $GetPlayerInfo(#Tar, PSID) & "_alert", $Name(#Tar)
/SendAll $Bot & $Name(#Tar) & " has been put on alert by " & $Name(#Source) & "."
EndIf

If #TempAuth(#Source) >= 2
If $Left($Message, 9) = "/DeAlert " OR $Left($Message, 9) = "/DeAlert " AND #GetPlayerInfo(#Source, AUTH) > 0
/Set #Tar, #PNumber($Right($Message, #Len($Message) - 9))
If #Tar = 0
/SendPM #Source, $Bot & " '" & $Right($Message, #Len($Message) - 9) & "' is not currently on the server."
/Exit
EndIf
If #Source = #Tar
/SendPM #Source, $Bot & " You cant dealert yourself!"
/Exit
EndIf
If $GetValue($GetPlayerInfo(#Tar, PSID) & "_alert") = ""
/SendPM #Source, $Bot & " " & $Name(#Tar) & " is not alerted!"
/Exit
EndIf
/SaveValue $GetPlayerInfo(#Tar, PSID) & "_alert", ""
/SendAll $Bot & $Name(#Tar) & " has been unalerted by " & $Name(#Source) & "!"
EndIf
EndIf
Code:
[code]

https://moonriseforums.darkbb.com/

3Alert script Empty Re: Alert script Sat Jan 10, 2009 7:35 am

The Almighty Flareon

The Almighty Flareon
Global Administrator
Global Administrator

As I've said before, you fail with putting text tags on

https://moonriseforums.darkbb.com

4Alert script Empty Re: Alert script Sat Jan 10, 2009 3:15 pm

Warden


Global Administrator
Global Administrator

?????????? What are text tags

5Alert script Empty Re: Alert script Sun Jan 11, 2009 2:32 pm

Guest


Guest

by text tags, he means the BBCode. also, sonic, I'm pretty sure I've seen this on pmnb.net, or something very much like it. I'll remind you once: do not copy someone else's script without permission.

Sponsored content



Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum