[CLEO] Arizona RP | FarmBot v0.2 | Бот фермер - Форум Cheat-Master.ru
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: Admin_Bot, Admin_Bot2, Admin_Bot3, Admin_Bot4  
Форум » Мусорка » Корзина » [CLEO] Arizona RP | FarmBot v0.2 | Бот фермер
[CLEO] Arizona RP | FarmBot v0.2 | Бот фермер
Kangurad Дата: Суббота, 29.09.2018, 20:35 | Сообщение # 1
Авторитет
Сообщений: 905
Статус: Offline
FarmBot v. 0.2.




Описание:


Бот на обновлённую ферму для сервера Arizona Role Play. Работает стабильно.
Не меняйте название файла, в противном случае, бот работать не будет.




Функции и преимущества:

  • Не скользит.
  • Рандомно выбирает кустик в радиусе 80 метров.
  • Если кустик уже кем-то занят, бот проигнорирует его и найдёт другой.
  • Если вдруг кустики закончились, бот не будет суетиться, а спокойно подождёт их появления.
  • Плавные развороты. (конфликтует с ExtraWS)
  • Для активации необходимо находиться на ферме. Идеальное место обозначено в виде 3D-текста.




  • Активация / Деактивация: /fbot




    Требования: cleo 4.3, SAMPFUNCS 5.3.3.








    Скачать: ТЫК




    Автор: astap_




    Исходник:

    Код

    {$CLEO}
    0000:
    THREAD "astap"
    0662: printstring "FarmBot | for Arizona Role Play"
    0662: printstring "Developer: astap_ | vk.com/fakeastap"
    0662: printstring "Primary Source: BLASTHACK.NET | blast.hk"

    :SA
    WAIT 0
    IF
    SAMP.Available()
    JF @SA
    0B34: samp register_client_command "fbot" to_label @rofl1
    WAIT 10000
    0C45: ЗD-TEXT 1488 "{FF8D00}>{FFFFFF} Активация: /fbot {FF8D00}<{FFFFFF}" COLOR -1 POS -105.85 100.82 3.12 30.0 TRUE PLAYER -1 VEHICLE -1
    CHATMSG "{FF8D00}[FarmBot | Arizona RP] {FFFFFF}успешно загружен!" -1
    CHATMSG "{FF8D00}[FarmBot | Arizona RP] {FFFFFF}Разработчик: {FF8D00}astap_{FFFFFF} | Специально для: {FF8D00}blast.hk" -1

    :fbot
    WAIT 0
    IF
    31@ == 1
    JF @fbot
    CALL @FindObject 0 15@ 1@ 2@ 3@ // 15@ - model
    IF
    15@ == 864
    JF @fbot
    IF
    CALL @CheckPlayer 2 1@ 2@
    JF @fbot
    0A8E: 16@ = 16@ + 1
    CALL @CharGoto 4 1@ 2@ 3@ TRUE
    CALL @SendKeySync 0
    WAIT 11000
    0373: set_camera_directly_behind_player
    0B56: set_game_key 1 state 128
    WAIT 500
    CALL @CharGoto 4 -105.85 100.82 3.12 TRUE
    0373: set_camera_directly_behind_player
    :fbot2
    WAIT 800
    IF
    803B: NOT 16@ == 17@ // (int)
    JF @fbotPay
    GOTO @fbot

    :fbotPay
    WAIT 1500
    CALL @CharGoto 4 -102.00 73.00 3.12 TRUE
    CALL @CharGoto 4 -80.57 82.70 3.12 FALSE
    CALL @SendPosKeySync 0
    WAIT 600
    CALL @CharGoto 4 -102.00 73.00 3.12 FALSE
    CALL @CharGoto 4 -117.00 89.00 3.12 TRUE
    16@ = 0
    GOTO @fbot

    :rofl1
    IF
    31@ == 0
    JF @rofl2
    GOTO @rofl3

    :rofl4
    0AF8: samp add_message_to_chat "{FF8D00}[FarmBot | Arizona RP]: {FFFFFF}Активация невозможна! Вы должны находиться на {FF8D00}ферме{FFFFFF}!" color 0xFFFFFF
    6@ = 0
    SAMP.CmdRet()

    :rofl3
    IF
    00ED: actor $PLAYER_ACTOR sphere 0 near_point -105.85 100.82 radius 35.0 35.0 on_foot
    JF @rofl4
    0B35: samp 20@ = get_last_command_params
    IF
    0AD4: 20@ = scan_string 20@ format "%d" 17@
    JF @error
    31@ = 1
    0AF8: samp add_message_to_chat "{FF8D00}[FarmBot | Arizona RP]: {FFFFFF}Бот активирован! Для деактивации введите команду ещё раз." color 0xFFFFFF
    018C: play_sound 1150 at 0.0 0.0 0.0
    6@ = 0
    SAMP.CmdRet()

    :rofl2
    31@ = 0
    018C: play_sound 1084 at 0.0 0.0 0.0
    0AF8: samp add_message_to_chat "{FF8D00}[FarmBot | Arizona RP]: {FFFFFF}Бот деактивирован! Дождитесь окончания цикла." color 0xFFFFFF
    16@ = 0
    SAMP.CmdRet()

    :error
    CHATMSG "{FF8D00}[FarmBot | Arizona RP]: {FFFFFF}Введите: /fbot {FF8D00}[кол-во циклов]" 0xFFFFFF
    6@ = 0
    SAMP.CMDRET()

    :SendPosKeySync
    0B2B: samp 21@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    ALLOC 1@ 68
    0BBA: samp store_player 21@ onfoot_data 1@
    0C0D: struct 1@ offset 4 size 2 = 1024
    0C0D: struct 1@ offset 6 size 4 = -80.57
    0C0D: struct 1@ offset 10 size 4 = 82.70
    0C0D: struct 1@ offset 14 size 4 = 3.12
    0BC0: samp send_onfoot_data 1@
    FREE 1@
    RET 0

    :SendKeySync
    0B2B: samp 21@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    ALLOC 1@ 68
    0BBA: samp store_player 21@ onfoot_data 1@
    0C0D: struct 1@ offset 4 size 2 = 1024
    0BC0: samp send_onfoot_data 1@
    FREE 1@
    RET 0

    :CheckPlayer
    0A8E: 2@ = 2@ + 1
    0039: 2@ == 997
    JF @CheckPlayer1
    2@ = 0
    RET 0

    :CheckPlayer1
    0B23: samp is_player_connected 2@
    JF @CheckPlayer
    0B20: samp 3@ = actor_handle_by_samp_player_id 2@
    056D: actor 3@ defined
    JF @CheckPlayer
    80ED: NOT actor 3@ 0 near_point 0@ 1@ radius 5.0 5.0 on_foot
    JF @CheckPlayerFalse
    GOTO @CheckPlayer

    :CheckPlayerFalse
    2@ = 0
    RET 0

    :FindObject
    Actor.StorePos($PLAYER_ACTOR, 1@ 2@ 3@)
    0AE3: 0@ = random_object_near_point 1@ 2@ 3@ in_radius 80.0 find_next 1
    0984: 4@ = object 0@ model
    01BB: store_object 0@ position_to 1@ 2@ 3@
    RET 4 4@ 1@ 2@ 3@

    :CharGoto
    REPEAT
    WAIT 0
    00A0: store_actor $PLAYER_ACTOR position_to 4@ 5@ 2@
    0063: 0@ -= 4@
    0063: 1@ -= 5@
    0604: get_Z_angle_for_point 0@ 1@ store_to 2@
    005B: 0@ += 4@
    005B: 1@ += 5@
    2@ *= 0.01745
    0A96: 4@ = actor $PLAYER_ACTOR struct
    4@ += 0x558
    0A8C: write_memory 4@ size 4 value 2@ virtual_protect 0
    0373: set_camera_directly_behind_player
    IF
    3@ == FALSE
    THEN
    4@ = 0xB73458
    4@ += 0x20
    0A8C: write_memory 4@ size 1 value 0 virtual_protect 0
    4@ = 0xB73458
    4@ += 0x3
    0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
    ELSE
    4@ = 0xB73458
    4@ += 0x20
    0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
    4@ = 0xB73458
    4@ += 0x3
    0A8C: write_memory 4@ size 1 value 255 virtual_protect 0
    END
    UNTIL 00ED: actor $PLAYER_ACTOR 0 near_point 0@ 1@ radius 0.8 0.8 on_foot
    0AB2: RET 0







    Аккаунт разрешен администратором AK47


    Сообщение отредактировал Help_Admins - Вторник, 02.10.2018, 17:26
    Celso_Alister Дата: Суббота, 29.09.2018, 21:11 | Сообщение # 2
    Боец
    Сообщений: 234
    Статус: Offline
    Классный скрипт, видел на другом сайте, поэтому скажу что для ленивых это самое оно, но увы, на аризоне заработать как нечего делать, скрипт для ленивых.

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

    My VK
    -----------------------------------------
    (CLEO)Софт для облегчённой поимки преступников

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

    (CLEO) Восстановление авто если оно перевёрнуто + кувырок на авто

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

    (Статья) SWAP - быстрая смена цены товара на ЦР (ИД ПРЕДМЕТОВ)

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

    (LUA) Три бота для Aurora RP

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

    (SF) Варнинги на Сбивы.

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

    (LUA) Anti Trailer Crasher - Защита от нового крашера.

    -----------------------------------------
    Kangurad Дата: Вторник, 02.10.2018, 17:12 | Сообщение # 3
    Авторитет
    Сообщений: 905
    Статус: Offline
    UP Обнова подъехала



    Аккаунт разрешен администратором AK47


    Сообщение отредактировал Help_Admins - Вторник, 02.10.2018, 17:21
    TNF Дата: Среда, 03.10.2018, 13:25 | Сообщение # 4
    野生の獣
    Сообщений: 83
    Статус: Offline
    На аризоне еще кто то на ферме работает? smile

    Kangurad Дата: Среда, 03.10.2018, 16:13 | Сообщение # 5
    Авторитет
    Сообщений: 905
    Статус: Offline
    Цитата TNF ()
    На аризоне еще кто то на ферме работает?

    Зайди и увидишь, все работают кому не лень)




    Аккаунт разрешен администратором AK47
    TNF Дата: Среда, 03.10.2018, 16:28 | Сообщение # 6
    野生の獣
    Сообщений: 83
    Статус: Offline
    Там вирты достать как два пальца. Зачем еще ботов ставить?) эх. Но клео полезное

    index21321 Дата: Среда, 03.10.2018, 20:45 | Сообщение # 7
    Новичок
    Сообщений: 1
    Статус: Offline
    Почему у меня слоумо когда его ставлю? Помогите плез

    azaza
    Kangurad Дата: Четверг, 04.10.2018, 14:28 | Сообщение # 8
    Авторитет
    Сообщений: 905
    Статус: Offline
    Цитата index21321 ()
    Почему у меня слоумо когда его ставлю? Помогите плез

    не знаю в чём у тебя проблема, UP

    Добавлено (06.10.2018, 05:11)
    ---------------------------------------------
    UP

    Добавлено (12.10.2018, 02:24)
    ---------------------------------------------
    Up

    Добавлено (15.10.2018, 02:24)
    ---------------------------------------------
    Up




    Аккаунт разрешен администратором AK47
    Ayrenia_Tuesday Дата: Пятница, 19.10.2018, 08:25 | Сообщение # 9
    Новичок
    Сообщений: 28
    Статус: Offline
    Хороший бот, но бывает не срабатывает команда что-бы "деактировать" ну а так все годно. happy

    Ja_Ka#
    Kangurad Дата: Суббота, 20.10.2018, 14:11 | Сообщение # 10
    Авторитет
    Сообщений: 905
    Статус: Offline
    UP



    Аккаунт разрешен администратором AK47
    1MERC1 Дата: Суббота, 20.10.2018, 22:35 | Сообщение # 11
    Сообщений: 2019
    Статус: Offline
    В раздел аризоны перенеси, всё таки для аризоны бот.

    НЕ НАЖИМАЙ
    Kangurad Дата: Воскресенье, 21.10.2018, 10:27 | Сообщение # 12
    Авторитет
    Сообщений: 905
    Статус: Offline
    Цитата Kenny13372 ()
    В раздел аризоны перенеси, всё таки для аризоны бот.

    Ок, сейчас отпишу




    Аккаунт разрешен администратором AK47
    XanderDiaz Дата: Понедельник, 05.11.2018, 20:00 | Сообщение # 13
    Новичок
    Сообщений: 8
    Статус: Offline
    пишу /fbot бежит фиг знает куда что делать?

    podpis boga
    Kangurad Дата: Вторник, 06.11.2018, 06:04 | Сообщение # 14
    Авторитет
    Сообщений: 905
    Статус: Offline
    Цитата XanderDiaz ()
    пишу /fbot бежит фиг знает куда что делать?

    Чит фикс, тему закрою

    Добавлено (06.11.2018, 06:04)
    ---------------------------------------------




    Аккаунт разрешен администратором AK47
    [M]icrosoft Дата: Суббота, 01.12.2018, 16:26 | Сообщение # 15
    Боец
    Сообщений: 64
    Статус: Offline
    TNF, скилл качнуть ну и квест пройти на 1 лвле
    Форум » Мусорка » Корзина » [CLEO] Arizona RP | FarmBot v0.2 | Бот фермер
    • Страница 1 из 2
    • 1
    • 2
    • »
    Поиск:
    Статистика Форума
    Лучшие пользователи
    Admin [39113]

    GеNius [7209]

    [CM]Russel [5557]

    kenlo763 [4952]

    [CM]AGRESSOR [4639]

    Snake_Firm [4452]

    Сэс [4416]

    Artem_Buero [4223]

    [CM]Durman [3204]

    [CM]Рафаэль [3080]

    iMaddy [2855]

    sky_Woker [2854]

    getrekt [2745]

    Новые пользователи
    pokotiloroman91 [18:24]

    stephensh5 [12:00]

    calliesv7 [06:11]

    louqm16 [22:14]

    artushak [16:32]

    Kingpolker [15:42]

    leeyv11 [15:12]

    Trappa17 [01:00]

    Djamalchik [16:40]

    ajeense [14:24]

    654470559 [08:55]

    Newtone [03:01]

    godspeed [21:31]