cmd_beer.cfg

// beer, cookie, sweetsy, etc.

beerpoints = 20
beermax = 100

beerwant  = "^f0%1 wants pint of a good beer"
beerpee = "^f0%1 peed and wants one more pint of a good beer"
beerenought = "^f0%1 is filled with beer and don't want more"
beermissed = "^f0%1 throw away can of a chilly beer. Bastard"

beermsg0 = "^f0%1 give glass of water to %2"
beermsg1 = "^f0%1 passes %2 a chilly beer!"
beermsg2 = "^f0%1 passes %2 russian Baltika 9 beer"
beermsg3 = "^f0%1 passes %2 russian Zhigulevskoe beer and package of sunflower seeds"
beermsg4 = "^f0%1 passes bottle of vodka to %2. After it %2 can't stands"
beermsgs = 5

cmd_beer = [
	// if no reciver
	if (=s $arg2 "") [
		beerinside = (getvar $arg1 "beer")
		if (>= $beerinside $beermax) [
			say (format $beerpee (getname $arg1))
			setvar $arg1 "beer" 0
		] [
			say (format $beerwant (getname $arg1))
		]
	] [
		// if client exists
		if (playerexists $arg2) [
			// check if enought beer
			beerinside = (getvar $arg2 "beer")
			if (>= $beerinside $beermax) [
				// full of beer
				say (format $beerenought (getname $arg2))
			] [
				// can drink more
				beeraddpoints = $beerpoints
				beermsgnum = (rnd $beermsgs) // just random number 
				beermsg = (getalias (concatword beermsg $beermsgnum)) // choose random message
				//say (format "num='%1' beermsg='%2'" $beermsgnum $beermsg)

				// extra drink can kill ;)
				if (>= $beermsgnum (- $beermsgs 1)) [
					beeraddpoints = $beermax
					suicide $arg2
				]

				say (format $beermsg (getname $arg1) (getname $arg2))
				setvar $arg2 "beer" (+ $beerinside $beeraddpoints)
			]
		] [
			// client not exists
			say (format $beermissed (getname $arg1))
		]
	]
]

registercommand "beer" cmd_beer 0 "|i" "beer (cn) ^f1Some beer"

// clean beer point at start of match
beer_clean = [
	//say "beer clean"
	looplist cn (listclients) [
		echo $cn
		setvar $cn "beer" 0
	]
]

addhandler onmapstart beer_clean