glife/locations/npcgenext.qsrc

# npcgenext

! {Venerial Disease Generator. requires an index.}
if $args[0] = 'rstd':
	if $ARGS[1] = '': ARGS[1] = 0
	if isnum(mid($ARGS[1],1,1)) and val(mid($ARGS[1],1,1)) < 10:
		$tempvan1 = 'A' + $ARGS[1]
	else
		$tempvan1 = $ARGS[1]
	end
	if rand(0,100) = 100:
		tempvenerial = rand(1,4)
!! Herpes simplex virus 1 and 2 (HSV-1 and HSV-2) are common and contagious. About 67% of the world population under the age of 50 has HSV-1
		if tempvenerial = 1: npc_herpes[$tempvan1] = 1
!! Syphilis is a sexually transmitted infection caused by the bacterium
		if tempvenerial = 2: npc_syth[$tempvan1] = 1
!! Gonorrhea, colloquially known as the clap, is a sexually transmitted infection (STI) caused by the bacterium
		if tempvenerial = 3: npc_gon[$tempvan1] = 1
!! Candidiasis/yeast infection is a fungal infection due to any type of Candida. When it affects the mouth, in some countries it is commonly called thrush.
		if tempvenerial = 4: npc_thrush[$tempvan1] = 1
	end
	killvar 'tempvenerial'
	killvar '$tempvan1'
end

--- npcgenext ---------------------------------