{$CLEO .cs}
0000:
0661: NOP "created by ..."
script_name "Hello2"
wait 0

$POINTER=0

$MEX=0.0
$MEY=0.0
$MEZ=0.0

$REX=0.0
$REY=0.0
$REZ=0.0

$FEX=0.0
$FEY=0.0
$FEZ=0.0

while true
if
0ab0: key_pressed 49 true
then
gosub @make_beep
end

if
0ab0: key_pressed 50 true
then
gosub @jump_to_me
end

if
0ab0: key_pressed 51 true
then
gosub @set_cam_and_rot
end

// change values
if
0ab0: key_pressed 53 true
then
gosub @pointer_next
end
if
0ab0: key_pressed 48 true
then
gosub @pointer_set_0
end

if
0ab0: key_pressed 56 true
then
gosub @pointer_dec
end

if
0ab0: key_pressed 57 true
then
gosub @pointer_inc
end


wait 100
end


0A93: terminate_this_custom_script


:make_beep
0209: 1@ = random_int_in_ranges 0 10
set_weather 1@
00A0: store_actor $PLAYER_ACTOR position_to 0@ 1@ 2@
018C: play_sound  1159 at 0@ 1@ 2@
03BC: 5@ = create_sphere_at 0@ 1@ 2@ radius 1.0
02A7: 6@ = create_icon_marker_and_sphere 35 at 0@ 1@ 2@
0A40: 7@ = create_entrance_marker_at 0@ 1@ 2@ color 14
//0AED: 0@v = float 0@ to_string_format "Info: %.15g last"
//0AD3: 0@v = string_format "pos:%.3fx%.3fx%.3f" 0@ 1@ 2@
0ACE: show_formatted_text_box "pos:%.15g %.15g %.15g" 0@ 1@ 2@ time 1000

//0ACD: show_text_highpriority "Hello World!" time 500
//0ACD: show_text_highpriority 0@v time 500

return


:jump_to_me
00A1: put_actor $PLAYER_ACTOR at $MEX $MEY $MEZ
018C: play_sound  1159 at $MEX $MEY $MEZ

return

:set_cam_and_rot
//0930: lock_camera_position 1
//0931: lock_camera_zoom 1
//0E60: set_camera_control 1@ 2@
//0936: set_camera 3@ 4@ 5@ position_to 0@ 1@ 10@ time 9@ drop_mode 1
//092F: lock_camera_target_point 1

//015F: set_camera_position $MEX $MEY $MEZ rotation $REX $REY $REZ

04E4: refresh_game_renderer_at $MEX $MEY
Camera.PointAt($FEX $FEY $FEZ, 2)
Camera.SetPosition($MEX $MEY $MEZ, $REX $REY $REZ)


//0936: set_camera 2358.656 -1246.348 28.7884 position_to 2358.656 -1246.348 28.7884 time 7000 smooth_transition 1


0209: 1@ = random_int_in_ranges 0 10
set_weather 1@
return

:pointer_next
0209: 1@ = random_int_in_ranges 0 10
set_weather 1@
0008: $POINTER += 1
if
0038:   $POINTER == 9
then 
$POINTER=0
end

008F: 1@ = integer $POINTER to_float
0ACE: show_formatted_text_box "pointer:%.15g" 1@ time 1000

return


:pointer_set_0
if
0038:   $POINTER == 0
then 
$MEX=0.0
end

if
0038:   $POINTER == 1
then 
$MEY=0.0
end

if
0038:   $POINTER == 2
then 
$MEZ=0.0
end

return

:pointer_dec
if
0038:   $POINTER == 0
then 
000D: $MEX -= 10.0
end

if
0038:   $POINTER == 1
then 
000D: $MEY -= 10.0
end

if
0038:   $POINTER == 2
then 
000D: $MEZ -= 10.0
end

if
0038:   $POINTER == 3
then 
000D: $REX -= 10.0
end

if
0038:   $POINTER == 4
then 
000D: $REY -= 10.0
end

if
0038:   $POINTER == 5
then 
000D: $REZ -= 10.0
end

if
0038:   $POINTER == 6
then 
000D: $FEX -= 10.0
end

if
0038:   $POINTER == 7
then 
000D: $FEY -= 10.0
end

if
0038:   $POINTER == 8
then 
000D: $FEZ -= 10.0
end

0ACE: show_formatted_text_box "me:%.15g %.15g %.15g" $MEX $MEY $MEZ time 500
gosub @set_cam_and_rot
return


:pointer_inc
if
0038:   $POINTER == 0
then 
0009: $MEX += 10.0
end

if
0038:   $POINTER == 1
then 
0009: $MEY += 10.0
end

if
0038:   $POINTER == 2
then 
0009: $MEZ += 10.0
end

if
0038:   $POINTER == 3
then 
0009: $REX += 10.0
end

if
0038:   $POINTER == 4
then 
0009: $REY += 10.0
end

if
0038:   $POINTER == 5
then 
0009: $REZ += 10.0
end

if
0038:   $POINTER == 6
then 
0009: $FEX += 10.0
end

if
0038:   $POINTER == 7
then 
0009: $FEY += 10.0
end

if
0038:   $POINTER == 8
then 
0009: $FEZ += 10.0
end

0ACE: show_formatted_text_box "me:%.15g %.15g %.15g" $MEX $MEY $MEZ time 500
gosub @set_cam_and_rot
return