157_bedrPar 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. # bedrPar
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><B><font color = maroon>Your bedroom</font></B></center>'
  7. '<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
  8. clr
  9. set minut += 1
  10. gs 'stat'
  11. fcolor = rgb(0,0,0)
  12. bcolor = rgb(255,255,255)
  13. LCOLOR = rgb(106,90,205)
  14. 'Small room in which hardly squeezed <a href="exec:GT ''loker'',''start''">cabinet</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> bed and sisters.'
  15. if AutoEnema = 1 and AEnema = 1:
  16. set minut += 5
  17. set klismaday = day
  18. set klismaday1= 1
  19. set AEnema = 0
  20. 'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
  21. end
  22. gs 'family'
  23. act 'Leave the room':
  24. gt 'korrPar'
  25. end
  26. if student > 0 and kursovik < 100:
  27. act 'Write coursework (1:00)':
  28. cla
  29. *clr
  30. set minut += 60
  31. set kursovik += RAND(intel/20, intel/10)
  32. if kursovik > 100: set kursovik = 100
  33. set manna -= 10
  34. '<center><img src="images\etogame\study.jpg"></center>'
  35. 'You sat on the course work and prepared her for <<kursovik>> percent.'
  36. act 'Exit': gt $curloc
  37. end
  38. end
  39. if horny >= 50 and sisterHere = 0:
  40. act 'Masturbate':
  41. gt 'selfplay'
  42. end
  43. end
  44. --- bedrPar ---------------------------------