Нужна помощь с CLEO! (Проблема с переменными)

Cerberus · 29 Июл 2016

У меня закончились переменные :D И я не знаю как закончить CLEO скрипт...
Если кто хорошо разбирается в CLEO, помогите пожалуйста!

(Надо за место глобальных переменных, сделать что-то вроде обычных переменных :), чтобы скрипт работал)

CLEO:

{$CLEO}
0000:

repeat
wait 3000
until samp.Available()
0AF8: samp add_message_to_chat "[Info Bar by Cerberus]: {ffffff}Ñêðèïò óñïåøíî çàãðóæåí. Àêòèâàöèÿ: {dfda79}/infobar" color 0xdfda79

0@ = Render.CreateFont("Tahoma", 8, 0x5)
SAMP.GetScreenResolution(1@, 2@)
1@ /= 50
2@ = 250

0B34: samp register_client_command "infobar" to_label @infobar

3@ = 1

while true
wait 0
if 3@ == 1                      
    then
        4@ = Samp.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
        5@ = Samp.GetPlayerNickname(4@)
        0226: 6@ = actor $PLAYER_ACTOR health
        04DD: 7@ = actor $PLAYER_ACTOR armour
        8@ = Samp.GetPlayerPing(4@)
        9@ = Samp.GetPlayerScore(4@)
        10@ = Player.Money($PLAYER_CHAR)
        0A8D: 11@ = read_memory 0xB7CB50 size 4 virtual_protect true {float}
        0470: 12@ = actor $PLAYER_ACTOR current_weapon
        041A: 13@ = actor $PLAYER_ACTOR weapon 12@ ammo
        alloc 20@ 128
        alloc 21@ 64
        alloc 22@ 64
        alloc 23@ 64
        alloc 24@ 64
        alloc 25@ 64
        alloc 26@ 64
        alloc 27@ 64
        0AD3: 20@ = format "Nickname: {dfda79}%s [%d]" 5@ 4@
        0AD3: 21@ = format "Level: {dfda79}%d" 9@
        0AD3: 22@ = format "Health: {dfda79}%d" 6@
        0AD3: 23@ = format "Armour: {dfda79}%d" 7@
        0AD3: 24@ = format "Weapon: {dfda79}%d [%d]" 12@ 13@
        0AD3: 25@ = format "Money: {dfda79}%d" 10@
        0AD3: 26@ = format "Ping: {dfda79}%d" 8@
        0AD3: 27@ = format "FPS: {dfda79}%g" 11@  
        Render.DrawBox(13, 236, 165, 170, 0x90000000)
        Render.DrawText(0@, "Player Info:", 1@, 2@, 0xFFdfda79)
        Render.DrawText(0@, 20@, 1@, 270, 0xFFffffff)
        Render.DrawText(0@, 21@, 1@, 285, 0xFFffffff)
        Render.DrawText(0@, 22@, 1@, 300, 0xFFffffff)
        Render.DrawText(0@, 23@, 1@, 315, 0xFFffffff)
        Render.DrawText(0@, 24@, 1@, 330, 0xFFffffff)
        Render.DrawText(0@, 25@, 1@, 345, 0xFFffffff)
        Render.DrawText(0@, 26@, 1@, 360, 0xFFffffff)
        Render.DrawText(0@, 27@, 1@, 375, 0xFFffffff)
        free 20@
        free 21@
        free 22@
        free 23@
        free 24@
        free 25@
        free 26@
        free 27@
 
        if Actor.Driving($PLAYER_ACTOR)
        then
            14@ = Actor.CurrentCar($PLAYER_ACTOR)
            0227: 15@ = car 14@ health
            15@ /= 10
            0441: 16@ = car 14@ model
            09B3: get_car_door_lock_status 14@ store_to 17@
            0B2C: samp 18@ = get_vehicle_id_by_car_handle 14@
            02E3: 19@ = car 14@ speed
            alloc 28@ 64
            alloc 29@ 64
            alloc $doors 128
            alloc $id 64
            alloc $model 64
            0AD3: 28@ = format "Speed: {dfda79}%g" 19@
            0AD3: 29@ = format "Health: {dfda79}%d" 15@
            if 17@ == 0
            then format $doors = "Doors: {dfda79}OPEN"
            else format $doors = "Doors: {dfda79}CLOSED"
            end
            0AD3: $id = format "ID: {dfda79}%d" 18@
            0AD3: $model = format "Model: {dfda79}%d" 16@
            Render.DrawText(0@, "Car Info:", 1@, 395, 0xFFdfda79)
            Render.DrawText(0@, 28@, 1@, 415, 0xFFffffff)
            Render.DrawText(0@, 29@, 1@, 430, 0xFFffffff)
            Render.DrawText(0@, $doors, 1@, 445, 0xFFffffff)
            Render.DrawText(0@, $id, 1@, 460, 0xFFffffff)
            Render.DrawText(0@, $model, 1@, 475, 0xFFffffff)
            free 28@
            free 29@
            free $doors
            free $id
            free $model      
 
            if key_down 119
            then
                free 20@
                free 21@
                free 22@
                free 23@
                free 24@
                free 25@
                free 26@
                free 27@
                if Actor.Driving($PLAYER_ACTOR)
                then
                    free 28@
                    free 29@
                    free $doors
                    free $id
                    free $model
                end  
                wait 2000
            end
        end
    end          
