restoranM 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. # restoranM
  2. if $ARGS[0] = 'start':
  3. minut += 30
  4. 'You go into the restaurant and sit at a table. <<$boyA>> orders a meal and good wine. You have to wait a little until the food arrives.'
  5. if dayA > 15 and harakBoyA = 2:gs 'boylove', 'tits'
  6. if dayA > 20 and harakBoyA = 1:gs 'boylove', 'tits'
  7. if dayA > 25 and harakBoyA = 0:gs 'boylove', 'tits'
  8. if dayA > 20 and harakBoyA = 2:gs 'boylove', 'figure'
  9. if dayA > 25 and harakBoyA = 1:gs 'boylove', 'figure'
  10. if dayA > 30 and harakBoyA = 0:gs 'boylove', 'figure'
  11. gs 'anekdot'
  12. '<<$boyA>> tells you an anecdote"<<$anek>>."'
  13. act 'Laugh':
  14. cla
  15. SUB += 1
  16. bfa += 1
  17. xgt 'restoranM', 'a'
  18. end
  19. act 'Smile':
  20. cla
  21. !!bfa -= 1
  22. xgt 'restoranM', 'a'
  23. end
  24. act 'Its not funny':
  25. cla
  26. DOM += 1
  27. bfa -= 1
  28. xgt 'restoranM', 'a'
  29. end
  30. end
  31. if $ARGS[0] = 'a':
  32. minut += 30
  33. alko += 1
  34. 'Finally you get your food. <<$boyA>> pours you some wine and proposes a toast to love.'
  35. act 'Eat':
  36. cla
  37. xgt 'restoranM', 'b'
  38. end
  39. end
  40. if $ARGS[0] = 'b':
  41. $metkaM = $ARGS[0]
  42. $locM = $CURLOC
  43. gs 'food', 'dyn_meal'
  44. alko += 2
  45. gs 'stat'
  46. 'After you finish your meal and empty the wine, <<$boyA>> proposes to take you to his home.'
  47. act 'Go Home':gt 'sexm', 'start'
  48. end
  49. --- restoranM ---------------------------------