{$CLEO}
Thread 'FASHION'
wait 1000 ms
1@ = 1

:INITIATE
3@ = 0
$HRMT1 = Pickup.Create(#CLOTHESP, 3, 340.654, 212.118, 11.437)   
$HOME1 = Pickup.Create(#CLOTHESP, 3, 418.867, -617.375, 15.259)

:SET_UP
wait 0 
if and
0214:   pickup $HOME1 picked_up
not Actor.Dead($PLAYER_ACTOR)
not Actor.Driving($PLAYER_ACTOR)
else_jump @SET_UP2      
3@ = 1
0169: set_fade_color 0 0 0 
0215: destroy_pickup $HOME1  
0215: destroy_pickup $HRMT1           
Player.CanMove($PLAYER_CHAR) = False  
fade 0 1000 
wait 1000
03E5: show_text_box 'CRD001A'
Actor.PutAt($PLAYER_ACTOR, 419.167, -617.975, 15.059)                
Actor.Angle($PLAYER_ACTOR) = 270.0 
wait 2000
fade 1 1000
Camera.SetPosition(422.5, -618.86, 15.61, 0.0, 0.0, 0.0)
Camera.PointAt(418.5, -617.46, 14.65, 2)       
jump @CHECK 
 
:SET_UP2
wait 0
if and
0214:   pickup $HRMT1 picked_up
not Actor.Dead($PLAYER_ACTOR)
not Actor.Driving($PLAYER_ACTOR)
else_jump @SET_UP
0169: set_fade_color 0 0 0 
0215: destroy_pickup $HOME1  
0215: destroy_pickup $HRMT1  
Player.CanMove($PLAYER_CHAR) = False 
fade 0 1000 
wait 1000
03E5: show_text_box 'CRD001A'   
Actor.PutAt($PLAYER_ACTOR, 342.637, 209.269, 11.437)                
Actor.Angle($PLAYER_ACTOR) = 45.0 
wait 2000
fade 1 1000
Camera.SetPosition(340.669, 211.859, 11.437, 0.0, 0.0, 0.0)         
Camera.PointAt(342.548, 209.230, 11.33, 2)                         

:CHECK 
wait 0
if 
Player.Defined($PLAYER_CHAR)
jf @CHECK
if                                                                                            
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER' // Street
jf @CHECK2
2@ = 1
jump @NONAME_1_92
:CHECK2
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER2' // Soiree
jf @CHECK3
2@ = 2
jump @NONAME_1_92 
:CHECK3
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER3' // Coveralls
jf @CHECK4
2@ = 3
jump @NONAME_1_92
:CHECK4
2@ = 4

:NONAME_1_92
wait 0
if 
fading 
jf @START
wait 0                                                                                              
jump @NONAME_1_92 

:START
wait 0
if 
05EE:   key_pressed 32 // Spacebar 
jf @CANCEL
03F0: enable_text_draw 0
03E6: remove_text_box
if or
not 3@ == 0
1@ == 1
jf @PAY
fade 0 1000
wait 1000   
if 
not 3@ == 0
jf @START2
camera.Restore_WithJumpCut
Actor.PutAt($PLAYER_ACTOR, 421.172, -618.361, 15.059)
0171: set_player $player_char z_angle_to 0.0  
wait 500
Player.CanMove($PLAYER_CHAR) = TRUE
wait 1000
fade 1 1000
1@ = 1
jump @INITIATE

:START2
camera.Restore_WithJumpCut
Actor.PutAt($PLAYER_ACTOR, 337.654, 212.118, 11.437)
0171: set_player $player_char z_angle_to 135.0   
wait 500
Player.CanMove($PLAYER_CHAR) = TRUE
wait 1000
fade 1 1000
1@ = 1
jump @INITIATE

:CANCEL                                                                                                     
wait 0
if 
00E1:   player 0 pressed_button 15 // RETURN
jf @GO
if 
2@ == 1
jf @CANCEL2
:C1
023C: load_special_actor 999 'PLAYER'
:C1_1
if 
823D: not special_actor 999 loaded 
else_jump @C1_2
wait 0 
jump @C1 
:C1_2
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER'
wait 0 
038B: load_requested_models
wait 0 
0353: refresh_actor $PLAYER_ACTOR  
wait 0 
0296: unload_special_actor 999
jump @PAID 

:CANCEL2    
wait 0
if 
2@ == 2
jf @CANCEL3      
:C2
023C: load_special_actor 999 'PLAYER2'
:C2_1
if 
823D: not special_actor 999 loaded 
else_jump @C2_2
wait 0 
jump @C2 
:C2_2
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER2'
wait 0 
038B: load_requested_models
wait 0 
0353: refresh_actor $PLAYER_ACTOR  
wait 0 
0296: unload_special_actor 999
jump @PAID  

:CANCEL3
wait 0
if 
2@ == 3
jf @CANCEL4
:C3
023C: load_special_actor 999 'PLAYER3'
:C3_1
if 
823D: not special_actor 999 loaded 
else_jump @C3_2
wait 0 
jump @C3 
:C3_2
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER3'
wait 0 
038B: load_requested_models
wait 0 
0353: refresh_actor $PLAYER_ACTOR  
wait 0 
0296: unload_special_actor 999
jump @PAID

:CANCEL4
wait 0
if 
2@ == 4
jf @GO
:C4
023C: load_special_actor 999 'PLAYER4'
:C4_1
if 
823D: not special_actor 999 loaded 
else_jump @C4_2
wait 0 
jump @C4 
:C4_2
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER4'
wait 0 
038B: load_requested_models
wait 0 
0353: refresh_actor $PLAYER_ACTOR  
wait 0 
0296: unload_special_actor 999
jump @PAID

:PAY
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER' // casual outfit
jf @P2
if
010A:   player $PLAYER_CHAR money > 300
jf @NOTENUF
0109: player $PLAYER_CHAR money += -300
jump @PAID
:P2
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER2' // suit outfit
jf @P3
if       
010A:   player $PLAYER_CHAR money > 3000
jf @NOTENUF
$OUTFIT1 = 1
0109: player $PLAYER_CHAR money += -3000  
jump @PAID
:P3
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER3' // overalls outfit
jf @P4
if
010A:   player $PLAYER_CHAR money > 1450
jf @NOTENUF
$OUTFIT2 = 1
0109: player $PLAYER_CHAR money += -1450  
jump @PAID
:P4
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER4' // golf outfit
jf @PAID
if
010A:   player $PLAYER_CHAR money > 2100
jf @NOTENUF
$OUTFIT3 = 1
0109: player $PLAYER_CHAR money += -2100
jump @PAID

:NOTENUF
00BA: print_big 'CRD022A' time 2000 style 5  // Not enough money!
jump @GO2

:PAID
wait 0
03F0: enable_text_draw 0
03E6: remove_text_box
fade 0 1000
wait 1000
if 
not 3@ == 0
jf @SHOPPER
Actor.PutAt($PLAYER_ACTOR, 421.172, -618.361, 15.059)
0171: set_player $player_char z_angle_to 0.0  
jump @SHOPPER2

:SHOPPER
Actor.PutAt($PLAYER_ACTOR, 337.654, 212.118, 11.437)
0171: set_player $player_char z_angle_to 135.0  

:SHOPPER2 
wait 500
camera.Restore_WithJumpCut
Player.CanMove($PLAYER_CHAR) = TRUE
wait 1000
fade 1 1000
1@ = 1
jump @INITIATE

:GO
if
05EE:   key_pressed 68  //  D
else_jump @GO2
jump @T1

:GO2
if
05EE:   key_pressed 65  // A
else_jump @START

:A1
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER' // casual outfit                  
jf @A2 

:WARDROBE
wait 0
if
not 3@ == 0
jf @NORM  
if
$OUTFIT3 == 1
jf @OUTFIT2
jump @L4_0

:OUTFIT2
wait 0
if
$OUTFIT2 == 1
jf @OUTFIT3
jump @L3_0

:OUTFIT3
jump @L2_0

:NORM
jump @L4_0   

:A2
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER2' // suit outfit
jf @A3      
jump @L1_0  
:A3
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER3' // overalls outfit
jf @A4               

:WARDROBE2
wait 0
if
not 3@ == 0
jf @NORM2  
if
$OUTFIT1 == 1
jf @OUTFIT4
jump @L2_0

:OUTFIT4
jump @L1_0

:NORM2
jump @L2_0          

:A4
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER4' // golf outfit
jf @START     ///

:WARDROBE3
wait 0
if
not 3@ == 0
jf @NORM3  
if
$OUTFIT2 == 1
jf @OUTFIT5
jump @L3_0

:OUTFIT5
if
$OUTFIT1 == 1
jf @OUTFIT6
jump @L2_0

:OUTFIT6
jump @L1_0

:NORM3
jump @L3_0

:T1
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER' // casual outfit                  
jf @T2
jump @L2_0
:T2
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER2' // suit outfit
jf @T3
jump @L3_0
:T3
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER3' // overalls outfit
jf @T4
jump @L4_0
:T4
if
0500: is_player_wearing $PLAYER_CHAR skin 'PLAYER4' // golf outfit
jf @START
jump @L1_0

// 1 Player - Casual Clothes
:L1_0
023C: load_special_actor 999 'PLAYER'
:L1_1
if 
823D: not special_actor 999 loaded 
else_jump @L1_2
wait 0 
023C: load_special_actor 999 'PLAYER'
jump @L1_1 
:L1_2   
03F0: enable_text_draw 0
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER'
wait 500
fade 1 500
if 
not 3@ == 0
jf @TEXT1
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD013C'
jump @DONE

:TEXT1
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD001B'
jump @DONE

// 2 Player2 - Formal Suit
:L2_0
if 
not 3@ == 0
jf @L2_0A
if
$OUTFIT1 == 1
else_jump @L3_0  

:L2_0A
023C: load_special_actor 999 'PLAYER2'  
:L2_1
if 
823D: not special_actor 999 loaded 
else_jump @L2_2
wait 0 
023C: load_special_actor 999 'PLAYER2'  
jump @L2_1 
:L2_2
03F0: enable_text_draw 0
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER2'
wait 500
fade 1 500
if 
not 3@ == 0
jf @TEXT2
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD018A'
jump @DONE

:TEXT2
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD002A'
jump @DONE

// 3  Player3 - Weekend Outfit
:L3_0  
if 
not 3@ == 0
jf @L3_0A
if
$OUTFIT2 == 1
else_jump @L4_0  

:L3_0A
023C: load_special_actor 999 'PLAYER3' 
:L3_1
if 
823D: not special_actor 999 loaded 
else_jump @L3_2
wait 0 
023C: load_special_actor 999 'PLAYER3'  
jump @L3_1 
:L3_2
03F0: enable_text_draw 0
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER3'
wait 500
fade 1 500
if 
not 3@ == 0
jf @TEXT3
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD019A'
jump @DONE

:TEXT3
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD013A'
jump @DONE

// 4 Player4 - Handyman
:L4_0
if 
not 3@ == 0
jf @L4_0A
if
$OUTFIT3 == 1
else_jump @L1_0      

:L4_0A
023C: load_special_actor 999 'PLAYER4' 
:L4_1
if 
823D: not special_actor 999 loaded 
else_jump @L4_2
wait 0 
023C: load_special_actor 999 'PLAYER4'
jump @L4_1 
:L4_2
03F0: enable_text_draw 0
fade 0 500
wait 500
0352: set_actor $PLAYER_ACTOR skin_to 'PLAYER4'
wait 500
fade 1 500
if 
not 3@ == 0
jf @TEXT4
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD019B'
jump @DONE

:TEXT4
0342: set_text_draw_centered 1
033E: display_text 320.0 390.5 gxt 'CRD013B' 
jump @DONE

// Done
:DONE
018C: play_sound 1 at 0.0 0.0 0.0
03E5: show_text_box 'CRD001A'
wait 0 
038B: load_requested_models
wait 0 
0353: refresh_actor $PLAYER_ACTOR  
wait 0 
0296: unload_special_actor 999
1@ += 1
if 
1@ == 5 // MAX + 1  //13
else_jump @START   
1@ = 1
jump @START