end

:infobar
0B12: 3@ = 3@ XOR 1
if 3@ == 1
then
    018C: play_sound 1052 at 0.0 0.0 0.0
end
if 3@ == 0
then
    018C: play_sound 1054 at 0.0 0.0 0.0
end
Samp.CmdRet()

MISTER_GONWIK · 29 Июл 2016

Cerberus написал(а):

У меня закончились переменные :D И я не знаю как закончить CLEO скрипт...
Если кто хорошо разбирается в CLEO, помогите пожалуйста!

(Надо за место глобальных переменных, сделать что-то вроде обычных переменных :), чтобы скрипт работал)

CLEO:

{$CLEO}
0000:

repeat
wait 3000
until samp.Available()
0AF8: samp add_message_to_chat "[Info Bar by Cerberus]: {ffffff}Ñêðèïò óñïåøíî çàãðóæåí. Àêòèâàöèÿ: {dfda79}/infobar" color 0xdfda79

0@ = Render.CreateFont("Tahoma", 8, 0x5)
SAMP.GetScreenResolution(1@, 2@)
1@ /= 50
2@ = 250

0B34: samp register_client_command "infobar" to_label @infobar

3@ = 1

while true
wait 0
if 3@ == 1                     
    then
        4@ = Samp.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
        5@ = Samp.GetPlayerNickname(4@)
        0226: 6@ = actor $PLAYER_ACTOR health
        04DD: 7@ = actor $PLAYER_ACTOR armour
        8@ = Samp.GetPlayerPing(4@)
        9@ = Samp.GetPlayerScore(4@)
        10@ = Player.Money($PLAYER_CHAR)
        0A8D: 11@ = read_memory 0xB7CB50 size 4 virtual_protect true {float}
        0470: 12@ = actor $PLAYER_ACTOR current_weapon
        041A: 13@ = actor $PLAYER_ACTOR weapon 12@ ammo
        alloc 20@ 128
        alloc 21@ 64
        alloc 22@ 64
        alloc 23@ 64
        alloc 24@ 64
        alloc 25@ 64
        alloc 26@ 64
        alloc 27@ 64
        0AD3: 20@ = format "Nickname: {dfda79}%s [%d]" 5@ 4@
        0AD3: 21@ = format "Level: {dfda79}%d" 9@
        0AD3: 22@ = format "Health: {dfda79}%d" 6@
        0AD3: 23@ = format "Armour: {dfda79}%d" 7@
        0AD3: 24@ = format "Weapon: {dfda79}%d [%d]" 12@ 13@
        0AD3: 25@ = format "Money: {dfda79}%d" 10@
        0AD3: 26@ = format "Ping: {dfda79}%d" 8@
        0AD3: 27@ = format "FPS: {dfda79}%g" 11@ 
        Render.DrawBox(13, 236, 165, 170, 0x90000000)
        Render.DrawText(0@, "Player Info:", 1@, 2@, 0xFFdfda79)
        Render.DrawText(0@, 20@, 1@, 270, 0xFFffffff)
        Render.DrawText(0@, 21@, 1@, 285, 0xFFffffff)
        Render.DrawText(0@, 22@, 1@, 300, 0xFFffffff)
        Render.DrawText(0@, 23@, 1@, 315, 0xFFffffff)
        Render.DrawText(0@, 24@, 1@, 330, 0xFFffffff)
        Render.DrawText(0@, 25@, 1@, 345, 0xFFffffff)
        Render.DrawText(0@, 26@, 1@, 360, 0xFFffffff)
        Render.DrawText(0@, 27@, 1@, 375, 0xFFffffff)
        free 20@
        free 21@
        free 22@
        free 23@
        free 24@
        free 25@
        free 26@
        free 27@

        if Actor.Driving($PLAYER_ACTOR)
        then
            14@ = Actor.CurrentCar($PLAYER_ACTOR)
            0227: 15@ = car 14@ health
            15@ /= 10
            0441: 16@ = car 14@ model
            09B3: get_car_door_lock_status 14@ store_to 17@
            0B2C: samp 18@ = get_vehicle_id_by_car_handle 14@
            02E3: 19@ = car 14@ speed
            alloc 28@ 64
            alloc 29@ 64
            alloc $doors 128
            alloc $id 64
            alloc $model 64
            0AD3: 28@ = format "Speed: {dfda79}%g" 19@
            0AD3: 29@ = format "Health: {dfda79}%d" 15@
            if 17@ == 0
            then format $doors = "Doors: {dfda79}OPEN"
            else format $doors = "Doors: {dfda79}CLOSED"
            end
            0AD3: $id = format "ID: {dfda79}%d" 18@
            0AD3: $model = format "Model: {dfda79}%d" 16@
            Render.DrawText(0@, "Car Info:", 1@, 395, 0xFFdfda79)
            Render.DrawText(0@, 28@, 1@, 415, 0xFFffffff)
            Render.DrawText(0@, 29@, 1@, 430, 0xFFffffff)
            Render.DrawText(0@, $doors, 1@, 445, 0xFFffffff)
            Render.DrawText(0@, $id, 1@, 460, 0xFFffffff)
            Render.DrawText(0@, $model, 1@, 475, 0xFFffffff)
            free 28@
            free 29@
            free $doors
            free $id
            free $model     

            if key_down 119
            then
                free 20@
                free 21@
                free 22@
                free 23@
                free 24@
                free 25@
                free 26@
                free 27@
                if Actor.Driving($PLAYER_ACTOR)
                then
                    free 28@
                    free 29@
                    free $doors
                    free $id
                    free $model
                end 
                wait 2000
            end
        end
    end         
