1
0

shoes.qsrc 8.1 KB

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