katspalnya.qsrc 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384
  1. # katspalnya
  2. $sexloc = 'katspalnya'
  3. if $ARGS[0] = 'start':
  4. $metka = 'start'
  5. $loc = 'katspalnya'
  6. $location_type = 'private'
  7. $locclass = 'bedr'
  8. $menu_loc = 'katspalnya'
  9. $menu_arg = 'start'
  10. menu_off = 0
  11. cls
  12. gs 'stat'
  13. '<center><b><font color="maroon">Katja''s apartment</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/characters/city/katja/bedroom.jpg"></center>'
  15. 'Katja''s apartment. It''s mostly just one large room, with a huge bed in it. There''s a small couch to the side.'
  16. if hour >= 18 and hour < 23:'<a href="exec:gt ''katspalnya'', ''kat''">Kat</a> is sitting on the couch. She''s watching TV.'
  17. if hour >= 23 or hour < 6:'<a href="exec:gt ''katspalnya'', ''katslip''">Kat</a> is sound asleep in her huge bed.'
  18. act 'Leave Kat''s apartment':gt 'city_residential'
  19. end
  20. if $ARGS[0] = 'katslip':
  21. *clr & cla
  22. minut += 30
  23. if katjob = 0 and npc_rel['A219'] > 60:gt 'katspalnya', 'katjobs'
  24. '<center><img <<$set_imgh>> src="images/characters/city/katja/kat.jpg"></center>'
  25. 'When you awaken Kat, she rubs her eyes tiredly: "Hey, <<$pcs_nickname>>... what''s up?"'
  26. act 'Chat with her for a while':gt 'katspalnya', 'start'
  27. if npc_rel['A219'] > 50:act 'Seduce her':gt 'lezbsex', 'start'
  28. end
  29. if $ARGS[0] = 'kat':
  30. *clr & cla
  31. minut += 30
  32. if katjob = 0 and npc_rel['A219'] > 60:gt 'katspalnya', 'katjobs'
  33. '<center><img <<$set_imgh>> src="images/characters/city/katja/kat.jpg"></center>'
  34. 'Kat smiles when she sees you approach and says cheerfully: "<<$pcs_nickname>>, hi! How''s it going? Come, sit with me!"'
  35. act 'Make up an excuse and leave':gt 'katspalnya', 'start'
  36. if npc_rel['A219'] > 50:act 'Seduce her':gt 'lezbsex', 'start'
  37. act 'Chat with Kat':
  38. *clr & cla
  39. if telkat = 0:telkat = 1
  40. npc_rel['A219'] += 1
  41. minut += 30
  42. '<center><img <<$set_imgh>> src="images/characters/city/katja/kat.jpg"></center>'
  43. 'You talk with Kat for half an hour, occasionally glancing at the TV. She''s a lot of fun to be around.'
  44. act 'Finish':gt 'katspalnya', 'start'
  45. end
  46. end
  47. if $ARGS[0] = 'katjobs':
  48. *clr & cla
  49. katjob = 1
  50. minut += 30
  51. '<center><img <<$set_imgh>> src="images/characters/city/katja/kat.jpg"></center>'
  52. 'Kat talks about her job for a while, and then suggests: "By the way... if you want, I can put in a good word for you! Maybe you could work at the clinic as well!"'
  53. act '"But I''m not qualified to work as a nurse!"':
  54. cla
  55. 'You shrug off the idea at first, saying: "But I''m not a nurse! I wouldn''t know what to do!"'
  56. 'Kat laughs and says: "Oh, come on! Do you think I knew what I was doing when I started? Just wear the fancy coat and be there, you''ll learn as you go! It''ll be fun, I promise! We could have so much fun, working together!"'
  57. '"Well, okay, I''ll think about it!" you say, earning you an enthusiastic hug and a "Yay!" cheer from Kat. How bad could it be?'
  58. act 'Continue':gt 'katspalnya', 'start'
  59. end
  60. end
  61. --- katspalnya ---------------------------------