end

:infobar
0B12: 3@ = 3@ XOR 1
if 3@ == 1
then
    018C: play_sound 1052 at 0.0 0.0 0.0
end
if 3@ == 0
then
    018C: play_sound 1054 at 0.0 0.0 0.0
end
Samp.CmdRet()

создавай массив и там храни

hnnssy · 30 Июл 2016

о-ху-еть
псс, парень, можно делать так
alloc 1@ 8
memset 1@ 0 8
0@ = actor_hp
format 1@ "%d" 0@
render_text 0@ X Y
memset 1@ 0 8
0@ = actor_armor
format 1@ "%d" 0@
render_text 1@ X Y
и тд

Cerberus · 30 Июл 2016

hnnssy написал(а):
о-ху-еть
псс, парень, можно делать так
alloc 0@ 8
memset 0@ 0 8
0@ = actor_hp
format 1@ "%d" 0@
render_text 0@ X Y
memset 0@ 0 8
0@ = actor_armor
format 1@ "%d" 0@
render_text 0@ X Y
и тд

Крашит!

CLEO:

{$CLEO}
0000:

repeat 
wait 3000
until samp.Available()
0AF8: samp add_message_to_chat "[Info Bar by Cerberus]: {ffffff}Ñêðèïò óñïåøíî çàãðóæåí. Àêòèâàöèÿ: {dfda79}/infobar" color 0xdfda79

0@ = Render.CreateFont("Tahoma", 8, 0x5) 
SAMP.GetScreenResolution(1@, 2@) 
1@ /= 50 
2@ = 250

0B34: samp register_client_command "infobar" to_label @infobar 

3@ = 1

