{$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
{"html5":"htmlmixed","css":"css","javascript":"javascript","php":"php","python":"python","ruby":"ruby","lua":"text\/x-lua","bash":"text\/x-sh","go":"go","c":"text\/x-csrc","cpp":"text\/x-c++src","diff":"diff","latex":"stex","sql":"sql","xml":"xml","apl":"apl","asterisk":"asterisk","c_loadrunner":"text\/x-csrc","c_mac":"text\/x-csrc","coffeescript":"text\/x-coffeescript","csharp":"text\/x-csharp","d":"d","ecmascript":"javascript","erlang":"erlang","groovy":"text\/x-groovy","haskell":"text\/x-haskell","haxe":"text\/x-haxe","html4strict":"htmlmixed","java":"text\/x-java","java5":"text\/x-java","jquery":"javascript","mirc":"mirc","mysql":"sql","ocaml":"text\/x-ocaml","pascal":"text\/x-pascal","perl":"perl","perl6":"perl","plsql":"sql","properties":"text\/x-properties","q":"text\/x-q","scala":"scala","scheme":"text\/x-scheme","tcl":"text\/x-tcl","vb":"text\/x-vb","verilog":"text\/x-verilog","yaml":"text\/x-yaml","z80":"text\/x-z80"}
