|
@@ -6,8 +6,7 @@
|
|
|
!!
|
|
|
!! Desc: Paernts bedroom links to family flat corridor
|
|
|
|
|
|
-!! Call in location default actions
|
|
|
-gs 'home_family_init', 'init'
|
|
|
+
|
|
|
|
|
|
!! Set location header - img path is set in init
|
|
|
$setloc['StageTitle'] = 'Parents Bedroom'
|
|
@@ -18,9 +17,10 @@ $setloc['StageImage'] = '<<$default_img_path>>/bedrpar2.jpg'
|
|
|
|
|
|
!! Set up game location data
|
|
|
$locclass = 'bedr'
|
|
|
-gs 'shortgs', 'setloc', 'bedrPar2', $ARGS[0]
|
|
|
+gs 'shortgs', 'setloc', 'bedrPar2', 'start'
|
|
|
!! End location initialisation
|
|
|
-
|
|
|
+!! Call in location default actions
|
|
|
+gs 'home_family_init', 'init'
|
|
|
|
|
|
!! Begin location content
|
|
|
|
|
@@ -74,7 +74,7 @@ if $ARGS[0] = 'kamasutra':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
minut += 1
|
|
|
- '<center><img <<$set_imgh>> src="<<$default_img_path>>book.jpg"></center>'
|
|
|
+ '<center><img <<$set_imgh>> src="images/<<$default_img_path>>/book.jpg"></center>'
|
|
|
'The cover says "Kama Sutra"'
|
|
|
act 'Leave': gt $loc, $loc_arg
|
|
|
act 'Read': kamasutra_page = 0 & kamasutra_day = daystart & gt 'bedrPar2', 'read_book'
|
|
@@ -95,7 +95,7 @@ end
|
|
|
! parent''s wardrobe
|
|
|
if $ARGS[0] = 'parents_wardrobe':
|
|
|
*clr & cla
|
|
|
- '<center><img <<$set_imgh>> src="<<$default_img_path>>wardrobe.jpg"></center>'
|
|
|
+ '<center><img <<$set_imgh>> src="images/<<$default_img_path>>/wardrobe.jpg"></center>'
|
|
|
'An old looking wardrobe, probably from the Soviet times.'
|
|
|
act 'Leave ': gt $loc, $loc_arg
|
|
|
act 'Rummage': gt 'bedrPar2', 'wardrobe_search'
|
|
@@ -109,14 +109,14 @@ if $ARGS[0] = 'wardrobe_search':
|
|
|
exit
|
|
|
end
|
|
|
if rand(1,100) > 75:
|
|
|
- '<center><img <<$set_imgh>> src="<<$default_img_path>>wardrobesearch'+rand(1,4)+'.jpg"></center>'
|
|
|
+ '<center><img <<$set_imgh>> src="images/<<$default_img_path>>/wardrobesearch'+rand(1,4)+'.jpg"></center>'
|
|
|
$failwords[0]= 'You don''t find anything interesting.'
|
|
|
$failwords[1]= 'You find some clothes and underwear.'
|
|
|
$failwords[2]= 'You dig through your mother''s closet, but find nothing interesting except underwear.'
|
|
|
*pl $failwords[rand(0,2)]
|
|
|
killvar '$failwords'
|
|
|
else
|
|
|
- '<center><img <<$set_imgh>> src="<<$default_img_path>>wardrobetoy.jpg"></center>'
|
|
|
+ '<center><img <<$set_imgh>> src="images/<<$default_img_path>>/wardrobetoy.jpg"></center>'
|
|
|
$findmomtoy[0]= 'Digging through the closet, you find a <a href="exec: gt ''bedrPar2'',''momtoy_play''">dildo</a>.'
|
|
|
$findmomtoy[1]= 'Rummaging through your mother''s lingerie, you find a small <a href="exec: gt ''bedrPar2'',''momtoy_play''">dildo</a>.'
|
|
|
$findmomtoy[2]= 'You find your mother''s <a href="exec: gt ''bedrPar2'',''momtoy_play''">toy</a>.'
|