CLEO Help I can't rotate the object + i need the memory adresses of armour bar.

CLEO related
Status
Not open for further replies.
P

pepeelpubero

Well-known member
Joined
Jan 21, 2014
Messages
433
Reaction score
1
I rotate the object but doesnt work and the menu doesnt show the options. And what is the memory adress of armour bar? Because i have the health but not armour:

0xBAB22C - [byte] Health bar/red text/enemy marker/anything red color (RGBA, 4 bytes)
Click to expand...

Part of the code:
Code: 
:NONAME_275
wait 10 
if 
  $MENULINE == 0 
else_jump @NONAME_414 
wait 10 
Model.Load(19078)
if 
   Model.Available(19078)
else_jump @NONAME_275      
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.334999 -0.070000 0.132999 
1@ = Object.Create(19078, 11@, 12@, 13@)
069B: attach_object 1@ to_actor $PLAYER_ACTOR with_offset 0.334999 -0.070000 0.132999 rotation 9.999999 -4.499999 0.000000
00BC: show_text_highpriority GXT 'PUESTO' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @NONAME_11
 
Sort by date Sort by votes
P

pepeelpubero

Well-known member
Joined
Jan 21, 2014
Messages
433
Reaction score
1
springfield link said:
All gta colors(including armor) http://gtag.gtagaming.com/forums/index.php?showtopic=265&mode=threaded&pid=1222
What menu? Post full code.
Click to expand...
That works but don't how I want. I have the memory adress of health bar and i change the color with a menu on the game.

0A8C: write_memory 12235308 size 4 value 0@ virtual_protect 0
Click to expand...

I want something like that but with armour bar.

And the menu doesnt works on samp the cleo is to create objects. I'm using it to create other objects but i cant rotate them. The next time i reply, I'll add the code to the answer. (Bad english)
 
Upvote 0 Downvote
springfield

springfield

God
Joined
Feb 18, 2005
Messages
2,965
Reaction score
271
0xBAB242, should be white color(armor bar).

Code: 
0006: 0@ = 0xBAB22C   
0A90: 1@ = 4 * 4 (ARMOR ID)
005A: 0@ += 1@
0A8C: write_memory 0@ size 4 value 0xFF01FF0C virtual_protect 0
 
Upvote 0 Downvote
P

pepeelpubero

Well-known member
Joined
Jan 21, 2014
Messages
433
Reaction score
1
springfield link said:
0xBAB242, should be white color(armor bar).

Code: 
0006: 0@ = 0xBAB22C   
0A90: 1@ = 4 * 4 (ARMOR ID)
005A: 0@ += 1@
0A8C: write_memory 0@ size 4 value 0xFF01FF0C virtual_protect 0
Click to expand...

Doesnt work but doesnt matter. Thanks for helping me with that. Here is the code of the menu that doesnt works on samp, it shows a black panel without options and i can't rotate the object.

Code: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread 'JPR' 

:JPR_11
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @JPR_11 
if 
0AB0:   key_pressed 85 
else_jump @JPR_11 
wait 0 
Player.CanMove($PLAYER_CHAR) = False
08D4: $MENU = create_panel_with_title 'ROAD' position 29.0 130.0 width 200.0 columns 1 interactive 1 background 1 alignment 1 
08DB: set_panel $MENU column 0 header 'DUMMY' data 'ROAD1' 'ROAD2' 'ROAD3' 'ROAD5' 'ROAD6' 'ROAD7' 'ROAD8' 'ROAD4' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 
00BC: show_text_highpriority GXT 'ROADY' time 5000 flag 1 

:JPR_234
wait 100 
if 
00E1:   player 0 pressed_key 16 
else_jump @JPR_234 
08D7: $MENULINE = panel $MENU active_row 
08DA: remove_panel $MENU 
jump @JPR_275 

:JPR_275
wait 10 
if 
  $MENULINE == 0 
else_jump @JPR_414 
wait 10 
Model.Load(1427)
if 
   Model.Available(1427)
