glife/locations/cloakroom.qsrc

# cloakroom

menu_off = 1

$coat_list_line = {
	!! a single line in a coat list (wardrobe, etc)
	!! ARGS 0 - coat index

	if Enable_clothwidth > 0:
		clothing_temp = Enable_clothwidth - 1
	else
		clothing_temp = 150 & !clothing widdefault to 150
	end

	gs 'themes', 'clothing', 1

	$RESULT = '<TR bgcolor='+$bgcolor+'>'

	$RESULT +='<TD><a href="exec:gt ''cloakroom'', ''view_coat_item'', <<ARGS[2]>>"><img src="<<FUNC(''$coat_image'',  $ARGS[1], ARGS[2])>>"></center>'
	'coat no.<<ARGS[1]>>" width="<<clothing_temp>>"></a></TD>'

	$RESULT += '<TD>Coat # <<ARGS[2]>><br>strength: ' + dyneval '$RESULT += <<$ARGS[1]>>_h[<<ARGS[2]>>]'+'</TD>'

	$RESULT += '<TD>$coat_description</TD>'

	$RESULT += '<TD><a href="exec:gt ''cloakroom'', ''view_coat_item'', $ARGS[1], ARGS[2]">View</a></TD>'

	if coat_h[i] > 0:
		$RESULT += '<TD><a href="exec:defaultcoat = ''<<i>>'' & gt ''cloakroom'', ''view_coat_list''">Wear</a></TD>'
	end

	$RESULT += '<TD>'
	if i = defaultcoat:
		$RESULT += 'Yes'
	end
	$RESULT += '</TD>'

	$RESULT += '<TD>'
	if dyneval('RESULT = coat_s[<<ARGS[2]>>]') = 0:$RESULT += ' <a href="exec:gt ''cloakroom'', ''dest'', $ARGS[1], ARGS[2]">Keep</a>'
	if dyneval('RESULT = coat_s[<<ARGS[2]>>]') = 2:$RESULT += ' <a href="exec:gt ''cloakroom'', ''dest1'', $ARGS[1], ARGS[2]">Unwanted</a>'
	$RESULT += '</TD>'}

if $ARGS[0] = 'dest':
	*clr
	dynamic '<<$ARGS[1]>>_s[<<ARGS[2]>>] = 2'
	gt 'cloakroom', 'view_coat_list'
end

if $ARGS[0] = 'dest1':
	*clr
	dynamic '<<$ARGS[1]>>_s[<<ARGS[2]>>] = 0'
	gt 'cloakroom', 'view_coat_list'
end

if $ARGS[0] = 'clothwidth':
	act 'Set image height for this view': 
		Enable_clothwidth = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
		if Enable_clothwidth < 50:
			Enable_clothwidth = 50
		elseif Enable_clothwidth > 500:
			Enable_clothwidth = 500
		end
		gt 'cloakroom', 'view_coat_list'
	end
end

if $ARGS[0] = 'view_coat_list':

	'<h3><center><b><font color="maroon">Wardrobe</font></b></center></h3>'
	'<center>These are the coats that are currently available for you to wear.</center>'
	*nl

	if defaultcoat = 0:
		'<center>You will not wear a coat when outside in the cold.</center>'
	else
		'<center>You will wear Coat<<defaultcoat>> when a coat is required.</center>'
	end
	*nl

	gs 'themes', 'clothing', 2
	
	'<table><table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Item no.</TH><TH>Description</TH><TH>Large image</TH><TH>Set as default</TH><TH>Default</TH><TH>Set for sale</TH>'

	i = 1
	:loopcoat
		if coat[i] = 1:*p dyneval($coat_list_line, i)
		i += 1
	if i <= ARRSIZE('coat'):jump 'loopcoat'

	i = 1
	:loop_bomba_coats
	if bomba_coats[i] = 1 and bomba_coats_s[i] = ploc:*p '<a href="exec:gt ''coats'', ''view_coat_item'',  ''<<$ARGS[1]>>'', ''bomba'', <<i>>"><img src="images/pc/items/bomba/coats/<<i>>.jpg" 	height="300" /></a>'
	i += 1
	if i <= ARRSIZE('bomba_coats'):jump 'loop_bomba_coats'

	'<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'

	'</table>'

	act 'Return':gt 'wardrobe', 'start'
	if defaultcoat ! 0:
		act 'Remove coat':
			defaultcoat_warmth = 0
			defaultcoat_quality = 0
			defaultcoat = 0
			gt 'cloakroom', 'view_coat_list'
		end
	end
	gs 'cloakroom', 'clothwidth'

end

if $ARGS[0] = 'view_coat_item':
	!! ARGS 0 - view_clothing_item
	!! ARGS 1 - clothing index

	cla
	'<center><img src="<<FUNC(''$coat_image'',  $ARGS[2], ARGS[3])>>"></center>'
	'coat no.<<ARGS[1]>>'
	FUNC('$attributes_coat', 'coat', ARGS[1])

	$coat_description

	$RESULT = '(strength '
	dynamic '$RESULT += coat_h[<<ARGS[1]>>]'
	$RESULT += ')'
	'<<$RESULT>>'

	!! if the coat is worn out
	if dyneval('RESULT = coat_h[<<ARGS[1]>>]') <= 0:
		'This item is worn and is not suitable for further wear.'
		act 'Throw it away':
			dynamic 'coat[<<ARGS[1]>>] = 0'
			gt 'cloakroom', 'view_coat_list', 'coat'
		end
	end

	act 'Return':gt 'cloakroom', 'view_coat_list'

	if defaultcoat ! '<<ARGS[1]>>':
		act 'Wear this coat':
			defaultcoat = '<<ARGS[1]>>'
			defaultcoat_warmth = CoatWarm
			defaultcoat_quality = CloQuality
			gt 'wardrobe', 'start'
		end
	end
end

--- cloakroom ---------------------------------