ybass.qsrc 751 B

1234567891011121314151617181920212223242526272829303132
  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. pcs_willpwr += 5
  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. act 'Out of the water':gt 'ybass'
  24. end
  25. --- ybass ---------------------------------