glife/locations/events

# events

if $ARGS[0] = 'street_cum':
	if spdirtyc > 0 or spdirtyv > 0:
		if hour >= 7 and hour <= 21:
			manna -= 5
			if face_write > 0:
			manna -= 5
			'Passers puzzled turn around staring at you - one with surprise, and others with contempt. Someone smiles and shows a finger. Some of the pictures on your phone, absolutely not hiding and giggling at you. You clearly noticeable semen and bargain painted face.'
			else
			'Puzzled passerbys turn around and stare at you. Some take pictures on their phones, not entirely hiding that they are giggling at you. The sperm on you is clearly noticeable.'
			end
		end
	elseif spdirtyc = 0 and spdirtyv = 0 and face_write > 0:
		manna -= 5
		'Surrounding look at you with surprise, grin or a slight contempt. Someone just point the finger and laughs. Someone photographed phone. Hair obviously can not hide "art" on your face.'
	end
end

if $ARGS[0] = 'read':
	act 'Read a book':
		cls
		gs 'stat'
		'<center><img src="images/pics/book.jpg"></center>'

		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at the book you already read, thinking. "Damn, nothing to read, maybe I''ll take a walk or search the market for a new book?"'

		if f_book > 0:
			if fantasybook <= 0:fantasybook = 5 & f_book -= 1

			'You still have <<f_book>> unread fantasy novels.'
		end

		if fantasybook > 0:
			act 'Read fantasy book. There are <<fantasybook * 100>> pages left (1:00)':
				cls
				fantasybook -= 1

				if fantasybook = 0:totalbook += 1

				minut += 60

				if nerdism > 0:
					lastread = totminut
					lastreadday = daystart
					nerdism += 1
					blizoruk += 1
				end

				gs 'stat'
				'<center><img src="images/pics/book.jpg"></center>'

				if nerdism > 0:
					manna += 100

					if stren > 1:stren -= 1
					if vital > 5:vital -= 1
					'For an hour you enthusiastically read the book, completely immersed in the authors world.'
				else
					manna += 10
					'For an hour you read the book.'
				end

				act 'Close the book':gt $loc, $Metka
			end
		end

		if w_book > 0:
			if womanbook <= 0:womanbook = 5 & w_book -= 1

			'You still have <<w_book>> unread women''s novels.'
		end

		if womanbook > 0:
			act 'Read Women''s Novel. There are <<womanbook * 100>> pages left (1:00)':
				cls
				womanbook -= 1

				if womanbook = 0:totalbook += 1
				minut += 60

				if nerdism > 0:
					lastread = totminut
					lastreadday = daystart
					nerdism += 1
					blizoruk += 1
				end

				gs 'stat'
				'<center><img src="images/pics/book.jpg"></center>'

				if nerdism > 0:
					manna += 100
					horny += 10

					if stren > 1:stren -= 1
					if vital > 5:vital -= 1

					'For an hour you enthusiastically read the book, completely immersed in the story.'
				else
					manna += 10
					horny += 3
					'For an hour you read the book.'
				end

				act 'Close the book':gt $loc, $Metka
			end
		end

		act ' Close the book':gt $loc, $Metka
	end
	
	if cookmag = 0 and fashmag = 0 and compmag = 0 and biomag = 0 and knitmag = 0 and fitmag = 0:
		'You have no magazines to read.'
	else
		act 'Read a magazine':
			cls
			gs 'stat'
			'<center><img src="images/pics/book.jpg"></center>'

			if cookmag = 1:
				act 'Read your cooking magazine':
					cla
					cookmag = 0
					manna += 5
					minut += 30
					'You relax for half an hour reading your cooking magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if fashmag = 1:
				act 'Read your fashion magazine':
					cla
					fashmag = 0
					manna += 5
					minut += 30
					'You relax for half an hour reading your fashion magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if compmag = 1:
				act 'Read your computing magazine':
					cla
					compmag = 0
					manna += 5
					minut += 30
					'You relax for half an hour reading your computing magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if biomag = 1:
				act 'Read your biographical magazine':
					cla
					biomag = 0
					manna += 5
					minut += 30
					'You relax for half an hour reading your biographical magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if knitmag = 1:
				act 'Read your knitting magazine':
					cla
					knitmag = 0
					manna += 5
					minut += 30
					if poSkill <= 100: poSkill += rand(1,3)
					'You relax for half an hour reading your knitting magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			if fitmag = 1:
				act 'Read your fitness magazine':
					cla
					fitmag = 0
					manna += 5
					minut += 30
					'You relax for half an hour reading your fitness magazine.'
					act 'Return':gt $loc, $Metka
				end
			end

			act 'Return':gt $loc, $Metka
		end
	end