while true
wait 0
if 3@ == 1                        
    then
        0B69: render draw_box_pos 13 236 size 165 170 color 0x90000000  //Êâàäðàò
        0B6F: render font 0@ draw_text "Player Info:" pos 1@ 2@ color 0xFFdfda79
        0B2B: samp 4@ = get_player_id_by_actor_handle $PLAYER_ACTOR //ID
        0B36: samp 5@ = get_player_nickname 4@  //Nickname
        alloc 6@ 256    // Nickname and ID
        0AD3: 6@ = format "Nickname: {dfda79}%s [%d]" 5@ 4@
        0B6F: render font 0@ draw_text 6@ pos 1@ 270 color 0xFFffffff
        alloc 7@ 256
        alloc 8@ 450
        memset 7@ 0 8
        0B65: samp 7@ = player 4@ score
        format 8@ "Level: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 285 color 0xFFffffff
        memset 7@ 0 8
        0226: 7@ = actor $PLAYER_ACTOR health    //HP
        format 8@ "Health: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 300 color 0xFFffffff
        memset 7@ 0 8
        04DD: 7@ = actor $PLAYER_ACTOR armour   //Áðîíÿ 
        format 8@ "Armour: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 315 color 0xFFffffff
        alloc 11@ 128 
        0470: 9@ = actor $PLAYER_ACTOR current_weapon   //Îðóæèå
        041A: 10@ = actor $PLAYER_ACTOR weapon 9@ ammo  //Ïàòðîíû
        0AD3: 11@ = format "Weapon: {dfda79}%d [%d]" 9@ 10@
        0B6F: render font 0@ draw_text 11@ pos 1@ 330 color 0xFFffffff
        memset 7@ 0 8
        010B: 7@ = player $PLAYER_CHAR money    //Äåíüãè
        format 8@ "Money: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 345 color 0xFFffffff
        memset 7@ 0 8
        0B2A: samp 7@ = get_player_ping 4@  //Ïèíã
        format 8@ "Ping: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 360 color 0xFFffffff
        memset 7@ 0 8
        0A8D: 7@ = read_memory 0xB7CB50 size 4 virtual_protect true    //FPS
        format 8@ "FPS: {dfda79}%g" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 375 color 0xFFffffff
        free 6@
        free 8@
        free 11@
   
        if 00DF:   actor $PLAYER_ACTOR driving 
        then
            0B6F: render font 0@ draw_text "Car Info:" pos 1@ 2@ color 0xFFdfda79
            00DB:   actor $PLAYER_ACTOR in_car 12@
            alloc 13@ 256
            alloc 14@ 450
            memset 13@ 0 8
            02E3: 13@ = car 12@ speed
            format 14@ "Speed: {dfda79}%g" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 415 color 0xFFffffff
            memset 13@ 0 8
            0227: 13@ = car 12@ health
            13@ /= 10
            format 14@ "Health: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 430 color 0xFFffffff
            alloc 17@ 128
            09B3: get_car_door_lock_status 12@ store_to 16@
            if 16@ == 0
            then format 17@ = "Doors: {dfda79}OPEN"
            else format 17@ = "Doors: {dfda79}CLOSED"
            end
            0B6F: render font 0@ draw_text 17@ pos 1@ 445 color 0xFFffffff
            memset 13@ 0 8
            0B2C: samp 13@ = get_vehicle_id_by_car_handle 12@
            format 14@ "ID: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 460 color 0xFFffffff
            memset 13@ 0 8
            0441: 13@ = car 12@ model 
            format 14@ "Model: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 475 color 0xFFffffff
            free 14@ 
            free 17@        
   
            if key_down 119
            then
                free 6@
                free 8@
                free 11@
                if 00DF:   actor $PLAYER_ACTOR driving
                then
                    free 14@ 
                    free 17@
                end    
                wait 2000
            end
        end
    end            
end

:infobar
0B12: 3@ = 3@ XOR 1  
if 3@ == 1 
then 
    018C: play_sound 1052 at 0.0 0.0 0.0
end 
if 3@ == 0 
then 
    018C: play_sound 1054 at 0.0 0.0 0.0
end  
CmdRet

Cerberus · 30 Июл 2016

MISTER_GONWIK написал(а):
создавай массив и там храни

Объясни как)

hnnssy · 31 Июл 2016

Cerberus написал(а):

Крашит!

CLEO:

{$CLEO}
0000:

repeat
wait 3000
until samp.Available()
0AF8: samp add_message_to_chat "[Info Bar by Cerberus]: {ffffff}Ñêðèïò óñïåøíî çàãðóæåí. Àêòèâàöèÿ: {dfda79}/infobar" color 0xdfda79

0@ = Render.CreateFont("Tahoma", 8, 0x5)
SAMP.GetScreenResolution(1@, 2@)
1@ /= 50
2@ = 250

0B34: samp register_client_command "infobar" to_label @infobar

3@ = 1

