123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405 |
- # wardrobe
- if $ARGS[0] =
- PShoQuality = ShoQuality
- PShoHeels = ShoHeels
- PShoCut = ShoCut
- PShoStyle = ShoStyle
- $wloc =
- menu_off = 1
- gs
- if $sports_clothing_name =
- if $clothingworntype =
- gs
- gs
- end
- if ward_img_hgt = 0:ward_img_hgt = 150
-
-
- *p
- *P
- if defaultcoat = 0:
-
- else
-
- end
-
-
- if $braworntype !
-
- else
-
- end
-
- if $clothingworntype !
-
- else
-
- end
-
- if defaultcoat ! 0:
-
- else
-
- end
-
- *p
- *P
- if bag = 1:
-
- else
-
- end
-
-
- if $pantyworntype !
-
- else
-
- end
-
- if $shoeworntype !
-
- else
-
- end
-
- if bag = 1:
-
- else
-
- end
-
-
- if ($clothingworntype !
-
- else
-
- end
- *nl
-
-
-
- act
- act
- gs
- gs
- gs
- gs
- gt
- end
- act
- act
- act
- ward_img_hgt = input("Enter height in pixels you want for images on this page <br>(Default 150, min 50, max 500)")
- if ward_img_hgt < 50:
- ward_img_hgt = 50
- elseif ward_img_hgt > 500:
- ward_img_hgt = 500
- end
- gt
- end
- end
- if $ARGS[0] =
- gs
- gs
- gs
- gs
- gs
- defaultcoat = 0
- end
- !!---------------------------Oufit stuff----------------------------------
- if $ARGS[0] =
- gs
-
-
- *nl
-
-
-
-
-
-
-
- *nl
-
-
- if ARRSIZE(
- i = 0
- :loopdefclothing
-
- i += 1
- if i < ARRSIZE(
- end
-
-
- act
- act
-
- end
- if $ARGS[0] =
- gs
- default_entry = ARGS[1]
- gs
- if ARRPOS(
- msg
- else
- gs
- end
- if dyneval(
- gs
- if dyneval(
- gs
- if dyneval(
- gs
- if dyneval(
- $defpursetype[default_entry] =
- end
- $currentpursetype = $defpursetype[default_entry]
- currentpursenumber = defpursenumber[default_entry]
- if $currentpursetype =
- bag = 0
- else
- bag = 1
- end
- if dyneval(
- defaultcoat = defcoat[default_entry]
- !! default school girl uniform is always allowed to be worn if still in school
- if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] =
- cls
-
-
- act
- killvar
- gs
- gt
- end
- !! do not own this clothing anymore
- elseif dyneval(
- cls
-
-
- act
- gs
- killvar
- gs
- gt
- end
- !! strength of clothing is less than or equal to 0
- elseif dyneval(
-
- act
- gs
- killvar
- gs
- gt
- end
- !! clothing exhibition is greater than player exhibition
- elseif CloInhibit > pcs_inhib:
- cls
-
-
- act
- gs
- killvar
- gs
- gt
- end
- !! not exercise clothing, not coat, and not loose fitting
- elseif $defclothingtype[default_entry] !
- !! check for if the hipsize is too far from your hipsize
- dynamic
- if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
- cls
- iif(RESULT < pcs_hips - 8,
-
-
- act
- killvar
- gs
- gt
- end
- end
- !! clothing ok to wear without needing hip check and passing all other checks
- else
- cls
-
-
- act
- killvar
- gs
- gt
- end
- end
- end
- if $ARGS[0] =
- gs
- i = ARGS[1]
- $defclothingtype[i] = $clothingworntype
- defclothingnumber[i] = clothingwornnumber
- $defbratype[i] = $braworntype
- defbranumber[i] = brawornnumber
- $defpantytype[i] = $pantyworntype
- defpantynumber[i] = pantywornnumber
- $defshoetype[i] = $shoeworntype
- defshoenumber[i] = shoewornnumber
- $defpursetype[i] = $currentpursetype
- defpursenumber[i] = currentpursenumber
- defcoat[i] = defaultcoat
- $def_clothing_temp =
- $def_clothing_name[i] = input (
- if $def_clothing_name[i] =
- $def_clothing_name[i] =
- elseif $def_clothing_name[i] =
- $def_clothing_name[i] =
- end
- gt
- end
- if $ARGS[0] =
- gs
- i = ARGS[1]
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- killvar
- gt
- end
- !!-- sports outfit stuff
- if $ARGS[0] =
- gs
- if $clothingworntype !
- MSG
- gt
- else
- gs
- $sportsclothingtype = $clothingworntype
- sportsclothingnumber = clothingwornnumber
- $sportsbratype = $braworntype
- sportsbranumber = brawornnumber
- $sportspantytype = $pantyworntype
- sportspantynumber = pantywornnumber
- $sportsshoetype = $shoeworntype
- sportsshoenumber = shoewornnumber
- $sportspursetype = $currentpursetype
- sportspursenumber = currentpursenumber
- sportscoat = defaultcoat
- $sports_clothing_temp =
- $sports_clothing_name = input (
- if $sports_clothing_name =
- $sports_clothing_name =
- elseif $sports_clothing_name =
- $sports_clothing_name =
- end
- gt
- end
- end
- if $ARGS[0] =
- gs
- gs
- gs
- if ARRPOS(
- msg
- else
- gs
- end
- if dyneval(
- gs
- if dyneval(
- gs
- gs
- minut += 2
- gs
- !! do not own this clothing anymore
- if dyneval(
- cls
-
-
- gs
- !! strength of clothing is less than or equal to 0
- elseif dyneval(
-
- gs
- !! clothing exhibition is greater than player exhibition
- elseif CloInhibit > pcs_inhib:
- cls
-
-
- gs
- !! clothing ok to wear without needing hip check and passing all other checks
- else
- cls
-
-
- end
- act
- if $wloc =
- gt
- elseif $wloc =
- gt
- else
- gt $loc, $metka
- end
- end
- end
- if $ARGS[0] =
- gs
- if $clothingworntype !
- act
- end
- end
- --- wardrobe ---------------------------------
|