{$VERSION 3.1.0027}
{$CLEO .cs}

//-------------MAIN---------------
thread "%"   
0000: NOP   
if   
8AF7:   not   
Camera.Shake()
else_jump @%_25   
end_thread   

:%_25
wait 400   
0AFA:   
else_jump @%_25   
hex
   34 0B 0E 06 E7 E0 EF E8 F1 FC 01 A5 FF FF FF 34
   0B 0E 02 73 74 01 B0 FF FF FF 34 0B 0E 06 67 6F
   73 61 76 65 01 EF FE FF FF 01
end
0400: store_coords_to   
jump @%_80   
wait 0   
3@ = 1   
4@ = 0   
5@ = 0   

:%_116
wait 0   
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0093: 6@ = integer 5@ to_float   
0AED: 6@v = float 6@ to_string_format "%.0f"   
0AF3: write_float 0@ to_ini_file "CLEO\reg.INI" section 6@v key "X" //IF and SET   
0AF3: write_float 1@ to_ini_file "CLEO\reg.INI" section 6@v key "Y" //IF and SET   
0AF3: write_float 2@ to_ini_file "CLEO\reg.INI" section 6@v key "Z" //IF and SET   
3@ += 1   
5@ += 1   
0ACD: show_text_highpriority "Save cord" time 200   
wait 200   
jump @%_116   

:%_273
wait 0   
5@ = 0   

:%_284
wait 0   
0093: 6@ = integer 5@ to_float   
0AED: 6@v = float 6@ to_string_format "%.0f"   
0AF2: 0@ = get_float_from_ini_file "CLEO\reg.INI" section 6@v key "X" //IF and SET   
0AF2: 1@ = get_float_from_ini_file "CLEO\reg.INI" section 6@v key "Y" //IF and SET   
0AF2: 2@ = get_float_from_ini_file "CLEO\reg.INI" section 6@v key "Z" //IF and SET   
if   
    5@ == 0   
else_jump @%_453   
0AF2: 7@ = get_float_from_ini_file "CLEO\reg.INI" section 6@v key "X" //IF and SET   
0AF2: 8@ = get_float_from_ini_file "CLEO\reg.INI" section 6@v key "Y" //IF and SET   

:%_453
if and
    5@ >= 15   
00ED:   actor $PLAYER_ACTOR 0 near_point 7@ 8@ radius 3.0 3.0 on_foot   
else_jump @%_501   
jump @%_273   

:%_501
gosub @%_522   
5@ += 1   
jump @%_284   

:%_522
wait 0   
05D3: AS_actor $PLAYER_ACTOR goto_point 0@ 1@ 2@ mode 6 3000 ms // versionA   
0AB3: var 740 = 2   
if   
00ED:   actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 3.0 3.0 on_foot   
else_jump @%_522   
0AB3: var 740 = 0   
return