glife/locations/noticeboard.qsrc

# noticeboard
!! use gs 'noticeboard','start'
$location_type = 'public_indoors'
if $ARGS[0] = 'start':
	gs 'saveposition'
	gt 'noticeboard','look'
end

if $ARGS[0] = 'look':
	if $set_imgh!'':givemeheight=val(mid($set_imgh,10,len($set_imgh)-9))/20 else givemeheight = 30
	NumberOfNewAdverts = 0
	$advert0 = func('noticeboard','test_advert0') 
	$advert1 = func('noticeboard','test_advert1') 
	$advert2 = func('noticeboard','test_advert2') 
	$advert3 = func('noticeboard','test_advert3') 
	$advert4 = func('noticeboard','test_advert4') 
	$advert5 = func('noticeboard','test_advert5') 
	$advert6 = func('noticeboard','test_advert6') 
!!$advert7 = func('noticeboard','test_advert7') 
!!$advert8 = func('noticeboard','test_advert8') 
!!$advert9 = func('noticeboard','test_advert9') 

	$noticeboardmap = '<map name="noticemap">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert0>>" href="exec:gt ''noticeboard'', ''advert0''" alt="--0--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert1>>" href="exec:gt ''noticeboard'', ''advert1''" alt="--1--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert2>>" href="exec:gt ''noticeboard'', ''advert2''" alt="--2--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert3>>" href="exec:gt ''noticeboard'', ''advert3''" alt="--3--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert4>>" href="exec:gt ''noticeboard'', ''advert4''" alt="--4--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert5>>" href="exec:gt ''noticeboard'', ''advert5''" alt="--5--">'
	$noticeboardmap += '<area shape="rect" coords="<<$advert6>>" href="exec:gt ''noticeboard'', ''advert6''" alt="--6--">'
	$noticeboardmap += '</map>'
	$noticeboardmap += '<center><img <<$set_imgh>> src="images/locations/shared/notboard/noticeboard_<<$loc>>.jpg" USEMAP="#noticemap"></center>'

	*pl $noticeboardmap
	killvar '$noticeboardmap'
	if NumberOfNewAdverts = 0: *nl 'There are no interesting adverts at the board.'
	if NumberOfNewAdverts = 1: *nl 'There is one interesting advert at the board.'
	if NumberOfNewAdverts > 1: *nl 'There are <<NumberOfNewAdverts>> interesting adverts at the board.'
	act 'Leave the board': gt 'restoreposition'
end


if $ARGS[0] = 'advert0':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/Old Town.jpg"></td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'

	!!	'Wanted dog walker!'
!!	act 'Call the number': gs 'telefon', 'phone_call_reject'
!!	act 'Record the phone number':
!!		gs 'telefon','Add_contact','images/system/phone/icons/icon_na.png',' gs ''telefon'', ''phone_call_reject'' '
!!		gt 'noticeboard','look'
!!	end
end

if $ARGS[0] = 'advert1':

	'<center><table bgcolor="#FFFF66" width="60%" cellspacing="30"><tr><th align="center"><h3>Pavlovsk police department newsletter</h3></th></tr><tr><td align="left">'+ _
	'&nbsp;&nbsp;&nbsp;The Pavlovsk police department recently investigated the rumours that a secret prostitution ring was being run from the Pavlovsk hotel.<p>'+ _ 
	'&nbsp;&nbsp;&nbsp;After a very thorough investigation, we found absolutely no evidence of this. The hotel manager, <b>Herman Leonidovich</b>, was interrogated and not only did we find him completely innocence he also gave a substantial donation to our department.'+ _
	'He ensured us that any young, pretty girl could apply for a maid job in their hotel and there is absolutely no chance that they would be forced to prostitute themselves<p><p>.</td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end

if $ARGS[0] = 'advert2':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/starletsposter.jpg"></td></tr></table></center>'
	
!!	'<center><table bgcolor="#FF66B2" width="60%" cellspacing="30"><tr><th align="center"><h4>'+ _
!!	'<p>Do you have the groove and something to prove? Then sign up for Dance Classes at the Pavlosk Community Center and show us what you''ve got!<p>'+ _
!!	'Lessons range from beginner to expert level.<p>FUN for girls of any skill level.<p>'+ _
!!	'And, if you''ve really know how to shake that money-maker, then audition for the<p><h2><b>Starlettes</b></h2>Pavlosk''s renowned dance club! If you''re accepted you could be travelling to a variety of cities and towns to make you hometown proud!<p><p>'+ _
!!	'Stop by today and dance your problems away!</h4></th></tr></table></center>'

	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end

if $ARGS[0] = 'advert3':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/pav/therapy.jpg"></td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end
if $ARGS[0] = 'advert4':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/diner.jpg"></td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end
if $ARGS[0] = 'advert5':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/singing.jpg"></td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end
if $ARGS[0] = 'advert6':
	'<p><center><table><tr><td><img <<$set_imgh>> src="images/locations/shared/notboard/city/sports.jpg"></td></tr></table></center>'
	minut +=2
	gs 'stat'
	act 'Continue': gt 'noticeboard','look'
end


!! possible coordinates
!! upper row
!! 1 '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>' - taken by advert0
!! 2 '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>' - taken by advert3
!! 3 '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>'  - taken by advert5
!! 4 '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>' - taken by advert2
!! lower row
!! 5 '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>'  - taken by advert6
!! 6 '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>' - taken by advert1
!! 7 '<<13*givemeheight>>,<<12*givemeheight>>,<<17*givemeheight>>,<<18*givemeheight>>'
!! 8 '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>' - taken by advert4


if $ARGS[0] = 'test_advert0':
	if $loc ! 'pavCommercial': 
		$result = '<<3*givemeheight>>,<<2*givemeheight>>,<<7*givemeheight>>,<<8*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end
if $ARGS[0] = 'test_advert1':
	if $loc = 'pavCommercial': 
		$result = '<<8*givemeheight>>,<<12*givemeheight>>,<<12*givemeheight>>,<<18*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end
if $ARGS[0] = 'test_advert2':
	if $loc = 'pavCommercial': 
		$result = '<<18*givemeheight>>,<<2*givemeheight>>,<<22*givemeheight>>,<<8*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end

if $ARGS[0] = 'test_advert3':
	if $loc = 'pavCommercial': 
		$result = '<<8*givemeheight>>,<<2*givemeheight>>,<<12*givemeheight>>,<<8*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end
if $ARGS[0] = 'test_advert4':
	if $loc ! 'pavCommercial': 
		$result = '<<18*givemeheight>>,<<12*givemeheight>>,<<22*givemeheight>>,<<18*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end
if $ARGS[0] = 'test_advert5':
	if $loc ! 'pavCommercial': 
		$result = '<<13*givemeheight>>,<<2*givemeheight>>,<<17*givemeheight>>,<<8*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end
if $ARGS[0] = 'test_advert6':
	if $loc ! 'pavCommercial': 
		$result = '<<3*givemeheight>>,<<12*givemeheight>>,<<7*givemeheight>>,<<18*givemeheight>>'
		NumberOfNewAdverts += 1
	else 
		$result = '0,0,0,0'
	end
end

--- noticeboard ---------------------------------