katspalnya 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687
  1. # katspalnya
  2. $sexloc = $CURLOC
  3. if $ARGS[0] = 'start':
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. cls
  7. gs 'stat'
  8. '<center><b><font color="maroon">Katja''s apartment</font></b></center>'
  9. '<center><img src="images/characters/city/katja/bedroom.jpg"></center>'
  10. 'Katja''s apartment. It''s mostly just one large room, with a huge bed in it. There''s a small couch to the side.'
  11. if hour >= 18 and hour < 23:'<a href="exec:gt ''katspalnya'', ''kat''">Kat</a> is sitting on the couch. She''s watching TV.'
  12. if hour >= 23 or hour < 6:'<a href="exec:gt ''katspalnya'', ''katslip''">Kat</a> is sound asleep in her huge bed.'
  13. act 'Leave Kat''s apartment':gt 'street'
  14. end
  15. if $ARGS[0] = 'katslip':
  16. cla
  17. clr
  18. *clr
  19. minut += 30
  20. if katjob = 0 and kat > 60:gt 'katspalnya', 'katjobs'
  21. '<center><img src="images/characters/city/katja/kat.jpg"></center>'
  22. 'When you awaken Kat, she rubs her eyes tiredly: "Hey, <<$pcs_nickname>>... what''s up?"'
  23. act 'Chat with her for a while':gt 'katspalnya', 'start'
  24. if kat > 50:act 'Seduce her':gt 'lezbsex', 'start'
  25. end
  26. if $ARGS[0] = 'kat':
  27. cla
  28. clr
  29. *clr
  30. minut += 30
  31. if katjob = 0 and kat > 60:gt 'katspalnya', 'katjobs'
  32. '<center><img src="images/characters/city/katja/kat.jpg"></center>'
  33. 'Kat smiles when she sees you approach and says cheerfully: "<<$pcs_nickname>>, hi! How''s it going? Come, sit with me!"'
  34. act 'Make up an excuse and leave':gt 'katspalnya', 'start'
  35. if kat > 50:act 'Seduce her':gt 'lezbsex', 'start'
  36. act 'Chat with Kat':
  37. cla
  38. clr
  39. *clr
  40. if telkat = 0:telkat = 1
  41. kat += 1
  42. minut += 30
  43. '<center><img src="images/characters/city/katja/kat.jpg"></center>'
  44. 'You talk with Kat for half an hour, occasionally glancing at the TV. She''s a lot of fun to be around.'
  45. act 'Finish':gt 'katspalnya', 'start'
  46. end
  47. end
  48. if $ARGS[0] = 'katjobs':
  49. cla
  50. clr
  51. *clr
  52. katjob = 1
  53. minut += 30
  54. '<center><img src="images/characters/city/katja/kat.jpg"></center>'
  55. '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!"'
  56. act '"But I''m not qualified to work as a nurse!"':
  57. cla
  58. 'You shrug off the idea at first, saying: "But I''m not a nurse! I wouldn''t know what to do!"'
  59. '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!"'
  60. '"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?'
  61. act 'Continue':gt 'katspalnya', 'start'
  62. end
  63. end
  64. --- katspalnya ---------------------------------