rendered paste bodyon *:TEXT:*#*:#enet:{
if ($nick isreg $chan) {
cs kick $chan $nick Don't advertise. (Nas)
}
}
on *:JOIN:#enet: {
notice $nick 0,114(11( e0NetWork 11)14)0,10 CS EAST Pub Server 24/7 D2| connect 64.242.243.31:27016
notice $nick 0,114(11( e0NetWork 11)14)0,10 CS WEST Pub Server 24/7 D2| connect 216.224.123.61:1337
notice $nick 0,114(11( 11e0NetWork 11)14) 0Join our Vent and hang around in our vent at 208.100.14.171;4014
}
; Startup Commands - (User(s) & Trigger)
on *:START:{
.auser 5 *!*@Nas-Bot.user.gamesurge
.auser 5 *!*@Niaaz.*.gamesurge
.auser 5 *!*@bberg.*.gamesurge
.auser 5 *!*@wee017.linux.gamesurge
.auser 5 *!*@bberg.owned.gamesurge
.auser 5 *!*@Log1x.loves.Milon
.auser 5 *!*odE@odE.e-thug.gamesurge
.auser 5 *!*nexus.soldier.gamesurge
echo -a overdose mIRC Bot. Made by Nas @ #Nas
set %trigger .
set %od #
}
; Commands
on 5:TEXT:*:#:{
if ($1 == .op) { mode # +o $2
cs addop # $2
notice $nick $2 is now opped in $chan $+ . }
if ($1 == .deop) { mode # -o $2
cs deluser # $2
notice $nick $2 is now deopped in $chan $+ . }
if ($1 == .voice) { mode # +v $2
cs addpeon # $2
notice $nick $2 is now voiced in $chan $+ . }
if ($1 == .devoice) { mode # -v $2
cs deluser # $2
notice $nick $2 is now devoiced in $chan $+ . }
if ($1 == .clvl) { cs # clvl $2 $3
notice $nick $2 has been clvled to $3 in $chan $+ . }
if ($1 == .kick) { kick # $2 You have been kicked by $nick $+ . }
if ($1 == .raw) { $2- | notic $nick The raw command $2- has been issued. }
if ($1 == .ban) { ban # $2 }
if ($1 == .kb) { ban -k # $2 You have been kicked+banned by $nick $+ . }
if ($1 == .topic) { cs # topic $2- | notice $nick The topic of # has been changed to $2- }
if ($1 == .say) { msg $chan $2- }
if ($1 == .me) { describe $chan $2- }
if ($1 == .amsg) { amsg $2- }
if ($1 == .join) { join $2 }
if ($1 == .part) { part $2 }
if ($1 == .partall) { join #0,0 }
if ($1 == .channels) { $chans }
if ($1 == .weather) { weather $2 }
}
; Weather
alias weather {
sockclose weather- $+ $replace($1-,$chr(32),+)
sockopen weather- $+ $replace($1-,$chr(32),+) www.weather.com 80
}
on *:SOCKOPEN:weather*:{
sockwrite -n $sockname GET /weather/local/ $+ $gettok($sockname,2-,45) $+ ?lswe= $+ $gettok($sockname,2-,45) $+ &lwsa=WeatherLocalUndeclared&from=whatwhere HTTP/1.1
sockwrite -n $sockname Host: www.weather.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic
sockwrite -n $sockname $crlf
}
on *:sockread:weather*: {
sockread %temp
if (Updated isin %temp) {
set %we.update $nohtml(%temp) | haltdef
}
if (</B></TD> isin %temp) {
if (</B></TD> isin %temp) {
set %we.cond $remove($nohtml(%temp),$chr(9)) | haltdef
}
}
if (ALIGN="left"><H2 CLASS="moduleTitleBar"><B>Right Now for</B><BR> isin %temp) {
set %we.loc $remove($remove($gettok($nohtml(%temp),3-,32),for),Save this Location) | haltdef
}
if (Feels Like isin %temp) {
set %we.temp $remove($nohtml(%temp),$chr(9)) | set %we.temperature $remove($replace($gettok(%we.temp,1,32),°, $+ $chr(176)),Feels) | set %we.feelslike feels like $replace($gettok(%we.temp,3,32),°, $+ $chr(176)) | haltdef
}
if (*CLASS="obsTextA">*%</td>* iswm %temp) {
set %we.hum %temp | set %we.humidity $gettok($gettok(%we.hum,2,62),1,60) | haltdef
}
if (*CLASS="obsTextA">*mph</td>* iswm %temp) {
set %we.wind %temp | set %we.windex $gettok($gettok(%we.wind,2,62),1,60) | haltdef
}
if (*CLASS="obsTextA">*°*</td>* iswm %temp) {
set %we.dew %temp | set %we.dewpoint $replace($gettok($gettok(%we.dew,2,62),1,60),°, $+ $chr(176)) | haltdef
}
if (sunrise: isin %temp) {
set %we.sunrise $remove($nohtml(%temp),$chr(9),sunrise:)
}
if (sunset: isin %temp) {
set %we.sunset $remove($nohtml(%temp),$chr(9),sunset:)
}
if (*CLASS="obsTextA">*miles</td>* iswm %temp) {
set %we.vis %temp | set %we.visibility $gettok($gettok(%we.vis,2,62),1,60) | haltdef
}
}
on *:SOCKCLOSE:weather*:{
msg %od 10,1(15 Weather10 ) (15 Location10:15 %we.loc $+ 10 ) (15 Tempature10:15 %we.temperature %we.feelslike $+ 10 ) (15 Humidity10:15 %we.humidity $+ 10 ) (15 Visibility10:15 %we.visibility $+ 10 ) (15 Wind10:15 %we.windex $+ 10 ) (15 Dew Point10:15 %we.dewpoint $+ 10 ) (15 Sunrise10:15 %we.sunrise $+ 10 ) (15 Sunset10:15 %we.sunset $+ 10 ) | unset %we.* | unset %temp
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
; Channels
alias chans { var %a 1 | while ($chan(%a)) { var %chan = $iif($me isop $chan(%a),@ $+ $chan(%a),$iif($me isvoice $chan(%a),+ $+ $chan(%a),$chan(%a))) | var %chans = $iif(%chans,%chans $+ $chr(44) $+ %chan,%chan) | inc %a } | return %chans }