CLEO Help Sanny builder error

CLEO related
Status
Not open for further replies.

der_Hahn

Member
Joined
Jul 3, 2015
Messages
11
Reaction score
0
Hi! I have downloaded a new Cleo script ( " NewDL " ) . The script is working perfectly in-game if I do not open it in sannybuilder to edit it , but when I try to compile the script in sannybuilder, it gaves me an error . If I try to solve this error, i see another error etc:

xW7mEEy.png


Here is the script:
Code:
 {$CLEO}
thread "PRIME-HACK.NET" 
1337: make_script_private true 
if 8AF7: get_samp_base_to 33@
then 0A93: end_custom_thread
end
repeat 
wait 400
until 0AFA: is_samp_structures_available
msg "{6666ff}[NewDL]: {ffffff}Àâòîð {FF4444}SR_team{ffffff}." -1
msg "{FF4444}Prime-Hack.net{ffffff}, {6666ff}BlastHack.net{ffffff}, - ñàéòû äëÿ íàñòîÿùèõ ÷èòåðîâ!" -1
cmd "dll" @NewDL
29@ = Render.CreateFont("Arial", 7, 4)

While true
tmp
if 31@ == 1
    then
    068D: get_camera_position_to 14@ 15@ 16@
    if 0AE2: 0@ = random_vehicle_near_point 14@ 15@ 16@ in_radius 36000.0 find_next 0 pass_wrecked 1
        then
        repeat
        0227: 8@ = car 0@ health
        0441: 21@ = car 0@ model
        09B3: get_car_door_lock_status 0@ store_to 25@
        00AA: store_car 0@ position_to 3@ 4@ 5@
        0B55: convert_3D_coords 3@ 4@ 5@ to_screen 6@ 7@
        03F3: get_car 0@ primary_color_to 22@ secondary_color_to 23@
        0B2C: samp 2@ = get_vehicle_id_by_car_handle 0@
        if and
        06BD:  no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 0 car 0 actor 0 object 0 particle 0
        02CA:  car 0@ bounding_sphere_visible
        00C2:   sphere_onscreen 3@ 4@ 5@ radius 0.0
        01AF:  car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 22.5 22.5 22.5
            then
            gosub @NewDL_Text
            else
            if and
            06BD:  no_obstacles_between 3@ 4@ 5@ and 14@ 15@ 16@ solid 1 car 0 actor 0 object 1 particle 0
            02CA:  car 0@ bounding_sphere_visible
            00C2:   sphere_onscreen 3@ 4@ 5@ radius 0.0
            01AF:  car 0@ sphere 0 in_sphere 14@ 15@ 16@ radius 125.0 125.0 125.0
                then
                gosub @NewDL_Text
                end
            end
        until 8AE2: 0@ = random_vehicle_near_point 14@ 15@ 16@ in_radius 36000.0 find_next 1 pass_wrecked 1
        end
    end
end   
:NewDL
0b12: 31@ = 31@ XOR 1
if 31@ == 1
    then
    msg "[PRIME-HACK.NET]: {ffffff}Íîâûé DL {44FF44}âêëþ÷åí" 0x44FF44    
    alloc 17@ = 20 
    alloc 18@ = 48 
    alloc 19@ = 64 
    alloc 20@ = 24  
    alloc 24@ = 24  
    else
    msg "[PRIME-HACK.NET]: {ffffff}Íîâûé DL {FF4444}âûêëþ÷åí" 0x44FF44  
    free 17@
    free 18@
    free 19@
    free 20@
    free 24@
    end
cmdret

:NewDL_Text 
format 17@ = "Id: {ffffff}%d" 2@
3@ = Render.FontDrawLength(29@, 17@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 20
Render.DrawText(29@, 17@, 12@, 13@, 0xEB60FF60)
format 19@ = "Model: {EBffffff}%d" 21@
3@ = Render.FontDrawLength(29@, 19@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8F: 13@ = 7@ - 10
Render.DrawText(29@, 19@, 12@, 13@, 0xEB6060FF) 
format 18@ = "Health: {EBffffff}%d" 8@
3@ = Render.FontDrawLength(29@, 18@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 0
Render.DrawText(29@, 18@, 12@, 13@, 0xEBFF6060)
if 25@ == 0
    then format 20@ = "Doors: {44FF44}open"
    else format 20@ = "Doors: {FF4444}closed"
    end 
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 10
Render.DrawText(29@, 20@, 12@, 13@, 0xEBEEB222)
format 20@ = "Colors: {EBffffff}%d %d" 22@ 23@
3@ = Render.FontDrawLength(29@, 20@)
3@ /= 2
0A8F: 12@ = 6@ - 3@
0A8E: 13@ = 7@ + 20
Render.DrawText(29@, 20@, 12@, 13@, 0xEBFF80FF)
return
 

Attachments

  • NewDL.cs
    21.7 KB · Views: 37
Status
Not open for further replies.
Top