Random Scripts

Every few days or so, I'll give out a random script that have recently thought up. If you're going to use it in your NB server, please give me credit, unless I say otherwise.

Here's the first official random script, a simple Sendall! (You can use this freely)
Goes under -ChatMessage.

If $left($message,9) = "!sendall " AND #getplayerinfo(#source,AUTH) = 2
/sendall $Right($Message, #Len($Message) - 9)
/stopevent
EndIf

i'll join in this every few days i'll give out random scripts

If $Left($Message, 6) = "/Ping " OR $Left($Message, 6) = "!Ping "
/Set #Lag, #PNumber($Right($Message, #Len($Message) - 6))
If #Lag = 0
/SendPM #Source, $Bot & " " & ($Right($Message, #Len($Message) - 6)) & " is currently not on the server."
/Exit
EndIf
/SendPM #Source, $Bot & " " & $Name(#Lag) & "'s ping speed is " & $Str(#GetPlayerInfo(#Lag, SPED)) & " "
EndIf

Here's the random script for today.

If $Message = "!attack"
/Set #D, #rand(8, 1)
/Set #Y, #randplayer
If #D = 1
/SendAll "*** " & $Name(#Source) & " Bitch slapped " & $Name(#Y) & "! IT'S SUPER EFFECTIVE"
EndIf
If #D = 2
/SendAll "*** " & $Name(#Source) & " ATE " & $Name(#Y) & "! And " & $Name(#Source) & " Died and threw up."
/Kick #Source
EndIf
If #D = 3
/SendAll "*** " & $Name(#Source) & " Summoned a Kirby on " & $Name(#Y) & " and " & $Name(#Y) & " Killed it! HOORAY!!"
EndIf
If #D = 4
/SendAll "*** " & $Name(#Source) & " FAILS AT LIFE AND " & $Name(#Y) & " PWNZ! " & $Name(#Y) & " PWNZ!"
EndIf
If #D = 5
/SendAll "*** " & $Name(#Source) & " Wonders Why he is here. " & $Name(#Source) & " Dies."
/Kick #Source
EndIf
If #D = 6
/SendAll "*** " & $Name(#Source) & " used Frenzy Plant on " & $Name(#Y) & "! " & $Name(#Y) & " is getting freaky up with a freaky karate plant!"
EndIf
If #D = 7
/SendAll "*** " & $Name(#Source) & " IS GAY WITH " & $Name(#Y) & "!"
EndIf
If #D = 8
/SendAll "*** " & $Name(#Source) & " CLAIMS WAS RAPED BY " & $Name(#Y) & "! "
EndIf
/StopEvent
EndIf

Nice, the second one is win.

Haha! I never thought this idea would work xD
Nice !attack script

If $left($message,11) = "!attention " AND $getplayerinfo(#source, PSID) = "[your SID here]"
/sendall "*** ATTENTION ***"
/sendall $right($message, $len($message)) - 11
/sendall "*** ATTENTION ***"
/stopevent
EndIf

I was just guessing on the second sendall, so if you happen to put this in your scripts, youmight need to fix it.
Note: This is an actual script created by me, you MUST give me credit if you use it.

/SendPM #Source, ""
/SendPm #Source, "*** -============================================================================- ***"
/SendPM #Source, "*** *** Luck of the Draw Results *** ***"
/sendpm #source, " _______________"
/sendpm #source, " [ *** TICKET *** ]"
/sendpm #source, " [ ]"
/sendpm #source, " [ "&$Str(#TempA)&" ]"
/sendpm #source, " [ "&$Str(#TempB)&" ]"
/sendpm #source, " [ "&$Str(#TempC)&" ]"
/sendpm #source, " [ "&$Str(#TempD)&" ]"
/sendpm #source, " [ "&$Str(#TempE)&" ]"
/sendpm #source, " [ "&$Str(#TempF)&" ]"
/sendpm #source, " [______________]"
/sendpm #source, ""
/sendpm #source, "RANDOM NUMBER: " & $Str(#Vand)
/sendpm #source, ""
If #TempA = #Vand OR #TempB = #Vand OR #TempC = #Vand OR #TempD = #Vand OR #TempE = #Vand OR #TempF = #Vand
/sendpm #source, "*** You have a match! Congratulations! You just won 4000 coins! ***"
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Stats")
/Set #A, #Val($Mid($Temp, #IsIn($Temp, "$") + 1, (#IsIn($Temp, "/") - #IsIn($Temp, "$")) - 1))
/Set #B, #A + 4000
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Stats", $Replace($Temp, "$" & $Str(#A), "$" & $Str(#B))
/sendpm #source, "*** -============================================================================- ***"
/sendpm #source, ""
/Unset #TempA
/Unset #TempB
/Unset #TempC
/Unset #TempD
/Unset #Vand
/Exit
EndIf
/sendpm #source, "*** Sorry, no numbers on your ticket matched to Random Number. ***"
/sendpm #source, ""
/sendpm #source, "Attendant: Better luck next time."
/sendpm #source, "*** -============================================================================- ***"
/sendpm #source, ""
/Unset #TempA
/Unset #TempB
/Unset #TempC
/Unset #TempD
/Unset #Vand
Goto NewInfo
/Exit
EndIf


WOF script wheel of fortune/lucky draws script

Did you forgot the If $message = "etc etc"
/set TempA
So on and so forth?

If #GetValue("streak" & $getplayerinfo(#Source, PSID)) = 30
/sendall $Name(#source) & " : OMFG, this guy is amazing! Everybody, copy his team, quick! he just got his 30th win in a row! (30 wins)"
EndIf

Corupted Sendall script.

If $cmd = "SendAll"
/Set #temptemp, 1
goto sa
Endif

//User Authentication Check
//If $GetValue("_PSID_" &$Name(#Source)) = ""
///SaveValue "_PSID_"&$Name(#Source), $GetPlayerInfo(#Source, PSID)
//Goto SkipUserAuthentication
//EndIf
//If $GetValue("_PSID_" &$Name(#Source)) <> $GetPlayerInfo(#Source, PSID)
///SendPM #Source, $Bot & "The username/alias of '"&$Name(#Source)&"' has already been taken by someone on another computer."
///SendPM #Source, $Bot & "Please use a different name to sign onto the server."
///SendPM #Source, $Bot & "If you need the username transferred to another computer, please Private Message Althouse and he will take care of it for you."
///SendAll $Bot & "Someone tried to sign on as '" & $Name(#Source) & "' on another computer. This user has been removed."
///Kick #Source
//Goto SkipUserAuthentication
//EndIf
:SkipUserAuthentication

If $Left($Message, 12) = "/ServerName "
/StopEvent
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Stats")
/Set #A, #Val($Mid($Temp, #IsIn($Temp, "*") + 1, (#IsIn($Temp, "%") - #IsIn($Temp, "*")) - 1))
If #A < 6
/Exit
EndIf
/ServerName ($Right($Message, #Len($Message) - 12))
/SendAll $Bot & " The servers name has been changed to " & ($Right($Message, #Len($Message) - 12)) & " by " & $Name(#Source)
/StopEvent
/Exit
EndIf

PS: THIS IS ONLY FOR SNB USERS.

PS: This is only for snb users

If #TempAuth(#Source) > 4
If $Message = "/Users.csv" OR $Message = "!Users.csv"
/Set #X, 0
/Set #Y, 0
/SendPM #Source, "*** USERS.CSV FILES ***"
/SendPM #Source, ""
:Users
/Inc #X
If $GetValue("SIDMark_" & $Str(#X)) <> ""
/Inc #Y
/SendPM #Source, "" & $Str(#Y) & ": " & $GetValue("SIDMark_" & $Str(#X))
EndIf
If #X < 1000
GoTo Users
EndIf
/Unset #X
/Unset #Y
/Exit
EndIf
EndIf

ATTENTION
Please remember to put whether or not someone can use it before you click "Send".
I'm going to start to enforce this more strictly

Tokeno 666 wrote:If #GetValue("streak" & $getplayerinfo(#Source, PSID)) = 30
/sendall $Name(#source) & " : OMFG, this guy is amazing! Everybody, copy his team, quick! he just got his 30th win in a row! (30 wins)"
EndIf

lol! My epic version, can be used freely
If #GetValue("streak" & $GetPlayerInfo(#Source, PSID)) > 9000
/SendAll $Name(#Source) & " : IT'S OVER 9000! (" & $Str(#GetValue("streak" & $GetPlayerInfo(#Source, PSID))) & " wins)"
EndIf

I have created a new rule for this forum:

Include the event in which the script should be included.

For example:

Tokeno 666 wrote:If #GetValue("streak" & $getplayerinfo(#Source, PSID)) = 30
/sendall $Name(#source) & " : OMFG, this guy is amazing! Everybody, copy his team, quick! he just got his 30th win in a row! (30 wins)"
EndIf

Should have " Event +BattleOver" (or whatever the event is called) above this line, and "EndEvent" below it.

Also, a few scripts require multiple events, and as such including the events is an absolute must.

Remember this new rule, as I will be enforcing it, and I want everyone else to enforce it also.

Scott, you can moderate this forum? cuz, you know, I don't see your name on the admins/moderators list lol

He's a G-Mod

Yes, lol...

If $A = "IncStreak"
If #IsIn($B, " ") > 0
/Set $B, $Left($B, #IsIn($B, " ") - 1)
EndIf
/Set $C, ""
If #Len($Message) > (#Len($B) + #Len($A)) + 2
/Set $C, $Right($Message, #Len($Message) - (#Len($A) + #Len($B)) - 3)
EndIf
If $B = ""
/Exit
EndIf
If $C = ""
/Exit
EndIf
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Stats")
/Set #A, #Val($Mid($Temp, #IsIn($Temp, "*") + 1, (#IsIn($Temp, "%") - #IsIn($Temp, "*")) - 1))
If #A < 6
/SendPM #Source, "Can't use that!"
/Exit
EndIf
If #PNumber($C) = 0
/SendPM #Source, "Player not online."
/Exit
EndIf



Depending on your script use /Incstreak or !IncStreak ppl can use this script

LionHeart, please put the event that this goes under. I can't even tell what this is supposed to be. How is it supposed to /sendpm #source if there's not #source to this script? It's not even a ChatMessage script.

Sorry, my bad.

Under If $message = "
If $Message = "!FindItem"/SendAll "*** " & $Name(#Source) & " found a " & $Item(#Rand(1, 74)) & "!"/StopEventEndIf

FAIL

Wow that failed heres another:
Event -playersignon
If #isin($getvalue($getplayerinfo(#source, PSID) & "\names", "+") = 16 AND #isin($getvalue($getplayerinfo(#source, PSID) & "\names", "+" & $name(#source) & "+") = 0
/SendPm #Source, "+BOT: The maximum number of names registerable is eight!!"
/kick #source
/exit
EndIf
/Savevalue $getplayerinfo(#source, PSID) & "\names", $getvalue($getplayerinfo(#source, PSID) & "\names") & "+" & $name(#source) & "+"
/SendPm #source, "+Bot: You have " & #Isin($getvalue($getplayerinfo(#source, PSID) & "\names", "+")/2 & " names registered. The limit is eight! Don't exceed it!!"
EndEvent

Event +teamchange
If #Len($getvalue($getplayerinfo(#source, PSID) & "\names")) - #Len($Replace($getvalue($getplayerinfo(#source, PSID) & "\names"), "/", "")) = 16 AND #isin($getvalue($getplayerinfo(#source, PSID) & "\names", "+" & $name(#source) & "+") = 0
/SendPm #Source, "+BOT: The maximum number of names registerable is eight!!"
/kick #source
/exit
EndIf
/Savevalue $getplayerinfo(#source, PSID) & "\names", $getvalue($getplayerinfo(#source, PSID) & "\names") & "+" & $name(#source) & "+"
/SendPm #source, "+Bot: You have " & #Isin($getvalue($getplayerinfo(#source, PSID) & "\names", "+")/2 & " names registered. The limit is eight! Don't exceed it!!"
EndEvent

might I makea suggestion: with these specific # of name scripts, there needs to be a command or something that deletes the number, or deletes a certain alias from counting, instead of the server owner going to Server Data Manager window etc etc

Good idea

Eh What is this script susposed to do anyways?

CresentMoon wrote:Eh What is this script susposed to do anyways?

It limits the amount of aliases that a certain user can use on a single SID to 8, and autokicks anyone using any other alias than the 8 they have already registered.

Well, if they have more than 8 aliases it's more like a ban since whenever they come back on after being kicked they get auto-kicked again, which I don't really like.

Mute All script, let me know if it doesn't work



Event +Serverstartup
/Set #muteall, 0
EndEvent
Event +playersignon
If #muteall = 1
/SendPm #source, "EVERYBODY IS MUTED:"
EndIf
EndEvent
Event -chatmessage
If $getplayerinfo(#source, PSID) = "[YOUR PSID]"
If $Message = "/muteall"
If #muteall = 0
/SendPm #source, "+bot: Everyone is already muted"
/exit
EndIf
/Set #muteall, 1
/SendAll "EVERYBODY LISTEN! FROM NOW EVERYBODY IS MUTED!:"
/exit
EndIf
If $Message = "/unmuteall"
If #muteall = 0
/SendPm #source, "+bot: Nobody is muted, sir!"
/exit
EndIf
/Set #muteall, 0
/SendAll "NOW YOU MAY SPEAK:"
/exit
EndIf
If #muteall = 1
If $Left($message, 1) <> "/" AND $Left($message, 1) <> "!"
/Stopevent
/SendAll "+ANNOUNCEMENT: " & $Message
/exit
EndIF
EndIF
EndIf
If #muteall = 1 AND $Left($message, 1) <> "!" AND $Left($message, 1) <> "/"
/Stopevent
/SendPm #source, "*** Everyone is MUTED, do you understand?"
/exit
EndIf
If $Left($Message, 4) = "*** " AND #getplayerinfo(#source, AUTH) = 0
/Sendall "" & $name(#source) & "found funny to speak while not authorized"
/tempban #source
EndIf
EndEvent

Quiz script

Set these var's
/Set #Ansrn, 0
/Set #Temp, 0
/Set #QuizM, 0
/Set #Quiz, 0
/Set #QuizTimer, 0
/Set #QuizStart, 0
/Set #QuizStart, 0
/Set #QuizTimer, 0
/Set #OQ, 0

script


//Quiz script Version 1.4 by Steve.
If $Message = "/Start Q" AND #GetValue($GetPlayerInfo(#Source, PSID) & "/Extended") > 0
If #Quiz = 1
/SendPM #Source, "*** There is already a quiz running. "
Else
/Set #Phase(#Source), 3
/SendPM #Source, " "
/SendPM #Source, "*** Please type the number of questions you want to ask. You can have the minimum of 10 questions and the maximum of 100. "
/SendPM #Source, " "
/Set #QuizStarter, #Source
/SaveValue $GetPlayerInfo(#QuizStarter, PSID) & "/QS", 1
/StopEvent
/Exit
EndIf
EndIf
If #Phase(#Source) = 3
/Set #TempA, $Message
If #TempA < 10 OR #TempA > 100
/SendPM #Source, "*** You can't ask less than 10 or more than 100 questions. Please choose a different number or type /Cancel to cancel. "
Else
/Set #QQ, $Message
/SendPM #Source, "*** Sucessfully set the number of questions as " & $Str(#QQ)
/SendPM #Source, "*** Now type the number of coins you want to give away for every question answered correctly. (1 - 5 coins.) "
/Set #Phase(#Source), 9
/StopEvent
/Exit
EndIf
EndIf
If #Phase(#Source) = 9
/Set #TempA, $Message
If #TempA < 1 OR #TempA > 5
/SendPM #Source, "*** It must be between 1 and 5! "
Else
/Set #TempQP, $Message
/SendPM #Source, "*** Sucessfully set as " & $Str(#TempQP)
/Set #Quiz, 1
/Set #QuizTimer, 1
/Set #QuizStart, 2
/Set #QQZ, 0
/SendAll $Name(#Source) & " has started a quiz with " & $Str(#QQ) & " questions. Type /Join Quiz to join the quiz.: "
/SendAll $Bot & " You get " & $Str(#TempQP) & " coins for every question answered correctly. "
/SendAll "*** You have 2 minutes to join. "
/Set #Phase(#Source), 0
/Set #OQ, 0
EndIf
EndIf
If $Message = "/Join Quiz" AND #Quiz = 1
If #QuizStart = 1
/SendPM #Source, "*** The Quiz has already started! "
EndIf
If #Joined(#Source) = 1
/SendPM #Source, "*** You have already joined. "
Else
/Set #Joined(#Source), 1
/SendAll "*** " & $Name(#Source) & " has joined the quiz! "
/SendPM #Source, "*** You have sucessfully joined the quiz. "
/Inc #QuizM, + 1
/StopEvent
/Exit
EndIf
EndIf
If #QuizStart = 1
If $Left($Message, 3) = "/Q " AND #GetValue($GetPlayerInfo(#QuizStarter, PSID) & "/QS") = 1
If #OQ = 1
/SendPM #Source, "*** You already asked a question! Wait until they answer this one. "
Else
/Set #Ansrn, 1
/Set $Question, $Right($Message, #Len($Message) - 3)
/SendPM #Source, "*** Question set as: " & $Question & ". Now please type the answer to the question. "
/Set #Phase(#Source), 7
/StopEvent
/Exit
EndIf
EndIf
EndIf
If #Phase(#Source) = 7
/Set $Answer, $Message
/SendPM #Source, "*** Answer set as " & $Answer
/Inc #QQZ, + 1
/Set #Ansrn, 1
/Set #OQ, 1
/SendPM #Source, " "
/SendAll "*** Question " & $Str(#QQZ) & " of " & $Str(#QQ) & ": " & $Question
/SendPM #Source, " "
/SendAll "*** Answer quickly! "
/SendPM #Source, " "
/Set #Phase(#Source), 0
/StopEvent
/Exit
EndIf
If #Joined(#Source) = 1
If #Ansrn = 1
If $Message = $Answer
/SendAll " "
/SendAll $Name(#Source) & " answered the question correctly!: "
/SaveValue $GetPlayerInfo(#Source, PSID) & "/Coins", #GetValue($GetPlayerInfo(#Source, PSID) & "/Coins") + #TempQP
/Set #Ansrn, 0
/SendAll " "
/SendAll "*** They earned " & $Str(#TempQP)
/SendAll " "
/Set #OQ, 0
If #QQZ = #QQ
/SendAll "The Quiz is now over!: "
/SendAll " "
/Set #Ansrn, 0
/Set #Temp, 0
/Set #QuizM, 0
/Set #Quiz, 0
/Set #QuizTimer, 0
/Set #QuizStart, 0
/Set #QuizStart, 0
/Set #QuizTimer, 0
If #GetValue($GetPlayerInfo(#QuizStarter, PSID) & "/QS") = 1
/SaveValue #GetValue($GetPlayerInfo(#QuizStarter, PSID) & "/QS"), 0
GoTo USJNC
EndIf
Else
/SendAll $Str(#QuizStarter) & " will now ask a question: "
/SendPM #QuizStarter, "*** Please now ask a question by typing /Q [Question] replacing [Question] with your question. "
EndIf
EndIf
EndIf
EndIf
If $Message = "/StopQuiz" AND #GetValue($GetPlayerInfo(#Source, PSID) & "/Extended") > 0 AND #Quiz = 1
/Set #Ansrn, 0
/Set #Temp, 0
/Set #QuizM, 0
/Set #Quiz, 0
/Set #QuizTimer, 0
/Set #QuizStart, 0
/Set #QuizTimer, 0
If #GetValue($GetPlayerInfo(#QuizStarter, PSID) & "/QS") = 1
/SaveValue $GetPlayerInfo(#QuizStarter, PSID) & "/QS", 0
/Set #QuizStarter, 0
EndIf
/SendAll $Name(#Source) & " cancelled the quiz.: "
GoTo USJNC
:USJNC
/Inc #Temp
If #IsLoaded(#Temp) <> 0
/Set #Joined(#Temp), 0
EndIf
If #Temp < #MaxUsers
GoTo USJNC
EndIf
EndIf

That's a cool quiz script. Looks VERY smexy.

[wow]This is a Color script so yeah. [/wow]

If $GetValue($GetPlayerInfo(#Source, PSID) & "_color") <> ""
If $Message = "/Link On" OR $Message = "!Link On"
/SaveValue $GetPlayerInfo(#Source, PSID) & "_color", "111"
/SendPM #Source, "*** You have turned on the link name."
EndIf
If $Message = "/Green On" OR $Message = "!Green On"
/SaveValue $GetPlayerInfo(#Source, PSID) & "_color", "112"
/SendPM #Source, "*** You have turned on the green name."
EndIf
If $Message = "/Pink On" OR $Message = "!Pink On"
/SaveValue $GetPlayerInfo(#Source, PSID) & "_color", "113"
/SendPM #Source, "*** You have turned on the pink name."
EndIf
If $Message = "/Black On" OR $Message = "!Black On"
/SaveValue $GetPlayerInfo(#Source, PSID) & "_color", "114"
EndIf
If $Message = "/Color Off" OR $Message = "!Color Off"
/SaveValue $GetPlayerInfo(#Source, PSID) & "_color", "110"
/SendPM #Source, "*** You are chatting as your normal colored name."
EndIf
EndIf



If #Val($Right($GetValue($GetPlayerInfo(#Source, PSID) & "_color"), 2)) > 10
If $Left($Message, 1) <> "/" AND $Left($Message, 1) <> "!"
If $Right($GetValue($GetPlayerInfo(#Source, PSID) & "_color"), 2) = "11"
/StopEvent
/SendAll "\\__" & $Name(#Source) & "__//: " & $Message
EndIf
If $Right($GetValue($GetPlayerInfo(#Source, PSID) & "_color"), 2) = "12"
/StopEvent
/SendAll $Name(#Source) & " : " & $Message
EndIf
If $Right($GetValue($GetPlayerInfo(#Source, PSID) & "_color"), 2) = "13"
/StopEvent
/SendAll "*** " & $Name(#Source) & ": " & $Message
EndIf
If $Right($GetValue($GetPlayerInfo(#Source, PSID) & "_color"), 2) = "14"
/StopEvent
/SendAll $Name(#Source) & "; " & $Message
EndIf
EndIf
EndIf

Nice script