ybass.qsrc 906 B

123456789101112131415161718192021222324252627282930313233
  1. # ybass
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><b><font color="maroon">Swimming Pool</font></b></center>'
  7. '<center><img <<$set_imgh>> src="images/locations/city/suburb/mansion/ybass.jpg"></center>'
  8. if $clothingworntype ! 'nude': act 'Go to your house':minut += 5 & gt 'youplace'
  9. act 'Go into Gym': gt 'ysport'
  10. act 'Swim (1:00)':
  11. cla
  12. *clr
  13. pcs_makeup = 1
  14. cumspclnt = 10
  15. gs 'cum_cleanup'
  16. minut += 60
  17. pcs_sweat = 10 + rand(0,4)
  18. pcs_mood += 5
  19. if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
  20. if pcs_stren < 40:stren_exp += 1
  21. '<center><img <<$set_imgh>> src="images/locations/shared/lake/swim.jpg"></center>'
  22. 'You swim in the pool, the water refreshes and invigorates.'
  23. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  24. act 'Out of the water':gt 'ybass'
  25. end
  26. --- ybass ---------------------------------