было делать нечего и я написал такой макрос.

[IBotMan]

Просто прикольный макрос.
Он будет действовать когда боту дадут немного денег.
Незабудьте в конфиге dealAuto 2
automacro fushfuxi {
console /You gained (.*) zeny/
call {
do e no1

:start
$zad = @random ("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13")
if ($zad = 1) goto xulapa1
if ($zad = 2) goto xulapa2
if ($zad = 3) goto xulapa3
if ($zad = 4) goto xulapa4
if ($zad = 5) goto xulapa5
if ($zad = 6) goto xulapa6
if ($zad = 7) goto xulapa7
if ($zad = 8) goto xulapa8
if ($zad = 9) goto xulapa9
if ($zad = 10) goto xulapa10
if ($zad = 11) goto xulapa11
if ($zad = 12) goto xulapa12
if ($zad = 13) goto xulapa13


:xulapa1

do c Пациент:
pause 1.5
do c - Доктор, у меня х*й не стоит!
pause 1.5
do c Доктор (подозрительно):
pause 1.5
do c - А кого это вы тут еб**ь собрались?
goto :end

:xulapa2

do c - А мне тут замуж предложили выйти...
pause 1.5
do c - Поздравляю, а кто ?
pause 1.5
do c - Родители...
goto :end

:xulapa3

do c - Сынок, что это у тебя в ухе? Серьга!?
pause 1.5
do c Серьги в ухе носят либо пираты, либо педерасты.
pause 1.5
do c Сейчас я открою дверь в твою комнату, и если не увижу там пиратского корабля...
pause 1.5
do c - я не знаю, что с тобой сделаю!!!
goto :end

:xulapa4

do c Маленькие хитрости:
pause 1.5
do c Так как дутар имеет три струны,
pause 1.5
do c то на одной гитаре могут одновременно играть сразу два узбека.
goto :end

:xulapa5

do c - Сынок, иди кушать, я тут тебе котлеток пожарила!
pause 1.5
do c - М-м-м, вкусно, как "Орбит" - сочная котлета!!!
goto :end

:xulapa6

do c Новости высокой моды!Последние веяния моды в мужской одежды!
pause 1.5
do c Мужчина должен быть слегка неряшлив!
pause 1.5
do c Или ширинка расстёгнута, или рукав в дерьме.
goto :end

:xulapa7

do c - Бабушка, ты сама пришла?
pause 1.5
do c - Сама, внучек, сама.
pause 1.5
do c - А мама сказала, что тебя черти принесли
goto :end

:xulapa8

do c Истинную ценность человеческого общения понимаешь тогда,
pause 1.5
do c когда получаешь счет от провайдера...
goto :end

:xulapa9

do c Новобранец жалуется:
pause 1.5
do c - Товарищ старшина, смотрите, что мне выдали: брюки только до колен,
pause 1.5
do c рубаха болтается, рукава коротки, сапоги хлябают, глядеть страшно.
pause 1.5
do c - Все в порядке,- сказал старшина,- воин должен внушать страх.
goto :end

:xulapa10

do c Школа. Урок труда.
pause 1.5
do c Учитель: -Основное правило техники безопасности: ПАЛЬЦЫ В РОЗЕТКУ НЕ СОВАТЬ!!!
pause 1.5
do c Ученик: -Так они туда не влазят...
pause 1.5
do c Учитель: -А ТЫ ГВОЗДИКИ ВОЗЬМИ, ПРИДУРОК
goto :end

:xulapa11

do c - Кобзона - в Израиль, Меладзе - в Грузию, Макаревича - в Белоруссию,
pause 1.5
do c Киркорова - в Болгарию...
pause 1.5
do c - А Моисеева куда?
pause 1.5
do c - В жопу!
goto :end

:xulapa12

do c Получив на День Рождения ролики, Маша думала,
pause 1.5
do c что это — лучший подарок на свете.
pause 1.5
do c Правда, уже через полчаса она поняла,
pause 1.5
do c что лучший подарок — это новые передние зубы.
goto :end

:xulapa13

do c - Женись на мне.
pause 1.5
do c - Но ты же жаба.
pause 1.5
do c - Но мы же в сказке!
pause 1.5
do c - Но ты же реально жаба!
goto :end

:end
}
}

