{$CLEO .cs}

0000:
while true
    wait 10
    if
        not Player.Defined($PLAYER_CHAR)
    then
        continue
    end
      gosub @Cheat_Skin_1
    
    
    end
return

:Cheat_Skin 
0353: refresh_actor $PLAYER_ACTOR
0512: show_permanent_text_box 'CHEAT1'
018C: play_sound 1 at 0.0 0.0 0.0
wait 700
03E6: remove_text_box
return 

:Cheat_Skin_1
if                  
0ADC:   test_cheat "TOMMYINTHERAIN"
then
0512: show_permanent_text_box 'CHEAT1'  
0352: set_actor $PLAYER_ACTOR skin_to 'TOMMYBR' 
gosub @Cheat_Skin
end
return  