end

if $ARGS[0] = 'read_porn':
	act 'Read the porn magazine':
		cls
		'<center><img src="images/qwest/alter/porn.jpg"></center>'

		if pornMagazine = 1:
			'<font color="magenta">Boring</font>, you''ve memorized this magazine by heart, you think that is time to buy a new one.'
		else
			pornMagazine -= 1
			horny += 10
			minut += 5
			gs 'stat'
			'You flip through the porno magazine, reading the stories and looking at the pictures. A small excitement begins to cover your body.'
		end

		act 'Put away':gt $curloc
	end
end

if $ARGS[0] = 'sport':
	sports = 0

	if obruch > 0 and obruchday ! daystart:
		$sitrobr = '<a href="exec: gt ''events'', ''hula''">Hula hoop</a>'
		sports = 1
	else
		$sitrobr = ''
	end

	if bookYog > 0 and bookYogday ! daystart:
		$sitryog = '<a href="exec: gt ''events'', ''yoga''">Meditate</a>'
		sports = 1
	else
		$sitryog = ''
	end

	if skak > 0 and skakday ! daystart:
		$sitrskak = '<a href="exec: gt ''events'', ''rope''">Jumping rope</a>'
		sports = 1
	else
		$sitrskak = ''
	end

	if pressday ! daystart:
		$sitrpress = '<a href="exec: gt ''events'', ''press''">Abdominal exercises</a>'
		sports = 1
	else
		$sitrpress = ''
	end

	if pushday ! daystart:
		$sitrpush = '<a href="exec: gt ''events'', ''push''">Push-ups</a>'
		sports = 1
	else
		$sitrpush = ''
	end

	$sportsitr = '<<$sitrpush>> <<$sitrpress>> <<$sitrskak>> <<$sitryog>> <<$sitrobr>>'

	if sports = 1:
		'There is enough space in the room for a variety of exercises, such as:'
		'<center><<$sportsitr>></center>'
	end
end

