Помогите сделать таймер

Статус
В этой теме нельзя размещать новые ответы.

Rapt0r6113

Известный
Автор темы
103
11
Здаров, хотел замутить таймер для капта на СРП
Использовал текстдравы
Для начальной версии хотел сделать активацию по комадне
Но скрипт начинает активироваться сам, когда захожу в игру
Все коменты по-поводу оформления шлю на *** ибо мне пох
За агрессию извиняюсь


код:
CLEO:
{$CLEO}
0000:  NOP

repeat
wait 0
until Samp.Available()
0B34: samp register_client_command "timer" to_label @timer
:timer
33@ = 1
Samp.CmdRet()
if
33@ == 1
then
jump @Cicl
else
end
repeat
:Cicl
5@ = 15
0C48: samp textdraw 420 create "15" 5@ pos 70.0 200.0
0C4C: samp textdraw 420 set_style 2
wait 60000 ms
0C5E: samp textdraw 420 delete
jump @Cicl2
else_jump @Cicl
:Cicl2
5@ = 14
0C48: samp textdraw 421 create "14" 5@ pos 70.0 200.0
0C4C: samp textdraw 421 set_style 2
wait 60000 ms
0C5E: samp textdraw 421 delete
jump @Cicl3
:Cicl3
5@ = 13
0C48: samp textdraw 422 create "13" 5@ pos 70.0 200.0
0C4C: samp textdraw 422 set_style 2
wait 60000 ms
0C5E: samp textdraw 422 delete
jump @Cicl4
:Cicl4
5@ = 12
0C48: samp textdraw 423 create "12" 5@ pos 70.0 200.0
0C4C: samp textdraw 423 set_style 2
wait 60000 ms
0C5E: samp textdraw 423 delete
jump @Cicl5
:Cicl5
5@ = 11
0C48: samp textdraw 424 create "11" 5@ pos 70.0 200.0
0C4C: samp textdraw 424 set_style 2
wait 60000 ms
0C5E: samp textdraw 424 delete
jump @Cicl6
:Cicl6
5@ = 10
0C48: samp textdraw 425 create "10" 5@ pos 70.0 200.0
0C4C: samp textdraw 425 set_style 2
wait 60000 ms
0C5E: samp textdraw 425 delete
jump @Cicl7
:Cicl7
5@ = 9
0C48: samp textdraw 426 create "9" 5@ pos 70.0 200.0
0C4C: samp textdraw 426 set_style 2
wait 60000 ms
0C5E: samp textdraw 426 delete
jump @Cicl8
:Cicl8
5@ = 8
0C48: samp textdraw 427 create "8" 5@ pos 70.0 200.0
0C4C: samp textdraw 427 set_style 2
wait 60000 ms
0C5E: samp textdraw 427 delete
jump @Cicl9
:Cicl9
5@ = 7
0C48: samp textdraw 428 create "7" 5@ pos 70.0 200.0
0C4C: samp textdraw 428 set_style 2
wait 60000 ms
0C5E: samp textdraw 428 delete
jump @Cicl10
:Cicl10
5@ = 6
0C48: samp textdraw 429 create "6" 5@ pos 70.0 200.0
0C4C: samp textdraw 420 set_style 2
wait 60000 ms
0C5E: samp textdraw 429 delete
jump @Cicl11
:Cicl11
5@ = 5
0C48: samp textdraw 430 create "5" 5@ pos 70.0 200.0
0C4C: samp textdraw 430 set_style 2
wait 60000 ms
0C5E: samp textdraw 430 delete
jump @Cicl12
:Cicl12
5@ = 4
0C48: samp textdraw 431 create "4" 5@ pos 70.0 200.0
0C4C: samp textdraw 431 set_style 2
wait 60000 ms
0C5E: samp textdraw 431 delete
jump @Cicl13
:Cicl13
5@ = 3
0C48: samp textdraw 432 create "3" 5@ pos 70.0 200.0
0C4C: samp textdraw 432 set_style 2
wait 60000 ms
0C5E: samp textdraw 432 delete
jump @Cicl14
  :Cicl14
5@ = 2
0C48: samp textdraw 433 create "2" 5@ pos 70.0 200.0
0C4C: samp textdraw 433 set_style 2
wait 60000 ms
0C5E: samp textdraw 433 delete
jump @Cicl15
:Cicl15
5@ = 1
0C48: samp textdraw 434 create "1" 5@ pos 70.0 200.0
0C4C: samp textdraw 434 set_style 2
wait 60000 ms
0C5E: samp textdraw 434 delete
wait 100 ms
00BC: show_text_highpriority GXT 'Capture ended' time 1000 flag 1
33@ = 0
repeat
 
Последнее редактирование модератором:

SR_team

like pancake
BH Team
4,804
6,475
Lua:
script_name("Capture timer")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

require "lib.moonloader"
require "lib.sampfuncs"

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("ctimer", cmd)

    local fMin = 15
    local fSec = 0
    while true do
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            wait(1000)
            if fSec > 0 then
                fSec = fSec - 1
            elseif fmin > 0
                fMin = fMin - 1
                fSec = 59
            else
                enabled = false
                sampTextdrawDelete(420)
                printTextNow('Capture ended', 1000, 1)
            end
            if sampTextdrawIsExists(420) then
                sampTextdrawSetString(420, string.format("%02d:%02d", fMin, fSec))
            end
---------------------------------------------------------------------------
        else wait(0)
        end
    end
end

function cmd(param)
    enabled = not enabled
    if enabled then
        sampTextdrawCreate(420, "15:00", 70.0, 200.0)
        sampTextdrawSetStyle(420, 2)
    else if sampTextdrawIsExists(420) then
        sampTextdrawDelete(420)
    end
end
 

Rapt0r6113

Известный
Автор темы
103
11
Lua:
script_name("Capture timer")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

require "lib.moonloader"
require "lib.sampfuncs"

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("ctimer", cmd)

    local fMin = 15
    local fSec = 0
    while true do
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            wait(1000)
            if fSec > 0 then
                fSec = fSec - 1
            elseif fmin > 0
                fMin = fMin - 1
                fSec = 59
            else
                enabled = false
                sampTextdrawDelete(420)
                printTextNow('Capture ended', 1000, 1)
            end
            if sampTextdrawIsExists(420) then
                sampTextdrawSetString(420, string.format("%02d:%02d", fMin, fSec))
            end
---------------------------------------------------------------------------
        else wait(0)
        end
    end
end

function cmd(param)
    enabled = not enabled
    if enabled then
        sampTextdrawCreate(420, "15:00", 70.0, 200.0)
        sampTextdrawSetStyle(420, 2)
    else if sampTextdrawIsExists(420) then
        sampTextdrawDelete(420)
    end
end
я так понимаю это в VS запихивать, так?
 
Статус
В этой теме нельзя размещать новые ответы.