while true
wait 0
if 3@ == 1                       
    then
        0B69: render draw_box_pos 13 236 size 165 170 color 0x90000000  //Êâàäðàò
        0B6F: render font 0@ draw_text "Player Info:" pos 1@ 2@ color 0xFFdfda79
        0B2B: samp 4@ = get_player_id_by_actor_handle $PLAYER_ACTOR //ID
        0B36: samp 5@ = get_player_nickname 4@  //Nickname
        alloc 6@ 256    // Nickname and ID
        0AD3: 6@ = format "Nickname: {dfda79}%s [%d]" 5@ 4@
        0B6F: render font 0@ draw_text 6@ pos 1@ 270 color 0xFFffffff
        alloc 7@ 256
        alloc 8@ 450
        memset 7@ 0 8
        0B65: samp 7@ = player 4@ score
        format 8@ "Level: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 285 color 0xFFffffff
        memset 7@ 0 8
        0226: 7@ = actor $PLAYER_ACTOR health    //HP
        format 8@ "Health: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 300 color 0xFFffffff
        memset 7@ 0 8
        04DD: 7@ = actor $PLAYER_ACTOR armour   //Áðîíÿ
        format 8@ "Armour: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 315 color 0xFFffffff
        alloc 11@ 128
        0470: 9@ = actor $PLAYER_ACTOR current_weapon   //Îðóæèå
        041A: 10@ = actor $PLAYER_ACTOR weapon 9@ ammo  //Ïàòðîíû
        0AD3: 11@ = format "Weapon: {dfda79}%d [%d]" 9@ 10@
        0B6F: render font 0@ draw_text 11@ pos 1@ 330 color 0xFFffffff
        memset 7@ 0 8
        010B: 7@ = player $PLAYER_CHAR money    //Äåíüãè
        format 8@ "Money: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 345 color 0xFFffffff
        memset 7@ 0 8
        0B2A: samp 7@ = get_player_ping 4@  //Ïèíã
        format 8@ "Ping: {dfda79}%d" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 360 color 0xFFffffff
        memset 7@ 0 8
        0A8D: 7@ = read_memory 0xB7CB50 size 4 virtual_protect true    //FPS
        format 8@ "FPS: {dfda79}%g" 7@
        0B6F: render font 0@ draw_text 8@ pos 1@ 375 color 0xFFffffff
        free 6@
        free 8@
        free 11@
  
        if 00DF:   actor $PLAYER_ACTOR driving
        then
            0B6F: render font 0@ draw_text "Car Info:" pos 1@ 2@ color 0xFFdfda79
            00DB:   actor $PLAYER_ACTOR in_car 12@
            alloc 13@ 256
            alloc 14@ 450
            memset 13@ 0 8
            02E3: 13@ = car 12@ speed
            format 14@ "Speed: {dfda79}%g" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 415 color 0xFFffffff
            memset 13@ 0 8
            0227: 13@ = car 12@ health
            13@ /= 10
            format 14@ "Health: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 430 color 0xFFffffff
            alloc 17@ 128
            09B3: get_car_door_lock_status 12@ store_to 16@
            if 16@ == 0
            then format 17@ = "Doors: {dfda79}OPEN"
            else format 17@ = "Doors: {dfda79}CLOSED"
            end
            0B6F: render font 0@ draw_text 17@ pos 1@ 445 color 0xFFffffff
            memset 13@ 0 8
            0B2C: samp 13@ = get_vehicle_id_by_car_handle 12@
            format 14@ "ID: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 460 color 0xFFffffff
            memset 13@ 0 8
            0441: 13@ = car 12@ model
            format 14@ "Model: {dfda79}%d" 13@
            0B6F: render font 0@ draw_text 14@ pos 1@ 475 color 0xFFffffff
            free 14@
            free 17@       
  
            if key_down 119
            then
                free 6@
                free 8@
                free 11@
                if 00DF:   actor $PLAYER_ACTOR driving
                then
                    free 14@
                    free 17@
                end   
                wait 2000
            end
        end
    end           
end

:infobar
0B12: 3@ = 3@ XOR 1 
if 3@ == 1
then
    018C: play_sound 1052 at 0.0 0.0 0.0
end
if 3@ == 0
then
    018C: play_sound 1054 at 0.0 0.0 0.0
end 
CmdRet

ну значит забей хуй, этих информеров как грязи уже

Поиск

Поиск

Нужна помощь с CLEO! (Проблема с переменными)

Cerberus

Режим чтения

MISTER_GONWIK

Всефорумный гонщик

hnnssy

Известный

Cerberus

Режим чтения

Cerberus

Режим чтения

hnnssy

Известный

Похожие темы