Внимание, т.к. макрос содержит русские символы, то файл macros.txt необходимо сохранить в кодировке UTF-8 и закомментировать 1-ю строчку (значком #)

[4epT]

делать было нечего дело было вечером

[qwer]

спасибо за макрос )
над этим макросом весь сервак угарал )
а бот заработал 300к )
:)
побольшеб таких макросов.ы

[Блэйз]

чё та я не понял?? а как деньги то просить??

[4epT]

пипшешь в общий чат дайте "1 z" и ждёшь пока дадут, если у тебя всё правильно настроено, то твой бот расскажет анекдот:D

[Зависть]

сидел читал... просто угар!!! особенно про "орбит"-сочная котлета и как бабушку черти принесли!!! вообще отпад... чуть со стула не упал!!!!

[papaz0glo]

кому не лень? пополните кол-во анекдотов. =)

[~Incubus~]

Ыыыыы а мне пишет
Loading control/macros.txt...
control/macros.txt: ignoring '##################' (munch, munch, strange food)
error loading control/macros.txt.

чё за вата?? я довал боту и 1 зени и 1000 нифига молчит сцука((((

Сам фаил макрос

##################
###########Buff####
##################
automacro Buff {
pubm /buf|agi|bles/i,10
call {
pause 2
do sp 34 @player($.lastpub)
pause 0.5
do sp 29 @player($.lastpub)
pause 2
do sp 73 @player($.lastpub)
pause 2
do sp 66 @player($.lastpub)
pause 2
release Buff
}
run-once 1
}

automacro heal {
pubm /heal|hil/i,10
call {
pause 2
do sp 28 @player($.lastpub)
pause 0.5
do sp 28 @player($.lastpub)
pause 2
release heal
}
run-once 1
}
########End#######

################################################## ################
################### Detekt ###################
################################################## ################

automacro gmDetected {
console /^Remove perfectly hidden Player/
timeout 3
call gmAlert
}

macro gmAlert {
do eval WinUtils::playSound('D:\Games\RO\Sound\GMnear.wav' );
do ai off
}
################################################## ################
########################## !!!End!!! ###########################
################################################## ################

###########################
##########Anekdot##########
###########################
automacro fushfuxi {
console /You gained 1 zeny/
call {
do e no1

:start
$zad = @random ("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13")
if ($zad = 1) goto xulapa1
if ($zad = 2) goto xulapa2
if ($zad = 3) goto xulapa3
if ($zad = 4) goto xulapa4
if ($zad = 5) goto xulapa5
if ($zad = 6) goto xulapa6
if ($zad = 7) goto xulapa7
if ($zad = 8) goto xulapa8
if ($zad = 9) goto xulapa9
if ($zad = 10) goto xulapa10
if ($zad = 11) goto xulapa11
if ($zad = 12) goto xulapa12
if ($zad = 13) goto xulapa13


:xulapa1

do c Пациент:
pause 1.5
do c - Доктор, у меня х*й не стоит!
pause 1.5
do c Доктор (подозрительно):
pause 1.5
do c - А кого это вы тут еб**ь собрались?
goto :end

:xulapa2

do c - А мне тут замуж предложили выйти...
pause 1.5
do c - Поздравляю, а кто ?
pause 1.5
do c - Родители...
goto :end

:xulapa3

do c - Сынок, что это у тебя в ухе? Серьга!?
pause 1.5
do c Серьги в ухе носят либо пираты, либо педерасты.
pause 1.5
do c Сейчас я открою дверь в твою комнату, и если не увижу там пиратского корабля...
pause 1.5
do c - я не знаю, что с тобой сделаю!!!
goto :end

:xulapa4

do c Маленькие хитрости:
pause 1.5
do c Так как дутар имеет три струны,
pause 1.5
do c то на одной гитаре могут одновременно играть сразу два узбека.
goto :end

:xulapa5

do c - Сынок, иди кушать, я тут тебе котлеток пожарила!
pause 1.5
do c - М-м-м, вкусно, как "Орбит" - сочная котлета!!!
goto :end

:xulapa6

do c Новости высокой моды!Последние веяния моды в мужской одежды!
pause 1.5
do c Мужчина должен быть слегка неряшлив!
pause 1.5
do c Или ширинка расстёгнута, или рукав в дерьме.
goto :end

:xulapa7

do c - Бабушка, ты сама пришла?
pause 1.5
do c - Сама, внучек, сама.
pause 1.5
do c - А мама сказала, что тебя черти принесли
goto :end

:xulapa8

do c Истинную ценность человеческого общения понимаешь тогда,
pause 1.5
do c когда получаешь счет от провайдера...
goto :end

:xulapa9

do c Новобранец жалуется:
pause 1.5
do c - Товарищ старшина, смотрите, что мне выдали: брюки только до колен,
pause 1.5
do c рубаха болтается, рукава коротки, сапоги хлябают, глядеть страшно.
pause 1.5
do c - Все в порядке,- сказал старшина,- воин должен внушать страх.
goto :end

:xulapa10

do c Школа. Урок труда.
pause 1.5
do c Учитель: -Основное правило техники безопасности: ПАЛЬЦЫ В РОЗЕТКУ НЕ СОВАТЬ!!!
pause 1.5
do c Ученик: -Так они туда не влазят...
pause 1.5
do c Учитель: -А ТЫ ГВОЗДИКИ ВОЗЬМИ, ПРИДУРОК
goto :end

:xulapa11

do c - Кобзона - в Израиль, Меладзе - в Грузию, Макаревича - в Белоруссию,
pause 1.5
do c Киркорова - в Болгарию...
pause 1.5
do c - А Моисеева куда?
pause 1.5
do c - В жопу!
goto :end

:xulapa12

do c Получив на День Рождения ролики, Маша думала,
pause 1.5
do c что это — лучший подарок на свете.
pause 1.5
do c Правда, уже через полчаса она поняла,
pause 1.5
do c что лучший подарок — это новые передние зубы.
goto :end

:xulapa13

do c - Женись на мне.
pause 1.5
do c - Но ты же жаба.
pause 1.5
do c - Но мы же в сказке!
pause 1.5
do c - Но ты же реально жаба!
goto :end

:end
}
###########################
#############END###########
###########################


скажите что тут не то•••••••• а то над этой фишкой поорать хочеца.....

[4epT]

control/macros.txt: ignoring '##################' (munch, munch, strange food)это означает, что дибильный виндовсовский блокнот насрал в начало файла когда ты его сохранял в utf-8. Т.е. это нормально.

error loading control/macros.txt.
А вот это. Хз по каким причинам, у тя вообще хоть 1 макрос работает?

позже:
Хм щас запихал твой макрос к себе и ошибка тоже вылетела..

[4epT]

~Incubus~, кароче иди копируй заного макрос с анегдотами и не кого не дури!
у тя не хватает символа "}"

[~Incubus~]

~Incubus~, кароче иди копируй заного макрос с анегдотами и не кого не дури!
у тя не хватает символа "}"

эмм "}" где?

ыы нашел)))

хм а что надо сделать чтобы блокнот не срал?!?!)

[4epT]

~Incubus~, пользоваться другим редактором, блоктон всегда срёт, забей это не принципиально, ра работу бота не сказывается.

[maxno]

мoжно вапрос а как кта так сахранить по падробней плз

Внимание, т.к. макрос содержит русские символы, то файл macros.txt необходимо сохранить
в кодировке UTF-8 и закомментировать 1-ю строчку (значком #

как я понил ета надо так зделать macros.UTF-8.txt?

[4epT]

maxno, нед.. никому так больше не говори..
в блокноте "файл -> сохранить как.."

[AmsTaFF]

может уже стоит обновить анекдотную сетку... =)

[4epT]

AmsTaFF, кому делать нечего - тому и флаг в руки ;)
научить бы анегдоты с файла почитывать..

