CLEO Help help teleport

[kakaka]

Hello guys, how's going ? If its wont bother you can you people help me in something ? I downloaded a teleport cleo, here's the download link:  http://ugbase.eu/releases-6/teleport-cs-teleporting-to-the-marker-franshopper/

But, I am trying to edit it, for when I press a key, it teleports me to the place I choosed, instead of marking on the map, so the coordinates would be defined by the own code, how could I change it ? Using the same teleport method( Its undetectable on a server I play)

// This file was decompiled using SASCM.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007
{$CLEO .cs}

//-------------MAIN---------------
thread 'TPIN' 
5@ = 0 

:TPIN_18
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @TPIN_18 
if 
   Player.Controllable($PLAYER_CHAR)
else_jump @TPIN_18 
if 
0AB0:   key_pressed 45 
else_jump @TPIN_83 
5@ = 1 
33@ = 0 

:TPIN_83
if and
  5@ == 1 
0AB0:   key_pressed 46 
else_jump @TPIN_119 
5@ = 0 
jump @TPIN_170 

:TPIN_119
if 
  5@ == 1 
else_jump @TPIN_18 
if 
  33@ > 5000 
else_jump @TPIN_18 
5@ = 0 
jump @TPIN_18 

:TPIN_170
4@ = Actor.Angle($PLAYER_ACTOR)
0AB6: store_target_marker_coords_to 0@ 1@ 2@ // IF and SET 
0169: set_fade_color_RGB 0 0 0 
fade 0 500 
wait 500 
Player.CanMove($PLAYER_CHAR) = False
select_interior 0 
04FA: reset_interior 0 colors 
057E: set_radar_grey 0 
04E4: unknown_refresh_game_renderer_at 0@ 1@ 
Camera.SetAtPos(0@, 1@, 2@)
if 
   Player.Defined($PLAYER_CHAR)
else_jump @TPIN_294 
0860: link_actor $PLAYER_ACTOR to_interior 0 
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -100.0)
Actor.Angle($PLAYER_ACTOR) = 4@

:TPIN_294
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @TPIN_294 
wait 1500 
fade 1 1000 

:TPIN_326
if 
fading 
else_jump @TPIN_350 
wait 0 
jump @TPIN_326 

:TPIN_350
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @TPIN_350 
Player.CanMove($PLAYER_CHAR) = True
Camera.SetBehindPlayer
Camera.Restore_WithJumpCut
jump @TPIN_18

 

[pepeelpubero]

Use this code, CHANGE X - Y - Z, with your own pos or if you want make it configurable with ini file. Same activation. To find the x y z pos go to the game and type "/savepos cleo" then goto SAN ANDREAS USER FILES/SAMP and search for "savedpositions" and put the coords on the cleo.

The txt must be something like this:

AddPlayerClass(0,1922.0000,680.0000,10.8203,0.0000,0,0,0,0,0,0)

0 = skin
1922.0000 = X
680.0000 = Y
10.8203 = Z
0.0000 = Angle
The others "0" are for weapons and ammo.

{$CLEO .cs}

0000: NOP

WHILE TRUE
4@ = Actor.Angle($PLAYER_ACTOR)
wait 0
if and
0AB0: 45
0AB0: 46 
Player.Defined($PLAYER_ACTOR)
then
Actor.PutAt($PLAYER_ACTOR, X, Y, Z)
Actor.Angle($PLAYER_ACTOR) = 4@
end
END

 

[kakaka]

Use this code, CHANGE X - Y - Z, with your own pos or if you want make it configurable with ini file. Same activation. To find the x y z pos go to the game and type "/savepos cleo" then goto SAN ANDREAS USER FILES/SAMP and search for "savedpositions" and put the coords on the cleo.

The txt must be something like this:

0 = skin
1922.0000 = X
680.0000 = Y
10.8203 = Z
0.0000 = Angle
The others "0" are for weapons and ammo.

{$CLEO .cs}

0000: NOP

WHILE TRUE
4@ = Actor.Angle($PLAYER_ACTOR)
wait 0
if and
0AB0: 45
0AB0: 46 
Player.Defined($PLAYER_ACTOR)
then
Actor.PutAt($PLAYER_ACTOR, X, Y, Z)
Actor.Angle($PLAYER_ACTOR) = 4@
end
END

thanks =D, +1 liked