shoes 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308
  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, 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. $RESULT += '<TD>'
  36. if sloc ! 1:$RESULT += ' <a href="exec:gt ''shoes'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Storage</a><BR>'
  37. if sloc ! 0:$RESULT += ' <a href="exec:gt ''shoes'', ''dest0'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Wardrobe</a><BR>'
  38. if sloc ! 2:$RESULT += ' <a href="exec:gt ''shoes'', ''dest2'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Unwanted</a>'
  39. $RESULT += '</TD>'
  40. }
  41. if $ARGS[0] = 'dest0':
  42. *clr
  43. dynamic 's<<$ARGS[2]>>S[<<ARGS[3]>>] = 0'
  44. gt 'shoes', 'view_shoe_list', $ARGS[1]
  45. end
  46. if $ARGS[0] = 'dest1':
  47. *clr
  48. dynamic 's<<$ARGS[2]>>S[<<ARGS[3]>>] = 1'
  49. gt 'shoes', 'view_shoe_list', $ARGS[1]
  50. end
  51. if $ARGS[0] = 'dest2':
  52. *clr
  53. dynamic 's<<$ARGS[2]>>S[<<ARGS[3]>>] = 2'
  54. gt 'shoes', 'view_shoe_list', $ARGS[1]
  55. end
  56. if $ARGS[0] = 'view_shoe_list':
  57. !! ARGS 0 - view_shoe_list
  58. !! ARGS 1 - action type (wardrobe, storage, unwanted, sell)
  59. !! ARGS 2 - brothel flag (brothel)
  60. $regularwornshoetype = ''
  61. act 'Return':gt 'wardrobe'
  62. if $ARGS[1] ! 'sell' :'<center><table border=1><TH><a href="exec:gt ''shoes'', ''view_shoe_list'', ''wardrobe''">Wardrobe </a></TH><TH><a href="exec:gt ''shoes'', ''view_shoe_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''shoes'', ''view_shoe_list'', ''unwanted''">Unwanted</a></TH></table></center>'
  63. if $ARGS[1] ! 'sell' :
  64. '<center><b>Select shoes to wear</b></center>'
  65. if $shoeworntype ! 'none':
  66. act 'Remove shoes':
  67. gs 'shoes', 'strip'
  68. gt 'shoes', 'view_shoe_list', $ARGS[1]
  69. end
  70. end
  71. end
  72. if $ARGS[1] = 'wardrobe':
  73. sloc = 0
  74. end
  75. if $ARGS[1] = 'store':
  76. sloc = 1
  77. end
  78. if $ARGS[1] = 'unwanted':
  79. sloc = 2
  80. end
  81. $bgcolor='#f3f4ee'
  82. '<center><table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Shoe</TH><TH>Description</TH><TH>Bimbo</TH><TH>Stripper</TH><TH>Actions</TH>'
  83. i = 1
  84. :loopsboutique
  85. if sboutique[i] = 1 and sboutiqueS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'boutique', i)
  86. i += 1
  87. if i <= 37:jump 'loopsboutique'
  88. i = 1
  89. :loopspussy
  90. if spussy[i] = 1 and spussyS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'pussy', i)
  91. i += 1
  92. if i <= 38:jump 'loopspussy'
  93. i = 1
  94. :loopsdolls
  95. if sdolls[i] = 1 and sdollsS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i)
  96. i += 1
  97. if i <= 27:jump 'loopsdolls'
  98. i = 1
  99. :loopsfetish
  100. if sfetish[i] = 1 and sfetishS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'fetish', i)
  101. i += 1
  102. if i <= 27:jump 'loopsfetish'
  103. i = 1
  104. :loopsgandm
  105. if sgandm[i] = 1 and sgandmS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'gandm', i)
  106. i += 1
  107. if i <= 51:jump 'loopsgandm'
  108. i = 1
  109. :loopstrainers
  110. if strainers[i] = 1 and strainersS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'trainers', i)
  111. i += 1
  112. if i <= 29:jump 'loopstrainers'
  113. '</table></center>'
  114. end
  115. if $ARGS[0] = 'gym':
  116. if $regularwornshoetype = '':
  117. $regularwornshoetype = $shoeworntype
  118. regularwornshoenumber = shoewornnumber
  119. end
  120. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  121. i = 1
  122. :loopstrainers2
  123. if strainers[i] = 1 and strainersS[i] = 0:'<a href="exec:gt ''shoes'', ''view_shoe_item'', ''wardrobe'', ''trainers'', <<i>>"><img src="images/pc/shoes/trainers/<<i>>.jpg" height="250" /></a>'
  124. i += 1
  125. if i <= 29:jump 'loopstrainers2'
  126. act 'Return': gt $loc, $metka
  127. if $shoeworntype ! $regularwornshoetype: gs 'shoes', 'gym2'
  128. end
  129. if $ARGS[0] = 'gym2':
  130. act 'Put your regular shoes back on':
  131. $shoeworntype = $regularwornshoetype
  132. shoewornnumber = regularwornshoenumber
  133. killvar '$regularwornshoetype'
  134. killvar 'regularwornshoenumber'
  135. gt 'shoes', 'gym'
  136. end
  137. end
  138. if $ARGS[0] = 'view_shoe_item':
  139. !! ARGS 0 - view_shoe_item
  140. !! ARGS 1 = action type (wardrobe, shop, sell)
  141. !! ARGS 2 - shoes type
  142. !! ARGS 3 - shoes index
  143. !! ARGS 4 - price for shop
  144. cla
  145. '<center><img src="<<FUNC(''$shoe_image'', $ARGS[2], ARGS[3])>>"></center>'
  146. gs 'shoe_attributes', $ARGS[2], ARGS[3]
  147. FUNC('$shoe_description', $ARGS[2]) + '<<ARGS[3]>>'
  148. *nl
  149. gs 'shoe_description2', $ARGS[2]
  150. '<<$description>>'
  151. *nl
  152. if ShoStyle = 1:'This shoe is considered stripper style and most suitable for stripping or whoring.'
  153. if ShoStyle = 2:'This shoe is considered bimbo style and makes your mind drift toward sexual thoughts.'
  154. if ShoStyle = 3:'This shoe is considered alternative style and makes you feel more assertive and aggressive.'
  155. if $ARGS[1] = 'shop':
  156. if dyneval('RESULT = s<<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  157. 'You already own these shoes.'
  158. act 'Leave': gt $loc, $metka
  159. else
  160. price = ('<<ARGS[4]>>' * ((5 * ShoQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  161. price = price / 50 * 50
  162. 'Price: <<price>> <b>₽</b>'
  163. act 'Leave': gt $loc, $metka
  164. if money >= Price:
  165. act 'Buy':
  166. h = 0
  167. if ShoStyle = 2:h = 10
  168. if ShoStyle = 5:h = 20
  169. h += (3 * ShoQuality)
  170. money -= price
  171. dynamic 's<<$ARGS[2]>>[<<ARGS[3]>>] = 1'
  172. gt $loc, $metka
  173. end
  174. else
  175. 'You cannot afford these shoes.'
  176. end
  177. end
  178. elseif $ARGS[1] = 'wardrobe':
  179. if $regularwornshoetype = '':
  180. act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1]
  181. else
  182. act 'Return': gt 'shoes', 'gym'
  183. end
  184. act 'Wear':
  185. gs 'shoes', 'wear', $ARGS[2], ARGS[3]
  186. if $regularwornshoetype = '':
  187. gt 'wardrobe'
  188. else
  189. gt 'shoes', 'gym'
  190. end
  191. end
  192. end
  193. end
  194. if $ARGS[0] = 'strip':
  195. if $shoesworntype = 'none': exit
  196. $shoelastworntype = $shoeworntype
  197. shoelastwornnumber = shoewornnumber
  198. $shoeworntype = 'none'
  199. shoewornnumber = 0
  200. ShoQuality = 0
  201. ShoHeels = 0
  202. ShoCut = 0
  203. ShoStyle = 0
  204. PShoQuality = 0
  205. PShoHeels = 0
  206. PShoCut = 0
  207. PShoStyle = 0
  208. end
  209. if $ARGS[0] = 'setup':
  210. end
  211. if $ARGS[0] = 'wear':
  212. !! ARGS 0 - action
  213. !! ARGS 1 - shoe type name
  214. !! ARGS 2 - shoe index
  215. if $ARGS[0] = 'last_worn':
  216. $shoeworntype = $shoelastworntype
  217. shoewornnumber = shoelastwornnumber
  218. else
  219. $shoeworntype = $ARGS[1]
  220. shoewornnumber = ARGS[2]
  221. end
  222. if $shoeworntype = 'none':
  223. PShoQuaility = 0
  224. PShoCut = 0
  225. PShoHeels = 0
  226. PShoStyle = 0
  227. exit
  228. end
  229. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  230. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  231. PShoQuality = ShoQuality
  232. PShoHeels = ShoHeels
  233. PShoCut = ShoCut
  234. PShoStyle = ShoStyle
  235. !Calculations for shoes beauty, multiplied by natural beauty
  236. if PShoHeels > 0:
  237. if PShoHeels = 1:
  238. PXShoHeels = 25
  239. elseif PShoHeels = 2:
  240. PXShoHeels = 50
  241. elseif PShoHeels = 3:
  242. PXShoHeels = 100
  243. elseif PShoHeels = 4:
  244. PXShoHeels = 150
  245. elseif PShoHeels = 5:
  246. PXShoHeels = 200
  247. elseif PShoHeels = 6:
  248. PXShoHeels = 300
  249. elseif PShoHeels >= 7:
  250. PXShoHeels = 400
  251. end
  252. end
  253. end
  254. --- shoes ---------------------------------