CLEO [Samp-RP]SuperMagaz

[Hustla1337]

Cleo SuperMagaz​

Суть:​

Позволяет быстро покинуть магазин одежды с формой, чтобы вы не пострадали

Полезно в случаях, когда залетают другие бандиты, на улице ждут менты.
А в безопасном месте вы спокойно от всего этого уйдёте/уедете/заберут друзья (нужное подчеркнуть)
Так же можно из безопасного места попасть в магазин, там стоят маркеры(просто встаёшь в маркер и тебя тпшит в магаз)

Если забежать персонажем без формы(в трусах, с бабой тоже работает), то вас сразу телепортирует на пикап переодевания)

Скриншоты: ЛС, СФ

Активация: автоматическая

 

[Renzzs]

Не понимаю в чем смысл его,наверное потому что не играю на срп,а так выглядит годно.

 

[Hustla1337]

Не понимаю в чем смысл его,наверное потому что не играю на срп,а так выглядит годно.

В магазе одежды бандиты могут взять форму, а эта тема кошерная очень и чтобы не была имбой она сразу одевается на бандитов. К сожалению эту форму легко снять убийством, поэтому госсники, и враги стараются убивать, а это клео позволяет при взятии формы сразу отправиться в безопасное место)

 

[nfs1234]

Ответь на один вопрос: зачем ты его закриптовал?

 

[nfs1234]

и если кто будет ныть, что тут стиллер лалала, вот код

Спойлер

hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end
{$CLEO .cs}
0000:
Thread "TGreen"
while not SAMP.Available()
wait 300
end
03BC: 0@ = create_sphere_at 578.30 -1477.67 14.86 radius 1.0
03BC: 1@ = create_sphere_at -1669.34 1007.70 7.92 radius 1.0
31@ = 1
while true
if 31@ == 1
    then gosub @magaz
end                      
wait 0
end

:magaz
while true

0665: get_char_model $PLAYER_ACTOR store_to 13@

if 00EC:   actor $PLAYER_ACTOR sphere 67 near_point 204.26 -7.81 1005.21 radius 20.0 20.0   // выход из магаза
    then
        if or
        13@ == 287
        13@ == 191
            then
                31@ = 0
                Actor.PutAt($PLAYER_ACTOR, 228.36, -8.08, 1001.21)
                    while true
                        gosub @exitmag    
                    wait 0
                    end
       
        end
end
if 00EC:   actor $PLAYER_ACTOR sphere 67 near_point 204.26 -7.81 1005.21 radius 20.0 20.0   // переодевание 
    then
        if
        13@ == 252
            then
                31@ = 0
                Actor.PutAt($PLAYER_ACTOR, 206.1 -2.63 1000.21)
                wait 1500
                31@ = 1
        end
        if
        13@ == 251
            then
                31@ = 0
                Actor.PutAt($PLAYER_ACTOR, 206.1 -13.90 1000.21)
                wait 1500
                31@ = 1
        end
end

if 00ED:   actor $PLAYER_ACTOR sphere 67 near_point 578.30 -1477.67 14.86 radius 1.0 1.0      // быстрое тп ЛС
    then
    Actor.PutAt($PLAYER_ACTOR, 493.57, -1495.93, 20.36)
    wait 300
    Actor.PutAt($PLAYER_ACTOR, 462.52, -1500.85, 30.06)    
end
if 00ED:   actor $PLAYER_ACTOR sphere 67 near_point 1669.34 1007.70 7.92 radius 1.0 1.0      // быстрое тп СФ
    then
    Actor.PutAt($PLAYER_ACTOR, -1686.47, 976.09, 24.67)
    wait 300
    Actor.PutAt($PLAYER_ACTOR, -1693.62, 952.08, 23.89)    
end                      
wait 0
end
return
Samp.CmdRet()
:exitmag   // тп из магаза
if 00EC:   actor $PLAYER_ACTOR sphere 67 near_point 458.47 -1501.21 31.04 radius 20.0 20.0
    then
        31@ = 1
        wait 300
        0AF9: samp say_msg "/clist 0"
        Actor.PutAt($PLAYER_ACTOR, 493.57 -1495.93 20.36)
        wait 700
        Actor.PutAt($PLAYER_ACTOR, 579.97, -1482.31 14.96)
        jump @magaz    
end
if 00EC:   actor $PLAYER_ACTOR sphere 67 near_point -1696.97 949.07 24.89 radius 20.0 20.0
    then
        31@ = 1
        wait 300
        0AF9: samp say_msg "/clist 0"
        Actor.PutAt($PLAYER_ACTOR, -1686.47 976.09 24.67)
        wait 700
        Actor.PutAt($PLAYER_ACTOR, -1673.29 1017.21 7.92)
        jump @magaz    
end
return
Samp.CmdRet()

 

[Hustla1337]

Ответь на один вопрос: зачем ты его закриптовал?

не видишь код-не можешь сказать, что он убогий)

 

[nfs1234]

не видишь код-не можешь сказать, что он убогий)

обычный код. вроде ничего лишнего

 

[pepsi1]

Сделайте какую-нибудь активацию для данного клео.
/formlstp или /formsftp на подобии этого, чтобы на всякий случай не спалиться. Теперь админы стали следить за этой хернёй с ограблением.

 

[Sk1F]

Клео очень годное, но желательно сделай активацию на команду, будет на много проще!

 

[Edvard]

Что за сервер был на видео ? Это же не самп рп , как ты взял скин на гражданке командой /skin ?