Jump to content

SannyBuilder ajutor


TLG Gab

Recommended Posts

@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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

{$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

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.