Вывод текста

pwned · 10 Ноя 2017

Как вывести текст на экран,чтобы его можно было перемещать через команду?

Типо вот такого, ответы/выпуски

LUCHARE · 10 Ноя 2017

CLEO:

{$CLEO}
0000:

const
TOGGLE      = 0@
TOGGLE_MOVE = 1@
end

const
hFONT = 2@
SX    = 3@
SY    = 4@
end

const
YELLOW = 0xFFFF5000
end

SX = 150
SY = 400

repeat
    wait 100
until SAMP.Available()

0B34: samp register_client_command "en" to_label @toggle
0B34: samp register_client_command "mov" to_label @move

while true
    wait 0
    if TOGGLE == true
    then
        0B6F: render font hFONT draw_text "LEL" pos SX SY color YELLOW
    end
    while TOGGLE_MOVE == true
        wait 0
        0B5E: get_cursor_pos SX SY
        0B6F: render font hFONT draw_text "LEL" pos SX SY color YELLOW
        if key_down 1
        then
            TOGGLE_MOVE = false
        end
    end
end

:toggle
0B12: TOGGLE = TOGGLE XOR 1
SAMP.CmdRet()

:move
0B12: TOGGLE_MOVE = TOGGLE_MOVE XOR 1
SAMP.CmdRet()

pwned · 10 Ноя 2017

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

CLEO:

{$CLEO}
0000:

const
TOGGLE      = 0@
TOGGLE_MOVE = 1@
end

const
hFONT = 2@
SX    = 3@
SY    = 4@
end

const
YELLOW = 0xFFFF5000
end

SX = 150
SY = 400

repeat
    wait 100
until SAMP.Available()

0B34: samp register_client_command "en" to_label @toggle
0B34: samp register_client_command "mov" to_label @move

while true
    wait 0
    if TOGGLE == true
    then
        0B6F: render font hFONT draw_text "LEL" pos SX SY color YELLOW
    end
    while TOGGLE_MOVE == true
        wait 0
        0B5E: get_cursor_pos SX SY
        0B6F: render font hFONT draw_text "LEL" pos SX SY color YELLOW
        if key_down 1
        then
            TOGGLE_MOVE = false
        end
    end
end

:toggle
0B12: TOGGLE = TOGGLE XOR 1
SAMP.CmdRet()

:move
0B12: TOGGLE_MOVE = TOGGLE_MOVE XOR 1
SAMP.CmdRet()

Ничего не происходит

LUCHARE · 10 Ноя 2017

trundec написал(а):
Ничего не происходит

/en

pwned · 10 Ноя 2017

LUCHARE написал(а):
/en

Все равно ничего

LUCHARE · 10 Ноя 2017

добавь после цикла с проверкой загрузки сампа

CLEO:

0B6D: render hFONT = create_font "IMPACT" height 11 flags 8

pwned · 10 Ноя 2017

LUCHARE написал(а):
добавь после цикла с проверкой загрузки сампа

CLEO:

0B6D: render hFONT = create_font "IMPACT" height 11 flags 8

а как правильно вставить туда функцию??

LUCHARE · 10 Ноя 2017

trundec написал(а):
а как правильно вставить туда функцию??

какую?

pwned · 10 Ноя 2017

LUCHARE написал(а):
какую?

Вот мне надо, чтобы в тексте выводили цифры которые изи ini файла я буду добавлять за введенную команду
И надо чтобы это отображалось в этом тексте

kraft1k · 10 Ноя 2017

trundec написал(а):
Вот мне надо, чтобы в тексте выводили цифры которые изи ini файла я буду добавлять за введенную команду
И надо чтобы это отображалось в этом тексте

У тебя вопрос не корректный

BlackKnigga · 10 Ноя 2017

trundec написал(а):
Вот мне надо, чтобы в тексте выводили цифры которые изи ini файла я буду добавлять за введенную команду
И надо чтобы это отображалось в этом тексте

Надо так делай, за тебя уже итак больше половины написали

LUCHARE · 10 Ноя 2017

CLEO:

{$CLEO}
0000:

const
TOGGLE      = 0@
TOGGLE_MOVE = 1@
BUF         = 2@
end

const
hFONT = 2@
TEXT  = 3@
SX    = 4@
SY    = 5@
end

const
YELLOW = 0xFFFF5000
end

SX = 150
SY = 400
0AC6: BUF = label @buff offset

if 8AAB: file not_exists "cleo\values.ini"
then     
    0AF1: write_int   333 to_ini_file "cleo\values.ini" section "Values" key "Integer"
    0AF3: write_float 3.3 to_ini_file "cleo\values.ini" section "Values" key "Float"
end

repeat
    wait 100
until SAMP.Available()

0B6D: render hFONT = create_font "IMPACT" height 11 flags 8

0B34: samp register_client_command "en" to_label @toggle
0B34: samp register_client_command "mov" to_label @move

while true
    wait 0
    if TOGGLE == true
    then
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
    end
    while TOGGLE_MOVE == true
        wait 0
        0B5E: get_cursor_pos SX SY
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
        if key_down 1
        then
            TOGGLE_MOVE = false
        end
    end
end

:toggle
0B12: TOGGLE = TOGGLE XOR 1
SAMP.CmdRet()

:move
0B12: TOGGLE_MOVE = TOGGLE_MOVE XOR 1
SAMP.CmdRet()

