shoes.qsrc 9.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351
  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 '<<$ARGS[2]>>_shoe_s[<<ARGS[3]>>] = 0'
  40. gt 'shoes', 'view_shoe_list', $ARGS[1]
  41. end
  42. if $ARGS[0] = 'dest1':
  43. *clr
  44. dynamic '<<$ARGS[2]>>_shoe_s[<<ARGS[3]>>] = 1'
  45. gt 'shoes', 'view_shoe_list', $ARGS[1]
  46. end
  47. if $ARGS[0] = 'dest2':
  48. *clr
  49. dynamic '<<$ARGS[2]>>_shoe_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. :loopmoncheri_shoe
  81. if moncheri_shoe[i] = 1 and moncheri_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'moncheri', i)
  82. i += 1
  83. if i <= 40:jump 'loopmoncheri_shoe'
  84. i = 1
  85. :loopcats_shoe
  86. if cats_shoe[i] = 1 and cats_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'cats', i)
  87. i += 1
  88. if i <= 20:jump 'loopcats_shoe'
  89. i = 1
  90. :loopbomba_shoe
  91. if bomba_shoe[i] = 1 and bomba_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'bomba', i)
  92. i += 1
  93. if i <= 40:jump 'loopbomba_shoe'
  94. i = 1
  95. :loopdolls_shoe
  96. if dolls_shoe[i] = 1 and dolls_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i)
  97. i += 1
  98. if i <= 30:jump 'loopdolls_shoe'
  99. i = 1
  100. :loopgm_shoe
  101. if gm_shoe[i] = 1 and gm_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'gm', i)
  102. i += 1
  103. if i <= 30:jump 'loopgm_shoe'
  104. i = 1
  105. :looperoto_shoe
  106. if eroto_shoe[i] = 1 and eroto_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'eroto', i)
  107. i += 1
  108. if i <= 30:jump 'looperoto_shoe'
  109. i = 1
  110. :loopscandalicious_shoe
  111. if scandalicious_shoe[i] = 1 and scandalicious_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'scandalicious', i)
  112. i += 1
  113. if i <= 30:jump 'loopscandalicious_shoe'
  114. i = 1
  115. :loopdanilovich_shoe
  116. if danilovich_shoe[i] = 1 and danilovich_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'danilovich', i)
  117. i += 1
  118. if i <= 40:jump 'loopdanilovich_shoe'
  119. '</table></center>'
  120. end
  121. if $ARGS[0] = 'moncheri':
  122. *P FUNC('$attributes_moncheri_shoes', $ARGS[0], ARGS[1])
  123. elseif $ARGS[0] = 'cats':
  124. *P FUNC('$attributes_cats_shoes', $ARGS[0], ARGS[1])
  125. elseif $ARGS[0] = 'bomba':
  126. *P FUNC('$attributes_bomba_shoes', $ARGS[0], ARGS[1])
  127. elseif $ARGS[0] = 'dolls':
  128. *P FUNC('$attributes_dolls_shoes', $ARGS[0], ARGS[1])
  129. elseif $ARGS[0] = 'gm':
  130. *P FUNC('$attributes_gm_shoes', $ARGS[0], ARGS[1])
  131. elseif $ARGS[0] = 'eroto':
  132. *P FUNC('$attributes_eroto_shoes', $ARGS[0], ARGS[1])
  133. elseif $ARGS[0] = 'scandalicious':
  134. *P FUNC('$attributes_scandalicious_shoes', $ARGS[0], ARGS[1])
  135. elseif $ARGS[0] = 'danilovich':
  136. *P FUNC('$attributes_danilovich_shoes', $ARGS[0], ARGS[1])
  137. end
  138. if $ARGS[0] = 'gym':
  139. if $regularwornshoetype = '':
  140. $regularwornshoetype = $shoeworntype
  141. regularwornshoenumber = shoewornnumber
  142. end
  143. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  144. i = 1
  145. :loopdanilovich_shoe2
  146. if danilovich_shoe[i] = 1 and danilovich_shoe_s[i] = 0:'<a href="exec:gt ''shoes'', ''view_shoe_item'', ''wardrobe'', ''danilovich'', <<i>>"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
  147. i += 1
  148. if i <= 40:jump 'loopdanilovich_shoe2'
  149. act 'Return': gt $loc, $loc_arg
  150. if $shoeworntype ! $regularwornshoetype: gs 'shoes', 'gym2'
  151. end
  152. if $ARGS[0] = 'gym2':
  153. act 'Put your regular shoes back on':
  154. $shoeworntype = $regularwornshoetype
  155. shoewornnumber = regularwornshoenumber
  156. killvar '$regularwornshoetype'
  157. killvar 'regularwornshoenumber'
  158. gt 'shoes', 'gym'
  159. end
  160. end
  161. if $ARGS[0] = 'view_shoe_item':
  162. !! ARGS 0 - view_shoe_item
  163. !! ARGS 1 = action type (wardrobe, shop, sell)
  164. !! ARGS 2 - shoes type
  165. !! ARGS 3 - shoes index
  166. !! ARGS 4 - price for shop
  167. cla
  168. '<center><img src="<<FUNC(''$shoe_image'', $ARGS[2], ARGS[3])>>"></center>'
  169. gs 'shoe_attributes', $ARGS[2], ARGS[3]
  170. FUNC('$shoe_description', $ARGS[2]) + '<<ARGS[3]>>'
  171. *nl
  172. gs 'shoe_description2', $ARGS[2]
  173. '<<$description>>'
  174. *nl
  175. if ShoStyle = 1:'This shoe is considered stripper style and most suitable for stripping or whoring.'
  176. if ShoStyle = 2:'This shoe is considered bimbo style and makes your mind drift toward sexual thoughts.'
  177. if ShoStyle = 3:'This shoe is considered alternative style and makes you feel more assertive and aggressive.'
  178. if $ARGS[1] = 'shop':
  179. if dyneval('RESULT = <<$ARGS[2]>>_shoe[<<ARGS[3]>>]') = 1:
  180. 'You already own these shoes.'
  181. act 'Leave': gt $loc, $loc_arg
  182. else
  183. price = ('<<ARGS[4]>>' * ((5 * ShoQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  184. price = price / 50 * 50
  185. 'Price: <<price>> <b>₽</b>'
  186. act 'Leave': gt $loc, $loc_arg
  187. if money >= Price:
  188. act 'Buy (cash)':
  189. h = 0
  190. if ShoStyle = 2:h = 10
  191. if ShoStyle = 5:h = 20
  192. h += (3 * ShoQuality)
  193. money -= price
  194. dynamic '<<$ARGS[2]>>_shoe[<<ARGS[3]>>] = 1'
  195. gt $loc, $loc_arg
  196. end
  197. else
  198. 'You do not have enough cash to buy these shoes.'
  199. end
  200. if karta + bankDebtLimit >= price:
  201. act 'Buy (card)':
  202. h = 0
  203. if ShoStyle = 2:h = 10
  204. if ShoStyle = 5:h = 20
  205. h += (3 * ShoQuality)
  206. karta -= price
  207. dynamic '<<$ARGS[2]>>_shoe[<<ARGS[3]>>] = 1'
  208. gt $loc, $loc_arg
  209. end
  210. else
  211. 'You do not have enough money in your bank to buy these shoes.'
  212. end
  213. end
  214. elseif $ARGS[1] = 'wardrobe':
  215. if $regularwornshoetype = '':
  216. act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1]
  217. else
  218. act 'Return': gt 'shoes', 'gym'
  219. end
  220. act 'Wear':
  221. gs 'shoes', 'wear', $ARGS[2], ARGS[3]
  222. if $regularwornshoetype = '':
  223. gt 'wardrobe', 'start'
  224. else
  225. gt 'shoes', 'gym'
  226. end
  227. end
  228. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  229. act 'Return':gt 'shoes', 'view_shoe_list', $ARGS[1]
  230. end
  231. end
  232. if $ARGS[0] = 'strip':
  233. if $shoesworntype = 'none': exit
  234. $shoelastworntype = $shoeworntype
  235. shoelastwornnumber = shoewornnumber
  236. $shoeworntype = 'none'
  237. shoewornnumber = 0
  238. ShoQuality = 0
  239. ShoHeels = 0
  240. ShoCut = 0
  241. ShoStyle = 0
  242. PShoQuality = 0
  243. PShoHeels = 0
  244. PShoCut = 0
  245. PShoStyle = 0
  246. end
  247. if $ARGS[0] = 'setup':
  248. end
  249. if $ARGS[0] = 'wear':
  250. !! ARGS 0 - action
  251. !! ARGS 1 - shoe type name / last worn
  252. !! ARGS 2 - shoe index
  253. if $ARGS[1] = 'last_worn':
  254. $shoeworntype = $shoelastworntype
  255. shoewornnumber = shoelastwornnumber
  256. else
  257. $shoeworntype = $ARGS[1]
  258. shoewornnumber = ARGS[2]
  259. end
  260. if $shoeworntype = 'none':
  261. PShoQuaility = 0
  262. PShoCut = 0
  263. PShoHeels = 0
  264. PShoStyle = 0
  265. exit
  266. end
  267. gs 'shoe_attributes', $ARGS[1], ARGS[2]
  268. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  269. PShoQuality = ShoQuality
  270. PShoHeels = ShoHeels
  271. PShoCut = ShoCut
  272. PShoStyle = ShoStyle
  273. !!Bimbo shoe check so bonus will be applied
  274. if PShoStyle = 2: bimbosh = 1
  275. !Calculations for shoes beauty, multiplied by natural beauty
  276. if PShoHeels > 0:
  277. if PShoHeels = 1:
  278. PXShoHeels = 25
  279. elseif PShoHeels = 2:
  280. PXShoHeels = 50
  281. elseif PShoHeels = 3:
  282. PXShoHeels = 100
  283. elseif PShoHeels = 4:
  284. PXShoHeels = 150
  285. elseif PShoHeels = 5:
  286. PXShoHeels = 200
  287. elseif PShoHeels = 6:
  288. PXShoHeels = 300
  289. elseif PShoHeels >= 7:
  290. PXShoHeels = 400
  291. end
  292. end
  293. end
  294. --- shoes ---------------------------------