restoranM 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. # restoranM
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start':
  4. minut += 30
  5. 'You arrive at the restaurant and sit at a table. <<$loverdesc[lover_number]>> orders a meal and good wine. You have to wait a little until the food arrives.'
  6. '<<$loverdesc[lover_number]>> tells you an anecdote:<br>'
  7. gs 'anekdot'
  8. *nl
  9. if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
  10. if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
  11. if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
  12. if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
  13. if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
  14. if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
  15. act 'Laugh':
  16. cla
  17. loverrelation[lover_number] += 1
  18. xgt 'restoranM', 'a'
  19. end
  20. act 'Smile':
  21. cla
  22. xgt 'restoranM', 'a'
  23. end
  24. act 'Its not funny':
  25. cla
  26. loverrelation[lover_number] -= 1
  27. xgt 'restoranM', 'a'
  28. end
  29. end
  30. if $ARGS[0] = 'a':
  31. minut += 30
  32. alko += 1
  33. 'When your food arrives, <<$loverdesc[lover_number]>> pours you a glass of wine and proposes a toast to love.'
  34. act 'Eat':
  35. cla
  36. xgt 'restoranM', 'b'
  37. end
  38. end
  39. if $ARGS[0] = 'b':
  40. $metka = $ARGS[0]
  41. $loc = $CURLOC
  42. gs 'food', 'm_meal'
  43. alko += 2
  44. gs 'stat'
  45. 'After you finish your meal and empty the wine, <<$loverdesc[lover_number]>> offers to take you to his home.'
  46. act 'Go Home':gt 'sexm', 'start'
  47. end
  48. --- restoranM ---------------------------------