Code: Select all
bind evnt - init-server my:procedure
proc my:procedure {type} {
putquick "PASS <nick-password here>" -next
putquick "OPER <oper-name> <oper-password here>" -next
}
#Substitute of the '/PASS <password>' mIRC command in TCL
putquick "PASS <nick-password here>"
#Substitute of the '/OPER <name> <password>' mIRC command in TCL
putquick "OPER <oper-name> <oper-password here>"
Code: Select all
putserv "PRIVMSG nickserv :identify Botie nickpass"
Code: Select all
putserv "PRIVMSG nickserv :identify nickpass"
Code: Select all
putserv "OPER <oper-name> <oper-password here>"