restoranM 1.3 KB

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