Angel9
Active member
Samp 0.3.7
Code:
{$CLEO .cs}
{$USE bitwise}
{$USE CLEO+}
0000:
Wait 10000
0C6A: 33@ = create_custom_thread_at_label @OnlyOne_ColorLoop
alloc 0@ 100
alloc 2@ 100
alloc 3@ 100
alloc 4@ 100
0B6D: render 1@ = create_font "Arial" height 10 flags 0x1
0B34: "onepin" @Activation1
while true
wait 0
if 10@ == true
then
SAMP.IsCommandTyped(10@)
if
0AD4: 10@ = scan_string 10@ format "%d" 31@
if
SAMP.IsPlayerConnected(31@)
then
0B20: samp 30@ = actor_handle_by_samp_player_id 31@
if 056D: actor 30@ defined
then
00A0: store_actor 30@ position_to 29@ 28@ 27@
if 00C2: sphere_onscreen 29@ 28@ 27@ radius 0.0
then
Actor.StorePos($PLAYER_ACTOR, 26@, 25@, 24@)
0B55: convert_3D_coords 29@ 28@ 27@ to_screen 23@ 22@
0B55: convert_3D_coords 26@ 25@ 24@ to_screen 21@ 20@
//0B68: render draw_line_point1 23@ 22@ point2 21@ 20@ width 1 color 0x8833ff33
0B25: samp 19@ = get_player_health 30@
0B36: samp 18@ = get_player_nickname 31@
0B26: samp 16@ = get_player_armor 30@
0B2A: samp 15@ = get_player_ping 30@
0665: get_actor 30@ model_to 17@
0470: 14@ = actor 30@ current_weapon
0B65: samp 13@ = player 30@ score
0B37: samp 12@ = get_player_color 30@
0B70: render draw_polygon_pos 23@ 22@ size 3 3 corners 7 rotation 0 color 0xba00ff00
format 0@ "{F457A5}Player {FFFFFF}{%X}%s {FFFFFF}[%d]" 12@ 18@ 31@ //{FF0F0F} HP {FFFFFF}%d ARM %d {F0FF0F} Skin {FFFFFF}%d {00FF00}Ping {FFFFFF}%d Pos %f | %f | %f" 18@ 31@ 19@ 16@ 17@ 15@ 29@ 28@ 27@ //{{F0A343}Weapon {FFFFFF}%d {04AACE}Score {FFFFFF}%d}" 18@ 31@ 19@ 16@ 17@ 15@ //12@ 11@ // this gave me cancer
format 2@ "{FF0F0F}Health {FFFFFF}%d Armour %d {FFA00F}Weapon {FFFFFF}%d" 19@ 16@ 14@
format 3@ "{F0FF0F}Skin {FFFFFF}%d {00FF00}Ping {FFFFFF}%d Score %d" 17@ 15@ 13@
format 4@ "{B6B4B5}Pos {FFFFFF}%f | %f | %f" 29@ 28@ 27@
23@ += 5
22@ -= -30
0B6F: render font 1@ draw_text 0@ pos 23@ 22@ color 0xFFFFFFFF
22@ -= -8
22@ -= 27
0B6F: render font 1@ draw_text 2@ pos 23@ 22@ color 0xFFFFFFFF
22@ -= 17
0B6F: render font 1@ draw_text 3@ pos 23@ 22@ color 0xFFFFFFFF
22@ -= 15
0B6F: render font 1@ draw_text 4@ pos 23@ 22@ color 0xFFFFFFFF
23@ -= 5
22@ -= 7
0AB4: 7@ VARIABLE= 206
0B69: render draw_box_pos 23@ 22@ size 280 2 color 7@ // upper box
22@ -= -80
0B69: render draw_box_pos 23@ 22@ size 280 2 color 7@ // lower box
23@ -= 0
22@ -= 80
0B69: render draw_box_pos 23@ 22@ size 2 82 color 7@ // left side box
23@ += 280
0B69: render draw_box_pos 23@ 22@ size 2 82 color 7@ // right side box
end
end
end
end
end
:Activation1
0B12: 10@ = 10@ XOR 1
if 10@ == TRUE
then
printf "~Y~Informer~G~ [ON] ~Y~by _=Gigant=_" 1500
else
printf "~Y~Informer~R~ [OFF] ~Y~by _=Gigant=_" 1500
end
cmdret
:OnlyOne_ColorLoop
0000:
CONST
R = 1@
G = 2@
B = 3@
END
WHILE TRUE
WAIT 0
R = 255
G = 0
B = 0
FOR B = 0 TO 255
WAIT 0
GOSUB @OnlyOne_CL
END
B = 255
FOR R = 255 DOWNTO 0
WAIT 0
GOSUB @OnlyOne_CL
END
R = 0
FOR G = 0 TO 255
WAIT 0
GOSUB @OnlyOne_CL
END
G = 255
FOR B = 255 DOWNTO 0
WAIT 0
GOSUB @OnlyOne_CL
END
B = 0
FOR R = 0 TO 255
WAIT 0
GOSUB @OnlyOne_CL
END
R = 255
FOR G = 255 DOWNTO 0
WAIT 0
GOSUB @OnlyOne_CL
END
G = 0
END
:OnlyOne_CL
0B67: render a 0xFF R G B to_argb 4@
0AB3: VARIABLE 206 = 4@
return
Last edited:
