소스 검색

Cloakroom re-organization.

KevinSmarts 9 년 전
부모
커밋
88f815f24e
3개의 변경된 파일59개의 추가작업 그리고 23개의 파일을 삭제
  1. 12 1
      locations/_clothing_name
  2. 46 22
      locations/cloakroom
  3. 1 0
      locations/clothing

+ 12 - 1
locations/_clothing_name

@@ -35,7 +35,18 @@ if $ARGS[0] = 'swimwear':
 	if ARGS[1] = 29:$RESULT = 'A sexual bikini covering the made minimum assets in hot pink and neon black.'
 	if ARGS[1] = 30:$RESULT = 'A bikini made for a whore, with a silver triangular design where the top of the triangle barely covers the nipple of the breast.'
 elseif $ARGS[0] = 'coat':
-	$RESULT = 'A coat.'
+	if ARGS[1] = 1:$RESULT = 'A light jacket.'
+	if ARGS[1] = 2:$RESULT = 'A shiny leather jacket.'
+	if ARGS[1] = 3:$RESULT = 'A stylish fur vest of a coat.'
+	if ARGS[1] = 4:$RESULT = 'A wool lined red coat.'
+	if ARGS[1] = 5:$RESULT = 'A cheap kids coat.'
+	if ARGS[1] = 6:$RESULT = 'A sleek warm coat.'
+	if ARGS[1] = 7:$RESULT = 'A big warm coat.'
+	if ARGS[1] = 8:$RESULT = 'A classic raincoat.'
+	if ARGS[1] = 9:$RESULT = 'A full-length winter jacket.'
+	if ARGS[1] = 10:$RESULT = 'A modern winter coat.'
+	if ARGS[1] = 11:$RESULT = 'A high fashion coat.'
+	if ARGS[1] = 12:$RESULT = 'A bright warm coat.'
 end
 
 --- $clothing_name ---------------------------------

+ 46 - 22
locations/cloakroom

@@ -1,64 +1,88 @@
 # cloakroom
 $coat_list_line = {
 	!! a single line in a clothing list (wardrobe, etc)
-	!! ARGS 0 - action type (wardrobe, sell)
-	!! ARGS 1 - clothing type
-	!! ARGS 2 - clothing index
+	!! ARGS 0 - clothing type
+	!! ARGS 1 - clothing index
+
+	$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
+
+	$RESULT = '<TR bgcolor='+$bgcolor+'>'
+
+	$RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''wardrobe'', ''<<$ARGS[0]>>'', <<ARGS[1]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[0], ARGS[1])>>" width="75"></a></TD>'
 
-	$RESULT = '<<$ARGS[1]>> no.<<ARGS[2]>> (strength ' + dyneval '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]'+')'
+	$RESULT += '<TD><<$ARGS[0]>> no.<<ARGS[1]>> (strength ' + dyneval '$RESULT += <<$ARGS[0]>>H[<<ARGS[1]>>]'+')</TD>'
 
-	$RESULT += ' <a href="exec:gt ''cloakroom'', ''view_coat_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a>'
+	$RESULT += '<TD>' + FUNC('$clothing_name', $ARGS[0], ARGS[1]) + '</TD>'
+
+	$RESULT += '<TD><a href="exec:gt ''cloakroom'', ''view_coat_item'', ''<<$ARGS[0]>>'', <<ARGS[1]>>">View</a></TD>'
+
+	$RESULT += '<TD><a href="exec:defaultcoat = ''<<i>>'' & gt ''cloakroom'', ''view_coat_list''">Select</a></TD>'
+
+	$RESULT += '<TD>'
 	if i = defaultcoat:
-		$RESULT += '<font color="navy"> Default</font>'
+		$RESULT += '<font color="navy">Yes</font>'
 	end
-
+	$RESULT += '</TD>'
 }
 
 if $ARGS[0] = 'view_coat_list':
+
+	'<center><table border=1><TH>Cloakroom</TH></table></center>'
+
+	if defaultcoat = 0:
+		'<center>You have not chosen a coat to wear.</a>'
+	else
+		'<center>You will wear Coat<<defaultcoat>> when a coat is required.</a>'
+	end
+
+	$bgcolor='#f3f4ee'
+	
+	'<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>'
+
 	i = 1
 	:loopcoat
-		if coat[i] = 1:dyneval($coat_list_line, $ARGS[1], 'coat', i)
+		if coat[i] = 1:*p dyneval($coat_list_line, 'coat', i)
 		i += 1
 	if i <= 12:jump 'loopcoat'
 	
 	act 'Don''t wear a coat':defaultcoat = 0
 
+	'</table>'
+
 	act 'Leave':gt $loc, $metka
 
 end
 
 if $ARGS[0] = 'view_coat_item':
 	!! ARGS 0 - view_clothing_item
-	!! ARGS 1 = action type (wardrobe, shop, sell, resize)
-	!! ARGS 2 - clothing type
-	!! ARGS 3 - clothing index
-	!! ARGS 4 - price for shop
+	!! ARGS 1 - clothing type
+	!! ARGS 2 - clothing index
 
 	cla
-	'<center><img src="<<FUNC(''$clothing_image'',  $ARGS[2], ARGS[3])>>"></center>'
-	'<<$ARGS[2]>> no.<<ARGS[3]>>'
-	FUNC('$attributes_coat', $ARGS[2], ARGS[3])
-	FUNC('$clothing_name', $ARGS[2], ARGS[3])
+	'<center><img src="<<FUNC(''$clothing_image'',  $ARGS[1], ARGS[2])>>"></center>'
+	'<<$ARGS[1]>> no.<<ARGS[2]>>'
+	FUNC('$attributes_coat', $ARGS[1], ARGS[2])
+	FUNC('$clothing_name', $ARGS[1], ARGS[2])
 
 
 	$RESULT = '(strength '
-	dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
+	dynamic '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]'
 	$RESULT += ')'
 	'<<$RESULT>>'
 
 
-	act 'Return':gt 'cloakroom', 'view_coat_list', $ARGS[1]
+	act 'Return':gt 'cloakroom', 'view_coat_list'
 	!! if the clothing is worn out
-	if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
+	if dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') <= 0:
 		'This item is worn and is not suitable for further wear.'
 		act 'Throw it away':
-			dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
+			dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
 			gt 'cloakroom', 'view_coat_list', $ARGS[1]
 		end
 	end
-	if defaultcoat ! '<<ARGS[3]>>':
+	if defaultcoat ! '<<ARGS[2]>>':
 		act 'Set as default':
-			defaultcoat = '<<ARGS[3]>>'
+			defaultcoat = '<<ARGS[2]>>'
 		end
 	end
 end

+ 1 - 0
locations/clothing

@@ -10,6 +10,7 @@ $clothing_list_line = {
 	$bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
 
 	$RESULT = '<TR bgcolor='+$bgcolor+'>'
+
 	$RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="75"></a></TD>'
 	gs 'clothing_attributes', $ARGS[1], ARGS[2]