NormPR 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. # NormPR
  2. if $ARGS[0] = '1':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. clr
  7. *clr
  8. prosti = 0
  9. minut += 15
  10. sex += 1
  11. protect = 1
  12. gs 'stat'
  13. sexprostRand = rand(0, 1)
  14. if sexprostRand = 0:
  15. '<center><img src="images/img/prost/sexcar.jpg"></center>'
  16. 'You obediently lay naked in the back seat until your dick hole logged.'
  17. gs 'orgazm', 'start'
  18. elseif sexprostRand = 1:
  19. '<center><img src="images/img/img/prost/sexcar2.jpg"></center>'
  20. 'Standing on all fours, you felt like you were planting confident movement on the penis.'
  21. gs 'orgazm', 'start'
  22. end
  23. act 'Leave.':gt $locSex, $metkaSex
  24. end
  25. if $ARGS[0] = '2':
  26. $metka = $ARGS[0]
  27. $loc = $CURLOC
  28. cla
  29. clr
  30. *clr
  31. prosti = 0
  32. minut += 15
  33. sex += 1
  34. gs 'stat'
  35. prostRand = rand(0, 100)
  36. if prostRand > 0 and prostRand <= 50:
  37. picpRand = rand(1, 7)
  38. pose = 1
  39. 'Becoming cancer, you feel hot prick seeking to get into the vagina.'
  40. gs 'orgazm', 'start'
  41. elseif prostRand > 50 and prostRand <= 75:
  42. picpRand = rand(8, 10)
  43. pose = 1
  44. 'Standing on all fours, you felt like a hole braced member.'
  45. gs 'orgazm', 'start'
  46. elseif prostRand > 75 and prostRand <= 100:
  47. pose = 0
  48. picpRand = rand(11, 17)
  49. 'You were ordered to undress and lie down on the hood of the car.'
  50. gs 'orgazm', 'start'
  51. end
  52. '<center><img src="images/img/prost/sexcar<<picpRand>>.jpg"></center>'
  53. act 'Leave.':gt $locSex, $metkaSex
  54. end
  55. --- NormPR ---------------------------------