Есть ли такое cleo?

[Dark_Knight]

Он попросил не код, а уже скомпилированный скрипт. Вы человеку помогаете или письками меряетесь?

А тебе какая разница? Имея код не надо много ума, чтобы скопировать и скомпилировать.
Так же посмотри на вопросы, что задал пользователь.
"Есть ли такое Cleo?". Данный вопрос есть 3 ответа. "Да", "нет", "не знаю" от человека. Тут нигде нет просьбы, чтобы его скинуть.
"Или можно бы сделать такое cleo?". На этот можно ответит "да" или "нет" в зависимости от знаний человека работы с гта.
Вопрос теперь к тебе. Где он увидел, чтобы ТС(топикстартер) просил СКИНУТЬ эму это клео? Слепой чтоли?

 

[LUCHARE]

"Есть ли такое Cleo?". Данный вопрос есть 3 ответа. "Да", "нет", "не знаю" от человека. Тут нигде нет просьбы, чтобы его скинуть.
"Или можно бы сделать такое cleo?". На этот можно ответит "да" или "нет" в зависимости от знаний человека работы с гта.
Вопрос теперь к тебе. Где он увидел, чтобы ТС(топикстартер) просил СКИНУТЬ эму это клео? Слепой чтоли?

Значит он не умеет правильно выражать свои мысли, сам подумай, зачем ему знать можно сделать такое клео или нет?

Есть ли такое Cleo? Или можно бы сделать такое cleo?

Под этим он явно имел ввиду просьбу дать ему ссылку на данный скрипт или написать его.

 

[MISTER_GONWIK]

На это что скажешь?

Спойлер

{$CLEO}
const
Font = 0@
WantedLevel = 1@
String = 2@
StringDeleteVar = 3@
NULL = 0
StringSize = 16
end

while not samp.Available()
wait 200
end

0B6D: render Font = create_font "Verdana" height 12 flags 13
0ac8: String StringSize
0c11: memset NULL StringSize
format String "WANTED"

while true
wait 0
    0AB1: @getWantedLevel 0 return_to WantedLevel
    if WantedLevel > 0
    then
        0a8f: StringDeleteVar = 6 - WantedLevel
        if 3@ > 0
        then
            call @delete_last_chars_from_string 2 String  StringDeleteVar
        end
        0B6F: render font Font draw_text String pos 300 300 color 0xFFff0000
    end
end

:getWantedLevel
0A8D: 0@ = read_memory 0x58DB60 size 1 virtual_protect 0
0AB2: ret 1 0@

:delete_last_chars_from_string
var
0@: int
1@: int
2@: int
end
0C17: 2@ = strlen 0@
2@ -= 1@
0@ += 2@
0C11: memset 0@ 0 1@
ret 0

А ты?

Спойлер

{$CLEO .cs}
wait 0

while not samp.Available()
    wait 0
end

0B6D: render 0@ = create_font "Verdana" height 12 flags 13

while true
wait 0
    0AB1: @getWantedLevel 0 return: 1@
    if and
    1@ > 0
    1@ < 7
    then
        0AC6: 2@ = label @wanted offset
        DEC(1@)
        0012: 1@ *= 7
        0A8E: 3@ = 2@ + 1@ // int
        0B6F: render font 0@ draw_text 3@ pos 300 350 color 0xFFFF0000
    end
end

:getWantedLevel
0A8D: 0@ = read_memory 0x58DB60 size 1 virtual_protect 0
0AB2: ret 1 0@

:wanted
hex
    "W" 00 00 00 00 00 00
    "WA" 00 00 00 00 00
    "WAN" 00 00 00 00
    "WANT" 00 00 00
    "WANTE" 00 00
    "WANTED" 00  
end

{$CLEO .cs}
wait 0

var
    1@ : int
    2@ : int
end  

while not samp.Available()
    wait 0
end

0B6D: render 0@ = create_font "Verdana" height 12 flags 13

2@ = -1
while true
wait 0
    0AB1: @getWantedLevel 0 return: 1@
    if and
    1@ > 0
    1@ < 7
    then
        0AC6: 3@ = label @buff offset
        if not 2@ == 1@
        then
            0AC6: 4@ = label @wanted offset        
            0C24: strncpy destination 3@ source 4@ size 1@
            2@ = 1@
        end
        0B6F: render font 0@ draw_text 3@ pos 300 300 color 0xFFFF0000
    end
end

:getWantedLevel
0A8D: 0@ = read_memory 0x58DB60 size 1 virtual_protect 0
0AB2: ret 1 0@

:wanted
hex
    "WANTED" 0  
end

:buff
hex
    00 00 00 00 00 00 00
end

 

[Dark_Knight]

А ты?

Спойлер

{$CLEO .cs}
wait 0

while not samp.Available()
    wait 0
end

0B6D: render 0@ = create_font "Verdana" height 12 flags 13

while true
wait 0
    0AB1: @getWantedLevel 0 return: 1@
    if and
    1@ > 0
    1@ < 7
    then
        0AC6: 2@ = label @wanted offset
        DEC(1@)
        0012: 1@ *= 7
        0A8E: 3@ = 2@ + 1@ // int
        0B6F: render font 0@ draw_text 3@ pos 300 350 color 0xFFFF0000
    end
end

:getWantedLevel
0A8D: 0@ = read_memory 0x58DB60 size 1 virtual_protect 0
0AB2: ret 1 0@

:wanted
hex
    "W" 00 00 00 00 00 00
    "WA" 00 00 00 00 00
    "WAN" 00 00 00 00
    "WANT" 00 00 00
    "WANTE" 00 00
    "WANTED" 00 
end

{$CLEO .cs}
wait 0

var
    1@ : int
    2@ : int
end 

while not samp.Available()
    wait 0
end

0B6D: render 0@ = create_font "Verdana" height 12 flags 13

2@ = -1
while true
wait 0
    0AB1: @getWantedLevel 0 return: 1@
    if and
    1@ > 0
    1@ < 7
    then
        0AC6: 3@ = label @buff offset
        if not 2@ == 1@
        then
            0AC6: 4@ = label @wanted offset       
            0C24: strncpy destination 3@ source 4@ size 1@
            2@ = 1@
        end
        0B6F: render font 0@ draw_text 3@ pos 300 300 color 0xFFFF0000
    end
end

:getWantedLevel
0A8D: 0@ = read_memory 0x58DB60 size 1 virtual_protect 0
0AB2: ret 1 0@

:wanted
hex
    "WANTED" 0 
end

:buff
hex
    00 00 00 00 00 00 00
end

Пойдет. В своем коде я немного проебался. Надо было резевную строку еще сделать.

Значит он не умеет правильно выражать свои мысли, сам подумай, зачем ему знать можно сделать такое клео или нет?.

Как было написано, так и было сделано. Никто тут не из нас не ванга. Когда бы он попросил скрипт такой, то это уже будет совсем другая история.