:get_values
0AF0: 1@ = get_int_from_ini_file "cleo\values.ini" section "Values" key "Integer"
0AF2: 2@ = get_float_from_ini_file to_ini_file "cleo\values.ini" section "Values" key "Float"
0AD3: 0@ = format "First value: %d | Second value: %f" 1@ 2@ 
ret 1 0@

:buff
hex
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0 
end

pwned · 10 Ноя 2017

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

CLEO:

{$CLEO}
0000:

const
TOGGLE      = 0@
TOGGLE_MOVE = 1@
BUF         = 2@
end

const
hFONT = 2@
TEXT  = 3@
SX    = 4@
SY    = 5@
end

const
YELLOW = 0xFFFF5000
end

SX = 150
SY = 400
0AC6: BUF = label @buff offset

if 8AAB: file not_exists "cleo\values.ini"
then    
    0AF1: write_int   333 to_ini_file "cleo\values.ini" section "Values" key "Integer"
    0AF3: write_float 3.3 to_ini_file "cleo\values.ini" section "Values" key "Float"
end

repeat
    wait 100
until SAMP.Available()

0B6D: render hFONT = create_font "IMPACT" height 11 flags 8

0B34: samp register_client_command "en" to_label @toggle
0B34: samp register_client_command "mov" to_label @move

while true
    wait 0
    if TOGGLE == true
    then
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
    end
    while TOGGLE_MOVE == true
        wait 0
        0B5E: get_cursor_pos SX SY
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
        if key_down 1
        then
            TOGGLE_MOVE = false
        end
    end
end

:toggle
0B12: TOGGLE = TOGGLE XOR 1
SAMP.CmdRet()

:move
0B12: TOGGLE_MOVE = TOGGLE_MOVE XOR 1
SAMP.CmdRet()

:get_values
0AF0: 1@ = get_int_from_ini_file "cleo\values.ini" section "Values" key "Integer"
0AF2: 2@ = get_float_from_ini_file to_ini_file "cleo\values.ini" section "Values" key "Float"
0AD3: 0@ = format "First value: %d | Second value: %f" 1@ 2@
ret 1 0@

:buff
hex
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0
end

Код:

{$CLEO}
0000:

const
TOGGLE      = 0@
TOGGLE_MOVE = 1@
BUF         = 2@
end

const
hFONT = 2@
TEXT  = 3@
SX    = 4@
SY    = 5@
end

const
YELLOW = 0xFFFF5000
end

SX = 150
SY = 400
0AC6: BUF = label @buff offset


repeat
    wait 100
until SAMP.Available()

0B6D: render hFONT = create_font "IMPACT" height 11 flags 4

0B34: samp register_client_command "en" to_label @toggle
0B34: samp register_client_command "mov" to_label @move
0B34: samp register_client_command "reply" to_label @reply

while true
    wait 0
    if TOGGLE == false
    then
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
    end
    while TOGGLE_MOVE == true
        wait 0
        0B5E: get_cursor_pos SX SY
        call @get_values 1 buff BUF returns TEXT
        0B6F: render font hFONT draw_text TEXT pos SX SY color YELLOW
        if key_down 1
        then
            TOGGLE_MOVE = false
        end
    end
end


:reply
SAMP.IsCommandTyped(0@)
alloc 5@ 256
0B35: samp 4@ = get_last_command_params
0AD3: 5@ = format "%s" 4@
0AD4: 14@ = scan_string 0@ format "%d %s" 12@ 13@
if
14@ == 2
jf @error
0AF9: samp say_msg "/reply %s" 4@
0AAD: set_mp3 16@ perform_action 1
0AF0: 3@ = get_int_from_ini_file "cleo\at.ini" section "Ответов" key "ReplyPoint"
0A8E: 6@ = 3@ + 1
0AF1: write_int 6@ to_ini_file "cleo\at.ini" section "Ответов" key "ReplyPoint"
0AF5: write_string 4@ to_ini_file "cleo\at.ini" section "Ответов" key "ReplyStr"
0AC9: free_allocated_memory 5@
SAMP.CmdRet()

:toggle
0B12: TOGGLE = TOGGLE XOR 1
SAMP.CmdRet()   

:move
0B12: TOGGLE_MOVE = TOGGLE_MOVE XOR 1
SAMP.CmdRet()

:error
0AAD: set_mp3 15@ perform_action 1
0AF8: "{FBBC3C}Ответ: {FFFFFF}Вы ввели неверное кол-во аргументов. Команда не была засчитана." 0xFBBC3C
SAMP.CmdRet()

:get_values
0AF0: 7@ = get_int_from_ini_file "cleo\at.ini" section "Ответов" key "ReplyPoint"
0AD3: 0@ = format "{FBBC3C}Ответов: {FFFFFF}%d" 7@
ret 1 0@

:buff
hex
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
0
end

Почему после ввода команды /reply - пропадает счетчик?

hnnssy · 10 Ноя 2017

я конечно не клео программист, но по-моему в :reply у тебя пиздец

LUCHARE · 11 Ноя 2017

Может быть потому что не стоит перезаписывать константы

Поиск

Поиск

Вывод текста

pwned

Участник

LUCHARE

Известный

pwned

Участник

LUCHARE

Известный

pwned

Участник

LUCHARE

Известный

pwned

Участник

LUCHARE

Известный

pwned

Участник

kraft1k

Вынь х*й из головы и все получится © hnnssy

BlackKnigga

Известный

LUCHARE

Известный

pwned

Участник

hnnssy

Известный

LUCHARE

Известный

Похожие темы