shoes.qsrc 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304
  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 sfetishS[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, $metka
  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, $metka
  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, $metka
  160. if money >= Price:
  161. act 'Buy':
  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, $metka
  169. end
  170. else
  171. 'You cannot afford these shoes.'
  172. end
  173. end
  174. elseif $ARGS[1] = 'wardrobe':
  175. if $regularwornshoetype = '':
  176. act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1]
  177. else
  178. act 'Return': gt 'shoes', 'gym'
  179. end
  180. act 'Wear':
  181. gs 'shoes', 'wear', $ARGS[2], ARGS[3]
  182. if $regularwornshoetype = '':
  183. gt 'wardrobe', 'start'
  184. else
  185. gt 'shoes', 'gym'
  186. end
  187. end
  188. end
  189. end
  190. if $ARGS[0] = 'strip':
  191. if $shoesworntype = 'none': exit
  192. $shoelastworntype = $shoeworntype
  193. shoelastwornnumber = shoewornnumber
  194. $shoeworntype = 'none'
  195. shoewornnumber = 0
  196. ShoQuality = 0
  197. ShoHeels = 0
  198. ShoCut = 0
  199. ShoStyle = 0
  200. PShoQuality = 0
  201. PShoHeels = 0
  202. PShoCut = 0
  203. PShoStyle = 0
  204. end
  205. if $ARGS[0] = 'setup':
  206. end
  207. if $ARGS[0] = 'wear':
  208. !! ARGS 0 - action
  209. !! ARGS 1 - shoe type name
  210. !! ARGS 2 - shoe index
  211. if $ARGS[0] = 'last_worn':
  212. $shoeworntype = $shoelastworntype
  213. shoewornnumber = shoelastwornnumber
  214. else
  215. $shoeworntype = $ARGS[1]
  216. shoewornnumber = ARGS[2]
  217. end
  218. if $shoeworntype = 'none':
  219. PShoQuaility = 0
  220. PShoCut = 0
  221. PShoHeels = 0
  222. PShoStyle = 0
  223. exit
  224. end
  225. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  226. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  227. PShoQuality = ShoQuality
  228. PShoHeels = ShoHeels
  229. PShoCut = ShoCut
  230. PShoStyle = ShoStyle
  231. !Calculations for shoes beauty, multiplied by natural beauty
  232. if PShoHeels > 0:
  233. if PShoHeels = 1:
  234. PXShoHeels = 25
  235. elseif PShoHeels = 2:
  236. PXShoHeels = 50
  237. elseif PShoHeels = 3:
  238. PXShoHeels = 100
  239. elseif PShoHeels = 4:
  240. PXShoHeels = 150
  241. elseif PShoHeels = 5:
  242. PXShoHeels = 200
  243. elseif PShoHeels = 6:
  244. PXShoHeels = 300
  245. elseif PShoHeels >= 7:
  246. PXShoHeels = 400
  247. end
  248. end
  249. end
  250. --- shoes ---------------------------------