Palatka.qsrc 2.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
  1. # Palatka
  2. $location_type = 'event'
  3. if $ARGS[0] = 'start':
  4. $sexloc = 'Palatka'
  5. $locM_arg = 'start'
  6. $locM = 'Palatka'
  7. $menu_loc = 'Palatka'
  8. $menu_arg = 'start'
  9. menu_off = 0
  10. $location_type = 'private'
  11. gs 'stat'
  12. '<center><b><font color="maroon">tent</font></b></center>'
  13. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/palatka.jpg"></center>'
  14. palrand = rand(0, 10)
  15. if palrand = 0:gt 'Palatka', 'pal0'
  16. if palrand = 1:gt 'Palatka', 'pal1'
  17. 'To your surprise, the tent is a quite spacious. It has a bed, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, and even has an improvised <a href="exec:gt ''vann'', ''start''">shower</a>.'
  18. act 'Leave': gt 'Military', 'start'
  19. act 'Sleep':
  20. gs 'sleep_simple', 'forced', 480
  21. gt 'palatka', 'start'
  22. end
  23. end
  24. if $ARGS[0] = 'pal0':
  25. cla
  26. *clr
  27. menu_off = 1
  28. gs 'stat'
  29. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pal0.jpg"></center>'
  30. 'Once you begin to change clothes, you notice that there are two soldiers in the tent. They see you half-naked, walking up to you with their erect cocks. You long for their cocks, wondering if you should get them off or ignore them and relax after a hard day instead.'
  31. gs 'willpower', 'sex', 'resist', 'hard'
  32. if will_cost <= pcs_willpwr:
  33. act 'Send (<<will_cost>> Willpower)':
  34. gs 'willpower', 'pay', 'resist'
  35. gs 'stat'
  36. gt 'palatka', 'start'
  37. end
  38. else
  39. act 'Send (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  40. end
  41. act 'Post':
  42. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  43. gs 'boyStat', $npclastgenerated
  44. $boy[0] = $boy
  45. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  46. $boy[1] = $npclastgenerated
  47. guy += 2
  48. picrand = 22
  49. xgt 'sexdvoe', 'var'
  50. end
  51. end
  52. if $ARGS[0] = 'pal1':
  53. cla
  54. *clr
  55. menu_off = 1
  56. gs 'stat'
  57. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/pal1.jpg"></center>'
  58. 'Entering the tent, you stumble, you reflexively close your eyes, as you prepare to hit the floor face first. Much to your surprise you do not land on the floor. Instead you feel powerful, strong hands catching you. Opening your eyes in surprise, you look up and see that a well-built black soldier has caught you in his arms.'
  59. gs 'willpower', 'sex', 'resist', 'easy'
  60. if will_cost <= pcs_willpwr:
  61. act 'Say thank you ':
  62. gs 'willpower', 'pay', 'resist'
  63. gs 'stat'
  64. gt 'palatka', 'start'
  65. end
  66. else
  67. act 'Say thank you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  68. end
  69. act 'Repay in full':
  70. sexpartkno = 1
  71. gs 'npcgeneratec', 0, 'Black Soldier', rand(18,35)
  72. gs 'boyStat', $npclastgenerated
  73. guy += 1
  74. picrand = 43
  75. gt 'sex', 'minet'
  76. end
  77. end
  78. --- Palatka ---------------------------------