123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037 |
- # clothing
- !!2021/05/06
- if $ARGS[0] = 'totals':
- !!sets the number of items in clothing sets
- if $ARGS[1] = 'gm_outfits':
- total = 200
- elseif $ARGS[1] = 'gm_dress':
- total = 300
- elseif $ARGS[1] = 'gm_office':
- total = 40
- elseif $ARGS[1] = 'gm_maid':
- total = 40
- elseif $ARGS[1] = 'gm_server':
- total = 30
- elseif $ARGS[1] = 'gm_school':
- total = 62
- elseif $ARGS[1] = 'allure_swimsuit':
- total = 100
- elseif $ARGS[1] = 'allure_bikinis':
- total = 140
- elseif $ARGS[1] = 'coco_dress':
- total = 300
- elseif $ARGS[1] = 'coco_outfits':
- total = 160
- elseif $ARGS[1] = 'dolls_dress':
- total = 120
- elseif $ARGS[1] = 'dolls_outfits':
- total = 80
- elseif $ARGS[1] = 'fancy_burlesque':
- total = 40
- elseif $ARGS[1] = 'fashionista_dress':
- total = 40
- elseif $ARGS[1] = 'fashionista_outfits':
- total = 40
- end
- end
- menu_off = 1
- $clothing_list_line = {
- !! a single line in a clothing list (wardrobe, etc)
- !! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
- !! ARGS 1 - clothing type
- !! ARGS 2 - clothing index
- gs 'themes', 'clothing'
- $RESULT = '<TR bgcolor='+$temp_bcolor+'>'
- if Enable_clothwidth > 0:
- clothing_temp = Enable_clothwidth - 1
- else
- clothing_temp = 100 & !clothing widdefault to 100
- end
- $RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[1]>>'', <<ARGS[2]>>, ''0'', ''<<$ARGS[0]>>''"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="<<clothing_temp>>"></a></TD>'
- killvar 'clothing_temp'
- $swimwear_description = ''
- gs 'clothing_attributes', $ARGS[1], ARGS[2]
- if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
- $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>_h[<<ARGS[2]>>]' + '</TD>'
- if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
- $RESULT += '<TD>' + dyneval '$RESULT += <<$ARGS[1]>>_b[<<ARGS[2]>>]' + '</TD>'
- else
- $RESULT += '<TD></TD>'
- end
- else
- $RESULT += '<TD colspan="2"></TD>'
- end
- if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
- $RESULT += '<TD>A hessian sack the hunters gave you.</TD>'
- elseif $swimwear_description = '':
- gs 'clothing_descriptions'
- $RESULT += '<TD><<FUNC(''$short_description'', $ARGS[1])>> <<ARGS[2]>><BR/><<$description>></TD>'
- else
- $RESULT += '<TD>' + $swimwear_description + '</TD>'
- end
- $RESULT += '<TD>'
- if CloBimbo = 1: $RESULT += '<img src="images/system/icons/clothing/bimbo.png"><BR>'
- if CloStyle = 4: $RESULT += '<img src="images/system/icons/clothing/prostitute.png"><BR>'
- if CloStyle2 = 3: $RESULT += '<img src="images/system/icons/clothing/stripper.png">'
- $RESULT += '</TD>'
- if $ARGS[0] ! 'resize':
- if dyneval('RESULT = <<$ARGS[1]>>_s[<<ARGS[2]>>]') = 0:
- $RESULT += '<TD><center><img src="images/system/icons/clothing/wardrobe.png"></center></TD>'
- else
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''dest0'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/wardrobe_off.png"></a></center></TD>'
- end
- if dyneval('RESULT = <<$ARGS[1]>>_s[<<ARGS[2]>>]') = 1:
- $RESULT += '<TD><center><img src="images/system/icons/clothing/storage.png"></center></TD>'
- else
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/storage_off.png"></a></center></TD>'
- end
- if dyneval('RESULT = <<$ARGS[1]>>_s[<<ARGS[2]>>]') = 2:
- $RESULT += '<TD><center><img src="images/system/icons/clothing/unwanted.png"></center></TD>'
- else
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''dest2'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/unwanted_off.png"></a></center></TD>'
- end
-
- if ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6) and dyneval('RESULT = <<$ARGS[1]>>_h[<<ARGS[2]>>]') <= 0 and pcs_sewng >= 60 and mc_inventory['sewing_fabric'] > 0:
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''qrepair'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/repair.png"></a></center></TD>'
- else
- $RESULT += '<TD><center><img src="images/system/icons/clothing/repair_off.png"></center></TD>'
- end
-
- if pcs_sewng >= 50 and money >= 500 and (dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') < pcs_hips - 8 or dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') > pcs_hips + 8):
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''qresize'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/resize.png"></a></center></TD>'
- else
- $RESULT += '<TD><center><img src="images/system/icons/clothing/resize_off.png"></center></TD>'
- end
-
- if ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6):
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''qdelete'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/delete_on.png"></a></center></TD>'
- end
- else
- $RESULT += '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
- if pcs_sewng >= 50 and mc_inventory['sewing_fabric'] > 0 and (dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') < pcs_hips - 8 or dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') > pcs_hips + 8):
- $RESULT += '<TD><center><a href="exec:gt ''clothing'', ''tresize'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>> "><img src="images/system/icons/clothing/resize.png"></a></center></TD>'
- else
- $RESULT += '<TD><center><img src="images/system/icons/clothing/resize_off.png"></center></TD>'
- end
- end
- }
- !!_s, 0 = wardrobe, 1 = storage, 2 = unwanted
- if $ARGS[0] = 'dest0':
- *clr
- dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 0'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'dest1':
- *clr
- dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 1'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'dest2':
- *clr
- dynamic '<<$ARGS[2]>>_s[<<ARGS[3]>>] = 2'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'qresize':
- *clr
- mc_inventory['sewing_fabric'] -= 1
- minut += 30
- dynamic '<<$ARGS[2]>>_b[<<ARGS[3]>>] = pcs_hips'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'qrepair':
- *clr
- if rand (1, 100) < 30:
- mc_inventory['sewing_fabric'] -= 1
- minut += 30
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] += 30'
- else
- mc_inventory['sewing_fabric'] += 3
- minut += 30
- dynamic $ARGS[2] + '[<<ARGS[3]>>] = 0'
- end
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'qdelete':
- *clr
- dynamic '<<$ARGS[2]>>[<<ARGS[3]>>] = 0'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'tresize':
- *clr
- minut += 5
- money -= 500
- dynamic '<<$ARGS[2]>>_b[<<ARGS[3]>>] = pcs_hips'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- if $ARGS[0] = 'view_clothing_list':
- if $wloc = '': $wloc = 'default1'
- !! ARGS 0 - view_clothing_list
- !! ARGS 1 - action type (wardrobe, resize)
- !! ARGS 2 - Shop name (kats, moncheri, gm, etc)
-
- if $ARGS[1] = 'wardrobe':
- $ward_list_page = $ARGS[1]
- '<center><table><TH><a href="exec:gt ''wardrobe'', ''main''"><img src="images/system/icons/clothing/clothes.png" height="50"></TH><TH><a href="exec:gt ''wardrobe'', $wloc"><img src="images/system/icons/clothing/default.png" height="50"></a></TH><TH><b>Your Wardrobe</b></TH></table></center>'
- if $wardrobeDefaultPagePref = 'viewClothing':
- $wardrobeSetDefault = '<a href="exec: $wardrobeDefaultPagePref = '''' & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Unset as default wardrobe page</a>'
- else
- $wardrobeSetDefault = '<a href="exec: $wardrobeDefaultPagePref = ''viewClothing'' & gt ''clothing'', ''view_clothing_list'', ''wardrobe''">Set here as default wardrobe page</a>'
- end
- !! '''' Colour code correction for editor
- '<center><<$wardrobeSetDefault>></center>'
- killvar '$wardrobeSetDefault'
- elseif $ARGS[1] = 'resize':
- $ward_list_page = $ARGS[1]
- '<h3><center><b><font color="maroon">Choose item/s to resize</font></b></center></h3>'
- end
- '<center><b><font color="maroon">Choose to view all or select by shop</font></b></center>'
- *nl
- '<center><TH><a href="exec:gt ''clothing'', ''clothing_list'', ''all''"><img src="images/system/icons/clothing/all_outfits.png"></a></TH></center>'
- if ARRSIZE('gm_outfits') > 0 or ARRSIZE('gm_dress') > 0:'<center><a href="exec:$ward_list_store = ''gm'' & gt ''clothing'', ''clothing_list'', ''gm''"><img src="images/locations/city/citycenter/mall/gm.png"></a></center>'
- if ARRSIZE('gm_school') > 0:'<center><a href="exec:$ward_list_store = ''gm_school'' & gt ''clothing'', ''clothing_list'', ''gm_school''"><img src="images/pc/items/gm/school.png"></a></center>'
- if ARRSIZE('gm_office') > 0:'<center><a href="exec:$ward_list_store = ''gm_office'' & gt ''clothing'', ''clothing_list'', ''gm_office''"><img src="images/pc/items/gm/officewear.png"></a></center>'
- if ARRSIZE('gm_maid') > 0:'<center><a href="exec:$ward_list_store = ''gm_maid'' & gt ''clothing'', ''clothing_list'', ''gm_maid''"><img src="images/pc/items/gm/maid.png"></a></center>'
- if ARRSIZE('gm_server') > 0:'<center><a href="exec:$ward_list_store = ''gm_server'' & gt ''clothing'', ''clothing_list'', ''gm_server''"><img src="images/pc/items/gm/server.png"></a></center>'
- if ARRSIZE('misc_outfits') > 0:'<center><a href="exec:$ward_list_store = ''misc'' & gt ''clothing'', ''clothing_list'', ''misc''"><img src="images/pc/items/misc/misc.png"></a></center>'
- if ARRSIZE('cats_outfits') > 0 or ARRSIZE('cats_dress') > 0:'<center><a href="exec:$ward_list_store = ''cats'' & gt ''clothing'', ''clothing_list'', ''cats''"><img src="images/locations/city/citycenter/mall/pussycat.png"></a></center>'
- if ARRSIZE('flamingos_outfits') > 0 or ARRSIZE('flamingos_dress') > 0:'<center><a href="exec:$ward_list_store = ''flamingos'' & gt ''clothing'', ''clothing_list'', ''flamingos''"><img src="images/locations/city/island/flamingos/shop_name.png"></a></center>'
- if ARRSIZE('coco_outfits') > 0 or ARRSIZE('coco_dress') > 0:'<center><a href="exec:$ward_list_store = ''coco'' & gt ''clothing'', ''clothing_list'', ''coco''"><img src="images/locations/pavlovsk/coco/shop_name.png"></a></center>'
- if ARRSIZE('fashionista_dress') > 0 or ARRSIZE('fashionista_outfits') > 0:'<center><a href="exec:$ward_list_store = ''fashionista'' & gt ''clothing'', ''clothing_list'', ''fashionista''"><img src="images/locations/city/citycenter/mall/fashionista.png"></a></center>'
- if ARRSIZE('moncheri_gown') > 0 or ARRSIZE('moncheri_dress') > 0:'<center><a href="exec:$ward_list_store = ''moncheri'' & gt ''clothing'', ''clothing_list'', ''moncheri''"><img src="images/locations/city/citycenter/mall/moncheri.png"></a></center>'
- if ARRSIZE('scandalicious_outfits') > 0 or ARRSIZE('scandalicious_dress') > 0:'<center><a href="exec:$ward_list_store = ''scandalicious'' & gt ''clothing'', ''clothing_list'', ''scandalicious''"><img src="images/locations/city/citycenter/mall/scandalicious.png"></a></center>'
- if ARRSIZE('scandalicious_bikinis') > 0 or ARRSIZE('scandalicious_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''scandalicious_swimwear'' & gt ''clothing'', ''clothing_list'', ''scandalicious_swimwear''"><img src="images/locations/city/citycenter/mall/scandalicious_swimwear.png"></a></center>'
- if ARRSIZE('allure_bikinis') > 0 or ARRSIZE('allure_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''allure'' & gt ''clothing'', ''clothing_list'', ''allure''"><img src="images/locations/pavlovsk/commercial/allure/shop_name.png"></a></center>'
- if ARRSIZE('fancy_burlesque') > 0:'<center><a href="exec:$ward_list_store = ''fancypancy'' & gt ''clothing'', ''clothing_list'', ''fancypancy''"><img src="images/locations/pushkin/fancypancy/shop_name.png"></a></center>'
- if ARRSIZE('eroto_dress') > 0 or ARRSIZE('eroto_outfits') > 0 or ARRSIZE('eroto_strip') > 0:'<center><a href="exec:$ward_list_store = ''sexshop'' & gt ''clothing'', ''clothing_list'', ''sexshop''"><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></a></center>'
- if ARRSIZE('salacious_outfits') > 0 or ARRSIZE('salacious_dress') > 0:'<center><a href="exec:$ward_list_store = ''exhibitshop'' & gt ''clothing'', ''clothing_list'', ''exhibitshop''"><img src="images/locations/pushkin/exhibitshop/shop_name.png"></a></center>'
- if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'<center><a href="exec:$ward_list_store = ''dolls'' & gt ''clothing'', ''clothing_list'', ''dolls''"><img src="images/locations/city/island/dolls/shop_name.png"></a></center>'
- if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'<center><a href="exec:$ward_list_store = ''bomba'' & gt ''clothing'', ''clothing_list'', ''bomba''"><img src="images/locations/pushkin/bomba/shop_name.png"></a></center>'
- if ARRSIZE('nerdvana_outfits') > 0 or ARRSIZE('nerdvana_cosplay') > 0 or ARRSIZE('nerdvana_bikinis') > 0 or ARRSIZE('nerdvana_swimsuit') > 0:'<center><a href="exec:$ward_list_store = ''nerdvana'' & gt ''clothing'', ''clothing_list'', ''nerdvana''"><img src="images/locations/city/island/nerdvana/shop_name.png"></a></center>'
- if ARRSIZE('danilovich_outfits') > 0:'<center><a href="exec:$ward_list_store = ''sports'' & gt ''clothing'', ''clothing_list'', ''sports''"><img src="images/locations/city/citycenter/mall/sports.png"></a></center>'
- if ARRSIZE('materinstvo_dress') > 0:'<center><a href="exec:$ward_list_store = ''materinstvo'' & gt ''clothing'', ''clothing_list'', ''materinstvo''"><img src="images/locations/city/citycenter/mall/mommy.png"></a></center>'
- if ARRSIZE('market_outfits') > 0:'<center><a href="exec:$ward_list_store = ''market'' & gt ''clothing'', ''clothing_list'', ''market''"><img src="images/pc/items/market/market.png"></a></center>'
- act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
- act 'Your Clothes': gt 'wardrobe', 'main'
- act 'Your sets': gt 'wardrobe', $wloc
- end
- if $ARGS[0] = 'clothing_list':
- $ward_list_file = 'clothing'
- if $args[1] = 'all':
- $ward_list_store = 'all'
- gs 'clothing_QV', 'filter_header'
- gs 'clothing', 'clothinglist_header'
- !!For filtering all clothes
- clo_i = 0
- :loopfilter_all
- end
- if $args[1] = 'gm' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- if $ward_list_page = 'wardrobe':
- gs 'clothing', 'clothinglist_header'
- end
- !!To filter just this set
- clo_i = 0
- :loopgm_filter
- end
- i = 1
- :loopgm_outfits
- if gm_outfits[i] = 1 and ($clothingworntype ! 'gm_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
- i = 1
- :loopgm_dress
- if gm_dress[i] = 1 and ($clothingworntype ! 'gm_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopgm_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopgm_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'gm_office' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/gm/officewear.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopgm_office_filter
- end
- i = 1
- :loopoffice
- if gm_office[i] = 1 and ($clothingworntype ! 'gm_office' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_office', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_office', i)
- end
- end
- i += 1
- if i <= ARRSIZE('gm_office'):jump 'loopoffice'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopgm_office_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopgm_office_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'gm_maid' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/gm/maid.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopgm_maid_filter
- end
- i = 1
- :loopgm_maid
- if gm_maid[i] = 1 and ($clothingworntype ! 'gm_maid' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_maid', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_maid', i)
- end
- end
- i += 1
- if i <= ARRSIZE('gm_maid'):jump 'loopgm_maid'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopgm_maid_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopgm_maid_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'gm_server' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/gm/server.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopgm_server_filter
- end
- i = 1
- :loopgm_server
- if gm_server[i] = 1 and ($clothingworntype ! 'gm_server' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_server', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_server', i)
- end
- end
- i += 1
- if i <= ARRSIZE('gm_server'):jump 'loopgm_server'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopgm_server_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopgm_server_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'gm_school' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/gm/school.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopgm_school_filter
- end
- if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and ($clothingworntype ! 'gm_school' or clothingwornnumber ! 6):
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_school', 6)
- end
- i = 1
- :loopschool
- if gm_school[i] = 1 and ($clothingworntype ! 'gm_school' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'gm_school', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_school', i)
- end
- end
- i += 1
- if i = 6: i = 7
- if i <= ARRSIZE('gm_school'):jump 'loopschool'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopgm_school_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopgm_school_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'misc' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/misc/misc.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopmisc_filter
- end
- i = 1
- :loopmisc_outfits
- if misc_outfits[i] = 1 and ($clothingworntype ! 'misc_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'misc_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'misc_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('misc_outfits'):jump 'loopmisc_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopmisc_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopmisc_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'cats' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopcats_filter
- end
- i = 1
- :loopcats_outfits
- if cats_outfits[i] = 1 and ($clothingworntype ! 'cats_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'cats_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'cats_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
- i = 1
- :loopcats_dress
- if cats_dress[i] = 1 and ($clothingworntype ! 'cats_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'cats_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'cats_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopcats_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopcats_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'flamingos' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/island/flamingos/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopflamingos_filter
- end
- i = 1
- :loopflamingos_dress
- if flamingos_dress[i] = 1 and ($clothingworntype ! 'flamingos_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'flamingos_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'flamingos_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
- i = 1
- :loopflamingos_outfits
- if flamingos_outfits[i] = 1 and ($clothingworntype ! 'flamingos_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'flamingos_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'flamingos_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopflamingos_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopflamingos_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'coco' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/pavlovsk/coco/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopcoco_filter
- end
- i = 1
- :loopcoco_dress
- if coco_dress[i] = 1 and ($clothingworntype ! 'coco_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'coco_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'coco_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
- i = 1
- :loopcoco_outfits
- if coco_outfits[i] = 1 and ($clothingworntype ! 'coco_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'coco_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'coco_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopcoco_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopcoco_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'fashionista' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopfashionista_filter
- end
- i = 1
- :loopfashionista_dress
- if fashionista_dress[i] = 1 and ($clothingworntype ! 'fashionista_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'fashionista_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fashionista_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('fashionista_dress'):jump 'loopfashionista_dress'
- i = 1
- :loopfashionista_outfits
- if fashionista_outfits[i] = 1 and ($clothingworntype ! 'fashionista_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'fashionista_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fashionista_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('fashionista_outfits'):jump 'loopfashionista_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopfashionista_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopfashionista_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'moncheri' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/moncheri.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopmoncheri_filter
- end
- i = 1
- :loopmoncheri_dress
- if moncheri_dress[i] = 1 and ($clothingworntype ! 'moncheri_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'moncheri_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'moncheri_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('moncheri_dress'):jump 'loopmoncheri_dress'
- i = 1
- :loopmoncheri_gown
- if moncheri_gown[i] = 1 and ($clothingworntype ! 'moncheri_gown' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'moncheri_gown', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'moncheri_gown', i)
- end
- end
- i += 1
- if i <= ARRSIZE('moncheri_gown'):jump 'loopmoncheri_gown'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopmoncheri_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopmoncheri_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'scandalicious' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/scandalicious.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopscandalicious_filter
- end
- i = 1
- :loopscandalicious_dress
- if scandalicious_dress[i] = 1 and ($clothingworntype ! 'scandalicious_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'scandalicious_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('scandalicious_dress'):jump 'loopscandalicious_dress'
- i = 1
- :loopscandalicious_outfits
- if scandalicious_outfits[i] = 1 and ($clothingworntype ! 'scandalicious_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'scandalicious_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('scandalicious_outfits'):jump 'loopscandalicious_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopscandalicious_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopscandalicious_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'scandalicious_swimwear' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopscandalicious_swim_filter
- end
- i = 1
- :loopscandalicious_bikinis
- if scandalicious_bikinis[i] = 1 and ($clothingworntype ! 'scandalicious_bikinis' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'scandalicious_bikinis', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_bikinis', i)
- end
- end
- i += 1
- if i <= ARRSIZE('scandalicious_bikinis'):jump 'loopscandalicious_bikinis'
- $ward_list_store = $args[1]
- i = 1
- :loopscandalicious_swimsuit
- if scandalicious_swimsuit[i] = 1 and ($clothingworntype ! 'scandalicious_swimsuit' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'scandalicious_swimsuit', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_swimsuit', i)
- end
- end
- i += 1
- if i <= ARRSIZE('scandalicious_swimsuit'):jump 'loopscandalicious_swimsuit'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopscandalicious_swim_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopscandalicious_swim_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'allure' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopallure_filter
- end
- i = 1
- :loopallure_bikinis
- if allure_bikinis[i] = 1 and ($clothingworntype ! 'allure_bikinis' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'allure_bikinis', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'allure_bikinis', i)
- end
- end
- i += 1
- if i <= ARRSIZE('allure_bikinis'):jump 'loopallure_bikinis'
- $ward_list_store = $args[1]
- i = 1
- :loopallure_swimsuit
- if allure_swimsuit[i] = 1 and ($clothingworntype ! 'allure_swimsuit' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'allure_swimsuit', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'allure_swimsuit', i)
- end
- end
- i += 1
- if i <= ARRSIZE('allure_swimsuit'):jump 'loopallure_swimsuit'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopallure_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopallure_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'fancypancy' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/pushkin/fancypancy/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopfancy_filter
- end
- i = 1
- :loopfancy_burlesque
- if fancy_burlesque[i] = 1 and ($clothingworntype ! 'fancy_burlesque' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'fancy_burlesque', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fancy_burlesque', i)
- end
- end
- i += 1
- if i <= ARRSIZE('fancy_burlesque'):jump 'loopfancy_burlesque'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopfancy_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopfancy_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'sexshop' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :looperoto__filter
- end
- i = 1
- :looperoto_dress
- if eroto_dress[i] = 1 and ($clothingworntype ! 'eroto_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'eroto_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('eroto_dress'):jump 'looperoto_dress'
- $ward_list_store = $args[1]
- i = 1
- :looperoto_outfits
- if eroto_outfits[i] = 1 and ($clothingworntype ! 'eroto_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'eroto_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('eroto_outfits'):jump 'looperoto_outfits'
- $ward_list_store = $args[1]
- i = 1
- :looperoto_strip
- if eroto_strip[i] = 1 and ($clothingworntype ! 'eroto_strip' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'eroto_strip', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_strip', i)
- end
- end
- i += 1
- if i <= ARRSIZE('eroto_strip'):jump 'looperoto_strip'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'looperoto__filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'looperoto__filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'exhibitshop' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/pushkin/exhibitshop/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopsalacious_filter
- end
- i = 1
- :loopsalacious_dress
- if salacious_dress[i] = 1 and ($clothingworntype ! 'salacious_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'salacious_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'salacious_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('salacious_dress'):jump 'loopsalacious_dress'
- $ward_list_store = $args[1]
- i = 1
- :loopsalacious_outfits
- if salacious_outfits[i] = 1 and ($clothingworntype ! 'salacious_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'salacious_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'salacious_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('salacious_outfits'):jump 'loopsalacious_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopsalacious_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopsalacious_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'dolls' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/island/dolls/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopdolls_filter
- end
- i = 1
- :loopdolls_outfits
- if dolls_outfits[i] = 1 and ($clothingworntype ! 'dolls_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'dolls_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'dolls_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
- $ward_list_store = $args[1]
- i = 1
- :loopdolls_dress
- if dolls_dress[i] = 1 and ($clothingworntype ! 'dolls_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'dolls_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'dolls_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopdolls_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopdolls_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'bomba' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/pushkin/bomba/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopbomba_filter
- end
- i = 1
- :loopbomba_outfits
- if bomba_outfits[i] = 1 and ($clothingworntype ! 'bomba_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'bomba_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'bomba_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
- i = 1
- :loopbomba_dress
- if bomba_dress[i] = 1 and ($clothingworntype ! 'bomba_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'bomba_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'bomba_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopbomba_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopbomba_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'nerdvana' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/island/nerdvana/shop_name.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopnerdvana_filter
- end
- i = 1
- :loopnerdvana_outfits
- if nerdvana_outfits[i] = 1 and ($clothingworntype ! 'nerdvana_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'nerdvana_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('nerdvana_outfits'):jump 'loopnerdvana_outfits'
- i = 1
- :loopnerdvana_cosplay
- if nerdvana_cosplay[i] = 1 and ($clothingworntype ! 'nerdvana_cosplay' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'nerdvana_cosplay', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_cosplay', i)
- end
- end
- i += 1
- if i <= ARRSIZE('nerdvana_cosplay'):jump 'loopnerdvana_cosplay'
- i = 1
- :loopnerdvana_bikinis
- if nerdvana_bikinis[i] = 1 and ($clothingworntype ! 'nerdvana_bikinis' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'nerdvana_bikinis', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_bikinis', i)
- end
- end
- i += 1
- if i <= ARRSIZE('nerdvana_bikinis'):jump 'loopnerdvana_bikinis'
- $ward_list_store = $args[1]
- i = 1
- :loopnerdvana_swimsuit
- if nerdvana_swimsuit[i] = 1 and ($clothingworntype ! 'nerdvana_swimsuit' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'nerdvana_swimsuit', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_swimsuit', i)
- end
- end
- i += 1
- if i <= ARRSIZE('nerdvana_swimsuit'):jump 'loopnerdvana_swimsuit'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopnerdvana_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopnerdvana_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
-
- if $args[1] = 'sports' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- if clothingfilter['sport'] = 1: '<center>Displaying despite sport filter being active</center>'
- '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopdanilovich_outfits_filter
- end
- i = 1
- :loopdanilovich_outfits
- if danilovich_outfits[i] = 1 and ($clothingworntype ! 'danilovich_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'danilovich_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'danilovich_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('danilovich_outfits'):jump 'loopdanilovich_outfits'
- i = 1
- :loopdanilovich_swimsuit
- if danilovich_swimsuit[i] = 1:
- gs 'clothing_attributes', 'danilovich_swimsuit', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'danilovich_swimsuit', i)
- end
- end
- i += 1
- if i <= ARRSIZE('danilovich_swimsuit'):jump 'loopdanilovich_swimsuit'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopdanilovich_outfits_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopdanilovich_outfits_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'market' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/pc/items/market/market.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopmarket_outfits_filter
- end
- i = 1
- :loopmarket_outfits
- if market_outfits[i] = 1 and ($clothingworntype ! 'market_outfits' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'market_outfits', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'market_outfits', i)
- end
- end
- i += 1
- if i <= ARRSIZE('market_outfits'):jump 'loopmarket_outfits'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopmarket_outfits_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopmarket_outfits_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'materinstvo' or $args[1] = 'all':
- if $args[1] ! 'all':
- $ward_list_store = $args[1]
- '<center><img src="images/locations/city/citycenter/mall/mommy.png"></center>'
- gs 'clothing_QV', 'filter_header', 'store'
- gs 'clothing', 'clothinglist_header'
- !!To filter just this set
- clo_i = 0
- :loopmaterinstvo_dress_filter
- end
- i = 1
- :loopmaterinstvo_dress
- if materinstvo_dress[i] = 1 and ($clothingworntype ! 'materinstvo_dress' or clothingwornnumber ! i):
- gs 'clothing_attributes', 'materinstvo_dress', i
- gs 'clothing_QV', 'clo_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'materinstvo_dress', i)
- end
- end
- i += 1
- if i <= ARRSIZE('materinstvo_dress'):jump 'loopmaterinstvo_dress'
- if $args[1] ! 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopmaterinstvo_dress_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopmaterinstvo_dress_filter'
- end
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- if $args[1] = 'all':
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopfilter_all'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
- jump 'loopfilter_all'
- end
- act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
- gs 'clothing', 'clothwidth'
- end
- '</table>'
- killvar '$temp_bcolor'
- end
- if $ARGS[0] = 'clothinglist_header':
- '<table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Strength</TH><TH>Hip size</TH><TH>Description</TH><TH>Specials</TH><TH>Wardrobe</TH><TH>Storage</TH><TH>Unwanted (Sell)</TH><TH>Attempt Repair (0:30)</TH><TH>Resize(0:30)</TH><TH>Throw Out</TH>'
- end
- if $ARGS[0] = 'clothwidth':
- act 'Set image size for this view':
- Enable_clothwidth = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
- if Enable_clothwidth < 50:
- Enable_clothwidth = 50
- elseif Enable_clothwidth > 500:
- Enable_clothwidth = 500
- end
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- end
- if $ARGS[0] = 'view_clothing_item':
- !! ARGS 0 - view_clothing_item
- !! ARGS 1 - clothing type
- !! ARGS 2 - clothing index
- !! ARGS 3 - price for shop
- !! ARGS 4 = action type (wardrobe, shop, sell, resize)
- $swimwear_description = ''
- cla
- '<center><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>"></center>'
- gs 'clothing_attributes', $ARGS[1], ARGS[2]
- if CloTopCut > 1:
- if tits = 2 or tits = 3: CloTopCut += 1
- if tits >= 4: CloTopCut += 2
- if CloTopCut > 2 and tits >=6: CloTopCut += 1
- end
- $RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
- $RESULT += '<<ARGS[2]>>'
- '<<$RESULT>>'
- if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
- 'A hessian sack the hunters gave you.'
- elseif $swimwear_description = '':
- gs 'clothing_descriptions'
- '<<$description>>'
- if hypnoClothes > 0 and ((CloStyle2 = 4 and CloThinness >= 3) _
- or (($ARGS[1] = 'eroto_outfits' or $ARGS[1] = 'eroto_dress' or $ARGS[1] = 'eroto_strip') and CloThinness >= 4) _
- or CloThinness >= 6 or $ARGS[1] = 'salacious_outfits' or $ARGS[1] = 'salacious_dress'): _
- nl & '<I>You have a strange feeling about this outfit. You <b>really</b> want to wear it.</i>'
- else
- $swimwear_description
- end
- if CloBimbo = 1 and cheatbimbo = 0:'This item is considered bimbo clothing.'
- if CloStyle = 4:'This outfit can be used for prostitution.'
- if CloInhibit > 10:
- 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.'
- end
- !!CloStyle2: 1 Maid, 2 Server, 3 Stripper, 4 School
- if CloStyle2 = 1: 'This is a maid outfit.'
- if CloStyle2 = 2: 'This outfit is a server uniform.'
- if CloStyle2 = 3: 'This outfit is a stripper uniform, suitable for jobs that require one.'
- if CloStyle2 = 4: gs 'clothing', 'school_check'
- if $ARGS[4] ! 'shop' and ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6):
- $RESULT = '(strength '
- dynamic '$RESULT += <<$ARGS[1]>>_h[<<ARGS[2]>>]'
- if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
- $RESULT += ', hip size '
- dynamic '$RESULT += <<$ARGS[1]>>_b[<<ARGS[2]>>]'
- end
- $RESULT += ')'
- '<<$RESULT>>'
- end
- if $ARGS[4] = 'shop':
- if dyneval('RESULT = <<$ARGS[1]>>[<<ARGS[2]>>]') = 1:
- 'You already own this item.'
- act 'Leave': gt $loc, $loc_arg
- else
- if $ARGS[1] = 'coat' and ARGS[2] = 5:
- price = ARGS[3]
- else
- price = ('<<ARGS[3]>>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
- price = price / 50 * 50
- end
- 'Price: <<price>> <b>₽</b>'
- act 'Leave': gt $loc, $loc_arg
- if CloInhibit > pcs_inhib:
- 'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
- elseif karta + bankDebtLimit < Price and money < Price:
- 'You cannot afford this outfit.'
- else
- if money >= Price:
- act 'Buy (cash)':
- h = 0
- if CloStyle = 2:h = 10
- if CloStyle = 5:h = 20
- h += (3 * CloQuality)
- money -= price
- gs 'clothing', 'view_clothing_item_buy', $ARGS[4], $ARGS[1], ARGS[2], ARGS[3]
- end
- end
- if karta + bankDebtLimit >= Price:
- act 'Buy (card)':
- h = 0
- if CloStyle = 2:h = 10
- if CloStyle = 5:h = 20
- h += (3 * CloQuality)
- karta -= price
- gs 'clothing', 'view_clothing_item_buy', $ARGS[4], $ARGS[1], ARGS[2], ARGS[3]
- end
- end
- end
- end
- elseif $ARGS[4] = 'wardrobe':
- act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
- !! if the clothing is worn out
- if dyneval('RESULT = <<$ARGS[1]>>_h[<<ARGS[2]>>]') <= 0:
- 'This item is worn and is not suitable for further wear.'
- if pcs_sewng >= 60 and mc_inventory['sewing_fabric'] > 0:
- cla
- 'You can repair this thanks to your sewing skill.'
- act 'Repair item':
- if rand (1, 100) < 30:
- *clr
- cla
- mc_inventory['sewing_fabric'] -= 1
- minut += 30
- dynamic $ARGS[1] + '_h[<<ARGS[2]>>] += 30'
- '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
- 'You spend 30 minutes fixing the outfit.'
- act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- else
- *clr
- cla
- mc_inventory['sewing_fabric'] += 3
- minut += 30
- dynamic $ARGS[1] + '[<<ARGS[2]>>] = 0'
- '<center><img <<$set_imgh>> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg"></center>'
- '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.'
- act 'Return': gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- end
- act 'Return': gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- exit
- end
- !! if the clothing is a type that checks for hip size
- if $ARGS[1] ! 'danilovich_outfits' and CloStyle ! 5:
- !! if the hipsize is too far from your hipsize
- dynamic 'RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]'
- if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
- if RESULT < pcs_hips:
- 'This item is too small for you to wear.'
- else
- 'This item is too large for you to wear.'
- end
- if pcs_sewng >= 50 and mc_inventory['sewing_fabric'] > 0:
- cla & *nl
- 'You can resize this thanks to your sewing skill.'
- act 'Resize item':
- cla
- mc_inventory['sewing_fabric'] -= 1
- minut += 30
- dynamic $ARGS[1] + '_b[<<ARGS[2]>>] = pcs_hips'
- 'You spend 30 minutes resizing the outfit.'
- act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- elseif $loc_arg = 'tailor':
- cla & *nl
- if money >= 500:
- 'You can pay to have this resized for (500 <b>₽</b>).'
- act 'Resize item':
- minut += 15
- money -= 500
- dynamic $ARGS[1] + '_b[<<ARGS[2]>>] = pcs_hips'
- *nl
- 'You hand the clothing over to the tailor who takes it into the back. Fifteen minutes later, he presents your clothing back to you, adjusted to fit you perfectly.'
- act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- else
- 'You cannot afford to have this resized.'
- end
- end
- exit
- end
- end
- end
- if $ARGS[1] ! 'danilovich_swimsuit' and $ARGS[1] ! 'scandalicious_bikinis' and $ARGS[1] ! 'scandalicious_swimsuit' and $ARGS[1] ! 'allure_bikinis' and $ARGS[1] ! 'allure_bikinis':
- if CloInhibit > pcs_inhib:
- 'You don''t feel daring enough to wear an outfit this revealing.'
- elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
- 'You lost these clothes somewhere, maybe you can find them again?.'
- else
- act 'Wear':
- gs 'clothing', 'wear', $ARGS[1], ARGS[2]
- gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
- end
- end
- end
- elseif $ARGS[4] = 'store' or $ARGS[4] = 'unwanted':
- act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- if $ARGS[1] ! 'coat':
- act 'Move back to wardrobe':
- dynamic $ARGS[1] + '_s[<<ARGS[2]>>] = 0'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- end
- elseif $ARGS[4] = 'sell':
- $ward_list_page = $ARGS[4]
- act 'Keep item':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- !! value is based on the strength remaining
- dynamic 'RESULT = <<$ARGS[1]>>_h[<<ARGS[2]>>]'
- if RESULT > 45:
- 'You can sell this item for 500 <b>₽</b>.'
- act 'Sell':
- dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
- money += 500
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- elseif RESULT > 30:
- 'You can sell this item for 300 <b>₽</b>.'
- act 'Sell':
- dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
- money += 300
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- elseif RESULT > 0:
- 'You can sell this item for 100 <b>₽</b>.'
- act 'Sell':
- dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
- money += 100
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- else
- 'This item is too worn to have any sale value.'
- act 'Throw it away':
- dynamic '<<$ARGS[1]>>[<<ARGS[2]>>] = 0'
- gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
- end
- end
- elseif $ARGS[4] = 'resize':
- act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
- if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
- if dyneval('RESULT = <<$ARGS[1]>>_b[<<ARGS[2]>>]') ! pcs_hips and money >= 500:
- 'You can have this resized for 500 <b>₽</b>.'
- act 'Resize':
- money -= 500
- dynamic '<<$ARGS[1]>>_b[<<ARGS[2]>>] = pcs_hips'
- gt 'clothing', 'view_clothing_list', 'resize'
- end
- end
- end
- end
- end
- if $args[0] = 'school_check':
- if CloInhibit <= 10:
- '<font color="blue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'
- elseif CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
- if CloInhibit >= 30 or CloTopCut = 4:
- '<font color="red">This uniform, despite meeting the school uniform regulations, is too risqué. Everybody in school will think that you''re a slut apart from the gopniks who will respect you for beating the school rules.</font>'
- elseif CloStyle = 2:
- '<font color="blue">This uniform follows the school regulation on skirt length but is of a style that only the Gopniks will approve of.</font>'
- elseif CloQuality >= 4:
- '<font color="blue">This uniform complies with the regulations and is of good quality. It would certainly help you with your standing with the cool kids and jocks.</font>'
- else
- '<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
- end
- elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
- if CloInhibit >= 35:
- '<font color="red">This uniform slightly breaches the school uniform regulations and it is too risqué. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
- elseif CloStyle = 2:
- '<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of a style that only the Gopniks will approve of.</font>'
- elseif CloQuality >= 4:
- '<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of good quality. Everybody apart from the nerds would approve of you wearing it.</font>'
- else
- '<font color="blue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it and they will respect you for beating the school rules.</font>'
- end
- else
- if PCloSkirt > 5:
- '<font color="red">This uniform is so short that it makes a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
- else
- '<font color="red">This uniform is too thin and that can expose underwear making a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
- end
- end
- end
- if $ARGS[0] = 'view_clothing_item_buy':
- dynamic $ARGS[2] + '[<<ARGS[3]>>] = 1'
- if $ARGS[2] = 'gm_outfits' or $ARGS[2] = 'gm_dress' or $ARGS[2] = 'gm_office':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 70 + <<h>>'
- elseif $ARGS[2] = 'cats_dress' or $ARGS[2] = 'cats_outfits' or $ARGS[2] = 'flamingos_dress' or $ARGS[2] = 'flamingos_outfits' or $ARGS[2] = 'coco_dress' or $ARGS[2] = 'coco_outfits' or $ARGS[2] = 'nerdvana_cosplay' or $ARGS[2] = 'nerdvana_outfits':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 90 + <<h>>'
- elseif $ARGS[2] = 'moncheri_gown' or $ARGS[2] = 'moncheri_dress':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 25 + <<h>>'
- elseif $ARGS[2] = 'eroto_dress' or $ARGS[2] = 'eroto_outfits' or $ARGS[2] = 'eroto_strip' or $ARGS[2] = 'salacious_outfits' or $ARGS[2] = 'salacious_dress' or $ARGS[2] = 'fancy_burlesque':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 40 + <<h>>'
- elseif $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_maid' or $ARGS[2] = 'gm_server':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 120 + <<h>>'
- elseif $ARGS[2] = 'danilovich_outfits':
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 100 + <<h>>'
- else
- dynamic $ARGS[2] + '_h[<<ARGS[3]>>] = 60 + <<h>>'
- end
- dynamic $ARGS[2] + '_b[<<ARGS[3]>>] = pcs_hips'
- dynamic $ARGS[2] + '_s[<<ARGS[3]>>] = 0'
- gs 'stat'
- if $ARGS[1] ! 'skip': gt $loc, $loc_arg
- end
- if $ARGS[0] = 'strip_all':
- $strip_loc = $ARGS[1]
- gs 'underwear', 'remove'
- gs 'clothing', 'strip', $strip_loc
- end
- if $ARGS[0] = 'dispose':
- dynamic $clothingworntype + '[<<clothingwornnumber>>] = 0'
- $lastwornclothingtype = 'none'
- lastwornclothingnumber = 0
- gs 'clothing', 'strip_code'
- end
- if $ARGS[0] = 'strip':
- !$strip_loc = location when stripping outdoors
- $strip_loc = $ARGS[1]
- if $clothingworntype = 'nude': exit
- cumspclnt = 6
- gs 'cum_cleanup'
- if PCloStyle2 = 4:
- $schbrand = $clothingworntype
- schtype = clothingwornnumber
- end
- if $strip_loc ! '' :
- DYNAMIC '$CloLos<<$clothingworntype>>[<<clothingwornnumber>>]=<<$strip_loc>>'
- $CloLosLoc[] = $strip_loc
- $CloLosTyp[$strip_loc] = $clothingworntype
- CloLosNum[$strip_loc] = clothingwornnumber
- CloLosDay[$strip_loc] = daystart
- KILLVAR '$lastwornclothingtype'
- KILLVAR 'lastwornclothingnumber'
- else
- $lastwornclothingtype = $clothingworntype
- lastwornclothingnumber = clothingwornnumber
- end
- killvar '$strip_loc'
- gs 'clothing', 'strip_code'
- end
- if $ARGS[0] = 'strip_code':
- $clothingworntype = 'nude'
- clothingwornnumber = 0
- CloQuality = 0
- CloThinness = 0
- CloTopCut = 0
- CloBra = 0
- CloPantsShortness = 0
- CloSkirtShortness = 0
- CloPanties = 0
- CloStyle = 0
- CloStyle2 = 0
- CloBimbo = 0
- CloOnePiece = 0
- PShoQuality = 0
- PShoCut = 0
- PShoHeels = 0
- PShoStyle = 0
- PCloDress = 0
- PCloPanties = 0
- PCloBra = 0
- PCloQuality = 0
- PCloThinness = 0
- PCloTopCut = 0
- PCloPants = 0
- PCloSkirt = 0
- PCloStyle = 0
- PCloStyle2 = 0
- PCloStyle3 = 0
- PCloBimbo = 0
- PCloInhibit = 0
- PCloOnePiece = 0
- PCloswimwear = 0
- PXCloThinness = 0
- PXCloTopCut = 0
- PXCloBottomShortness = 0
- PCloCoverTop = 4
- PCloCoverBack = 4
- PCloCoverFront = 4
- gs 'clothing', 'exposure_calc'
- end
- if $ARGS[0] = 'recover_lost_clothes':
- !$ARGS[1] = location
- !ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
- $cloLoc = $ARGS[1]
- cloAction = ARGS[2]
- $clothType = $CloLosTyp[$cloLoc]
- clothNumber = CloLosNum[$cloLoc]
- dayLost = CloLosDay[$cloLoc]
- DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <<clothingwornnumber>>'
- findLocInd = ARRPOS('$CloLosTyp', $clothType)
- KILLVAR '$CloLosTyp', findLocInd
- findLocInd = ARRPOS('CloLosNum', clothNumber)
- KILLVAR 'CloLosNum', findLocInd
- findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
- KILLVAR 'CloLosDay', findLocInd
- findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
- KILLVAR '$CloLosLoc', findLocInd
- KILLVAR 'findLocInd'
- if cloAction = 1:
- gs 'clothing', 'wear', $clothType, clothNumber
- elseif cloAction = 2 :
- dynamic $clothType + '_s[<<clothNumber>>] = 1'
- end
- KILLVAR '$cloLoc'
- KILLVAR 'cloAction'
- KILLVAR '$clothType'
- KILLVAR 'clothNumber'
- end
- if $ARGS[0] = 'wear':
- !! ARGS 0 - action
- !! ARGS 1 - clothing type name
- !! ARGS 2 - clothing index
- gs 'clothing', 'strip'
- $clothingworntype = $ARGS[1]
- clothingwornnumber = ARGS[2]
- dynamic $ARGS[1] + '_w[<<ARGS[2]>>] = 1'
- gs 'clothing_attributes', $ARGS[1], ARGS[2]
- if CloTopCut > 1:
- if tits = 2 or tits = 3: CloTopCut += 1
- if tits >= 4: CloTopCut += 2
- if CloTopCut > 2 and tits >=6: CloTopCut += 1
- end
- dynamic '<<$ARGS[1]>>_s[<<ARGS[2]>>] = 0'
- if CloStyle2 = 4:
- $schbrand = $clothingworntype
- schtype = clothingwornnumber
- end
- PCloQuality = CloQuality
- PCloThinness = CloThinness
- PCloTopCut = CloTopCut
- PCloBra = CloBra
- PCloOnePiece = CloOnePiece
- PCloPants = CloPantsShortness
- PCloSkirt = CloSkirtShortness
- PCloPanties = CloPanties
- PCloDress = CloDress
- PCloStyle = CloStyle
- PCloStyle2 = CloStyle2
- PCloStyle3 = CloStyle3
- PCloInhibit = CloInhibit
- if cheatbimbo = 0:
- PCloBimbo = CloBimbo
- end
- PCloCoverTop = CloCoverTop
- PCloCoverBack = CloCoverBack
- PCloCoverFront = CloCoverFront
- gs 'clothing', 'exposure_calc'
- !Calculations for clothing beauty, multiplied by natural beauty
- if PCloThinness > 0:
- if PCloThinness = 1:
- PXCloThinness = 150
- elseif PCloThinness = 2:
- PXCloThinness = 200
- elseif PCloThinness = 3:
- PXCloThinness = 250
- elseif PCloThinness = 4:
- PXCloThinness = 300
- elseif PCloThinness = 5:
- PXCloThinness = 350
- elseif PCloThinness = 6:
- PXCloThinness = 400
- end
- end
- if PCloTopCut > 0:
- if PCloTopCut = 1:
- PXCloTopCut = 100
- elseif PCloTopCut = 2:
- PXCloTopCut = 150
- elseif PCloTopCut = 3:
- PXCloTopCut = 200
- elseif PCloTopCut = 4:
- PXCloTopCut = 250
- elseif PCloTopCut = 5:
- PXCloTopCut = 300
- elseif PCloTopCut = 6:
- PXCloTopCut = 350
- elseif PCloTopCut >= 7:
- PXCloTopCut = 400
- end
- end
- if PCloBra = 1:
- PXCloTopCut = 400
- gs 'bras', 'remove'
- elseif PCloBra = 2:
- PXCloTopCut = 500
- end
- if PCloSkirt > 0:
- if PCloSkirt = 1:
- PXCloBottomShortness = 100
- elseif PCloSkirt = 2:
- PXCloBottomShortness = 150
- elseif PCloSkirt = 3:
- PXCloBottomShortness = 200
- elseif PCloSkirt = 4:
- PXCloBottomShortness = 250
- elseif PCloSkirt = 5:
- PXCloBottomShortness = 300
- elseif PCloSkirt = 6:
- PXCloBottomShortness = 350
- elseif PCloSkirt >= 7:
- PXCloBottomShortness = 400
- end
- end
- if PCloPants > 0:
- if PCloPants = 1:
- PXCloBottomShortness = 100
- elseif PCloPants = 2:
- PXCloBottomShortness = 150
- elseif PCloPants = 3:
- PXCloBottomShortness = 200
- elseif PCloPants = 4:
- PXCloBottomShortness = 250
- elseif PCloPants = 5:
- PXCloBottomShortness = 300
- elseif PCloPants = 6:
- PXCloBottomShortness = 350
- elseif PCloPants >= 7:
- PXCloBottomShortness = 400
- end
- end
- if PCloPanties = 1: PXCloBottomShortness = 400
- if $clothingworntype = 'danilovich_swimsuit' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis' or $clothingworntype = 'allure_swimsuit' or $clothingworntype = 'allure_bikinis' or $clothingworntype = 'nerdvana_swimsuit' or $clothingworntype = 'nerdvana_bikinis': PCloswimwear = 1
- end
- if $ARGS[0] = 'exposure_calc':
- CoverTop = (PCloCoverTop + PBraCover) - 4
- if CoverTop < 0: CoverTop = 0
- CoverBack = (PCloCoverBack + PPanCoverBack) - 4
- if CoverBack < 0: CoverBack = 0
- CoverFront = (PCloCoverFront + PPanCoverFront) - 4
- if CoverFront < 0: CoverFront = 0
- end
- if $ARGS[0] = 'wear_last_worn':
- !!contingency
- if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'
- gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
- end
- if $ARGS[0] = 'swamp_clothes':
- if ARGS[1] = 1:
- !hessian clothing to owned, sets size and equipped.
- misc_outfits[1] = 1
- misc_outfits_s[1] = 0
- misc_outfits_h[1] = 100
- misc_outfits_b[1] = pcs_hips
- swamp_clothes = 1
- gs 'clothing', 'wear', 'misc_outfits', 1
- end
- if ARGS[1] = 0:
- !hessian clothing no longer owned, but not unequipped.
- misc_outfits[1] = 0
- swamp_clothes = 0
- end
- end
- !! Used to get price of an outfit uses the variable "price"
- !! $ARGS[1] set to outfit type
- !! ARGS[2] for outfit number
- !! ARGS[3] the store base price
- if $ARGS[0] = 'get_price':
- gs 'clothing_attributes', '$ARGS[1]', ARGS[2]
- price = (ARGS[3] * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
- price = price / 50 * 50
- end
- !! use to buy outfit automatically, use with gosub
- !! $ARGS[1] = item_type
- !! ARGS[2] = item number
- !! ARGS[3] = store price
- !! $ARGS[4] = 'money' or 'karta' for payment type
- if $ARGS[0] = 'quick_buy':
- price = (ARGS[3] * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
- price = price / 50 * 50
- h = 0
- if CloStyle = 2:h = 10
- if CloStyle = 5:h = 20
- h += (3 * CloQuality)
- dynamic '<<$ARGS[4]>> -= price'
- gs 'clothing', 'view_clothing_item_buy', 'skip', $ARGS[1], ARGS[2], ARGS[3]
- end
- --- clothing ---------------------------------
|