PalaceChat RBScript Compendium

Script Name:	Pirate Insult
Author:	Marius_Th
Sections:	OUTCHAT
say pinsult while in whisper mode.
if chatstr="pinsult" then

	dim adj1(), adj2(), noun() as string
	dim part1, part2, part3 as string
	dim adj1Index,adj2Index,nounIndex as integer

	adj1 = array("artless","bawdy","beslubbering","bootless","churlish","cockered","clouted","craven","currish","dankish",_
	"dissembling","droning","errant","awning","fobbing","froward","frothy","gleeking","goatish","gorbellied",_
	"impertinent","infectious","jarring","loggerheaded","lumpish","mammering","mangled","mewling","paunchy",_
	"pribbling","puking","puny","qualling","rank","reeky","roguish","ruttish","saucy","spleeny","spongy","surly",_
	"tottering","unmuzzled","vain","venomed","villainous","warped","wayward","weedy","yeasty")

	adj2 = array("base-court","bat-fowling","beef-witted","beetle-headed","boil-brained","clapper-clawed","clay-brained",_
	"common-kissing","crook-pated","dismal-dreaming","dizzy-eyed","doghearted","dread-bolted","earth-vexing",_
	"elf-skinned","fat-kidneyed","fen-sucked","flap-mouthed","fly-bitten","folly-fallen","fool-born","full-gorge",_
	"guts-griping","half-faced","hasty-witted","hedge-born","hell-hated","idle-headed","ill-breeding","ill-nurtured",_
	"knotty-pated","milk-livered","motley-minded","onion-eyed","plume-plucked","pottle-deep","pox-marked",_
	"reeling-ripe","rough-hewn","rude-growing","rump-fe","shard-borne","sheep-biting","spur-galled","swag-bellied",_
	"tardy-gaited","tickle-brained","toad-spotted","urchin-snouted","weather-bitten")

	noun = array("apple-john","baggage","barnacle","bladder","boar-pig","bugbear","bum-bailey","canker-blossom","clack-dish",_
	"clotpole","coxcomb","codpiece","death-token","dewberry","flap-dragon","flax-wench","flirt-gill","foot-licker",_
	"fustilarian","giglet","gudgeon","haggard","harpy","hedge-pig","horn-beast","hugger-mugger","jolthead","lewdster",_
	"lout","maggot-pie","malt-worm","mammet","measle","minnow","miscreant","moldwarp","mumble-news","nut-hook","pigeon-egg",_
	"pignut","puttock","pumpion","ratsbane","scut","skainsmate","strumpet","varlet","vassal","whey-face","wagtail")

	setinteger("adj1Index",rnd*FLOOR(ubound(adj1)))
	setinteger("adj2Index",rnd*FLOOR(ubound(adj2)))
	setinteger("nounIndex",rnd*FLOOR(ubound(noun)))
	
	adj1Index = getinteger("adj1Index")
	adj2Index = getinteger("adj2Index")
	nounIndex = getinteger("nounIndex")

	if whotarget=0 then
		statusmsg "Err: You must select a target"
	else
		roommsg "!@" + str(whox(whotarget)) + "," + str(whoy(whotarget)) + " " + whoname(whotarget) + "!! Thou art a " + adj1(adj1Index) + ", " + adj2(adj2Index) + ", " + noun(nounIndex) + "!"
	end if

	chatstr=""
end if