SannyBuilder ajutor

[TLG Gab]

@shanker'

 

Salut, doresc sa fac un modulet simplu care sa dea repair si refill tuturor jucatorilor din jur pe un dolar

/repair id 1 si refill id 1

gen sa dea si repair si refill tuturor jucatorilor din zona printr-o singura comanda, mai exact sa dau /mec si sa dea si repair si refill tuturor din zona

[TLG Gab]

am facut asta dar nu merge

{$CLEO}

0000:

repeat
    wait 0
until 0AFA:

0B34: samp register_client_command "mec" to_label @mec

while true
    wait 0

    if 0@ == 1
    then
        0@ = 0
        
        for 1@ = 0 to 999
            if SAMP.IsPlayerConnected(1@)
            then
                2@ = SAMP.GetActorHandleByPlayerID(1@)
                if 056D:   actor 2@ defined
                then
                    00A0: store_actor 2@ position_to 3@ 4@ 5@
                    00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@
                    050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
                    if not 9@ > 15.0
                    then say "/repair %d 1" and "refill %d 1" 1@
                    end
                    wait 500
                end
            end
        end
    end
end

:mec
0@ = 1
0B43: samp cmd_ret

[Andreigl]

{$CLEO}

0000:

repeat
    wait 0
until 0AFA:

0B34: samp register_client_command "mec" to_label @mec

while true
    wait 0

    if 0@ == 1
    then
        0@ = 0
        
        for 1@ = 0 to 999
            if SAMP.IsPlayerConnected(1@)
            then
                2@ = SAMP.GetActorHandleByPlayerID(1@)
                if 056D:   actor 2@ defined
                then
                    00A0: store_actor 2@ position_to 3@ 4@ 5@
                    00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@
                    050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
                    if not 9@ > 15.0
                    then 
                        say "/repair %d 1" 1@
                        wait 200
                        say "/refill %d 1" 1@
                    end
                    wait 1000
                end
            end
        end
    end
end

:mec
0@ = 1
0B43: samp cmd_ret

 

[TLG Gab]

@shanker'

Are un delay cam mare, gen dau /mec si dureaza ceva ceva pana cand executa comenzile

[Andreigl]

Îl poți modifica de unul singur.

[TLG Gab]

Nu prea reusesc, am incercat ceva ceva, dar dupa ce dau /mec dureaza cam 10 secunde pana o ia din loc.

@shanker'

[Andreigl]

18 minutes ago, South GabYGaBuTzU said:

Nu prea reusesc, am incercat ceva ceva, dar dupa ce dau /mec dureaza cam 10 secunde pana o ia din loc.

@shanker'

A, greșeala mea, scuze.

 

{$CLEO}

0000:

repeat
    wait 0
until 0AFA:

0B34: samp register_client_command "mec" to_label @mec

while true
    wait 0

    if 0@ == 1
    then
        0@ = 0
        
        for 1@ = 0 to 999
            if SAMP.IsPlayerConnected(1@)
            then
                2@ = SAMP.GetActorHandleByPlayerID(1@)
                if 056D:   actor 2@ defined
                then
                    00A0: store_actor 2@ position_to 3@ 4@ 5@
                    00A0: store_actor $PLAYER_ACTOR position_to 6@ 7@ 8@
                    050A: 9@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 6@ 7@ 8@
                    if not 9@ > 15.0
                    then 
                        say "/repair %d 1" 1@
                        wait 200
                        say "/refill %d 1" 1@
			wait 1000
                    end
                end
            end
        end
    end
end

:mec
0@ = 1
0B43: samp cmd_ret

 

[TLG Gab]

@shanker'

Doamne ajuta, esti genial, multumesc mult.

[Andreigl]

Nu ai pentru ce!

[SirDaniel]

Topic inchis.