1
0

shoes.qsrc 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332
  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. :loopsmoncheri
  81. if smoncheri[i] = 1 and smoncheriS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'moncheri', i)
  82. i += 1
  83. if i <= 37:jump 'loopsmoncheri'
  84. i = 1
  85. :loopsbomba
  86. if sbomba[i] = 1 and sbombaS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'bomba', i)
  87. i += 1
  88. if i <= 27:jump 'loopsbomba'
  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. :loopsgm
  101. if sgm[i] = 1 and sgmS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'gm', i)
  102. i += 1
  103. if i <= 51:jump 'loopsgm'
  104. i = 1
  105. :loopsdanilovich
  106. if sdanilovich[i] = 1 and sdanilovichS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'danilovich', i)
  107. i += 1
  108. if i <= 29:jump 'loopsdanilovich'
  109. '</table></center>'
  110. end
  111. if $ARGS[0] = 'moncheri':
  112. *P FUNC('$attributes_moncheri_shoes', $ARGS[0], ARGS[1])
  113. elseif $ARGS[0] = 'bomba':
  114. *P FUNC('$attributes_bomba_shoes', $ARGS[0], ARGS[1])
  115. elseif $ARGS[0] = 'dolls':
  116. *P FUNC('$attributes_dolls_shoes', $ARGS[0], ARGS[1])
  117. elseif $ARGS[0] = 'fetish':
  118. *P FUNC('$attrib_shoe_fetish', $ARGS[0], ARGS[1])
  119. elseif $ARGS[0] = 'gm':
  120. *P FUNC('$attributes_gm_shoes', $ARGS[0], ARGS[1])
  121. elseif $ARGS[0] = 'danilovich':
  122. *P FUNC('$attributes_danilovich_shoes', $ARGS[0], ARGS[1])
  123. end
  124. if $ARGS[0] = 'gym':
  125. if $regularwornshoetype = '':
  126. $regularwornshoetype = $shoeworntype
  127. regularwornshoenumber = shoewornnumber
  128. end
  129. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  130. i = 1
  131. :loopsdanilovich2
  132. if sdanilovich[i] = 1 and sdanilovichS[i] = 0:'<a href="exec:gt ''shoes'', ''view_shoe_item'', ''wardrobe'', ''danilovich'', <<i>>"><img src="images/pc/shoes/danilovich/<<i>>.jpg" height="250" /></a>'
  133. i += 1
  134. if i <= 29:jump 'loopsdanilovich2'
  135. act 'Return': gt $loc, $loc_arg
  136. if $shoeworntype ! $regularwornshoetype: gs 'shoes', 'gym2'
  137. end
  138. if $ARGS[0] = 'gym2':
  139. act 'Put your regular shoes back on':
  140. $shoeworntype = $regularwornshoetype
  141. shoewornnumber = regularwornshoenumber
  142. killvar '$regularwornshoetype'
  143. killvar 'regularwornshoenumber'
  144. gt 'shoes', 'gym'
  145. end
  146. end
  147. if $ARGS[0] = 'view_shoe_item':
  148. !! ARGS 0 - view_shoe_item
  149. !! ARGS 1 = action type (wardrobe, shop, sell)
  150. !! ARGS 2 - shoes type
  151. !! ARGS 3 - shoes index
  152. !! ARGS 4 - price for shop
  153. cla
  154. '<center><img src="<<FUNC(''$shoe_image'', $ARGS[2], ARGS[3])>>"></center>'
  155. gs 'shoe_attributes', $ARGS[2], ARGS[3]
  156. FUNC('$shoe_description', $ARGS[2]) + '<<ARGS[3]>>'
  157. *nl
  158. gs 'shoe_description2', $ARGS[2]
  159. '<<$description>>'
  160. *nl
  161. if ShoStyle = 1:'This shoe is considered stripper style and most suitable for stripping or whoring.'
  162. if ShoStyle = 2:'This shoe is considered bimbo style and makes your mind drift toward sexual thoughts.'
  163. if ShoStyle = 3:'This shoe is considered alternative style and makes you feel more assertive and aggressive.'
  164. if $ARGS[1] = 'shop':
  165. if dyneval('RESULT = S<<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  166. 'You already own these shoes.'
  167. act 'Leave': gt $loc, $loc_arg
  168. else
  169. price = ('<<ARGS[4]>>' * ((5 * ShoQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  170. price = price / 50 * 50
  171. 'Price: <<price>> <b>₽</b>'
  172. act 'Leave': gt $loc, $loc_arg
  173. if money >= Price:
  174. act 'Buy (cash)':
  175. h = 0
  176. if ShoStyle = 2:h = 10
  177. if ShoStyle = 5:h = 20
  178. h += (3 * ShoQuality)
  179. money -= price
  180. dynamic 'S<<$ARGS[2]>>[<<ARGS[3]>>] = 1'
  181. gt $loc, $loc_arg
  182. end
  183. else
  184. 'You do not have enough cash to buy these shoes.'
  185. end
  186. if karta + bankDebtLimit >= price:
  187. act 'Buy (card)':
  188. h = 0
  189. if ShoStyle = 2:h = 10
  190. if ShoStyle = 5:h = 20
  191. h += (3 * ShoQuality)
  192. karta -= price
  193. dynamic 'S<<$ARGS[2]>>[<<ARGS[3]>>] = 1'
  194. gt $loc, $loc_arg
  195. end
  196. else
  197. 'You do not have enough money in your bank to buy these shoes.'
  198. end
  199. end
  200. elseif $ARGS[1] = 'wardrobe':
  201. if $regularwornshoetype = '':
  202. act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1]
  203. else
  204. act 'Return': gt 'shoes', 'gym'
  205. end
  206. act 'Wear':
  207. gs 'shoes', 'wear', $ARGS[2], ARGS[3]
  208. if $regularwornshoetype = '':
  209. gt 'wardrobe', 'start'
  210. else
  211. gt 'shoes', 'gym'
  212. end
  213. end
  214. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  215. act 'Return':gt 'shoes', 'view_shoe_list', $ARGS[1]
  216. end
  217. end
  218. if $ARGS[0] = 'strip':
  219. if $shoesworntype = 'none': exit
  220. $shoelastworntype = $shoeworntype
  221. shoelastwornnumber = shoewornnumber
  222. $shoeworntype = 'none'
  223. shoewornnumber = 0
  224. ShoQuality = 0
  225. ShoHeels = 0
  226. ShoCut = 0
  227. ShoStyle = 0
  228. PShoQuality = 0
  229. PShoHeels = 0
  230. PShoCut = 0
  231. PShoStyle = 0
  232. end
  233. if $ARGS[0] = 'setup':
  234. end
  235. if $ARGS[0] = 'wear':
  236. !! ARGS 0 - action
  237. !! ARGS 1 - shoe type name
  238. !! ARGS 2 - shoe index
  239. if $ARGS[0] = 'last_worn':
  240. $shoeworntype = $shoelastworntype
  241. shoewornnumber = shoelastwornnumber
  242. else
  243. $shoeworntype = $ARGS[1]
  244. shoewornnumber = ARGS[2]
  245. end
  246. if $shoeworntype = 'none':
  247. PShoQuaility = 0
  248. PShoCut = 0
  249. PShoHeels = 0
  250. PShoStyle = 0
  251. exit
  252. end
  253. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  254. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  255. PShoQuality = ShoQuality
  256. PShoHeels = ShoHeels
  257. PShoCut = ShoCut
  258. PShoStyle = ShoStyle
  259. !Calculations for shoes beauty, multiplied by natural beauty
  260. if PShoHeels > 0:
  261. if PShoHeels = 1:
  262. PXShoHeels = 25
  263. elseif PShoHeels = 2:
  264. PXShoHeels = 50
  265. elseif PShoHeels = 3:
  266. PXShoHeels = 100
  267. elseif PShoHeels = 4:
  268. PXShoHeels = 150
  269. elseif PShoHeels = 5:
  270. PXShoHeels = 200
  271. elseif PShoHeels = 6:
  272. PXShoHeels = 300
  273. elseif PShoHeels >= 7:
  274. PXShoHeels = 400
  275. end
  276. end
  277. end
  278. --- shoes ---------------------------------