if $ARGS[0] = 'hula':
	cla
	*clr
	minut += 15
	obruchday = daystart
	agil += 1
	sweat += 10
	manna -= 1
	fat -= 1
	'<center><img src="images/etogame/obruch.gif"></center>'
	'You develop your dexterity by using the hula hoop.'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'yoga':
	cla
	*clr
	minut += 15
	bookYogday = daystart
	will += 1
	manna += 5

	if $clothingworntype ! 'nude':
		'<center><img src="images/community/yoga_dressed.jpg"></center>'
	elseif tanga = 1:
		'<center><img src="images/community/yoga_underwear.jpg"></center>'
	else
		'<center><img src="images/community/yoga_naked.png"></center>'
	end

	'You meditate for fifteen minutes, developing your will.'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'rope':
	cla
	*clr
	minut += 15
	skakday = daystart
	speed += 1
	sweat += 10
	manna -= 1
	fat -= 1

	if $clothingworntype ! 'nude':
		'<center><img src="images/community/rope_dressed.jpg"></center>'
	elseif tanga = 1:
		'<center><img src="images/community/rope_underwear.jpg"></center>'
	else
		'<center><img src="images/community/rope_naked.jpg"></center>'
	end

	'You jump rope for fifteen minutes, developing your speed.'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'press':
	cla
	*clr
	minut += 15
	pressday = daystart
	vital += 1 + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
	sweat += 15
	manna -= 1
	fat -= 1

	if $clothingworntype ! 'nude':
		'<center><img src="images/community/abdominal_dressed.jpg"></center>'
	elseif tanga = 1:
		'<center><img src="images/community/abdominal_underwear.jpg"></center>'
	else
		'<center><img src="images/community/abdominal_naked.jpg"></center>'
	end

	'You do a series of abdominal exercises for fifteen minutes, developing your endurance.'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'push':
	cla
	*clr
	minut += 15
	pushday = daystart
	stren += 1 + (steroid_dose - rand(0,steroid_dose)) & clit_size + rand(0,(steroid_dose - rand(0,steroid_dose)))
	sweat += 15
	manna -= 1
	fat -= 1

	if $clothingworntype ! 'nude':
		'<center><img src="images/community/push_dressed.jpg"></center>'
	elseif tanga = 1:
		'<center><img src="images/community/push_underwear.jpg"></center>'
	else
		'<center><img src="images/community/push_naked.jpg"></center>'
	end
	'You do push-ups for fifteen minutes, developing your strength.'
	pushnum = stren * son * rand(1,3) / 200
	'<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'

	if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'

	act 'Leave':gt $loc, $metka
end

if $ARGS[0] = 'snkayf':
	snkz = RAND(1,6)
	if tanga = 1:tanga = 0
	if snkz = 1:
		hour += 2
		gt'gdk'
	end

	if snkz = 2:
		hour += 2
		gt'gskver'
	end

	if snkz = 3:
		hour += 2
		gt'bedrPar'
	end

	if snkz = 4:
		hour += 2
		gt'gopskver'
	end

	if snkz = 5:
		hour += 2
		gt 'vokmantoiev', 'female'
	end

	if snkz = 6:
		$clothingworntype = 'nude'
		hour += 2
		gt'Glake'
	end
end

if $ARGS[0] = 'narkozakladka':
	cls
	'<center><b>Shooting galleries</b></center>'
	'<center><img src="images/etogame/narkopriton.jpg"></center>'
	'You decide to ask, and whether their point of Ozersk. To which the man replied, that is not the point, but it can organize your tab and you will be left in place Bookmark money.'
	'Price rise, taking into account the complexities twice and will link two pieces equals.'
	'And then he looked menacingly at you and said, you if you cheat death.'
	act 'Agree':
		cls
		snarkozak = 1
		'<center><b>Shooting galleries</b></center>'
		'<center><img src="images/etogame/narkopriton.jpg"></center>'
		'You scared nodded, they agree.'
		'Guy added, that bookmarks will be on the train/train station from the platform. '
		act 'Leave':gt'narkopriton'
	end
end

if $ARGS[0] = 'snarkozaka':
	cls
	minut += 20 
	money -= 2000
	StrongNarkota += 25
	SNarkTimes += 1
	narkozakday=day
	gs'stat'
	
	'<center><B>Peron Pavlovsky</B></center>'
	'<center><img src="images/pic/vokzalperg.jpg"></center>'
	'You buy the drugs and without thinking twice you shoot up.'

	act 'Leave':gt 'events', 'snkayf'
end

if $ARGS[0] = 'snkayf1':
	snkz = RAND(1,6)
	if tanga = 1:tanga = 0
	if snkz = 1:
		hour += 2
		gt'park','start'
	end

	if snkz = 2:
		hour += 2
		gt'down'
	end

	if snkz = 3:
		hour += 2
		gt'nord'
	end

	if snkz = 4:
		hour += 2
		gt'street'
	end

	if snkz = 5:
		hour += 2
		gt'dachi'
	end

	if snkz = 6:
		hour += 2
		gt'lake','start'
	end
end

--- events ---------------------------------