{$VERSION 3.1.0023}
{$CLEO .cs}

{
 0@ Library
 1@ GetTextureCount
 2@ ReplaceTextureByIndex
 3@ Player Pointer
 4@ Current Model
 5@ Current Texture
 6@ New Model / Texture
 7@ Max Textures
}

thread 'FACECHG' 

wait 0
wait 0
wait 0
wait 0
wait 0
wait 0

if
0AA2: 0@ = load_library "CLEO\extex.dll" // IF and SET
jf @END

if and
0AA4: 1@ = get_proc_address "GetTextureCount" library 0@ // IF and SET
0AA4: 2@ = get_proc_address "ReplaceTextureByIndex" library 0@ // IF and SET
jf @FREE

0006: 4@ = -1 

:LOOP
wait 0
if
056D:   actor $PLAYER_ACTOR defined 
jf @LOOP
0A96: 3@ = actor $PLAYER_ACTOR struct
if
8039:   not  3@ == 0 
jf @LOOP
000A: 3@ += 0x22 
0A8D: 6@ = read_memory 3@ size 2 virtual_protect 0
if
803B:   not  4@ == 6@ // (int) 
jf @KEEP_MODEL

if
8039:   not  4@ == -1 
jf @NO_RELEASE
if
0248:   model 4@ available 
jf @NO_RELEASE
0249: release_model 4@

:NO_RELEASE
0085: 4@ = 6@ // (int) 
0006: 5@ = 0
0006: 7@ = -1 

:KEEP_MODEL
if
8039:   not  4@ == -1 
jf @LOOP
if
8248:   not model 4@ available 
jf @LOADED

0247: load_model 4@
jump @LOOP

:LOADED
if
0039:   7@ == -1 
jf @CHECK_0
0AA7: call_function 1@ num_params 1 pop 1 4@ 7@

:CHECK_0
if
8039:   not  7@ == 0 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x30
jf @CHECK_1
0006: 6@ = 0
jump @CHANGE

:CHECK_1
if
8039:   not  7@ == 1 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x31
jf @CHECK_2
0006: 6@ = 1
jump @CHANGE

:CHECK_2
if
8039:   not  7@ == 2 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x32
jf @CHECK_3
0006: 6@ = 2
jump @CHANGE

:CHECK_3
if
8039:   not  7@ == 3 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x33
jf @CHECK_4
0006: 6@ = 3
jump @CHANGE

:CHECK_4
if
8039:   not  7@ == 4 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x34
jf @CHECK_5
0006: 6@ = 4
jump @CHANGE

:CHECK_5
if
8039:   not  7@ == 5 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x35
jf @CHECK_6
0006: 6@ = 5
jump @CHANGE

:CHECK_6
if
8039:   not  7@ == 6 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x36
jf @CHECK_7
0006: 6@ = 6
jump @CHANGE

:CHECK_7
if
8039:   not  7@ == 7 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x37
jf @CHECK_8
0006: 6@ = 7
jump @CHANGE

:CHECK_8
if
8039:   not  7@ == 8 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x38
jf @CHECK_9
0006: 6@ = 8
jump @CHANGE

:CHECK_9
if
8039:   not  7@ == 9 
jf @LOOP
if and
0AB0:  key_pressed 0x46
0AB0:  key_pressed 0x39
jf @LOOP
0006: 6@ = 9
jump @CHANGE

:CHANGE
if
803B:   not  4@ == 6@ // (int) 
jf @LOOP
0AA5: call 2@ num_params 3 pop 3 6@ 5@ 4@
0085: 5@ = 6@ // (int) 
jump @LOOP

:FREE
0AA3: free_library 0@

:END
0A93: end_custom_thread