1
0

shoes 9.9 KB

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