Рисование в mIRCcproc {
dline @calculator 5
if ($sline(@calculator,1).ln == 1) {
set %coper +
goto oper
}
if ($sline(@calculator,1).ln == 2) {
set %coper -
goto oper
}
if ($sline(@calculator,1).ln == 3) {
set %coper *
goto oper
}
if ($sline(@calculator,1).ln == 4) {
set %coper /
goto oper
}
per
set %ca $$?="Первое число"
set %cb $$?="Второе число"
set %cres $calc(%ca %coper %cb)
if (%cres == $null) { aline 4 @calculator Недопустимая операция! | halt }
aline @calculator %ca %coper %cb = %cres
}
Нажмите, чтобы раскрыть...
В mIRC32 есть опция, позволяющая рисовать. Рассмотрим несколько примеров подобного творчества. Нарисуем обычный домик в отдельном окне, которео назовем @domik. Для этого добавим небольшой скрипт в раздел Aliases (Alt+A):
Код:
Скопировать в буфер обмена
dl {
window -kap @domik
drawrect -f @domik 1 5 240 150 180 300
drawline @domik 1 5 242 150 330 5
drawline @domik 1 5 330 5 416 150
drawrect -f @domik 0 5 295 250 70 90
drawline @domik 1 5 330 250 330 340
drawline @domik 1 5 295 280 330 280
drawtext @domik 1 277 100 Happy new year
}
и выполним команду "/dl". Теперь можете гордиться собой! Вы настоящий художник!
Рассмотрим подробнее, что означают странные цифры и команды:
1. window -kap @domik - создаем графическое (-p) окно @domik, активизируем его (-a) и скрываем символ собаки перед именем окна для красоты (-k).
2. drawrect -f @domik 1 5 240 150 180 300 - рисуем большой прямоугольник и заливаем его черным цветом.
3. drawline @domik 1 5 242 150 330 5
drawline @domik 1 5 330 5 416 150
drawrect -f @domik 0 5 295 250 70 90
drawline @domik 1 5 330 250 330 340
drawline @domik 1 5 295 280 330 280 - рисуем остальные части домика.
4. drawtext @domik 1 277 100 Happy new year - поздравление с новым годом.
Вот собственно и все, что нужно для начинающего художника... А теперь сохраним свой эскиз в bmp файле, набрав "/drawsave @domik c:dom.bmp" и рисунок успешно сохранится у тебя на винте.
Ох уж эти окна! Еще немного об окнах. Окна бывают не только графические, но и текстовые, с возможностью выбрать что-либо из списка (как окна, вызываемые при "/list" или "/links") и другие.
Для примера, сделаем небольшую программу калькулятор, которая будет выполнять элементарные действия над числами.
Перейдем в меню "Remote" (Alt+R) и напишем туда следующее:
Код:
Скопировать в буфер обмена
menu @calculator {
dclick: cproc
}
Этим скриптом мы создали сценарий на дабл-клик в окне @calculator.
Далее пишем снова в "Aliases":
Этим алиасом создаем окошко-список @calculator (-l) и добавляем в него строчки (названия операций) командой "/aline [цвет] <окно> <текст>". Особо любопытные могут сохранить скрипт и запустить команду "/calc", но mIRC будет ругаться при попытке выбрать что-либо, что нет такой команды "cproc". Вот ее то мы сейчас и создадим (также в "Aliases"):
Сам скрипт состоит из двух частей. В первой - инициализация переменной %coper (что делать то с числами), предварительно стираем строку с будущим результатом. Переменная $sline с ключом ln показывает номер выбранной строки, он то нам и нужен.
После определения операции, переходим ко второй части, непосредственно запроса двух чисел и подсчета результата, который будет аккуратно вписан в пятую строку. Если вместо чисел вы введете буквы или разделите на 0, то будет выведена строка "Недопустимая операция!" и скрипт завершит работу.
Вот собственно и все... Конечно, про окна можно писать мегабайты информации, так как существует туча опций и переменных для работы с ними, плюс куча сценариев и выпадающих меню...
Источник: http://mirca.ru