{$CLEO .cs}
0000:
alloc 2@ 256
alloc 4@ 256
alloc 6@ 256
if
8AE4: not directory_exists "Cleo\INI"
then
0AE5: create_directory "Cleo\INI"
end
if
0AAB: file_exists "CLEO\INI\Radip_Binder.ini"
then
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF0: 3@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 4@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF0: 5@ = get_int_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
else
0AF1: write_int 96 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text1" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF1: write_int 97 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text2" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
0AF1: write_int 98 to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Key"
0AF5: write_string "text3" to_ini_file "CLEO\INI\Radip_Binder.ini" section "Bind" key "Text"
end
While True
wait 0
if key_down 1@
then
0AB1: call @GetSampBase 0 7@
7@ += 0x57F0
0AA5: call 7@ num_params 1 pop 0 2@
wait 1200
end
if key_down 3@
then
0AB1: call @GetSampBase 0 8@
8@ += 0x57F0
0AA5: call 6@ num_params 1 pop 0 4@
wait 1200
end
if key_down 5@
then
0AB1: call @GetSampBase 0 9@
9@ += 0x57F0
0AA5: call 9@ num_params 1 pop 0 6@
wait 1200
end
end
:GetSampBase
0AA2: 31@ = load_library "kernel32.dll" // IF and SET
0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET
0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@
0ab2: ret 1 0@