' MirageBot VBScript
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
' PELT SCRIPT
' By: Swent
' Converter: EKLIPz
' Updated by: Chriso for 9.4+
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Public pmQuantity(25), pmThrowType(17), pmObject(100)

Const ScriptName = "Pelt"

'// Return Script Information
Sub Script(Name, Major, Minor, Build, Author, Commands, Description)
	Name = "Pelt"
	Major = 1
	Minor = 1
	Build = 0
	Author = "Chriso"
	Commands = "pelt"
	Description = "Throws a random quantity of objects at a user."
End Sub

Sub Event_Load()
	'Create the Pelt command
	CreateCommand "pelt", ScriptName, "Command_Pelt", "", "user", _
		"Throws a random quantity of objects at a user.", 0, True
		
	pmQuantity(1) = "some"
	pmQuantity(2) = "several"
	pmQuantity(3) = "Ten Thousand"
	pmQuantity(4) = "26"
	pmQuantity(5) = "a few"
	pmQuantity(6) = "a lot of"
	pmQuantity(7) = "scores of"
	pmQuantity(8) = "countless"
	pmQuantity(9) = "a myriad of"
	pmQuantity(10) = "7"
	pmQuantity(11) = "a plethora of"
	pmQuantity(12) = "4"
	pmQuantity(13) = "a bazillion"
	pmQuantity(14) = "loads of"
	pmQuantity(15) = "numerous"
	pmQuantity(16) = "62"
	pmQuantity(17) = "12"
	pmQuantity(18) = "an immeasurable amount of"
	pmQuantity(19) = "58"
	pmQuantity(20) = "11"
	pmQuantity(21) = "17"
	pmQuantity(22) = "an overabundance of"
	pmQuantity(23) = "a profuse amount of"
	pmQuantity(24) = "9"
	pmQuantity(25) = "101"
	 '// add more here if you wish (make sure to change the Public pmQuantity at the top!)
	'pmQuantity(26) = ""
	'pmQuantity(27) = ""


	pmThrowType(1) = "Hurls"
	pmThrowType(2) = "Catapults"
	pmThrowType(3) = "Casts"
	pmThrowType(4) = "Chucks"
	pmThrowType(5) = "Lobs"
	pmThrowType(6) = "Throws"
	pmThrowType(7) = "Volleys"
	pmThrowType(8) = "Tosses"
	pmThrowType(9) = "Pelts"
	pmThrowType(10) = "Heaves"
	pmThrowType(11) = "Pitches"
	pmThrowType(12) = "Fires"
	pmThrowType(13) = "Flicks"
	pmThrowType(14) = "Flings"
	pmThrowType(15) = "Launches"
	pmThrowType(16) = "Shoots"
	pmThrowType(17) = "Propels"
	 '// add more here if you wish (make sure to change the Public pmThrowType at the top!)
	'pmThrowType(18) = ""
	'pmThrowType(19) = ""

	pmObject(1) = "plates"
	pmObject(2) = "fence posts"
	pmObject(3) = "stools"
	pmObject(4) = "chairs"
	pmObject(5) = "keyboards"
	pmObject(6) = "rocks"
	pmObject(7) = "sticks"
	pmObject(8) = "cds"
	pmObject(9) = "tvs"
	pmObject(10) = "cookies"
	pmObject(11) = "brownies"
	pmObject(12) = "chairs"
	pmObject(13) = "fruits"
	pmObject(14) = "trees"
	pmObject(15) = "dice"
	pmObject(16) = "telephones"
	pmObject(17) = "glasses"
	pmObject(18) = "garbage bags"
	pmObject(19) = "briefcases of money"
	pmObject(20) = "$100.00 bills"
	pmObject(21) = "hot babes"
	pmObject(22) = "thongs"
	pmObject(23) = "bikinis"
	pmObject(24) = "pies"
	pmObject(25) = "oranges"
	pmObject(26) = "grapes"
	pmObject(27) = "burgers"
	pmObject(28) = "packets of ketchup"
	pmObject(29) = "bottles of mustard"
	pmObject(30) = "hotdog buns"
	pmObject(31) = "toilet paper rolls"
	pmObject(32) = "barrels"
	pmObject(33) = "pizzas"
	pmObject(34) = "packets of soy sauce"
	pmObject(35) = "newborn infants"
	pmObject(36) = "batteries"
	pmObject(37) = "toilets"
	pmObject(38) = "mice"
	pmObject(39) = "rats"
	pmObject(40) = "water-balloons"
	pmObject(41) = "binders"
	pmObject(42) = "balls of paper"
	pmObject(43) = "filing cabinets"
	pmObject(44) = "tacos"
	pmObject(45) = "burritos"
	pmObject(46) = "pizza boxes"
	pmObject(47) = "sacks of corn"
	pmObject(48) = "printers"
	pmObject(49) = "ak47s"
	pmObject(50) = "bottles of beer"
	pmObject(51) = "bottles of rum"
	pmObject(52) = "bottles of booze"
	pmObject(53) = "dishes"
	pmObject(54) = "cups"
	pmObject(55) = "hand guns"
	pmObject(56) = "pistols"
	pmObject(57) = "steering wheels"
	pmObject(58) = "bikes"
	pmObject(59) = "cars"
	pmObject(60) = "bike wheels"
	pmObject(61) = "car tires"
	pmObject(62) = "desert eagles"
	pmObject(63) = "pens"
	pmObject(64) = "pop cans"
	pmObject(65) = "Pepsi's"
	pmObject(66) = "Coke's"
	pmObject(67) = "salads"
	pmObject(68) = "bottles of salad dressing"
	pmObject(69) = "bottles of mayonnaise"
	pmObject(70) = "tubs of margarine"
	pmObject(71) = "balloons"
	pmObject(72) = "scoops of cat litter"
	pmObject(73) = "cans of cat food"
	pmObject(74) = "bags of dog food"
	pmObject(75) = "banna peels"
	pmObject(76) = "tables"
	pmObject(77) = "snowballs"
	pmObject(78) = "yellow snowballs"
	pmObject(79) = "red snowballs"
	pmObject(80) = "juice boxes"
	pmObject(81) = "empty containers"
	pmObject(82) = "broken chairs"
	pmObject(83) = "shaved donkeys"
	pmObject(84) = "water bottles"
	pmObject(85) = "eye glasses"
	pmObject(86) = "hotdogs"
	pmObject(87) = "hamburger buns"
	pmObject(88) = "hotdog buns"
	pmObject(89) = "chickens"
	pmObject(90) = "cats"
	pmObject(91) = "dogs"
	pmObject(92) = "pigs"
	pmObject(93) = "horses"
	pmObject(94) = "elephants"
	pmObject(95) = "tigers"
	pmObject(96) = "cheetahs"
	pmObject(97) = "birds"
	pmObject(98) = "fish"
	pmObject(99) = "apes"
	pmObject(100) = "chimps"
	 '// add more here if you wish (make sure to change the Public pmObject at the top!)
	'pmObject(101) = ""
	'pmObject(102) = ""

	'/**************************
	'* DO NOT EDIT BELOW HERE  *
	'* DO NOT EDIT BELOW HERE  *
	'* DO NOT EDIT BELOW HERE  *
	'***************************
	Randomize '// Initilize the RNG
End Sub

Sub Command_Pelt(CS)
	'// Get random quantity, throw type, and object
	sayQuantity = Int(Rnd * UBound(pmQuantity)) + 1
	sayThrow = Int(Rnd * UBound(pmThrowType)) + 1
	sayObject = Int(Rnd * UBound(pmObject)) + 1
	
	'// Get the user to be pelted
	peltedUser = Trim(CS.Message)
	
	'// User pelting themself?
	If Lcase(peltedUser) = "me" Or Len(peltedUser) = 0 Then 
		If CS.IsConsole Then
			peltedUser = "himself"
		Else
			Account = CS.Bot.GetAccount(CS.Username)
			If Left(Account, 1) = "*" Then Account = Mid(Account, 2)
			peltedUser = Account
		End If
	End If
	
	CS.Reply pmThrowType(sayThrow) & " " & pmQuantity(sayQuantity) & " " & pmObject(sayObject) & " at " & peltedUser & "!",,2
End Sub