else_jump @JPR_275 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
1@ = Object.Create(1427, 11@, 12@, 13@)
069B: attach_object 1@ to_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 rotation 0.0 0.0 0.0
Object.Angle(1@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_414
wait 10 
Model.Load(981)
if 
  $MENULINE == 1 
else_jump @JPR_557 
wait 10 
if 
   Model.Available(981)
else_jump @JPR_414 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
5@ = Object.Create(981, 11@, 12@, 13@)
Object.Angle(5@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
wait 0 
jump @JPR_11 

:JPR_557
wait 10 
Model.Load(3279)
if 
  $MENULINE == 2 
else_jump @JPR_696 
wait 10 
if 
   Model.Available(3279)
else_jump @JPR_557 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
10@ = Object.Create(3279, 11@, 12@, 13@)
Object.Angle(10@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_696
wait 10 
if 
  $MENULINE == 3 
else_jump @JPR_839 
wait 10 
Model.Load(3267)
wait 10 
if 
   Model.Available(3267)
else_jump @JPR_696 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
15@ = Object.Create(3267, 11@, 12@, 13@)
Object.Angle(15@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_839
wait 10 
if 
  $MENULINE == 4 
else_jump @JPR_982 
wait 10 
Model.Load(3578)
wait 10 
if 
   Model.Available(3578)
else_jump @JPR_839 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
20@ = Object.Create(3578, 11@, 12@, 13@)
Object.Angle(20@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_982
wait 10 
if 
  $MENULINE == 5 
else_jump @JPR_1125 
wait 10 
Model.Load(16093)
wait 10 
if 
   Model.Available(16093)
else_jump @JPR_982 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
25@ = Object.Create(16093, 11@, 12@, 13@)
Object.Angle(25@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_1125
wait 10 
if 
  $MENULINE == 6 
else_jump @JPR_1268 
wait 10 
Model.Load(8572)
wait 10 
if 
   Model.Available(8572)
else_jump @JPR_1125 
2@ = Actor.Angle($PLAYER_ACTOR)
04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 14.5 -1.3 
30@ = Object.Create(8572, 11@, 12@, 13@)
Object.Angle(30@) = 2@
00BC: show_text_highpriority GXT 'SPAWNED' time 5000 flag 1 
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11 

:JPR_1268
wait 10 
if 
  $MENULINE == 7 
else_jump @JPR_11 
wait 10 
jump @JPR_1301 

:JPR_1301
Player.CanMove($PLAYER_CHAR) = True
wait 10 
if 
03CA:   object 1@ exists 
else_jump @JPR_1354 
wait 5 
Object.Destroy(1@)
Object.Destroy(1427)
Object.RemoveReferences(1@)
jump @JPR_1354 

:JPR_1354
if 
03CA:   object 5@ exists 
else_jump @JPR_1387 
Object.Destroy(5@)
Object.RemoveReferences(5@)
jump @JPR_1387 

:JPR_1387
wait 5 
if 
03CA:   object 10@ exists 
else_jump @JPR_1428 
wait 5 
Object.Destroy(10@)
Object.RemoveReferences(10@)
jump @JPR_1428 

:JPR_1428
if 
03CA:   object 15@ exists 
else_jump @JPR_1465 
wait 5 
Object.Destroy(15@)
Object.RemoveReferences(15@)
jump @JPR_1465 

:JPR_1465
if 
03CA:   object 20@ exists 
else_jump @JPR_1502 
wait 5 
Object.Destroy(20@)
Object.RemoveReferences(20@)
jump @JPR_1502 

:JPR_1502
if 
03CA:   object 25@ exists 
else_jump @JPR_1539 
wait 5 
Object.Destroy(25@)
Object.RemoveReferences(25@)
jump @JPR_1539 

:JPR_1539
00BC: show_text_highpriority GXT 'CLEARED' time 5000 flag 1 
wait 10 
if 
03CA:   object 30@ exists 
else_jump @JPR_11 
wait 5 
Object.Destroy(30@)
Object.RemoveReferences(30@)
Player.CanMove($PLAYER_CHAR) = True
jump @JPR_11

Can you change that menu for a menu dialog like samp servers? And help me with the rotation please.
 
Upvote 0 Downvote
Status
Not open for further replies.
Top