1
0

shoes 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336
  1. # shoes
  2. !!This is the main file for shoes, like clothes but for your feet.
  3. $shoe_list_line = {
  4. !! a single line in a shoe list (shoe rack, etc)
  5. !! ARGS 0 - action type (shoe rack, sell, resize, store, forsale)
  6. !! ARGS 1 - shoe type
  7. !! ARGS 2 - shoe index
  8. $bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
  9. $RESULT = '<TR bgcolor='+$bgcolor+'>'
  10. if Enable_clothwidth > 0:
  11. shoe_temp = Enable_clothwidth - 1
  12. else
  13. shoe_temp = 75 & !shoe widdefault to 75
  14. end
  15. $RESULT +='<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$shoe_image'', $ARGS[1], ARGS[2])>>" width="<<shoe_temp>>"></a></TD>'
  16. killvar 'shoe_temp'
  17. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  18. gs 'shoe_description2', $ARGS[2]
  19. $RESULT += '<TD><<FUNC(''$shoe_description'', $ARGS[1])>> <<ARGS[2]>></TD><TD><<$description>></TD>'
  20. if ShoStyle = 2:
  21. $RESULT += '<TD>Yes</TD>'
  22. else
  23. $RESULT += '<TD>No</TD>'
  24. end
  25. if ShoStyle = 1:
  26. $RESULT += '<TD>Yes</TD>'
  27. else
  28. $RESULT += '<TD>No</TD>'
  29. end
  30. $RESULT += '<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a></TD>'
  31. }
  32. if $ARGS[0] = 'select':
  33. cla
  34. *clr
  35. *nl
  36. *nl
  37. 'Click the link for the clothing type of which you would like to change the accompanying shoes.'
  38. *nl
  39. *nl
  40. *nl
  41. '<center><table border=1><TH>Clothing type</TH><TH>Shoes worn</TH>'
  42. *P '<tr><TD><a href="exec:$cloType = ''cheap'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Cheap</a></TD><TD>' + FUNC('$shoe_description', $cheapshoetype) + ' <<cheapshoenumber>></TD></tr>'
  43. *P '<tr><TD><a href="exec:$cloType = ''average'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Average</a></TD><TD>' + FUNC('$shoe_description', $averageshoetype) + ' <<averageshoenumber>></TD></tr>'
  44. *P '<tr><TD><a href="exec:$cloType = ''expensive'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Expensive</a></TD><TD>' + FUNC('$shoe_description', $expensiveshoetype) + ' <<expensiveshoenumber>></TD></tr>'
  45. *P '<tr><TD><a href="exec:$cloType = ''formal'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Formal</a></TD><TD>' + FUNC('$shoe_description', $formalshoetype) + ' <<formalshoenumber>></TD></tr>'
  46. *P '<tr><TD><a href="exec:$cloType = ''office'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Office</a></TD><TD>' + FUNC('$shoe_description', $officeshoetype) + ' <<officeshoenumber>></TD></tr>'
  47. *P '<tr><TD><a href="exec:$cloType = ''school'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">School</a></TD><TD>' + FUNC('$shoe_description', $schoolshoetype) + ' <<schoolshoenumber>></TD></tr>'
  48. *P '<tr><TD><a href="exec:$cloType = ''exercise'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Exercise</a></TD><TD>' + FUNC('$shoe_description', $exerciseshoetype) + ' <<exerciseshoenumber>></TD></tr>'
  49. *P '<tr><TD><a href="exec:$cloType = ''fetish'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Fetish</a></TD><TD>' + FUNC('$shoe_description', $fetishshoetype) + ' <<fetishshoenumber>></TD></tr>'
  50. *P '<tr><TD><a href="exec:$cloType = ''exhibit'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Exhibitionist</a></TD><TD>' + FUNC('$shoe_description', $exhibitshoetype) + ' <<exhibitshoenumber>></TD></tr>'
  51. *P '<tr><TD><a href="exec:$cloType = ''uniform'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Uniform</a></TD><TD>' + FUNC('$shoe_description', $uniformshoetype) + ' <<uniformshoenumber>></TD></tr>'
  52. *P '<tr><TD><a href="exec:$cloType = ''burlesque'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Burlesque</a></TD><TD>' + FUNC('$shoe_description', $burlesqueshoetype) + ' <<burlesqueshoenumber>></TD></tr>'
  53. *P '<tr><TD><a href="exec:$cloType = ''alternative'' & gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Alternative</a></TD><TD>' + FUNC('$shoe_description', $alternativeshoetype) + ' <<alternativeshoenumber>></TD></center></tr>'
  54. '</table>'
  55. act 'Leave':
  56. if $clothingworntype = $cloType:
  57. gs 'shoes', 'setup'
  58. gs 'shoes', 'wear', $shoeworntype, shoewornnumber
  59. end
  60. gt $loc, $metka
  61. end
  62. end
  63. if $ARGS[0] = 'view_shoe_list':
  64. !! ARGS 0 - view_shoe_list
  65. !! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
  66. !! ARGS 2 - brothel flag (brothel)
  67. act 'Leave':gt 'shoes', 'select'
  68. if $ARGS[1] ! 'sell' :
  69. '<center><b>Selecting shoes to wear with <<$cloType>> outfit</b></center>'
  70. end
  71. $bgcolor='#f3f4ee'
  72. if $ARGS[1] = 'sell':
  73. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Shoe</TH><TH>Description</TH><TH>Bimbo</TH><TH>Stripper</TH><TH>Actions</TH>'
  74. else
  75. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Shoe</TH><TH>Description</TH><TH>Bimbo</TH><TH>Stripper</TH><TH>Actions</TH>'
  76. end
  77. if $cloType ! 'exercise':
  78. i = 1
  79. :loopsboutique
  80. if sboutique[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'boutique', i)
  81. i += 1
  82. if i <= 37:jump 'loopsboutique'
  83. i = 1
  84. :loopspussy
  85. if spussy[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'pussy', i)
  86. i += 1
  87. if i <= 38:jump 'loopspussy'
  88. i = 1
  89. :loopsdolls
  90. if sdolls[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i)
  91. i += 1
  92. if i <= 27:jump 'loopsdolls'
  93. i = 1
  94. :loopsfetish
  95. if sfetish[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'fetish', i)
  96. i += 1
  97. if i <= 27:jump 'loopsfetish'
  98. i = 1
  99. :loopsgandm
  100. if sgandm[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'gandm', i)
  101. i += 1
  102. if i <= 51:jump 'loopsgandm'
  103. end
  104. i = 1
  105. :loopstrainers
  106. if strainers[i] = 1:*P dyneval($shoe_list_line, $ARGS[1], 'trainers', i)
  107. i += 1
  108. if i <= 29:jump 'loopstrainers'
  109. '</table>'
  110. end
  111. if $ARGS[0] = 'view_shoe_item':
  112. !! ARGS 0 - view_shoe_item
  113. !! ARGS 1 = action type (wardrobe, shop, sell)
  114. !! ARGS 2 - shoes type
  115. !! ARGS 3 - shoes index
  116. !! ARGS 4 - price for shop
  117. cla
  118. '<center><img src="<<FUNC(''$shoe_image'', $ARGS[2], ARGS[3])>>"></center>'
  119. gs 'shoe_attributes', $ARGS[2], ARGS[3]
  120. FUNC('$shoe_description', $ARGS[2]) + '<<ARGS[3]>>'
  121. *nl
  122. gs 'shoe_description2', $ARGS[2]
  123. '<<$description>>'
  124. *nl
  125. if ShoStyle = 1:'This shoe is considered stripper style and most suitable for stripping or whoring.'
  126. if ShoStyle = 2:'This shoe is considered bimbo style and makes your mind drift toward sexual thoughts.'
  127. if ShoStyle = 3:'This shoe is considered alternative style and makes you feel more assertive and aggressive.'
  128. if $ARGS[1] = 'shop':
  129. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  130. 'You already own these shoes.'
  131. act 'Leave': gt $loc, $metka
  132. else
  133. price = ('<<ARGS[4]>>' * ((5 * ShoQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  134. price = price / 50 * 50
  135. 'Price: <<price>> <b>₽</b>'
  136. act 'Leave': gt $loc, $metka
  137. if money >= Price:
  138. act 'Buy':
  139. h = 0
  140. if ShoStyle = 2:h = 10
  141. if ShoStyle = 5:h = 20
  142. h += (3 * ShoQuality)
  143. money -= price
  144. dynamic 's<<$ARGS[2]>>[<<ARGS[3]>>] = 1'
  145. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  146. gt $loc, $metka
  147. end
  148. else
  149. 'You cannot afford these shoes.'
  150. end
  151. end
  152. elseif $ARGS[1] = 'wardrobe':
  153. act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1]
  154. act 'Set as default for <<$cloType>> outfit':
  155. if $cloType = 'cheap':
  156. $cheapshoetype = $ARGS[2]
  157. elseif $cloType = 'average':
  158. $averageshoetype = $ARGS[2]
  159. elseif $cloType = 'expensive':
  160. $expensiveshoetype = $ARGS[2]
  161. elseif $cloType = 'formal':
  162. $formalshoetype = $ARGS[2]
  163. elseif $cloType = 'office':
  164. $officeshoetype = $ARGS[2]
  165. elseif $cloType = 'school':
  166. $schoolshoetype = $ARGS[2]
  167. elseif $cloType = 'exercise':
  168. $exerciseshoetype = $ARGS[2]
  169. elseif $cloType = 'fetish':
  170. $fetishshoetype = $ARGS[2]
  171. elseif $cloType = 'exhibit':
  172. $exhibitshoetype = $ARGS[2]
  173. elseif $cloType = 'uniform':
  174. $uniformshoetype = $ARGS[2]
  175. elseif $cloType = 'burlesque':
  176. $burlesqueshoetype = $ARGS[2]
  177. elseif $cloType = 'alternative':
  178. $alternativeshoetype = $ARGS[2]
  179. end
  180. dynamic '<<$cloType>>shoenumber = <<ARGS[3]>>'
  181. gt 'shoes', 'view_shoe_list', $ARGS[1]
  182. end
  183. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  184. act 'Return':gt 'shoes', 'view_shoe_list', $ARGS[1]
  185. act 'Move back to wardrobe':
  186. dynamic $ARGS[2] + 'W[<<ARGS[3]>>] = 1'
  187. gt 'shoes', 'view_shoe_list', $ARGS[1]
  188. end
  189. elseif $ARGS[1] = 'sell':
  190. act 'Keep item':gt 'shoes', 'view_shoe_list', $ARGS[1]
  191. !! value is based on the strength remaining
  192. 'You can sell this item for 300 <b>₽</b>.'
  193. act 'Sell':
  194. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  195. money += 300
  196. gt 'shoes', 'view_shoe_list', $ARGS[1]
  197. end
  198. if RESULT > 0:
  199. 'You can sell this item for 100 <b>₽</b>.'
  200. act 'Sell':
  201. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  202. money += 100
  203. gt 'shoes', 'view_shoe_list', $ARGS[1]
  204. end
  205. end
  206. end
  207. end
  208. if $ARGS[0] = 'strip':
  209. if $shoesworntype = 'none': exit
  210. $shoeworntype = 'none'
  211. shoewornnumber = 0
  212. ShoQuality = 0
  213. ShoHeels = 0
  214. ShoCut = 0
  215. ShoStyle = 0
  216. PShoQuality = 0
  217. PShoHeels = 0
  218. PShoCut = 0
  219. PShoStyle = 0
  220. end
  221. if $ARGS[0] = 'setup':
  222. if $cloType = 'cheap':
  223. $shoeworntype = $cheapshoetype
  224. elseif $cloType = 'average':
  225. $shoeworntype = $averageshoetype
  226. elseif $cloType = 'expensive':
  227. $shoeworntype = $expensiveshoetype
  228. elseif $cloType = 'formal':
  229. $shoeworntype = $formalshoetype
  230. elseif $cloType = 'office':
  231. $shoeworntype = $officeshoetype
  232. elseif $cloType = 'school':
  233. $shoeworntype = $schoolshoetype
  234. elseif $cloType = 'exercise':
  235. $shoeworntype = $exerciseshoetype
  236. elseif $cloType = 'fetish':
  237. $shoeworntype = $fetishshoetype
  238. elseif $cloType = 'exhibit':
  239. $shoeworntype = $exhibitshoetype
  240. elseif $cloType = 'uniform':
  241. $shoeworntype = $uniformshoetype
  242. elseif $cloType = 'burlesque':
  243. $shoeworntype = $burlesqueshoetype
  244. elseif $cloType = 'alternative':
  245. $shoeworntype = $alternativeshoetype
  246. else
  247. $shoeworntype = 'none'
  248. end
  249. dynamic 'shoewornnumber = <<$cloType>>shoenumber'
  250. end
  251. if $ARGS[0] = 'wear':
  252. !! ARGS 0 - action
  253. !! ARGS 1 - shoe type name
  254. !! ARGS 2 - shoe index
  255. $shoeworntype = $ARGS[1]
  256. shoewornnumber = ARGS[2]
  257. if $shoeworntype = 'none':
  258. PShoQuaility = 0
  259. PShoCut = 0
  260. PShoHeels = 0
  261. PShoStyle = 0
  262. exit
  263. end
  264. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  265. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  266. PShoQuality = ShoQuality
  267. PShoHeels = ShoHeels
  268. PShoCut = ShoCut
  269. PShoStyle = ShoStyle
  270. !Calculations for shoes beauty, multiplied by natural beauty
  271. if PShoHeels > 0:
  272. if PShoHeels = 1:
  273. PXShoHeels = 25
  274. elseif PShoHeels = 2:
  275. PXShoHeels = 50
  276. elseif PShoHeels = 3:
  277. PXShoHeels = 100
  278. elseif PShoHeels = 4:
  279. PXShoHeels = 150
  280. elseif PShoHeels = 5:
  281. PXShoHeels = 200
  282. elseif PShoHeels = 6:
  283. PXShoHeels = 300
  284. elseif PShoHeels >= 7:
  285. PXShoHeels = 400
  286. end
  287. end
  288. end
  289. --- shoes ---------------------------------