1
0

Palatka.qsrc 2.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  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. palMir = 1
  12. gs 'stat'
  13. '<center><b><font color="maroon">tent</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/palatka.jpg"></center>'
  15. palrand = rand(0, 10)
  16. if palrand = 0:gt 'Palatka', 'pal0'
  17. if palrand = 1:gt 'Palatka', 'pal1'
  18. '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>.'
  19. act 'Leave':palMir = 0 & gt 'Military', 'start'
  20. act 'Sleep':
  21. minut += 480
  22. gs 'stat'
  23. pcs_sleep = 100
  24. gt 'palatka', 'start'
  25. end
  26. end
  27. if $ARGS[0] = 'pal0':
  28. cla
  29. *clr
  30. menu_off = 1
  31. gs 'stat'
  32. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pal0.jpg"></center>'
  33. '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.'
  34. gs 'willpower', 'sex', 'resist', 'hard'
  35. if will_cost <= pcs_willpwr:
  36. act 'Send (<<will_cost>> Willpower)':
  37. gs 'willpower', 'pay', 'resist'
  38. gs 'stat'
  39. gt 'palatka', 'start'
  40. end
  41. else
  42. act 'Send (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  43. end
  44. act 'Post':
  45. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  46. gs 'boyStat', $npclastgenerated
  47. $boy[0] = $boy
  48. gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
  49. $boy[1] = $npclastgenerated
  50. guy += 2
  51. picrand = 22
  52. xgt 'sexdvoe', 'var'
  53. end
  54. end
  55. if $ARGS[0] = 'pal1':
  56. cla
  57. *clr
  58. menu_off = 1
  59. gs 'stat'
  60. '<center><img <<$set_imgh>> src="images/locations/city/shared/military/pal1.jpg"></center>'
  61. '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.'
  62. gs 'willpower', 'sex', 'resist', 'easy'
  63. if will_cost <= pcs_willpwr:
  64. act 'Say thank you ':
  65. gs 'willpower', 'pay', 'resist'
  66. gs 'stat'
  67. gt 'palatka', 'start'
  68. end
  69. else
  70. 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>'
  71. end
  72. act 'Repay in full':
  73. sexpartkno = 1
  74. gs 'npcgeneratec', 0, 'Black Soldier', rand(18,35)
  75. gs 'boyStat', $npclastgenerated
  76. guy += 1
  77. picrand = 43
  78. gt 'sex', 'minet'
  79. end
  80. end
  81. --- Palatka ---------------------------------