1
0

clothing.qsrc 28 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835
  1. # clothing
  2. $clothing_list_line = {
  3. !! a single line in a clothing list (wardrobe, etc)
  4. !! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
  5. !! ARGS 1 - clothing type
  6. !! ARGS 2 - clothing index
  7. if night_mode = 1:
  8. $bgcolor = iif($bgcolor='#0C0B11','#000000','#0C0B11')
  9. else
  10. $bgcolor = iif($bgcolor='#f3f4ee','#ffffff','#f3f4ee')
  11. end
  12. $RESULT = '<TR bgcolor='+$bgcolor+'>'
  13. if Enable_clothwidth > 0:
  14. clothing_temp = Enable_clothwidth - 1
  15. else
  16. clothing_temp = 150 & !clothing widdefault to 150
  17. end
  18. $RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="<<clothing_temp>>"></a></TD>'
  19. killvar 'clothing_temp'
  20. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  21. if $ARGS[1] ! 'school' or ARGS[2] ! 6:
  22. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>H[<<ARGS[2]>>]' + '</TD>'
  23. if $ARGS[1] ! 'exercise' and $ARGS[1] ! 'coat' and CloStyle ! 5:
  24. $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>B[<<ARGS[2]>>]' + '</TD>'
  25. else
  26. $RESULT += '<TD></TD>'
  27. end
  28. else
  29. $RESULT += '<TD colspan="2"></TD>'
  30. end
  31. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  32. gs 'clothing_descriptions'
  33. $RESULT += '<TD><<FUNC(''$short_description'', $ARGS[1])>> <<ARGS[2]>><br/><br/><<$description>></TD>'
  34. else
  35. $RESULT += '<TD>' + FUNC('$clothing_name', $ARGS[1], ARGS[2]) + '</TD>'
  36. end
  37. if CloBimbo = 1:
  38. $RESULT += '<TD>Yes</TD>'
  39. else
  40. $RESULT += '<TD>No</TD>'
  41. end
  42. if CloStyle = 4:
  43. $RESULT += '<TD>Yes</TD>'
  44. else
  45. $RESULT += '<TD>No</TD>'
  46. end
  47. $RESULT += '<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a>'
  48. if $ARGS[0] ! 'sell' and $ARGS[0] ! 'resize':
  49. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $ARGS[1] = 'school' and ARGS[2] = 6:
  50. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Wear</a></TD>'
  51. elseif ($ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear') and dyneval('RESULT = <<$ARGS[1]>>H[<<ARGS[2]>>]') > 0:
  52. if $ARGS[1] ! 'exercise' and CloStyle ! 5 and (dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') < (pcs_hips - 8) or dyneval('RESULT = <<$ARGS[1]>>B[<<ARGS[2]>>]') > (pcs_hips + 8)) or (ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1):
  53. $RESULT += '</TD>'
  54. else
  55. $RESULT += ' <a href="exec:gs ''clothing'', ''wear'', ''<<$ARGS[1]>>'', <<ARGS[2]>> & gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Wear</a></TD>'
  56. end
  57. else
  58. $RESULT += '</TD>'
  59. end
  60. $RESULT += '<TD>'
  61. if cloc ! 1:$RESULT += ' <a href="exec:gt ''clothing'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Storage</a><BR>'
  62. if cloc ! 0:$RESULT += ' <a href="exec:gt ''clothing'', ''dest0'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Wardrobe</a><BR>'
  63. if $ARGS[1] ! 'school' or ARGS[2] ! 6:
  64. if cloc ! 2:$RESULT += ' <a href="exec:gt ''clothing'', ''dest2'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> ">Unwanted</a>'
  65. end
  66. $RESULT += '</TD>'
  67. end
  68. }
  69. !!cloc, 0 = wardrobe, 1 = storage, 2 = unwanted
  70. if $ARGS[0] = 'dest0':
  71. *clr
  72. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 0'
  73. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  74. end
  75. if $ARGS[0] = 'dest1':
  76. *clr
  77. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 1'
  78. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  79. end
  80. if $ARGS[0] = 'dest2':
  81. *clr
  82. dynamic '<<$ARGS[2]>>S[<<ARGS[3]>>] = 2'
  83. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  84. end
  85. if $ARGS[0] = 'view_clothing_list':
  86. !! ARGS 0 - view_clothing_list
  87. !! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
  88. !! ARGS 2 - Shop name (kats, moncheri, gm, fashionista, sexshop, exhibitshop, dolls, sports)
  89. if $ARGS[1] = 'wardrobe':
  90. $ward_list_page = $ARGS[1]
  91. '<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
  92. elseif $ARGS[1] = 'store':
  93. $ward_list_page = $ARGS[1]
  94. '<h3><center><b><font color="maroon">Stored clothing list</font></b></center></h3>'
  95. elseif $ARGS[1] = 'unwanted':
  96. $ward_list_page = $ARGS[1]
  97. '<h3><center><b><font color="maroon">Unwanted clothing list</font></b></center></h3>'
  98. end
  99. if $ARGS[2] = 'gm':
  100. !'<center><b><font color="maroon">Viewing clothes from G&M</font></b></center>'
  101. '<center><img src="images/locations/city/citycenter/mall/GM.png"></center>'
  102. elseif $ARGS[2] = 'kats':
  103. !'<center><b><font color="maroon">Viewing clothes from PussyKats</font></b></center>'
  104. '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
  105. elseif $ARGS[2] = 'fashionista':
  106. !'<center><b><font color="maroon">Viewing clothes from Fashionista</font></b></center>'
  107. '<center><img src="images/locations/city/citycenter/mall/fashionistat.png"></center>'
  108. elseif $ARGS[2] = 'moncheri':
  109. !'<center><b><font color="maroon">Viewing clothes from Mon Cheri</font></b></center>'
  110. '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
  111. elseif $ARGS[2] = 'sexshop':
  112. !'<center><b><font color="maroon">Viewing clothes from the sex shop</font></b></center>'
  113. '<center><img src="images/locations/city/citycenter/sexshop/shop_name.png"></center>'
  114. elseif $ARGS[2] = 'exhibitshop':
  115. !'<center><b><font color="maroon">Viewing clothes from the Exhibitionist shop</font></b></center>'
  116. '<center><img src="images/locations/oldtown/exhibitshop/shop_name.png"></center>'
  117. elseif $ARGS[2] = 'dolls':
  118. !'<center><b><font color="maroon">Viewing clothes from Patchwork Dolls</font></b></center>'
  119. '<center><img src="images/locations/city/island/dolls.png"></center>'
  120. elseif $ARGS[2] = 'sports':
  121. !'<center><b><font color="maroon">Viewing sportswear from Danilovich</font></b></center>'
  122. '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
  123. else
  124. '<center><b><font color="maroon">Click on a shop name to view clothes from that shop</font></b></center>'
  125. if $wloc = 'wardrobe':
  126. act 'Return': killvar '$ward_list_store' & gt 'wardrobe', 'start'
  127. elseif $ARGS[1] = 'sell' or $ARGS[1] = 'resize':
  128. act 'Leave': killvar '$ward_list_store' & gt $loc, $metka
  129. end
  130. end
  131. *nl
  132. if $ARGS[1] ! 'sell':
  133. $clothing_header = '<center><table border=1>'
  134. if $ARGS[1] ! 'wardrobe': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe'', ''<<$ward_list_store>>''">Switch to wardrobe list</a></TH>'
  135. $clothing_header += '<TH><a href="exec:gt ''clothing_QV'', ''list'', ''<<$ward_list_store>>''">Switch to icons</a></TH>'
  136. if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''store'', ''<<$ward_list_store>>''">Switch to stored clothing list</a></TH>'
  137. if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''clothing'', ''view_clothing_list'', ''unwanted'', ''<<$ward_list_store>>''">Switch to unwanted clothing list</a></TH></center>'
  138. $clothing_header
  139. if $ARGS[1] = 'wardrobe':
  140. '<center>These are the clothes that are currently available for you to wear.</center><br>'
  141. elseif $ARGS[1] = 'store':
  142. '<center>These are the clothes you have stored that do not show up in your wardrobe list and cannot be sold at the market.</center><br>'
  143. elseif $ARGS[1] = 'unwanted':
  144. '<center>These are the clothes you''ve marked to be sold at the market.</center><br>'
  145. end
  146. end
  147. if $ARGS[2] = '':
  148. '<center><a href="exec:$ward_list_store = ''gm'' & gt ''clothing'', ''view_clothing_list'', ''<<$ARGS[1]>>'', ''gm''"><img src="images/locations/city/citycenter/mall/GM.png"></a></center>'
  149. if ARRSIZE('average') > 0:'<center><a href="exec:$ward_list_store = ''kats'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''kats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
  150. if ARRSIZE('expensive') > 0:'<center><a href="exec:$ward_list_store = ''fashionista'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionistat.png"></a></center>'
  151. if ARRSIZE('formal') > 0:'<center><a href="exec:$ward_list_store = ''moncheri'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
  152. if ARRSIZE('fetish') > 0 or ARRSIZE('burlesque') > 0:'<center><a href="exec:$ward_list_store = ''sexshop'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''sexshop''"><img src="images/locations/city/citycenter/sexshop/shop_name.png"></a></center>'
  153. if ARRSIZE('exhibit') > 0:'<center><a href="exec:$ward_list_store = ''exhibitshop'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''exhibitshop''"><img src="images/locations/oldtown/exhibitshop/shop_name.png"></a></center>'
  154. if ARRSIZE('alternative') > 0:'<center><a href="exec:$ward_list_store = ''dolls'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''dolls''"><img src="images/locations/city/island/dolls.png"></a></center>'
  155. if ARRSIZE('exercise') > 0:'<center><a href="exec:$ward_list_store = ''sports'' & gt ''clothing'', ''view_clothing_list'', ''<<$ward_list_page>>'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
  156. else
  157. $bgcolor='#f3f4ee'
  158. if $ARGS[1] = 'sell':
  159. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Strength</TH><TH>Hip size</TH><TH>Description</TH><TH>Bimbo</TH><TH>Prostitute</TH><TH>Actions</TH>'
  160. else
  161. '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Strength</TH><TH>Hip size</TH><TH>Description</TH><TH>Bimbo</TH><TH>Prostitute</TH><TH>Actions</TH><TH>Move to</TH>'
  162. end
  163. if $ARGS[1] = 'store':
  164. cloc = 1
  165. elseif $ARGS[1] = 'unwanted':
  166. cloc = 2
  167. else
  168. cloc = 0
  169. end
  170. if $ARGS[2] = 'gm':
  171. $ward_list_store = $ARGS[2]
  172. if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! 6):*P dyneval($clothing_list_line, $ARGS[1], 'school', 6)
  173. i = 1
  174. :loopcheap
  175. if cheap[i] = 1 and cheapS[i] = cloc and ($clothingworntype ! 'cheap' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cheap', i)
  176. i += 1
  177. if i <= ARRSIZE('cheap'):jump 'loopcheap'
  178. i = 1
  179. :loopoffice
  180. if office[i] = 1 and officeS[i] = cloc and ($clothingworntype ! 'office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'office', i)
  181. i += 1
  182. if i <= ARRSIZE('office'):jump 'loopoffice'
  183. i = 1
  184. :loopschool
  185. if school[i] = 1 and schoolS[i] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'school', i)
  186. i += 1
  187. if i = 6: i = 7
  188. if i <= ARRSIZE('school'):jump 'loopschool'
  189. i = 1
  190. :loopuniform
  191. if uniform[i] = 1 and uniformS[i] = cloc and ($clothingworntype ! 'uniform' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'uniform', i)
  192. i += 1
  193. if i <= ARRSIZE('uniform'):jump 'loopuniform'
  194. i = 1
  195. :loopswimwear
  196. if swimwear[i] = 1 and swimwearS[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'swimwear', i)
  197. i += 1
  198. if i <= ARRSIZE('swimwear'):jump 'loopswimwear'
  199. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  200. gs 'clothing', 'clothwidth'
  201. end
  202. if $ARGS[2] = 'kats':
  203. $ward_list_store = $ARGS[2]
  204. i = 1
  205. :loopaverage
  206. if average[i] = 1 and averageS[i] = cloc and ($clothingworntype ! 'average' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'average', i)
  207. i += 1
  208. if i <= ARRSIZE('average'):jump 'loopaverage'
  209. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  210. gs 'clothing', 'clothwidth'
  211. end
  212. if $ARGS[2] = 'fashionista':
  213. $ward_list_store = $ARGS[2]
  214. i = 1
  215. :loopexpensive
  216. if expensive[i] = 1 and expensiveS[i] = cloc and ($clothingworntype ! 'expensive' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'expensive', i)
  217. i += 1
  218. if i <= ARRSIZE('expensive'):jump 'loopexpensive'
  219. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  220. gs 'clothing', 'clothwidth'
  221. end
  222. if $ARGS[2] = 'moncheri':
  223. $ward_list_store = $ARGS[2]
  224. i = 1
  225. :loopformal
  226. if formal[i] = 1 and formalS[i] = cloc and ($clothingworntype ! 'formal' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'formal', i)
  227. i += 1
  228. if i <= ARRSIZE('formal'):jump 'loopformal'
  229. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  230. gs 'clothing', 'clothwidth'
  231. end
  232. if $ARGS[2] = 'sexshop':
  233. $ward_list_store = $ARGS[2]
  234. i = 1
  235. :loopfetish
  236. if fetish[i] = 1 and fetishS[i] = cloc and ($clothingworntype ! 'fetish' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fetish', i)
  237. i += 1
  238. if i <= ARRSIZE('fetish'):jump 'loopfetish'
  239. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  240. gs 'clothing', 'clothwidth'
  241. i = 1
  242. :loopburlesque
  243. if burlesque[i] = 1 and burlesqueS[i] = cloc and ($clothingworntype ! 'burlesque' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'burlesque', i)
  244. i += 1
  245. if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
  246. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  247. gs 'clothing', 'clothwidth'
  248. end
  249. if $ARGS[2] = 'exhibitshop':
  250. $ward_list_store = $ARGS[2]
  251. i = 1
  252. :loopexhibit
  253. if exhibit[i] = 1 and exhibitS[i] = cloc and ($clothingworntype ! 'exhibit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exhibit', i)
  254. i += 1
  255. if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
  256. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  257. gs 'clothing', 'clothwidth'
  258. end
  259. if $ARGS[2] = 'dolls':
  260. cla
  261. $ward_list_store = $ARGS[2]
  262. i = 1
  263. :loopalternative
  264. if alternative[i] = 1 and alternativeS[i] = cloc and ($clothingworntype ! 'alternative' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'alternative', i)
  265. i += 1
  266. if i <= ARRSIZE('alternative'):jump 'loopalternative'
  267. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  268. gs 'clothing', 'clothwidth'
  269. end
  270. if $ARGS[2] = 'sports':
  271. $ward_list_store = $ARGS[2]
  272. i = 1
  273. :loopexercise
  274. if exercise[i] = 1 and exerciseS[i] = cloc and ($clothingworntype ! 'exercise' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exercise', i)
  275. i += 1
  276. if i <= ARRSIZE('exercise'):jump 'loopexercise'
  277. act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  278. gs 'clothing', 'clothwidth'
  279. end
  280. '</table>'
  281. end
  282. end
  283. if $ARGS[0] = 'clothwidth':
  284. act 'Set image size for this view':
  285. Enable_clothwidth = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
  286. if Enable_clothwidth < 50:
  287. Enable_clothwidth = 50
  288. elseif Enable_clothwidth > 500:
  289. Enable_clothwidth = 500
  290. end
  291. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  292. end
  293. end
  294. if $ARGS[0] = 'view_clothing_item':
  295. !! ARGS 0 - view_clothing_item
  296. !! ARGS 1 = action type (wardrobe, shop, sell, resize)
  297. !! ARGS 2 - clothing type
  298. !! ARGS 3 - clothing index
  299. !! ARGS 4 - price for shop
  300. cla
  301. '<center><img src="<<FUNC(''$clothing_image'', $ARGS[2], ARGS[3])>>"></center>'
  302. gs 'clothing_attributes', $ARGS[2], ARGS[3]
  303. $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
  304. $RESULT += '<<ARGS[3]>>'
  305. '<<$RESULT>>'
  306. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  307. gs 'clothing_descriptions'
  308. '<<$description>>'
  309. else
  310. FUNC('$clothing_name', $ARGS[2], ARGS[3])
  311. end
  312. if CloBimbo = 1 and cheatbimbo = 0:'This item is considered bimbo clothing.'
  313. if CloStyle = 4:'This outfit can be used for prostitution.'
  314. if CloInhibit + 10 > pcs_inhib and CloInhibit <= pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
  315. if $ARGS[2] = 'uniform':
  316. if CloStyle2 = 1:
  317. 'This outfit is considered to be a maid uniform.'
  318. elseif CloStyle2 = 3:
  319. 'This is a stripper outfit.'
  320. else
  321. 'This outfit is a server uniform, suitable for jobs that require one.'
  322. end
  323. end
  324. if $ARGS[2] = 'school':
  325. if CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
  326. '<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
  327. elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
  328. '<font color="blue">This uniform slightly breaches the school regulations on skirt length.</font>'
  329. else
  330. '<font color="red">This uniform makes a mockery of the school uniform regulations.</font>'
  331. end
  332. end
  333. if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'school' or ARGS[3] ! 6):
  334. $RESULT = '(strength '
  335. dynamic '$RESULT += <<$ARGS[2]>>H[<<ARGS[3]>>]'
  336. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  337. $RESULT += ', hip size '
  338. dynamic '$RESULT += <<$ARGS[2]>>B[<<ARGS[3]>>]'
  339. end
  340. $RESULT += ')'
  341. '<<$RESULT>>'
  342. end
  343. if $ARGS[1] = 'shop':
  344. if dyneval('RESULT = <<$ARGS[2]>>[<<ARGS[3]>>]') = 1:
  345. 'You already own this item.'
  346. act 'Leave': gt $loc, $metka
  347. else
  348. if $ARGS[2] = 'coat' and ARGS[3] = 5:
  349. price = ARGS[4]
  350. else
  351. price = ('<<ARGS[4]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
  352. price = price / 50 * 50
  353. end
  354. 'Price: <<price>> <b>₽</b>'
  355. act 'Leave': gt $loc, $metka
  356. if CloInhibit > pcs_inhib:
  357. 'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
  358. elseif money >= Price:
  359. act 'Buy':
  360. h = 0
  361. if CloStyle = 2:h = 10
  362. if CloStyle = 5:h = 20
  363. h += (3 * CloQuality)
  364. money -= price
  365. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
  366. if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
  367. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 70 + <<h>>'
  368. elseif $ARGS[2] = 'average':
  369. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 90 + <<h>>'
  370. elseif $ARGS[2] = 'formal':
  371. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 15 + <<h>>'
  372. elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'burlesque':
  373. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 35 + <<h>>'
  374. elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
  375. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 120 + <<h>>'
  376. elseif $ARGS[2] = 'exercise':
  377. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 100 + <<h>>'
  378. elseif $ARGS[2] = 'coat':
  379. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 250 + <<h>>'
  380. else
  381. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] = 60 + <<h>>'
  382. end
  383. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  384. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  385. gt $loc, $metka
  386. end
  387. else
  388. 'You cannot afford this outfit.'
  389. end
  390. end
  391. elseif $ARGS[1] = 'wardrobe':
  392. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  393. if $ARGS[2] ! 'school' or ARGS[3] ! 6:
  394. !! if the clothing is worn out
  395. if dyneval('RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]') <= 0:
  396. 'This item is worn and is not suitable for further wear.'
  397. if pcs_sewng >= 60 and tkan > 0:
  398. cla
  399. 'You can repair this thanks to your sewing skill.'
  400. act 'Repair item':
  401. if rand (1, 100) < 30:
  402. cla
  403. tkan -= 1
  404. minut += 30
  405. dynamic $ARGS[2] + 'H[<<ARGS[3]>>] += 30'
  406. 'You spend 30 minutes fixing the outfit.'
  407. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  408. else
  409. cla
  410. tkan += 3
  411. minut += 30
  412. dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
  413. 'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
  414. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
  415. end
  416. end
  417. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  418. end
  419. exit
  420. end
  421. !! if the clothing is a type that checks for hip size
  422. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  423. !! if the hipsize is too far from your hipsize
  424. dynamic 'RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]'
  425. if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
  426. if RESULT < pcs_hips:
  427. 'This item is too small for you to wear.'
  428. else
  429. 'This item is too large for you to wear.'
  430. end
  431. if pcs_sewng >= 60 and tkan > 0:
  432. cla
  433. 'You can resize this thanks to your sewing skill.'
  434. act 'Resize item':
  435. cla
  436. tkan -= 1
  437. minut += 30
  438. dynamic $ARGS[2] + 'B[<<ARGS[3]>>] = pcs_hips'
  439. 'You spend 30 minutes resizing the outfit.'
  440. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  441. end
  442. act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  443. end
  444. exit
  445. end
  446. end
  447. end
  448. if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
  449. if CloInhibit > pcs_inhib:
  450. 'You don''t feel daring enough to wear an outfit this revealing.'
  451. elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
  452. 'You lost these clothes somewhere, maybe you can find them again?.'
  453. else
  454. act 'Wear':
  455. gs 'clothing', 'wear', $ARGS[2], ARGS[3]
  456. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  457. end
  458. end
  459. end
  460. elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
  461. act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  462. if $ARGS[2] ! 'coat':
  463. act 'Move back to wardrobe':
  464. dynamic $ARGS[2] + 'S[<<ARGS[3]>>] = 0'
  465. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  466. end
  467. end
  468. elseif $ARGS[1] = 'sell':
  469. $ward_list_page = $ARGS[1]
  470. act 'Keep item':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  471. !! value is based on the strength remaining
  472. dynamic 'RESULT = <<$ARGS[2]>>H[<<ARGS[3]>>]'
  473. if RESULT > 45:
  474. 'You can sell this item for 500 <b>₽</b>.'
  475. act 'Sell':
  476. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  477. money += 500
  478. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  479. end
  480. elseif RESULT > 30:
  481. 'You can sell this item for 300 <b>₽</b>.'
  482. act 'Sell':
  483. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  484. money += 300
  485. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  486. end
  487. elseif RESULT > 0:
  488. 'You can sell this item for 100 <b>₽</b>.'
  489. act 'Sell':
  490. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  491. money += 100
  492. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  493. end
  494. else
  495. 'This item is too worn to have any sale value.'
  496. act 'Throw it away':
  497. dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
  498. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  499. end
  500. end
  501. elseif $ARGS[1] = 'resize':
  502. act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  503. if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
  504. if dyneval('RESULT = <<$ARGS[2]>>B[<<ARGS[3]>>]') ! pcs_hips and money >= 500:
  505. 'You can have this resized for 500 <b>₽</b>.'
  506. act 'Resize':
  507. money -= 500
  508. dynamic '<<$ARGS[2]>>B[<<ARGS[3]>>] = pcs_hips'
  509. gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
  510. end
  511. end
  512. end
  513. end
  514. end
  515. if $ARGS[0] = 'strip':
  516. !$ARGS[1] = location when stripping outdoors
  517. if $clothingworntype = 'nude': exit
  518. cumspclnt = 6
  519. gs 'cum_cleanup'
  520. if cloth_vid = 1:
  521. last_vid = 1
  522. else
  523. last_vid = 0
  524. end
  525. if $clothingworntype = 'school':schtype = clothingwornnumber
  526. if $ARGS[1] ! '' :
  527. DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$ARGS[1]>>'
  528. $CloLosLoc[] = $ARGS[1]
  529. $CloLosTyp[$ARGS[1]] = $clothingworntype
  530. CloLosNum[$ARGS[1]] = clothingwornnumber
  531. CloLosDay[$ARGS[1]] = daystart
  532. KILLVAR '$lastwornclothingtype'
  533. KILLVAR 'lastwornclothingnumber'
  534. else
  535. $lastwornclothingtype = $clothingworntype
  536. lastwornclothingnumber = clothingwornnumber
  537. end
  538. $clothingworntype = 'nude'
  539. clothingwornnumber = 0
  540. CloQuality = 0
  541. CloThinness = 0
  542. CloTopCut = 0
  543. CloBra = 0
  544. CloPantsShortness = 0
  545. CloSkirtShortness = 0
  546. CloPanties = 0
  547. CloStyle = 0
  548. CloStyle2 = 0
  549. CloBimbo = 0
  550. PShoQuaility = 0
  551. PShoCut = 0
  552. PShoHeels = 0
  553. PShoStyle = 0
  554. PCloQuality = 0
  555. PCloThinness = 0
  556. PCloTopCut = 0
  557. PCloPants = 0
  558. PCloSkirt = 0
  559. PCloStyle = 0
  560. PCloStyle2 = 0
  561. PCloBimbo = 0
  562. PCloInhibit = 0
  563. PXCloThinness = 0
  564. PXCloTopCut = 0
  565. PXCloSkirtShortness = 0
  566. PXCloPantsShortness = 0
  567. glamur = 0
  568. sport = 0
  569. ski = 0
  570. ofclo = 0
  571. sexual = 0
  572. odevnesh = 0
  573. ! WD: Bimbo look
  574. cloth_vid = 0
  575. exhibiHideNewCloth = 0
  576. end
  577. if $ARGS[0] = 'recover_lost_clothes':
  578. !$ARGS[1] = location
  579. !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
  580. $cloLoc = $ARGS[1]
  581. cloAction = ARGS[2]
  582. $clothType = $CloLosTyp[$cloLoc]
  583. clothNumber = CloLosNum[$cloLoc]
  584. dayLost = CloLosDay[$cloLoc]
  585. DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
  586. findLocInd = ARRPOS('$CloLosTyp', $clothType)
  587. KILLVAR '$CloLosTyp', findLocInd
  588. findLocInd = ARRPOS('CloLosNum', clothNumber)
  589. KILLVAR 'CloLosNum', findLocInd
  590. findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
  591. KILLVAR 'CloLosDay', findLocInd
  592. findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
  593. KILLVAR '$CloLosLoc', findLocationIndex
  594. KILLVAR 'findLocInd'
  595. if cloAction = 1:
  596. gs 'clothing', 'wear', $clothType, clothNumber
  597. elseif cloAction = 2 :
  598. dynamic $clothType + 'S[<<clothNumber>>] = 1'
  599. end
  600. KILLVAR '$cloLoc'
  601. KILLVAR 'cloAction'
  602. KILLVAR '$clothType'
  603. KILLVAR 'clothNumber'
  604. end
  605. if $ARGS[0] = 'wear':
  606. !! ARGS 0 - action
  607. !! ARGS 1 - clothing type name
  608. !! ARGS 2 - clothing index
  609. gs 'clothing', 'strip'
  610. $clothingworntype = $ARGS[1]
  611. clothingwornnumber = ARGS[2]
  612. dynamic $ARGS[1] + 'W[<<ARGS[2]>>] = 1'
  613. if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
  614. gs 'clothing_descriptions'
  615. else
  616. FUNC('$clothing_name', $ARGS[1], ARGS[2])
  617. end
  618. gs 'clothing_attributes', $ARGS[1], ARGS[2]
  619. dynamic '<<$ARGS[1]>>S[<<ARGS[2]>>] = 0'
  620. PCloQuality = CloQuality
  621. PCloThinness = CloThinness
  622. PCloTopCut = CloTopCut
  623. PCloBra = CloBra
  624. PCloPants = CloPantsShortness
  625. PCloSkirt = CloSkirtShortness
  626. PCloPanties = CloPanties
  627. PCloStyle = CloStyle
  628. PCloStyle2 = CloStyle2
  629. PCloInhibit = CloInhibit
  630. if cheatbimbo = 0:
  631. PCloBimbo = CloBimbo
  632. if CloBimbo = 1:bimbocl = 1
  633. else
  634. PCloBimbo = 0
  635. bimbocl = 0
  636. end
  637. if PCloTopCut > 1:
  638. if tits = 2 or tits = 3:PCloTopCut += 1
  639. if tits = 4 or tits = 5:PCloTopCut += 2
  640. if tits >= 6:PCloTopCut += 3
  641. end
  642. !Calculations for clothing beauty, multiplied by natural beauty
  643. if PCloThinness > 0:
  644. if PCloThinness = 1:
  645. PXCloThinness = 25
  646. elseif PCloThinness = 2:
  647. PXCloThinness = 50
  648. elseif PCloThinness = 3:
  649. PXCloThinness = 100
  650. elseif PCloThinness = 4:
  651. PXCloThinness = 150
  652. elseif PCloThinness = 5:
  653. PXCloThinness = 200
  654. elseif PCloThinness = 6:
  655. PXCloThinness = 300
  656. elseif PCloThinness >= 7:
  657. PXCloThinness = 400
  658. end
  659. end
  660. if PCloTopCut > 0:
  661. if PCloTopCut = 1:
  662. PXCloTopCut = 25
  663. elseif PCloTopCut = 2:
  664. PXCloTopCut = 50
  665. elseif PCloTopCut = 3:
  666. PXCloTopCut = 100
  667. elseif PCloTopCut = 4:
  668. PXCloTopCut = 150
  669. elseif PCloTopCut = 5:
  670. PXCloTopCut = 200
  671. elseif PCloTopCut = 6:
  672. PXCloTopCut = 300
  673. elseif PCloTopCut >= 7:
  674. PXCloTopCut = 400
  675. end
  676. end
  677. if PCloBra = 1:
  678. PXCloTopCut = 400
  679. elseif PCloBra = 2:
  680. PXCloTopCut = 500
  681. end
  682. if PCloSkirt > 0:
  683. if PCloSkirt = 1:
  684. PXCloSkirtShortness = 25
  685. elseif PCloSkirt = 2:
  686. PXCloSkirtShortness = 50
  687. elseif PCloSkirt = 3:
  688. PXCloSkirtShortness = 100
  689. elseif PCloSkirt = 4:
  690. PXCloSkirtShortness = 150
  691. elseif PCloSkirt = 5:
  692. PXCloSkirtShortness = 200
  693. elseif PCloSkirt = 6:
  694. PXCloSkirtShortness = 300
  695. elseif PCloSkirt >= 7:
  696. PXCloSkirtShortness = 400
  697. end
  698. end
  699. if PCloPants > 0:
  700. if PCloPants = 1:
  701. PXCloPantsShortness = 25
  702. elseif PCloPants = 2:
  703. PXCloPantsShortness = 50
  704. elseif PCloPants = 3:
  705. PXCloPantsShortness = 100
  706. elseif PCloPants = 4:
  707. PXCloPantsShortness = 150
  708. elseif PCloPants = 5:
  709. PXCloPantsShortness = 200
  710. elseif PCloPants = 6:
  711. PXCloPantsShortness = 300
  712. elseif PCloPants >= 7:
  713. PXCloPantsShortness = 400
  714. end
  715. end
  716. if PCloPanties = 1: PXCloPantsShortness = 400
  717. end
  718. if $ARGS[0] = 'wear_last_worn':
  719. gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
  720. end
  721. --- clothing ---------------------------------