# shoes !!This is the main file for shoes, like clothes but for your feet. $shoe_list_line = { !! a single line in a shoe list (shoe rack, etc) !! ARGS 0 - action type (shoe rack, sell, store, forsale) !! ARGS 1 - shoe type !! ARGS 2 - shoe index gs 'themes', 'clothing', 1 $RESULT = '' if Enable_clothwidth > 0: shoe_temp = Enable_clothwidth - 1 else shoe_temp = 75 & !shoe widdefault to 75 end $RESULT +='' killvar 'shoe_temp' gs 'shoe_attributes', $ARGS[1], ARGS[2] gs 'shoe_description2', $ARGS[2] $RESULT += '<> <><<$description>>' if ShoStyle = 2: $RESULT += 'Yes' else $RESULT += 'No' end if ShoStyle = 1: $RESULT += 'Yes' else $RESULT += 'No' end $RESULT += 'View' $RESULT += '' if sloc ! 1:$RESULT += ' Storage
' if sloc ! 0:$RESULT += ' Wardrobe
' if sloc ! 2:$RESULT += ' Unwanted' $RESULT += '' } if $ARGS[0] = 'dest0': *clr dynamic 'S<<$ARGS[2]>>S[<>] = 0' gt 'shoes', 'view_shoe_list', $ARGS[1] end if $ARGS[0] = 'dest1': *clr dynamic 'S<<$ARGS[2]>>S[<>] = 1' gt 'shoes', 'view_shoe_list', $ARGS[1] end if $ARGS[0] = 'dest2': *clr dynamic 'S<<$ARGS[2]>>S[<>] = 2' gt 'shoes', 'view_shoe_list', $ARGS[1] end if $ARGS[0] = 'view_shoe_list': !! ARGS 0 - view_shoe_list !! ARGS 1 - action type (wardrobe, storage, unwanted, sell) !! ARGS 2 - brothel flag (brothel) $regularwornshoetype = '' act 'Return':gt 'wardrobe', 'start' if $ARGS[1] ! 'sell' :'
Wardrobe StorageUnwanted
' if $ARGS[1] ! 'sell' : '
Select shoes to wear *Bonus to attractiveness only applied in wardrobe and outdoors.
' if $shoeworntype ! 'none': act 'Remove shoes': gs 'shoes', 'strip' gt 'shoes', 'view_shoe_list', $ARGS[1] end end end if $ARGS[1] = 'wardrobe': sloc = 0 end if $ARGS[1] = 'store': sloc = 1 end if $ARGS[1] = 'unwanted': sloc = 2 end $bgcolor='#f3f4ee' '
' i = 1 :loopsmoncheri if smoncheri[i] = 1 and smoncheriS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'moncheri', i) i += 1 if i <= 37:jump 'loopsmoncheri' i = 1 :loopsbomba if sbomba[i] = 1 and sbombaS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'bomba', i) i += 1 if i <= 27:jump 'loopsbomba' i = 1 :loopsdolls if sdolls[i] = 1 and sdollsS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i) i += 1 if i <= 27:jump 'loopsdolls' i = 1 :loopsfetish if sfetish[i] = 1 and sfetishS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'fetish', i) i += 1 if i <= 27:jump 'loopsfetish' i = 1 :loopsgm if sgm[i] = 1 and sgmS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'gm', i) i += 1 if i <= 51:jump 'loopsgm' i = 1 :loopsdanilovich if sdanilovich[i] = 1 and sdanilovichS[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'danilovich', i) i += 1 if i <= 29:jump 'loopsdanilovich' '
ShoeDescriptionBimboStripperActions
' end if $ARGS[0] = 'moncheri': *P FUNC('$attributes_moncheri_shoes', $ARGS[0], ARGS[1]) elseif $ARGS[0] = 'bomba': *P FUNC('$attributes_bomba_shoes', $ARGS[0], ARGS[1]) elseif $ARGS[0] = 'dolls': *P FUNC('$attributes_dolls_shoes', $ARGS[0], ARGS[1]) elseif $ARGS[0] = 'fetish': *P FUNC('$attrib_shoe_fetish', $ARGS[0], ARGS[1]) elseif $ARGS[0] = 'gm': *P FUNC('$attributes_gm_shoes', $ARGS[0], ARGS[1]) elseif $ARGS[0] = 'danilovich': *P FUNC('$attributes_danilovich_shoes', $ARGS[0], ARGS[1]) end if $ARGS[0] = 'gym': if $regularwornshoetype = '': $regularwornshoetype = $shoeworntype regularwornshoenumber = shoewornnumber end '
' i = 1 :loopsdanilovich2 if sdanilovich[i] = 1 and sdanilovichS[i] = 0:'' i += 1 if i <= 29:jump 'loopsdanilovich2' act 'Return': gt $loc, $loc_arg if $shoeworntype ! $regularwornshoetype: gs 'shoes', 'gym2' end if $ARGS[0] = 'gym2': act 'Put your regular shoes back on': $shoeworntype = $regularwornshoetype shoewornnumber = regularwornshoenumber killvar '$regularwornshoetype' killvar 'regularwornshoenumber' gt 'shoes', 'gym' end end if $ARGS[0] = 'view_shoe_item': !! ARGS 0 - view_shoe_item !! ARGS 1 = action type (wardrobe, shop, sell) !! ARGS 2 - shoes type !! ARGS 3 - shoes index !! ARGS 4 - price for shop cla '
' gs 'shoe_attributes', $ARGS[2], ARGS[3] FUNC('$shoe_description', $ARGS[2]) + '<>' *nl gs 'shoe_description2', $ARGS[2] '<<$description>>' *nl if ShoStyle = 1:'This shoe is considered stripper style and most suitable for stripping or whoring.' if ShoStyle = 2:'This shoe is considered bimbo style and makes your mind drift toward sexual thoughts.' if ShoStyle = 3:'This shoe is considered alternative style and makes you feel more assertive and aggressive.' if $ARGS[1] = 'shop': if dyneval('RESULT = S<<$ARGS[2]>>[<>]') = 1: 'You already own these shoes.' act 'Leave': gt $loc, $loc_arg else price = ('<>' * ((5 * ShoQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2 price = price / 50 * 50 'Price: <> ' act 'Leave': gt $loc, $loc_arg if money >= Price: act 'Buy (cash)': h = 0 if ShoStyle = 2:h = 10 if ShoStyle = 5:h = 20 h += (3 * ShoQuality) money -= price dynamic 'S<<$ARGS[2]>>[<>] = 1' gt $loc, $loc_arg end else 'You do not have enough cash to buy these shoes.' end if karta + bankDebtLimit >= price: act 'Buy (card)': h = 0 if ShoStyle = 2:h = 10 if ShoStyle = 5:h = 20 h += (3 * ShoQuality) karta -= price dynamic 'S<<$ARGS[2]>>[<>] = 1' gt $loc, $loc_arg end else 'You do not have enough money in your bank to buy these shoes.' end end elseif $ARGS[1] = 'wardrobe': if $regularwornshoetype = '': act 'Leave in closet':gt 'shoes', 'view_shoe_list', $ARGS[1] else act 'Return': gt 'shoes', 'gym' end act 'Wear': gs 'shoes', 'wear', $ARGS[2], ARGS[3] if $regularwornshoetype = '': gt 'wardrobe', 'start' else gt 'shoes', 'gym' end end elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted': act 'Return':gt 'shoes', 'view_shoe_list', $ARGS[1] end end if $ARGS[0] = 'strip': if $shoesworntype = 'none': exit $shoelastworntype = $shoeworntype shoelastwornnumber = shoewornnumber $shoeworntype = 'none' shoewornnumber = 0 ShoQuality = 0 ShoHeels = 0 ShoCut = 0 ShoStyle = 0 PShoQuality = 0 PShoHeels = 0 PShoCut = 0 PShoStyle = 0 end if $ARGS[0] = 'setup': end if $ARGS[0] = 'wear': !! ARGS 0 - action !! ARGS 1 - shoe type name !! ARGS 2 - shoe index if $ARGS[0] = 'last_worn': $shoeworntype = $shoelastworntype shoewornnumber = shoelastwornnumber else $shoeworntype = $ARGS[1] shoewornnumber = ARGS[2] end if $shoeworntype = 'none': PShoQuaility = 0 PShoCut = 0 PShoHeels = 0 PShoStyle = 0 exit end gs 'shoe_attributes', $ARGS[1], ARGS[2] dynamic '<<$ARGS[1]>>S[<>] = 0' PShoQuality = ShoQuality PShoHeels = ShoHeels PShoCut = ShoCut PShoStyle = ShoStyle !Calculations for shoes beauty, multiplied by natural beauty if PShoHeels > 0: if PShoHeels = 1: PXShoHeels = 25 elseif PShoHeels = 2: PXShoHeels = 50 elseif PShoHeels = 3: PXShoHeels = 100 elseif PShoHeels = 4: PXShoHeels = 150 elseif PShoHeels = 5: PXShoHeels = 200 elseif PShoHeels = 6: PXShoHeels = 300 elseif PShoHeels >= 7: PXShoHeels = 400 end end end --- shoes ---------------------------------