|
|
@@ -467,6 +467,102 @@ if $ARGS[0] = 'gadbitch':
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
+ if horse_river = 2:
|
|
|
+ act 'Look at Desperado':
|
|
|
+ *clr & cla
|
|
|
+
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/river/horse_river.jpg"></center>'
|
|
|
+ 'You see Desperado happily walking around in the river.'
|
|
|
+
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
|
|
|
+ act 'Wash Desperado':
|
|
|
+ *clr & cla
|
|
|
+
|
|
|
+ cumspclnt = 4
|
|
|
+ gs 'cum_cleanup'
|
|
|
+ minut += 30
|
|
|
+ pcs_sweat = 10 + rand(0,4)
|
|
|
+ pcs_mood += 5
|
|
|
+ pcs_willpwr += 5
|
|
|
+ if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
|
|
|
+ hndiwrk_exp += rand(1,3)
|
|
|
+ grandmahelp += 1
|
|
|
+ horse_river = 3
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if $clothingworntype = 'nude':
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/river/wash_horse_nude.jpg"></center>'
|
|
|
+ elseif $clothingworntype = 'swimwear':
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/river/wash_horse_swim.jpg"></center>'
|
|
|
+ end
|
|
|
+ 'You jump in the river and swim over to Desperado. You take your time, washing his beautiful chestnut coat.'
|
|
|
+ 'After half an hour, you are satisfied with your work and Desperado is ready to be taken back home.'
|
|
|
+
|
|
|
+ act 'Get out of the water':
|
|
|
+ minut += 5
|
|
|
+ gt'gadriver', 'gadbitch'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if Mira_Loc = 1 and npc_rel['A60'] > 0:
|
|
|
+ act 'Wash Desperado with Mira':
|
|
|
+ *clr & cla
|
|
|
+
|
|
|
+ cumspclnt = 4
|
|
|
+ gs 'cum_cleanup'
|
|
|
+ minut += 30
|
|
|
+ npc_rel['A60'] += 1
|
|
|
+ pcs_sweat = 10 + rand(0,4)
|
|
|
+ pcs_mood += 5
|
|
|
+ pcs_willpwr += 5
|
|
|
+ if pcs_inhib < 50 or $clothingworntype = 'nude': inhib_exp += rand(1,3)
|
|
|
+ hndiwrk_exp += rand(1,3)
|
|
|
+ grandmahelp += 1
|
|
|
+ horse_river = 3
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ if $clothingworntype = 'nude':
|
|
|
+ '<center><img <<$set_imgh>> src="images/characters/village/mira/wash_horse_mira_nude.jpg"></center>'
|
|
|
+ elseif $clothingworntype = 'swimwear':
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/gadukino/river/wash_horse_mira_swim.jpg"></center>'
|
|
|
+ end
|
|
|
+ 'You invite Mira to wash Desperado with you; having nothing better to do she agrees.'
|
|
|
+ 'Both of you swim over to Desperado and begin to splash water on him. You chat with Mira and sometimes splash her instead.'
|
|
|
+ 'After half an hour, you think Desperado looks cleaner than before and is ready to be taken back home.'
|
|
|
+
|
|
|
+ act 'Get out of the water':
|
|
|
+ minut += 5
|
|
|
+ gt'gadriver', 'gadbitch'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+
|
|
|
+ else
|
|
|
+ 'You cannot wear regular clothes to wash Desperado.'
|
|
|
+ act 'Return': gt'gadriver', 'gadbitch'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ if horse_river = 3:
|
|
|
+ act 'Lead Desperado back home':
|
|
|
+ if $clothingworntype = 'swimwear':
|
|
|
+ cla
|
|
|
+ 'You need to dress in regular clothes first.'
|
|
|
+ act'Return':gt'gadriver', 'gadbitch'
|
|
|
+ elseif $clothingworntype = 'nude':
|
|
|
+ cla
|
|
|
+ 'You need to put some clothes on first.'
|
|
|
+ act'Return':gt'gadriver', 'gadbitch'
|
|
|
+ else
|
|
|
+ minut += 30
|
|
|
+ hndiwrk_exp += rand(0,3)
|
|
|
+ grandmahelp += rand(0,1)
|
|
|
+ horse_river = 0
|
|
|
+ gs 'stat'
|
|
|
+
|
|
|
+ gt'Gadsarai'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
end
|
|
|
if ARRSIZE('swimwear') > 0:
|
|
|
act 'Get changed':gt 'changingroom', 'view_swim_list'
|
