Форум о ботах Eggdrop/Windrop

[NeiLL]

Хотелось бы скрипт команды !ip. Например, на канале заходит игрок и вводит команду !ip и бот пишет последний ip например,

•(21:27:20)• <Сангвиний> !ip
•(21:27:20)• <hon_bot> Сангвиний последний ip был записан в 21:19:43 проверь этот ip 10.164.167.7 All hero /q Gudmen +1 5x5

Вот так примерно чтоб было. Сделайте пожалуйста. За ранее благодарен вам!!! такой скрипт был написан на мирк-скрипт. а мне нужен на виндроп.

[NeiLL]

Хмм. думал не сложно будет сделать такой скрипт.

[tvrsh]

Да какие проблемы, держи. Все как ты попросил:

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

bind pub - !ip ip
proc ip {n u h c t} {
    putserv "PRIVMSG $c : $n последний ip был записан в [rand 24]:[rand 60]:[rand 60] проверь этот ip [rand 255].[rand 255].[rand 255].[rand 255] All hero /q Gudmen +1 5x5"
}

[NeiLL]

Не так сделал tvrsh!
Должен быть так,игрок заходит на игровой канал, и он вводит команду "!ip" и бот показывает ip который последний рекламированный на канале, например:
•(18:00:15)• <NeiLL> 10.1.1.2 -ap /q neill
•(18:00:32)• <NeiLL> 10.1.1.3 -apso /q gudmen
•(18:00:41)• <NeiLL> 10.1.1.4 -apso /q qwerty
•(18:00:44)• <NeiLL> !ип
•(18:00:44)• <HoN_BoT> NeiLL последний ip был записан в 18:00:41 проверь этот ip 10.1.1.4 -apso /q qwerty
*и еще надо биндить 3 разные ip начинаются они: 10.*.*.*
94.*.*.*
46.*.*.*
вот эти ip нашего провайдера.
спс за ранее.

[NeiLL]

походу скрипт не реальный!!!

[tvrsh]

Хватит ныть.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

bind pubm - * catch
proc catch {nick uhost hand chan text} {
global ip
    if {[string match "10.*" [lindex [split $text] 0]] || [string match "94.*" [lindex [split $text] 0]] || [string match "46.*" [lindex [split $text] 0]]} {
        set ip "[unixtime]|$text"
    }
}

bint pub - !ip send
proc send {nick uhost hand chan text} {
global ip
    if {[info exists ip] && $ip != ""} {
        putserv "PRIVMSG $chan :$nick, последний ip был записан [expr [unixtime] - [lindex [split $ip "|"] 0]] секунд назад: [lindex [split $ip "|"] 1]"
    }
}

[NeiLL]

ОШИБКА:

4ОШИБКА
•(21:15:28)• <BotNet> 05-(Ошибка)- неверное количество аргументов: должно быть "catch nick uhost hand chan text"
•(21:15:28)• <BotNet> 05-(Ошибка)- при выполнении
•(21:15:28)• <BotNet> 05-(Ошибка)- "catch {set savedErrorInfo $::errorInfo}"
•(21:15:28)• <BotNet> 05-(Ошибка)- (процедура "::unknown" строка 18)
•(21:15:28)• <BotNet> 05-(Ошибка)- вызванное из
•(21:15:28)• <BotNet> 05-(Ошибка)- "bint pub - !ip send"
•(21:15:28)• <BotNet> 05-(Ошибка)- Более 6 строк. Прекращаю вывод.

[tvrsh]

Замени catch на catch2, чтобы название процедуры не совпадало с командой.