[AmsTaFF]

можно плагин написать... но я не умею ... но блин ... даже если бы и умел, то мне не настолько делать нечего... =)

[AHTOHFW]

странно, перекопировал макрос, запустил бота, а он просто стоит....

[4epT]

а ты ему денег дал??

лог в студию

[CERBER]

#####Анекдоты
automacro fushfuxi {
console /You gained (.*) zeny/
call {
do e no1

:start
$zad = @random ("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")
if ($zad = 1) goto xulapa1
if ($zad = 2) goto xulapa2
if ($zad = 3) goto xulapa3
if ($zad = 4) goto xulapa4
if ($zad = 5) goto xulapa5
if ($zad = 6) goto xulapa6
if ($zad = 7) goto xulapa7
if ($zad = 8) goto xulapa8
if ($zad = 9) goto xulapa9
if ($zad = 10) goto xulapa10
if ($zad = 11) goto xulapa11
if ($zad = 12) goto xulapa12
if ($zad = 13) goto xulapa13
if ($zad = 13) goto xulapa14
if ($zad = 13) goto xulapa15
if ($zad = 13) goto xulapa16
if ($zad = 13) goto xulapa17
if ($zad = 13) goto xulapa18
if ($zad = 13) goto xulapa19
if ($zad = 13) goto xulapa20
if ($zad = 13) goto xulapa21
if ($zad = 13) goto xulapa22
if ($zad = 13) goto xulapa23
if ($zad = 13) goto xulapa24
if ($zad = 13) goto xulapa25


:xulapa1

do c Пациент:
pause 1.5
do c - Доктор, у меня х*й не стоит!
pause 1.5
do c Доктор (подозрительно):
pause 1.5
do c - А кого это вы тут еб**ь собрались?
goto :end

:xulapa2

do c - А мне тут замуж предложили выйти...
pause 1.5
do c - Поздравляю, а кто ?
pause 1.5
do c - Родители...
goto :end

:xulapa3

do c - Сынок, что это у тебя в ухе? Серьга!?
pause 1.5
do c Серьги в ухе носят либо пираты, либо педерасты.
pause 1.5
do c Сейчас я открою дверь в твою комнату, и если не увижу там пиратского корабля...
pause 1.5
do c - я не знаю, что с тобой сделаю!!!
goto :end

:xulapa4

do c Маленькие хитрости:
pause 1.5
do c Так как дутар имеет три струны,
pause 1.5
do c то на одной гитаре могут одновременно играть сразу два узбека.
goto :end

:xulapa5

do c - Сынок, иди кушать, я тут тебе котлеток пожарила!
pause 1.5
do c - М-м-м, вкусно, как "Орбит" - сочная котлета!!!
goto :end

:xulapa6

do c Новости высокой моды!Последние веяния моды в мужской одежды!
pause 1.5
do c Мужчина должен быть слегка неряшлив!
pause 1.5
do c Или ширинка расстёгнута, или рукав в дерьме.
goto :end

:xulapa7

do c - Бабушка, ты сама пришла?
pause 1.5
do c - Сама, внучек, сама.
pause 1.5
do c - А мама сказала, что тебя черти принесли
goto :end

:xulapa8

do c Истинную ценность человеческого общения понимаешь тогда,
pause 1.5
do c когда получаешь счет от провайдера...
goto :end

:xulapa9

do c Новобранец жалуется:
pause 1.5
do c - Товарищ старшина, смотрите, что мне выдали: брюки только до колен,
pause 1.5
do c рубаха болтается, рукава коротки, сапоги хлябают, глядеть страшно.
pause 1.5
do c - Все в порядке,- сказал старшина,- воин должен внушать страх.
goto :end

:xulapa10

do c Школа. Урок труда.
pause 1.5
do c Учитель: -Основное правило техники безопасности: ПАЛЬЦЫ В РОЗЕТКУ НЕ СОВАТЬ!!!
pause 1.5
do c Ученик: -Так они туда не влазят...
pause 1.5
do c Учитель: -А ТЫ ГВОЗДИКИ ВОЗЬМИ, ПРИДУРОК
goto :end

:xulapa11

do c - Кобзона - в Израиль, Меладзе - в Грузию, Макаревича - в Белоруссию,
pause 1.5
do c Киркорова - в Болгарию...
pause 1.5
do c - А Моисеева куда?
pause 1.5
do c - В жопу!
goto :end

:xulapa12

do c Получив на День Рождения ролики, Маша думала,
pause 1.5
do c что это — лучший подарок на свете.
pause 1.5
do c Правда, уже через полчаса она поняла,
pause 1.5
do c что лучший подарок — это новые передние зубы.
goto :end

:xulapa13

do c - Женись на мне.
pause 1.5
do c - Но ты же жаба.
pause 1.5
do c - Но мы же в сказке!
pause 1.5
do c - Но ты же реально жаба!
goto :end

:xulapa14

do c - Я прошу руки вашей дочери.
pause 1.5
do c - Молодой человек, а вы выпиваете?
pause 1.5
do c - Да, но это потом.Сперва надо дельце состряпать.
goto :end

:xulapa15

do c -Встретились найт и круз.
pause 2.5
do c -Найт:- Я смотрю, у тебя необычный меч... Hе боишься потерять?
pause 2.5
do c - Hет, это особенный меч. Я просто не смогу его потерять!
pause 2.5
do c - Hу а если ты случайно забудешь его в кустах?
pause 2.5
do c - Тогда я найду его,почувствовав его силу.
pause 2.5
do c - Hу а если ты кинешь его в воду?
pause 2.5
do c - Он необычный меч, и не тонет в воде! Это невозможно!
pause 2.5
do c - Hу а если ты потеряешь его в темноте?
pause 2.5
do c - Он светится в темноте! И его невозможно потерять!
pause 2.5
do c - Круто! А где ты его взял?
pause 2.5
do c - Hашел...
goto :end

:xulapa16

do c -ГМ инструктирует замов:
pause 2.5
do c - заму гильдии великого Гма могут сниться только три вещи: Рагнарок, ГВ и Великий ГМ!
pause 2.5
do c -Замы:- А голая женщина может сниться?
pause 2.5
do c - Может, но только с лицом великого ГМа!
goto :end

:xulapa17

do c -Найт в пати крузу:
pause 2.5
do c -найт - Круз, я орк лорда поймал!
pause 2.5
do c -круз- Так веди его сюды!
pause 2.5
do c -найт- Так он не идет!
pause 2.5
do c -круз- Тогда сам возвращайся!
pause 2.5
do c -найт- Так он не пускает…
goto :end

:xulapa18

do c -Спак сделал новый евент:
pause 2.5
do c -тому удальцу Рагнарока достанется 99лв,
pause 2.5
do c -кто пройдёт все карты без потов и хилов,
pause 2.5
do c -выбьет глаз Орк Лорду и изнасилует пристку не ниже 98 лв.
pause 2.5
do c -Вызвались всего трое.
pause 2.5
do c -Виз не прошёл все карты...мало нр.
pause 2.5
do c -Хант прошёл все карты,Орк Лорду глаз не выбил.
pause 2.5
do c -Вышел Круз. Перешёл всю карту. Потом пошел к Орк Лорду.Заманил его в дом.
pause 2.5
do c -Через какое-то время раздались дикие вопли, мат, бульканье, а потом все стихло.
pause 2.5
do c -Выходит Круз и говорит: "Ну где тут есть пристка 98 лв, которой глаз выбить надо?"
goto :end

:xulapa19

do c -Гв.У двух синов кончилось сп.Пришлось прятаться в кустах.
pause 2.5
do c -Первый:- Блин! Я в ...пип... вляпался!
pause 2.5
do c - И руку поднимает.
pause 2.5
do c -Второй громко смеется. Первый зажимает ему рот рукой
pause 2.5
do c - Да тише, ты!!!
goto :end

:xulapa20

do c -Найт спрашивает Паладина:
pause 2.5
do c - Что ты будешь делать, если узнаешь, что завтра наступит "конец серверу"?
pause 2.5
do c - Да я просто начну т*ахать все, что шевелится!!! А ты что будешь делать?
pause 2.5
do c - Постараюсь не шевелиться!
goto :end

:xulapa21

do c -(анекдот на тему"как не любят хантов")Идут два круза. Навстречу Хант.
pause 2.5
do c -первый Круз: - Давай Ханту морду набьем!
pause 2.5
do c -второй Круз: - А если он нам?
pause 2.5
do c -первый Круз: - А нам-то за что?
goto :end

:xulapa22

do c -Поймал Хант золотую рыбку.
pause 2.5
do c -Рыбка: Отпусти меня, хант, я любое твоё желание выполню!
pause 2.5
do c -Хант: Хорошо. Хочу, чтоб я оказался сейсач в андере!
pause 2.5
do c -Рыбка: Не, я не знаю, где этот твой андер находится, не могу желание выполнить.
pause 2.5
do c -Хант: Тогда, сделай так,чтоб хантов перестали унижать и называть читерами,стали нас любить и уважать!
pause 2.5
do c -Рыбка подумала и сказала: -Так...доставай карту, будет искать твой андер.
goto :end

:xulapa23

do c -Новис с Хелпером.
pause 2.5
do c -помогите сдать профу на мага
pause 2.5
do c -идёшь в Гефен..по левой стороне,выше центра будет гильдия магов.Там всё объяснят.
pause 2.5
do c -Через несколько минут:
pause 2.5
do c -а где Гефен ?
pause 2.5
do c -Идёшь к ВарпРе..нажимаешь на неё и там всё понятно.
pause 2.5
do c -Через несколько минут
pause 2.5
do c -а где Я??
pause 2.5
do c - У тебя в школе что по биологии было?....
pause 2.5
do c -Новис:- Четверка...
pause 2.5
do c -Хелпер:- Если в этот раз на *** пошлю - не заблудишься?
goto :end

:xulapa24

do c -Сидит наркоман... грызет семечки..
pause 2.5
do c -одну уронил.. смотрит на нее и говорит
pause 2.5
do c - иди сюда.
pause 2.5
do c -семечка не идет: =)
pause 2.5
do c -иди сюда!
pause 2.5
do c -Ноль эмоций:
pause 2.5
do c -иди сюда епть!
pause 2.5
do c -бросает еще горсть семечек на
pause 2.5
do c -зелмю и командует:
pause 2.5
do c - ПРИВЕДИТЕ ЕГО!!!!
goto :end

:xulapa25

do c -Виз:- Представьте себе, что Брюс Ли пытается ударить вас ногой в живот. Ваши действия?
pause 2.5
do c -Прист:- У мя кири...не попадёт!
pause 2.5
do c -Хант:- У мя фли много,увернусь !
pause 2.5
do c -Син:- я в хайд.
pause 2.5
do c -Один Круз молчит.
pause 2.5
do c -Виз:- Ну а ты, Круз, что будешь делать?
pause 2.5
do c - Ничего.
pause 2.5
do c - То есть как это - ничего?
pause 2.5
do c - А пусть бьет. Пусть себе ноги ломает.
goto :end

:end
}
}

ВО мне делать нечего на работе и я написал *bravo*
:)Проверти меня на ошибки :-[
Работает :)

[4epT]

ну нах.. сам проверяйся, много буков..

всё равно плагин для башорга рулит