123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152 |
- # gLakeNude
- $location_type = 'secluded'
- cls
- gs'stat'
- '<center><H4>Secluded beach</H4></center>'
- if month>=3 and month<=5:
- if hour>=6 and hour<=17:
- '<center><img src="images/nigma/gor/lake/lake.spring.jpg"></center>'
- else
- '<center><img src="images/nigma/gor/lake/lake.spring.night.jpg"></center>'
- end
- '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
- ''
- end
- if month>=6 and month<=8:
- if hour>=6 and hour<=19:
- '<center><img src="images/nigma/gor/lake/lake.summer.jpg"></center>'
- else
- '<center><img src="images/nigma/gor/lake/lake.summer.night.jpg"></center>'
- end
- '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
- ''
- end
- if month>=9 and month<=11:
- if hour>=6 and hour<=18:
- '<center><img src="images/nigma/gor/lake/lake.autumn.jpg"></center>'
- else
- '<center><img src="images/nigma/gor/lake/lake.autumn.night.jpg"></center>'
- end
- '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
- ''
- end
- if month=1 or month=2 or month=12:
- if hour>=7 and hour<=16:
- '<center><img src="images/nigma/gor/lake/lake.winter.jpg"></center>'
- else
- '<center><img src="images/nigma/gor/lake/lake.winter.night.jpg"></center>'
- end
- '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
- '<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. The lake is being used as a skating rink and lots of people go to skate there every day; if you have skates you could join them.</center>'
- ''
- end
- 'This beach is hidden from the public and as is usual, it is currently empty. You could go skinny dipping if you want, no one would see you.'
- if $clothingworntype = 'nude':
- act'Get dressed':
- cla
- minut+=5
- gs 'clothing', 'wear_last_worn'
- 'You put your clothes back on.'
- act'Continue':gt'gLakeNude'
- end
- end
- if temper >= 20 and month>=5 and month<=9:
- if $clothingworntype ! 'nude':
- act'Take off your clothes':
- if modelfoto > 0 or film > 0 or stripdance > 0 or stripdancesum > 0 or exhibi > 0:
- cla
- minut+=5
- gs 'clothing', 'strip'
- 'You quickly check to see if anyone is watching, and when you''re satisfied no one is you take off your clothes. You''re naked now.'
- act'Continue':gt'gLakeNude'
- else
- cla
- 'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you?'
- act'Continue':gt'gLakeNude'
- end
- end
- end
-
- if hour>=6 and hour<=20:
- act 'Go swimming (1:00)':
- if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
- cla
- *clr
- cumspclnt = 4
- gs 'cum_cleanup'
- minut = minut + 60
- sweat = 10 + rand(0,4)
- manna = manna + 5
- willpower = willpower + 5
- if stren < 30:stren = stren + 1
- if $clothingworntype = 'nude':
- '<center><img src="images/img/lake/nudeswim.jpg"></center>'
- else
- '<center><img src="images/pics/swim.jpg"></center>'
- end
- 'You play around and have fun in the lake, enjoying the feel of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
- act 'Get out of the water':gt'gLakeNude'
- else
- cla
- 'You would ruin your clothes if you go swimming in them. Unless you''re feeling very daring and are prepared to strip nude to go for a swim, you''ll need a bathing suit.'
- act'Continue':gt'gLakeNude'
- end
- end
- end
- if sunWeather = 1 and hour>=6 and hour<=20:
- act 'Go sunbathing (1:00)':
- if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
- cla
- *clr
- minut = minut + 60
- if sweat < 35 : sweat += 5
- manna = manna + 5
- if bikini = 1:
- '<center><img src="images/pics/zagar.jpg"></center>'
- else
- '<center><img src="images/img/lake/nudezagarat.jpg"></center>'
- end
- if krem = 0:
- tan = tan + 1
-
- 'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
- elseif krem > 0:
- krem = krem - 1
- tan = tan + 3
-
- 'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
- end
-
- act 'Continue':gt'gLakeNude'
- !end
- !if bikini ! 1 and $clothingworntype ! 'nude':
- else
- cla
- 'You have to take off your clothes before you can go sunbathing.'
- act'Continue':gt'gLakeNude'
- end
- end
- end
- end
- act'Leave the secluded beach':
- if $clothingworntype ! 'nude' or $clothingworntype = 'nude' and exhibi > 0 :
- gt'glake'
- else
- 'A lot of people might take offense to you going to the main beach naked. Are you sure you want to do this?'
- act 'Yes':
- gt 'glake'
- end
- act 'No':
- gt 'gLakeNude'
- end
- end
- end
- --- gLakeNude ---------------------------------
|