This script is using multiple scripts put together along with some person scripts. Credit currently remembered: Moo.dll, and Hawkee Snippet posts.
Paste in REMOTE
on *:TEXT:Hi.:#: .msg # Hello, $nick $+ !
on *:TEXT:*connor*:#: .msg Connor &nick Has said your name.
on *:TEXT:*Aurora*:#: .msg Connor &nick Has said your name.
on *:TEXT:*connor*:#: .msg Aurora &nick Has said your name.
on *:TEXT:*Aurora*:#: .msg Aurora &nick Has said your name.
on *:JOIN::$active: .msg $active Hello, $nick !
on *:PART:#: .msg $chan &nick Has Left %chan
on *:input:*: { if ($1 = lol) { .msg $active 04,01(07,01-08,01=04,01L07,01aughing 04,01O07,01ut 04,01L07,01oud04,01!!!08,01=07,01-04,01) } }
on *:input:*: { if ($1 = Lol.) { .msg $active 04,01(07,01-08,01=04,01L07,01aughing 04,01O07,01ut 04,01L07,01oud04,01!!!08,01=07,01-04,01) } }
on *:input:*: { if ($1 = Now Playing: Empty Walls) { .msg $active (-Now Playing: Empty Walls --Serj Tankian (http://www.playlist.com/aurora801) HHMP-) } }
on *:input:*: { if ($1 = Now Playing: Whatever) { .msg $active (-Now Playing: Whatever --GodSmack (http://www.playlist.com/aurora801) HHMP-) } }
on *:text:!calc*:#: {
if $1 == %c $+ .c {
if $2 == %c $+ $null { /calc $2- | halt }
else { /calc $2- | halt }
}
}
alias calc {
if ($1- != $null) {
msg $chan 01,04(14,04-15,04|14,04Calculating00,04:01,04 $1- 15,04|14,04-01,04)
msg $chan 01,04(14,04-15,04|14,04Result15,04|14,04-01,04)00,04== $calc($1-)
}
else msg $chan 01,04(14,04-15,04|14,0Calculater15,04|14,04-01,04) : No parameters given. Halting.
}
on *:OP:# $me: {
if ($opnick = $me)
.echo -a ( $nick ) Oped you in ( $chan )
.msg $chan Thanks, ( $nick )For The Op (+o)!!
}
on *:input:*: {
if ($1 = !google) && ($2) {
if ($chan = $null) {
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
}
on *:text:*!google*:*: {
if ($chan = $null) {
notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
}
alias htmlfrm {
var %i = 1,%r
while (%i <= $len($1-)) {
if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
inc %i
}
return %r
}
on *:input:*: {
;Connor's Hell Membership Script
on *:TEXT:*shit*:#: {
.notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell.
.mode +v $chan $nick
.msg ChanServ VOP $chan ADD $nick
.msg $nick You've been added to the $chan Voice (VOP) List.
.msg $chan $nick has been added to the $chan Voice (VOP) List.
}
on *:TEXT:!stats:#: {
var %key = $+($network,#,$nick)
msg # You wrote $hget(stats,$+(%key,words)) words and $hget(stats,$+(%key,letters)) letters
}
on 1:exit:hsave -a Stats Letter-Stats
on 1:start:hsave -a Stats Letter-Stats
on *:TEXT:*:#: {
hadd -m stats $+($network,#,$nick,words) $0
hadd -m stats $+($network,#,$nick,letters) $len($1-)
}
;Seen snippet v. 2.0 by Russel Bairstow (RusselB)
;last changes Apr. 27, 2005
on *:start:{
.hmake seen 100
if $exists(seen.hsh) { .hload seen seen.hsh }
}
on *:connect:{
if !$hget(seen) { .hmake seen 100 }
if $exists(seen.hsh) { .hload seen seen.hsh }
}
on *:exit:{ hsave -o seen seen.hsh }
on *:disconnect:{ hsave -o seen seen.hsh }
on !*:join:#:{
hadd -m seen $+(Name,$address) $addtok($hget(seen,$+(Name,$address)),$nick,32)
hadd -m seen $+(Join,$address) $ctime
hadd -m seen $+(Room,$address) $chan
if $hget(seen,$+(seen,$address)) {
.msg $nick The following people have been looking for you: $hget(seen,$+(seen,$address))
.hadd -m seen $+(seen,$address)
}
}
on *:text:!seen &:*: {
hadd -m seen $+(Text,$address) $ctime
var %address = $hfind(seen,$+(Name,$right($address($2,3),-3)),1,w)
var %chan = $hget(seen,$+(Room,%address))
if $2 ison %chan {
var %text = $hget(seen,$+(Text,%address))
var %action = $hget(seen,$+(Action,%address))
var %msg = $iif((%text > %action),saying something at $asctime(%text),performing an action at $asctime(%action))
.msg $nick I last saw $2 %msg
}
else {
hadd -m seen $+(seen,%address) $addtok($hget(seen,$+(Seen,%address)),$nick,32)
var %part = $gettok($hget(seen,$+(Part,%address)),1,32)
var %quit = $gettok($hget(seen,$+(Quit,%address)),1,32)
var %kick = $gettok($hget(seen,$+(Kick,%address)),1,32)
if (%part > %quit) && (%part > %kick) { .msg $nick I last saw $2 parting %chan at $asctime(%part) with the message $remtok($hget(seen,$+(Part,%address)),$gettok($hget(seen,$+(Part,%address)),1,32),1,32) }
elseif (%quit > %part) && (%quit > %kick) { .msg $nick I last saw $2 quitting %chan at $asctime(%quit) with the message $remtok($hget(seen,$+(Quit,%address)),$gettok($hget(seen,$+(Quit,%address)),1,32),1,32) }
else .msg $nick I last saw $2 being kicked from %chan at $asctime(%kick) by $gettok($hget(seen,$+(Kick,%address)),-1,32)
}
}
on *:text:*:*:{ hadd -m seen $+(Text,$address) $ctime }
on *:nick:{ hadd -m seen $+(Name,$address) $addtok($hget(seen,$+(Name,$address)),$newnick,32) }
on *:action:*:*:{ hadd -m seen $+(Action,$address) $ctime }
on *:part:#:{
hadd -m seen $+(Part,$address) $ctime $1-
hsave -o seen seen.hsh
}
on *:quit:{
hadd -m seen $+(Quit,$address) $ctime $1-
hsave -o seen seen.hsh
}
on *:kick:#:{
hadd -m seen $+($knick,$gettok($address($knick,5),2,33)) $ctime $nick
hsave -o seen seen.hsh
}
on $*:text:/^[!](w|weather|f|forecast)/Si:#: {
if ($group(#weather) == on) { msg $chan Please wait a bit }
if ($group(#weather) == off) {
if ($istok(!w !weather,$1,32)) {
if ($2 isnum && $len($2) = 5 && !$3) {
set %whzip $2 | set %whchan $chan | .enable #weather
sockopen weather www.weather.com 80
}
if ($2 isnum && $len($2) = 5 && $3 == forecast) {
set %whzip $2 | set %whfc on | set %whchan $chan
.enable #weather | sockopen weather www.weather.com 80
}
}
if ($istok(!f !forecast,$1,32)) {
if ($2 isnum && $len($2) = 5) {
set %whzip $2 | set %whfc on | set %whchan $chan
.enable #weather | sockopen weather www.weather.com 80
}
}
}
}
; Usage /weatherm 12345 or /weatherm 12345 forecast
alias weatherm {
if ($active ischan) {
if ($1 isnum && $len($1) == 5) {
if (!$2) { set %whzip $1 | set %whchan $chan | .enable #weather }
if ($2) { set %whzip $1 | set %whfc on | set %whchan $chan | .enable #weather }
sockopen weather www.weather.com 80
}
}
if ($active !ischan) { echo -a Invalid window. (Use a channel window) }
}
#weather off
on *:sockopen:weather: {
sockwrite -n $sockname GET /outlook/travel/businesstraveler/local/ $+ %whzip $+ ?lswe= $+ %whzip $+ &lwsa=Weather36HourBusinessTravelerCommand&from=searchbox_localwx
sockwrite -n $sockname Host: www.weather.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname Authorization: Basic
sockwrite -n $sockname $crlf
}
on *:sockread:weather: {
sockread %whtemp
if (Right Now for isin %whtemp) { set %whloc $remove($nohtml(%whtemp),Right Now for,Save Location,$chr(9)) }
if (%whfc != on) {
if (alt=""/><br/><strong class="obsTextA"> isin %whtemp) { set %whcond $remove($nohtml(%whtemp),$chr(9)) }
if (<strong class="obsTempTextA"> isin %whtemp) { set %whcurrent $remove($nohtml(%whtemp),°F,$chr(9)) }
if (Feels Like isin %whtemp) { set %whfeels $remove($nohtml(%whtemp),°F,Feels Like,$chr(9)) }
if (class="updated">Updated: isin %whtemp) { set %whupdated $remove($nohtml(%whtemp),Updated:,$chr(9)) }
if (class="crowli">UV Index: isin %whtemp) { set %whuvindex $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
if (class="crowli">Wind: isin %whtemp) { set %whwind $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
if (class="crowli">Humidity: isin %whtemp) { set %whhumidity $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
if (class="crowli">Pressure: isin %whtemp) { set %whpressure $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
$iif(*steady_pressure.gif">* iswm %whtemp,set %whpressure1 and steady,$iif(*up_pressure.gif">* iswm %whtemp, set %whpressure1 and rising,$iif(*down_pressure.gif">* iswm %whtemp,set %whpressure1 and dropping))))
if (class="crowli">Dew Point: isin %whtemp) { set %whdewpoint $remove($gettok($nohtml(%whtemp),2-,58),°F,$chr(9)) }
if (class="crowli">Visibility: isin %whtemp) { set %whvisibility $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
if (class="crowli">Sunrise: isin %whtemp) { set %whsunrise $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
if (class="crowli">Sunset: isin %whtemp) { set %whsunset $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
}
if (%whfc == on) {
if (STYLE="padding:5px 5px 5px 0px;"> isin %whtemp) { inc %xx 1 | set %whfcond $+ %xx $remove($nohtml(%whtemp),$chr(9)) }
if (class="whiteArialLink11"><B> isin %whtemp) { inc %xxx 1 | set %whfdays $+ %xxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
if (class="blueVerdanaText11" align="left"> isin %whtemp) { inc %xxxx | set %whfprecip $+ %xxxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
if (align="center" class="blueVerdanaText11"> isin %whtemp) { inc %xxxxx | set %whfsuns $+ %xxxxx $remove($nohtml(%whtemp),$chr(9)) }
}
}
on *:sockclose:weather: {
if (!%whloc) { msg %whchan Please try another zipcode as that does not exists. | unset %wh* | .disable #weather }
else {
msg %whchan $colored(Location:,4) %whloc
if (%whfc != on) {
set %whcurrentc $+($round($calc((%whcurrent - 32) * (5 / 9)),0),$chr(176),C)
set %whfeelsc $+($round($calc((%whfeels - 32) * (5 / 9)),0),$chr(176),C)
set %whdewpointc $+($round($calc($calc($calc(%whdewpoint) - 32) * $calc(5 / 9)),0),$chr(176),C)
msg %whchan $colored(Currently:,12) $+(%whcurrent,$chr(176),F) $chr(47) %whcurrentc $colored(Feels like:,12) $+(%whfeels,$chr(176),F) $chr(47) %whfeelsc
msg %whchan $colored(Conditions:,3) %whcond $colored(Pressure:,3) %whpressure %whpressure1 $colored(Humidity:,3) %whhumidity
msg %whchan $colored(Visibility:,3) %whvisibility $colored(UV Index:,3) %whuvindex $colored(Wind:,3) %whwind
msg %whchan $colored(Dew Point:,3) $+(%whdewpoint,$chr(176),F) $chr(47) %whdewpointc $colored(Sunrise:,3) %whsunrise $colored(Sunset:,3) %whsunset
msg %whchan $colored(Last Updated:,3) %whupdated $colored(Info From:,3) www.weather.com
unset %wh* | .disable #weather
}
if (%whfc == on) {
msg %whchan $colored($+(%whfdays1,:),3) Precip: $remove(%whfprecip1,$chr(32)) %whfsuns1
msg %whchan $colored($+(%whfdays1,:),3) %whfcond1
msg %whchan $colored($+(%whfdays2,:),3) Precip: $remove(%whfprecip2,$chr(32)) %whfsuns2
msg %whchan $colored($+(%whfdays2,:),3) %whfcond2
msg %whchan $colored($+(%whfdays3,:),3) Precip: $remove(%whfprecip3,$chr(32)) %whfsuns3
msg %whchan $colored($+(%whfdays3,:),3) %whfcond3
msg %whchan $colored(Info From:,3) www.weather.com
unset %wh* %whf* %x* | .disable #weather
}
}
}
; Usage: $colored(TEXT,N1,N2) or $colored(TEXT,N1,N2).b
; N1 & N2 are both optional.
alias colored { if ($isid) { return $+($iif($prop = b,$chr(2)),$iif($2 isnum 0-15,$+($chr(3),$iif($len($2) == 1,$+($chr(48),$2),$2))),$iif($3 isnum 0-15,$+($chr(44),$iif($len($3) == 1,$+($chr(48),$3),$3))),$1,$chr(15)) } }
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
#weather end
on *:Load: { dialog -m op op }
dialog op {
title "Operator "
size 35 40 500 75
button "+mMRc", 1, 0 0 60 30
button "-mMRc", 2, 60 0 60 30
button "Kick",3, 120 0 32 30
button "Ban",4, 152 0 33 30
button "+M", 5, 185 0 30 25
button "+R", 6, 185 25 30 24
button "+c", 7, 185 49 30 24
button "-M", 8, 215 0 30 25
button "-R", 27, 215 25 30 24
button "-c", 10, 215 49 30 24
button "+o", 11, 245 0 30 25
button "+v", 12, 245 25 30 24
button "-o", 13, 275 0 30 25
button "-v", 14, 275 25 30 24
button "whois", 15, 275 49 30 24
button "ping", 16, 245 49 30 24
button "Aop Add",17, 305 0 60 25
button "Aop deL",18, 305 25 60 24
button "Sop Add",19, 365 0 60 25
button "Sop deL",20, 365 25 60 24
button "Akick Add",21, 305 49 60 24
button "Akick Add",22, 365 49 60 24
button "NickServ Info",23, 425 37 75 36
button "ChanServ Info",24, 425 0 75 36
button "Kick + Ban",25, 120 30 65 43
text "Made by `Kazuma; Channel Serv/Oper Controls",26, 0 30 120 43
}
on *:DIALOG:operator:sclick:11:{
if ($me isop $active) {
mode $active +o $$?="Give op to who?"
}
}
on *:DIALOG:operator:sclick:13:{
if ($me isop $active) {
mode $active -o $$?="DeOp Who?"
}
}
on *:DIALOG:operator:sclick:12:{
if ($me isop $active) {
mode $active +v $$?="Give voice to who?"
}
}
on *:DIALOG:operator:sclick:14:{
if ($me isop $active) {
mode $active -v $$?="DeVoice Who?"
}
}
on *:DIALOG:operator:sclick:3:{
if ($me isop $active) {
kick $active $$?="Kick who?" Random Kick
}
}
on *:DIALOG:operator:sclick:4:{
if ($me isop $active) {
ban $active $$?="Ban who?" 4
}
}
on *:DIALOG:operator:sclick:15:{
whois $snick $$?="/whois Who?"
}
on *:DIALOG:operator:sclick:16:{
ctcp $$?="Ping who?" ping
}
on *:DIALOG:operator:sclick:5:{
mode $active +M
}
on *:DIALOG:operator:sclick:1:{
mode $active +mMRc
}
on *:DIALOG:operator:sclick:2:{
mode $active -mMRc
}
on *:DIALOG:operator:sclick:8:{
mode $active -M
}
on *:DIALOG:operator:sclick:7:{
mode $active +c
}
on *:DIALOG:operator:sclick:6:{
mode $active +R
}
on *:DIALOG:operator:sclick:27:{
mode $active -R
}
on *:DIALOG:operator:sclick:14:{
mode $active -V
}
on *:DIALOG:operator:sclick:10:{
mode $active -c
}
on *:DIALOG:operator:sclick:25:{
ban $active $$?="Ban who?" 4
kick $active $$?="Kick Who?" K+ban in affect!
}
on *:DIALOG:operator:sclick:26:{
chanserv op $active $$?="Use chanserv to give OP to who?"
}
on *:DIALOG:operator:sclick:23:{
nickserv info $$?="Info on who?" ALL
}
on *:DIALOG:operator:sclick:24:{
chanserv info $active ALL
}
on *:DIALOG:operator:sclick:17:{
chanserv aop $active add $$?="Who to add to AOP?"
}
on *:DIALOG:operator:sclick:18:{
chanserv aop $active del $$?="Del Who from AOP?"
}
on *:DIALOG:operator:sclick:19:{
chanserv sop $active add $$?="Who to add to SOP?"
}
on *:DIALOG:operator:sclick:20:{
chanserv sop $active del $$?="Del Who from SOP?"
}
on *:DIALOG:operator:sclick:21:{
chanserv akick $active add $$?="Add Who to akick? ex; Guest09218 - or host? ex; *!*@*.fl.comcast.net"
}
on *:DIALOG:operator:sclick:22:{
chanserv akick $active del $$?="Delete who from akick; or what host?"
}
menu channel {
-
Oper Control:/dialog -m op op
}
/*
Documentation;
Snippet;Mp3 advertising
Author;Kyou./XN.
Release;10;20;07
******************************
Dialog that allows you to message to all channels the active mp3 status. You can check off which status options you'd like to display, giving you an easy to use and vast interface. Once you have viewed and selected your choice. Click Go! and it will broadcast the current mp3's status based on your selection. Type: /broad.open to open the dialog.
NOTE -- The mp3 player broadcasting dialog won't open unless you are in an active mp3 already. Also, the dialog will close when the mp3 ends. ;) --
Product of Kyousoukyoku/XteNsion. Ripping is fobidden, don't try it.
*/
dialog mp3advertising {
title "Mp3 adv."
size -1 -1 245 83
option pixels
check "Title", 1, 4 7 51 17
check "Artist", 2, 63 6 51 17
check "Length", 3, 122 6 51 17
check "Track", 4, 4 30 51 17
check "Album", 5, 62 30 51 17
check "Mode", 6, 123 30 51 17
check "Size", 7, 181 6 51 17
check "Freq.", 8, 181 30 51 17
edit "", 9, 4 55 179 20, read autohs
button "Go!", 10, 184 53 44 21, ok
}
on *:dialog:mp3advertising:sclick:*:{
if ($did = 1) {
if ($did($dname, 1).state = 1) {
set %mp3status $addtok(%mp3status, - Title: $sound($insong.fname).title, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 1).state = 0) {
set %mp3status $remove(%mp3status, - Title: $sound($insong.fname).title)
did -ra $dname 9 %mp3status
}
}
if ($did = 2) {
if ($did($dname, 2).state = 1) {
set %mp3status $addtok(%mp3status, - Artist: $sound($insong.fname).artist, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 2).state = 0) {
set %mp3status $remove(%mp3status, - Artist: $sound($insong.fname).artist)
did -ra $dname 9 %mp3status
}
}
if ($did = 3) {
if ($did($dname, 3).state = 1) {
set %mp3status $addtok(%mp3status, - Length: $gmt($calc($insong.length / 1000),nn:ss), 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 3).state = 0) {
set %mp3status $remove(%mp3status, - Length: $gmt($calc($insong.length / 1000),nn:ss))
did -ra $dname 9 %mp3status
}
}
if ($did = 4) {
if ($did($dname, 4).state = 1) {
set %mp3status $addtok(%mp3status, - Track: $sound($insong.fname).track, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 4).state = 0) {
set %mp3status $remove(%mp3status, - Track: $sound($insong.fname).track)
did -ra $dname 9 %mp3status
}
}
if ($did = 5) {
if ($did($dname, 5).state = 1) {
set %mp3status $addtok(%mp3status, - Album: $sound($insong.fname).album, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 5).state = 0) {
set %mp3status $remove(%mp3status, - Album: $sound($insong.fname).album)
did -ra $dname 9 %mp3status
}
}
if ($did = 6) {
if ($did($dname, 6).state = 1) {
set %mp3status $addtok(%mp3status, - Mode: $sound($insong.fname).mode, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 6).state = 0) {
set %mp3status $remove(%mp3status, - Mode: $sound($insong.fname).mode)
did -ra $dname 9 %mp3status
}
}
if ($did = 8) {
if ($did($dname, 8).state = 1) {
set %mp3status $addtok(%mp3status, - Frequency: $sound($insong.fname).bitrate $+ kbps, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 8).state = 0) {
set %mp3status $remove(%mp3status, - Frequency: $sound($insong.fname).bitrate $+ kbps)
did -ra $dname 9 %mp3status
}
}
if ($did = 7) {
if ($did($dname, 7).state = 1) {
set %mp3status $addtok(%mp3status, - Size: $bytes($file($insong.fname).size).suf, 32)
did -ra $dname 9 %mp3status
}
elseif ($did($dname, 7).state = 0) {
set %mp3status $remove(%mp3status, - Size: $bytes($file($insong.fname).size).suf)
did -ra $dname 9 %mp3status
}
}
if ($did = 10) { amsg Active mp3 %mp3status }
}
on *:MP3END:{ if ($dialog(mp3advertising)) { dialog -x mp3advertising mp3advertising } }
alias broad.open { if ($inmp3) { dialog $iif($dialog(mp3advertising),-v mp3advertising mp3advertising, -m mp3advertising mp3advertising) } }
on *:dialog:mp3advertising:close:0:{ unset %mp3status }
}
menu * {
PuNkTuReDs Port Scanner:dialog -dm p.scanner p.scanner
}
;-----------------------------------------------------------------------------------------------------------dialog
dialog p.scanner {
title "Port Scanner Settings"
size -1 -1 170 60
option dbu
box "", 1, 2 2 166 56
text "Currently Scanning:", 2, 5 10 50 8
text "", 3, 55 10 40 8
text "Scanning Port Range:", 4, 5 18 60 8
text "", 5, 58 18 40 8
text "IP to scan:", 6, 5 27 30 8
edit "", 7, 35 26 60 10, autohs
text "Port Range:", 8, 5 37 30 8
text "From:", 9, 5 48 13 8
edit "", 10, 18 46 30 10, autohs
text "To:", 11, 48 48 8 8
edit "", 12, 56 46 30 10, autohs
button "My Ports", 13, 100 10 30 8
button "Scan", 14, 100 22 30 8
button "Close", 15, 100 34 30 8, cancel
text "Show:", 16, 135 10 20 8
radio "Open", 17, 135 20 30 8,
radio "Closed", 18, 135 30 30 8,
radio "All", 19, 135 40 30 8,
}
on *:dialog:p.scanner:sclick:*: {
if $did = 13 { did -r p.scanner 3 | did -a p.scanner 3 $ip | did -r p.scanner 7 | did -a p.scanner 7 $ip }
if $did = 14 {
set %p.scanner.from $did(p.scanner,10)
set %p.scanner.to $did(p.scanner,12)
did -r p.scanner 5
did -a p.scanner 5 %p.scanner.from $+ / $+ %p.scanner.to
set %p.scanner.ip $did(p.scanner,7)
dialog -dm p.scanner.show p.scanner.show
%a = %p.scanner.from
p.scanner.start
}
if $did = 17 { set %p.scanner.show Open }
if $did = 18 { set %p.scanner.show Closed }
if $did = 19 { set %p.scanner.show All }
}
dialog p.scanner.show {
title "Port Info"
size -1 -1 110 60
option dbu
box "", 1, 2 2 106 56
list 2, 4 7 102 55, autohs
}
alias p.scanner.start {
while %a <= %p.scanner.to {
//sockopen $($+(p,.,scanner,$($+(%,a),2))) $($+(%,p,.,scanner,.,ip),2) %a
halt
}
halt
}
;-----------------------------------------------------------------------------------------------------------socket open
on *:sockopen:$($+(p,.,scanner,$($+(%,a),2))): {
if ($sockerr) {
if (%p.scanner.show == Open) {
sockclose $($+(p,.,scanner,$($+(%,a),2)))
inc %a
p.scanner.start
}
if (%p.scanner.show == Closed) || (%p.scanner.show == All) {
did -a p.scanner.show 2 Port $($+(%,a),2) is Closed on %p.scanner.ip
sockclose $($+(p,.,scanner,$($+(%,a),2)))
inc %a
p.scanner.start
}
}
else {
if (%p.scanner.show == Open) || (%p.scanner.show == All) {
did -a p.scanner.show 2 Port $($+(%,a),2) is open on %p.scanner.ip
sockclose $($+(p,.,scanner,$($+(%,a),2)))
inc %a
p.scanner.start
}
if (%p.scanner.show == Closed) {
sockclose $($+(p,.,scanner,$($+(%,a),2)))
inc %a
p.scanner.start
}
}
}
on *:TEXT:$( * $+ $me $+ * ):#: {
if ($away == $false) { halt }
elseif ( %flood [ $+ [ $address($nick,2) ] ] == on) { halt }
else {
notice $nick I am curruntly away. My awaytime is: $duration($awaytime) $+ . ( $+ $iif($awaymsg == $null, None, $awaymsg) $+ )
window @hlmsg
aline @hlmsg ( $+ $nick @ $time on $date ( $+ $chan $+ )) $1-
set -u10 %flood [ $+ [ $address($nick,2) ] ] on
}
}
on *:TEXT:*:?: {
if ($away == $false) { halt }
elseif ( %flood [ $+ [ $address($nick,2) ] ] == on) { halt }
else {
msg $nick I am curruntly away. My awaytime is: $duration($awaytime) $+ . (Reason: $iif($awaymsg == $null, None, $awaymsg) $+ )
window @qrymsg
aline @qrymsg ( $+ $nick @ $time on $date $+ ) $1-
set -u10 %flood [ $+ [ $address($nick,2) ] ] on
}
}
;LagMeter v1.5
on *:load:{ echo -a 4Noa Destiny's LAG METER v1.5 | echo -a 4Please type: /lag.open to begin. }
alias lag.open {
if ($window(@Lag).x == $null) || ($1 == reset) || ($1 == reopen) {
if ($window(@Lag).x != $null) { set %lag.x $window(@Lag).x | set %lag.y $window(@Lag).y }
if ($1 == reopen) { window -c @Lag }
if (%lag.x == $null) { set %lag.x 100 } | if (%lag.y == $null) { set %lag.y 100 }
if ($1 != reset) { set %lag.tot 0 | set %lag.num 0 | window $iif($_vr(lagmeter,set.lag.top) == yes,-doapf,-apf) +f @Lag %lag.x %lag.y 160 135 @Lag }
if (%set.lag.size != small) { drawpic -n @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " }
if ($1 == reset) {
if (%set.lag.size == small) {
set %^lag.h 138
:start1
dec %^lag.h 3
window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
if (%^lag.h !=< 24) goto start1
}
else {
set %^lag.h 21
:start2
inc %^lag.h 3
window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 %^lag.h
if (%^lag.h !=> 135) goto start2
}
}
if (%lag.tot == 0) { drawpic -n @Lag 0 0 0 0 160 135 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ " | set %lag.back $getdot(@Lag,80,70) }
if (%set.lag.size == small) {
window $iif($_vr(lagmeter,set.lag.top) == true,-doapf,-apf) +f @Lag %lag.x %lag.y 160 24
drawpic @Lag 0 0 0 0 160 24 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
set %lag.small.back $getdot(@Lag,95,12)
}
drawdot @Lag
}
else {
if ($timer(Lag) != $null) { .timerLag off | return }
}
if ($_vr(lagmeter,set.lag.delay) !isnum) { _vw lagmeter set.lag.delay 5 }
if ($timer(Lag) == $null) && ($1 != reset) && ($1 != reopen) { lag.send | .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send }
titlebar @Lag $server
}
alias lag.about {
window -dohpkf +f @About?LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About?LagMeter
drawpic @About?LagMeter 0 0 " $+ $findfile($mircdir,lagabout1.jpg,1) $+ "
window -doapf +f @About?LagMeter $calc($window(-1).w / 2 - 200) $calc($window(-1).h / 2 - 150) 262 111 @About?LagMeter
}
alias lag.menu.1 {
if ($window(@Lag).x == $null) return &Open
elseif ($timer(Lag) == $null) return &Unpause
else return &Pause
}
alias lag.menu.2a {
if ($window(@Lag).x != $null) return &Close
}
alias lag.menu.2b {
if ($window(@Lag).x != $null) window -c @Lag
}
alias mouse {
if ($mouse.key == 1) {
if (%mouse.x == $null) || (%mouse.y == $null) halt
set %^mouse.x $calc( [ $window($$1).x ] + [ $calc( [ $mouse.x ] - [ %mouse.x ] ) ] )
set %^mouse.y $calc( [ $window($$1).y ] + [ $calc( [ $mouse.y ] - [ %mouse.y ] ) ] )
window -r $$1 %^mouse.x %^mouse.y
}
}
alias lag.send { .raw privmsg $me :T $ticks }
alias lag.setup {
if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
if ($$?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
if ($$?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
menu Status,menubar {
-
-=-=][iRC Lag Meter][=-=-
.-
.$lag.menu.1 $+ : lag.open
.$lag.menu.2a $+ : $lag.menu.2b
.$iif($window(@Lag).dh isnum,$iif($window(@Lag).dh == 24,&Bigger,S&maller)): {
if ($window(@Lag).dh == 24) set %set.lag.size large
if ($window(@Lag).dh == 135) set %set.lag.size small
lag.open reset
}
.-
.&Setup
..Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
..Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
..Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
menu @About?LagMeter {
dclick { window -c @About?LagMeter }
sclick { window -c @About?LagMeter }
&Close { window -c @About?LagMeter }
}
menu @Lag {
dclick {
if ($window(@Lag).dh == 24) set %set.lag.size large
if ($window(@Lag).dh == 135) set %set.lag.size small
lag.open reset
}
sclick {
if ( $inrect($mouse.x,$mouse.y,148,0,12,12) == $true ) {
.timerlag off | window -c @Lag
unset %mouse.x | unset %mouse.y
halt
}
if ($window(@Lag).dh == 24) {
if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
set %set.lag.size large
lag.open reset
unset %mouse.x | unset %mouse.y
halt
}
}
else {
if ( $inrect($mouse.x,$mouse.y,123,1,23,22) == $true ) {
lag.setup
unset %mouse.x | unset %mouse.y
halt
}
if ( $inrect($mouse.x,$mouse.y,148,12,12,12) == $true ) {
set %set.lag.size small
lag.open reset
unset %mouse.x | unset %mouse.y
halt
}
}
%mouse.x = $mouse.x | %mouse.y = $mouse.y
}
mouse {
mouse @Lag
}
&About Lag Meter v1.5: lag.about
-
$lag.menu.1 $+ : lag.open
$lag.menu.2a $+ : $lag.menu.2b
$iif($window(@Lag).dh == 24,&Bigger,S&maller): {
if ($window(@Lag).dh == 24) set %set.lag.size large
if ($window(@Lag).dh == 135) set %set.lag.size small
lag.open reset
}
-
&Setup
.Set &Delay Time ( $+ $_vr(lagmeter,set.lag.delay) $+ ) : if ($?="Enter delay time in sconds: (Default: 5)" isnum) _vw lagmeter set.lag.delay $! | if ($timer(Lag) != $null) .timerLag 0 $_vr(lagmeter,set.lag.delay) lag.send
.Start Lag Meter on &Connect ( $+ $_vr(lagmeter,set.lag.open) $+ ) : if ($?!="Start Lag Meter on Connect?" == $true) _vw lagmeter set.lag.open on | else { _vw lagmeter set.lag.open off }
.Lag Meter on &Top? ( $+ $_vr(lagmeter,set.lag.top) $+ ) : if ($?!="Open Lag Meter on Top?" == $true) _vw lagmeter set.lag.top yes | if ($! == $false) { _vw lagmeter set.lag.top no } | if (($window(@Lag).mdi == $true) && ($! == $true)) || (($window(@Lag).mdi == $false) && ($! == $false)) { lag.open reopen }
}
raw 301:*: { if ($2 == $me) && ($timer(Lag) != $null) halt }
on *:connect: { set %lag.num 0 | if ($_vr(lagmeter,set.lag.open) == on) { lag.open } }
ctcp *:t: {
if ($window(@Lag).x == $null) { .timerlag off | halt }
if ($timer(Lag) == $null) { halt }
if ($nick != $me) return
if ($ticks <= $2) return
set %^lag $left($round($calc(($ticks - $2) / 1000),3),5)
inc %lag.num
set %lag.tot $calc(%lag.tot + %^lag)
set %^lag.avg $left($round($calc(%lag.tot / %lag.num),3),5)
set %^lag.n %^lag * 127.5
set %^lag.avg.n %^lag.avg * 127.5
if ( %^lag.n > 255) {
set %^lag.r 255
set %^lag.g 510 - %^lag.n
}
else {
set %^lag.g 255
set %^lag.r %^lag.n
}
if ( %^lag.avg.n > 255) {
set %^lag.avg.r 255
set %^lag.avg.g 510 - %^lag.avg.n
}
else {
set %^lag.avg.g 255
set %^lag.avg.r %^lag.avg.n
}
if (%^lag.g < 0) set %^lag.g 0
if (%^lag.r < 0) set %^lag.r 0
set %^lag.color $rgb( %^lag.r , %^lag.g ,0)
if (%^lag.avg.g < 0) set %^lag.avg.g 0
if (%^lag.avg.r < 0) set %^lag.avg.r 0
set %^lag.avg.color $rgb( %^lag.avg.r , %^lag.avg.g ,0)
set %^lag.len $round($calc(105 - (%^lag * 20)),0)
if (%^lag.len < 26) set %^lag.len 26
drawscroll -n @Lag -3 0 11 25 138 82
drawpic -nc @Lag 146 25 146 25 3 82 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
;drawline -rn @Lag %lag.back 3 147 26 147 105
drawline -rn @Lag %^lag.color 3 147 %^lag.len 147 105
drawpic -nc @Lag 23 123 23 123 113 10 " $+ $findfile($mircdir,lagmeter1.bmp,1) $+ "
drawtext -ron @Lag %^lag.color Arial 16 23 120 %^lag
drawtext -ron @Lag %^lag.avg.color Arial 16 105 120 %^lag.avg
drawline -rn @Lag 16777215 1 11 85 149 85
drawline -rn @Lag 16777215 1 11 65 149 65
drawline -rn @Lag 16777215 1 11 45 149 45
if ($window(@Lag).dh == 24) {
set %^lag.len2 $round($calc(145 - (%^lag * 20)),0)
if (%^lag.len2 < 46) set %^lag.len2 46
drawscroll -n @Lag 0 -3 45 3 100 18
drawline -rn @Lag %lag.small.back 3 143 19 46 19
drawline -rn @Lag %^lag.color 3 143 19 %^lag.len2 19
drawline -rn @Lag 16777215 1 125 3 125 21
drawline -rn @Lag 16777215 1 105 3 105 21
drawline -rn @Lag 16777215 1 85 3 85 21
drawline -rn @Lag 16777215 1 65 3 65 21
drawpic -nc @Lag 11 1 11 1 31 22 " $+ $findfile($mircdir,lagmeter2.jpg,1) $+ "
drawtext -ron @Lag %^lag.color Arial 16 11 -2 %^lag
drawtext -ron @Lag %^lag.avg.color Arial 16 11 10 %^lag.avg
}
drawline @Lag
halt
}
;[read write data/setting.ini]
alias _vr {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
return $readini data\setting.ini $1 $2
}
alias _vw {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
writeini data\setting.ini $1 $2 $3-
on *:LOAD: {
echo -a 00,04Thank you for using 14,04C15,04onnor's 14,04H15,04ell14,04S15,04cript01,04.
}
;Connor's Hell Scripts.
;------Sexual Script---
on *:TEXT:*suck me*:#:
{
.notice $nick Why would they need to??
.msg $chan ( $nick ) Has Requested that they be sucked, with the statement of " $1- ".
.msg $chan the previous Request that $nick made has been DENIED.
.notice $nick You're request of $1- Has been Denied. Please ask again later. :]
}
;----Greeting Script---
on *:TEXT:Hello*:#: {
.notice $nick Hello ( $nick ).
.msg $chan ( $nick ) Has Said [ $1- ].
}
;---Hell Script---
on *:TEXT:*hell*:#: {
.notice $nick I Am Using HellIRC v2.0.1 Base 1 REALTiMe Networks IRC Client. (-~H.E.L.L.I.R.C.~-)
.msg $chan ( $nick ) Has Said $1- .
.notice $nick you're statement " $1- " Has been Approved.
.msg $chan He's fucked up.. His statement of " $1- " Has been Approved.. What should we do?
.action Kicks $nick In DeezNutz
.msg $chan Parts taken From T.B.A.: TeaBaggersAnnounymous on Matrix §igma Brutal Icestorm Relay Chat. Availible at http://www.freedomchat.net
}
;--GoToHell v1.0.1
on *:TEXT:!gto:#: {
.action Go's to Hell.
.msg $chan What now, ( $nick )?
on *:TEXT:*:#:
.msg $chan Yea.. I didn't think $nick had anything else.
}
;---!Attempt Script
on *:TEXT:Connor*Attempt*:#: {
.msg $chan ( $nick ), Re:Attmpt
.msg $chan your attempt cannot be processed at the current time. Please Try Again Later.
.msg $chan ( $nick ) for further help, Type !ReAttempt
.msg $chan Thank you ( $nick ) For your consideration. :]
}
on *:TEXT:!ReAttempt:#: {
.msg $chan ( $nick ) Has Requested Assistance with the ReAttempt System.
.msg $nick Current ReAttempts:
.msg $nick !AttemptHelp ; !AttemptStart ; !AttemptHell ; !AttemptList
.msg $nick Please check back often as more !Attempt commands are added.
.msg $nick for a updated list of !Attempt type !AttemptList
.msg $chan Thank you for your time, ( $nick ).
}
on *:TEXT:!AttemptHelp:#: {
( $7 = !AttemptHelp ; !AttemptStart ; !AttemptHell ; !AttemptList )
.msg $chan ( $nick ) has requested help with the !Attempt System.
.msg $nick Thank you for using the !Attempt System.
.msg $nick Current Commands: ( $7 ).
.msg $chan Current Commands: ( $7 ).
.msg $chan ( $nick ) Has been helped with the !Attempt System.
}
;---HellSing Script
on *:TEXT:!HellSing:#:
If( $2 = $nick )
.msg $chan /-\WARNING!!! ( $nick ) Has Requested that HellSing Be Turned On!!!/-\
.msg $nick the HellSing System is ON.
.msg $chan (-^HellSing System OnLine.^-)
.msg $chan Welcome To Hell.
.msg $nick To turn off HellSing, Type !HellSingOff
on *TEXT:!HellSingOff:$2:
.msg $chan ( $nick ) Has Turned HellSing Off.
.msg $chan (-^HellSing OffLine.^-)
if ( $3 = !Hell )
on *:TEXT:$3:#: {
.msg $chan ( $nick ) Has Used the (~HELL~) Command.
.msg $nick You have Activated the (~HELL~) System.
.msg $chan (~HELL~) OnLine ( Authorized By $nick )
.action 04,01UnLeashes Hell.
}
;.oO{ moo script v3.17 by HM2K }Oo. - IRC@HM2K.ORG
;description:
;no more moo.dll! -- this script uses $com to lookup the WMI functions to return specified system information.
;moo script was originally created to display your system information via IRC, including: operating system, uptime, cpu, memory usage, graphics card, resolution, network details and hard drive details.
;installation:
;NOTICE: please unload and remove any old moo scripts, else this script may not work.
;make sure moo.mrc is in your $mircdir then type: /load -rs moo.mrc
;Please make sure you have the latest windows updates or the latest WMI core (http://www.microsoft.com/downloads/details.aspx?FamilyID=98a4c5ba-337b-4e92-8c18-a63847760ea5&DisplayLang=en)
;Also, please use the latest version of mIRC, ideally mIRC v6.16 and above...
;usage:
;for moo type: /moo or !moo (if enabled)
;for uptime only type: /up or !uptime (if enabled)
;history:
;moo script v3.17 - added moo cpu architecture descriptors on request of ROBERT PICARD
;moo script v3.16 - Added /stat and /statself (thanks TBF), and fixed local echoing.
;moo script v3.15 - Fixed a few bugs + Fixed the repeat checker + Out of beta
;moo script v3.14 - Change the WMI lookup location of the rammax inline with the ramuse.
;moo script v3.13 - Changed the ram function to use a more reliable WMI location, added OSArchitecture (osarc) for Vista, fixed CPU load to not return anything if there's no load.
;moo script v3.12 - Minor tweaks, a few code changes, added /moo echo and a few more functions.
;moo script v3.11 - Added some new features and made it easier to style the output, added some additional notes
;moo script v3.1 - Added the long awaited flood protection, simple lookup error checking, more/better functions, quicker script
;moo script v3.0 - The whole script was changed, no more moo.dll, it now uses WMI however this version MUST be run on mIRC v6.16 or above.
;[moo] script v2.27 - !moo trigger fix, now turned off by default to stop abuse
;[moo] script v2.26 - Lots of little changes made up till this version, including getmoo.
;[moo] script v2.23 - changed some alias' to alias -l, fixed small bugs, added new featuers
;[moo] script v2.22 - minor bug fixes, bold added etc.
;[moo] script v2.21 - added a feature to turn the !moo get and !getmoo on or off, and fixed a few bugs.
;[moo] script v2.2 - name change, completly changed the /moo and !moo system, should work better now, no mistakes.
;moo script v2.13 - still a few mistakes, changes made, mbm5 isn't functioning correctly...
;moo script v2.12 - many small changes and fixes made, mbm5 was fixed also.
;moo script v2.11 - simple bug fixes.
;moo script v2.1 - minor modifications, final public release.
;moo script v2.0 - New name, new style, new script, same idea.
;MooDll Script v1.21 - Many bug fixes, first public release
;MooDll Script v1.0 - Original private release, very simple, buggy.
;todo:
; - Fix the network traffic readings
; - Test on Windows Vista
;thanks to...
;Mark (from influenced.net) for the original concept and for letting me know that he was not creating a new moo.dll
;HndlWCare who inspired me to write this for saying: "moo.dll was written by a college student roommate of one of our ops who has admitted inserting a backdoor into it" -- none of this is true, there IS NO backdoor in moo.dll and just like there is NO backdoor in this script. HndlWCare you are an idiot.
;Moondawn for listening to me rant.
;and also the beta testers... square, ryguy, Petersen, OutCast3k and PRO1.
;--------------------------------------------------------------------------------------------------------
;SETTINGS - START
;--------------------------------------------------------------------------------------------------------
;moo banned channels - these are channels you don't want the triggers to function in
alias -l moo.banchans return #php #windows #eztv
;moo style - use this to style the titles of the output
alias -l moos return $+(,$1,:)
;--------------------------------------------------------------------------------------------------------
;SETTINGS - END
;--------------------------------------------------------------------------------------------------------
;NOTICE: DO NOT edit below unless you know what you're doing. If you do make any changes, please let me know! :)
alias -l moover return moo script v3.17
;usage: /moo <moof (see below)>
alias moo {
if (!$1) { $iif($chan,msg $chan,say) $moor | return }
if ($1 == echo) {
if ($moof($2)) { var %moo.var $ifmatch | echo -a moo: %moo.var }
else { echo -a $moor }
return
}
if ($moof($1)) { var %moo.var $ifmatch | $iif($active == Status Window,echo -gta,$iif($chan,msg $chan,say)) moo: %moo.var }
}
;added because of TBF 16/10/07
alias stat moo $1-
alias statself moo echo $1-
;moo return - use this to change the outputs, you can also style this for the whole output
alias -l moor return moo: $iif($mooi(name),$moof(os) $moof(up) $moof(cpu) $moof(gfx) $moof(res) $moof(ram) $moof(hdd) $moof(net),lookup error)
;this section was created so you can easily change the options for what is returned
;moo functions - you can add or change the functions that the script can handle
alias -l moof {
if ($1 == os) { return $moos($1) $mooi(ostitle) - $mooi(ossp) $brak($mooi(osver)) }
if ($1 == up) { return $moos($1) $duration($mooi(up)) }
if ($1 == cpu) { return $moos($1) $mooi(cpuname) $brak($mooi(cpuarch)) at $mooi(cpuspeed) $mooi(cpuload) }
if ($1 == gfx) { return $moos($1) $mooi(gfxmake) $mooi(gfxproc) $mooi(gfxram) }
if ($1 == res) { return $moos($1) $mooi($1) $mooi(resbit) $mooi(resrate) }
if ($1 == ram) { var %moo.rammax = $mooi(rammax) | var %moo.ramuse = $mooi(ramuse) | return $moos($1) $+($round($calc(%moo.rammax - %moo.ramuse),0),/,%moo.rammax,MB) $+($chr(40),$round($calc((%moo.rammax - %moo.ramuse) / %moo.rammax * 100),2),%,$chr(41)) $moorambar($round($calc((%moo.rammax - %moo.ramuse) / %moo.rammax * 100),2)) }
if ($1 == hdd) { return $moos($1) $mooi(hdd) }
if ($1 == net) { return $moos($1) $iif($mooi(netname),$ifmatch $iif($mooi(netspeed), - $ifmatch, ) $mooi(netin) In $mooi(netout) Out, ) }
elseif ($mooi($1)) { return $moos($1) $ifmatch }
}
;moo info - below are the useful or interesting wmi functions to use with the script
alias mooi {
if ($1 == name) { return $wmiget(Win32_ComputerSystem).Name }
if ($1 == ostitle) { return $wmiget(Win32_OperatingSystem).Caption }
if ($1 == ossp) { return $wmiget(Win32_OperatingSystem).CSDVersion }
if ($1 == osver) { return $wmiget(Win32_OperatingSystem).Version }
if ($1 == osinstall) { var %time = $ctime($iif($wmiget(Win32_OperatingSystem).InstallDate,$+($mid($ifmatch,7,2),/,$mid($ifmatch,5,2),/,$mid($ifmatch,1,4)) $+($mid($ifmatch,9,2),:,$mid($ifmatch,11,2),:,$mid($ifmatch,13,2)))) | return $asctime(%time) $brak($duration($calc($ctime - %time)) ago) }
if ($1 == osarc) { return $wmiget(Win32_OperatingSystem).OSArchitecture }
if ($1 == up) { return $uptime(system,3) }
if ($1 == cpuname) { return $wmiget(Win32_Processor).Name }
if ($1 == cpuspeed) { return $+($wmiget(Win32_Processor).CurrentClockSpeed,MHz) }
if ($1 == cpuload) { return $iif($wmiget(Win32_Processor).LoadPercentage,$brak($+($ifmatch,% Load)),) }
if ($1 == cputotal) { return $wmiget(Win32_ComputerSystem).NumberOfProcessors }
if ($1 == cpuarch) { return $mooarch($wmiget(Win32_Processor).Architecture) }
if ($1 == gfxmake) { return $wmiget(Win32_VideoController).AdapterCompatibility }
if ($1 == gfxproc) { return $wmiget(Win32_VideoController).VideoProcessor }
;if ($1 == gfxproc) { return $wmiget(CIM_VideoController).Description }
if ($1 == gfxram) { return $bytes($wmiget(Win32_VideoController).AdapterRam,3).suf }
if ($1 == res) { return $+($wmiget(Win32_VideoController).currenthorizontalresolution,x,$wmiget(Win32_VideoController).currentverticalresolution) }
if ($1 == resbit) { return $wmiget(Win32_VideoController).currentbitsperpixel $+ bit }
if ($1 == resrate) { return $wmiget(Win32_VideoController).currentrefreshrate $+ Hz }
if ($1 == rammax) { return $round($calc($wmiget(Win32_OperatingSystem).TotalVisibleMemorySize / 1024),1) }
if ($1 == ramuse) { return $round($calc($wmiget(Win32_OperatingSystem).FreePhysicalMemory / 1024), 1) }
if ($1 == netname) { return $wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).Name }
if ($1 == netspeed) { return $calc($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).CurrentBandwidth / 1000000) $+ MB/s }
if ($1 == netin) { return $bytes($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesReceivedPersec).suf }
if ($1 == netout) { return $bytes($wmiget(Win32_PerfRawData_Tcpip_NetworkInterface).BytesSentPersec).suf }
if ($1 == hdd) { var %i 1 | while (%i <= $disk(0)) { if ($disk(%i).type == fixed) var %var %var $disk(%i).path $+($bytes($disk(%i).free).suf,/,$bytes($disk(%i).size).suf) | inc %i } | return %var }
if ($1 == sound) { return $wmiget(Win32_SoundDevice).Name }
if ($1 == mobo) { return $wmiget(Win32_BaseBoard).Manufacturer $wmiget(Win32_BaseBoard).Product }
}
;moo cpu architecture descriptors
alias -l mooarch {
if ($1 == 0) { return x86 }
if ($1 == 1) { return MIPS }
if ($1 == 2) { return Alpha }
if ($1 == 3) { return PowerPC }
if ($1 == 6) { return Intel Itanium Processor Family (IPF) }
if ($1 == 9) { return x64 }
}
;moo rambar - the famous rambar from the original script with a couple of changes
alias -l moorambar {
if ($len($1) < 990) {
var %moo.rb.size = 10
var %moo.rb.used = $round($calc($1 / 100 * %moo.rb.size),0)
var %moo.rb.unused = $round($calc(%moo.rb.size - %moo.rb.used),0)
var %moo.rb.usedstr = $str(|,%moo.rb.used)
var %moo.rb.unusedstr = $str(-,%moo.rb.unused)
if ((%moo.rb.usedstr) && (%moo.rb.unusedstr)) return $+([,%moo.rb.usedstr,%moo.rb.unusedstr,])
}
}
;Get WMI data - this is the most useful function here, this only works if mIRC has the $COM function, its very useful, but a little slow.
alias wmiget {
var %com = cominfo, %com2 = cominfo2, %com3 = cominfo3
if ($com(%com)) { .comclose %com }
if ($com(%com2)) { .comclose %com2 }
if ($com(%com3)) { .comclose %com3 }
.comopen %com WbemScripting.SWbemLocator
var %x = $com(%com,ConnectServer,3,dispatch* %com2), %x = $com(%com2,ExecQuery,3,bstr*,select $prop from $1,dispatch* %com3), %x = $comval(%com3,$iif($2,$2,1),$prop)
if ($com(%com)) { .comclose %com }
if ($com(%com2)) { .comclose %com2 }
if ($com(%com3)) { .comclose %com3 }
return %x
}
;backets - I got fed up of repeating the same thing
alias -l brak return $+($chr(40),$1-,$chr(41))
;uptime script - this is the short uptime script created to return your current update and retain your best uptime
on *:connect: up x
alias up { ;uptime v0.4
$iif($timer(up) == $null,.timerup 0 60 up x)
if (($uptime(system,3) >= %up) || (%up == $null)) set %up $uptime(system,3)
$iif($1 == x,halt,$iif($chan,msg $chan,$iif($active == Status Window,echo,say)) $+(Windows,$OS) Uptime: $uptime(system,1) Best: $duration(%up))
}
#!uptime on
on *:text:!uptime:#: if (!$istok($moo.banchans,$chan,32)) { up | $repeatcheck(!uptime) }
#!uptime end
;moo triggers - public display, sharing the script and ctcp moo
#!moo off
on *:text:!moo*:#: if (!$istok($moo.banchans,$chan,32)) { moo $2 | $repeatcheck(!moo) }
#!moo end
#!getmoo on
on *:text:!getmoo:*: {
if ($chan) { .notice $nick moo: To get $moover type: "/msg $me !getmoo" (set "/dccignore off" first) | $repeatcheck(!getmoo) | halt }
else { .close -m $nick | .dcc send $nick $script | .notice $nick moo: Once you receive the script issue: "/load -rs $nopath($script) $+ ", and don't forget to do "/dccignore on" | $repeatcheck(!getmoo) | halt }
}
#!getmoo end
#ctcpmoo off
ctcp *:*:*: if (($1 == MOO) || ($1 == VERSION)) { .ctcpreply $nick $1 $moover by HM2K | $repeatcheck(ctcpmoo) }
#ctcpmoo end
alias -l repeatcheck { ;v0.12 by HM2K - will disable the appropriate group if its flooded
var %rep.lim = 3
var %rep.t.lim = 25
var %rep.t.expr = 10
if (%rep.lockusr- [ $+ [ $nick ] ]) { echo $ifmatch | haltdef }
inc $+(-u,%rep.t.lim,$chr(32),%,rep-,$nick,.,$len($strip($1-)),.,$hash($strip($1-),32)) 1
if (%rep- [ $+ [ $nick ] $+ . $+ [ $len($strip($1-)) ] $+ . $+ [ $hash($strip($1-),32) ] ] == %rep.lim) {
;ignore -u60 $address($nick,5)
if ($group($chr(35) $+ $1) == on) { .disable $chr(35) $+ $1 | .echo -gat $1 is $group($chr(35) $+ $1) due to a repeat flood from $iif($chan,$nick in $chan,$nick) $+ , to re-enable: /enable $chr(35) $+ $1 }
.set $+(-u,%rep.t.expr,$chr(32),%,rep.lockusr-,$nick) 1
}
}
;onload and onunload checks - making sure everything is as it should be
on *:load: { up x | if ($version < 6.16) { echo -a moo: you need mIRC v6.16 or greater to run this script, get the latest version from www.mirc.com/get.html | unload -rs $script | halt } }
on *:unload: { .timerup off | $iif($input(Do you want to remove the best uptime data,y,unset %up),unset %up,) | .echo $colour(info2) -gat $moover was unloaded, to reload type: /load -rs $script }
;the menus - only simple at the moment, however this script is designed to utilise the /moo and !moo triggers
menu channel,query {
$moover
.moo all (/moo): moo
.moo uptime (/up): up
.-
.!moo trigger ( $+ $group(#!moo) $+ ):{
if ($group(#!moo) != on) { .enable #!moo }
else { .disable #!moo }
.echo -ga moo: !moo is $group(#!moo)
}
.!uptime trigger ( $+ $group(#!uptime) $+ ):{
if ($group(#!uptime) != on) { .enable #!uptime }
else { .disable #!uptime }
.echo -ga moo: !uptime is $group(#!uptime)
}
.!getmoo trigger ( $+ $group(#!getmoo) $+ ):{
if ($group(#!getmoo) != on) { .enable #!getmoo }
else { .disable #!getmoo }
.echo -ga moo: !getmoo is $group(#!getmoo)
}
.ctcp moo trigger ( $+ $group(#ctcpmoo) $+ ):{
if ($group(#ctcpmoo) != on) { .enable #ctcpmoo }
else { .disable #ctcpmoo }
.echo -ga moo: ctcpmoo is $group(#ctcpmoo)
}
.-
.unload $remove($script,$scriptdir)
..are you sure?
...yes: { .unload -rs $script }
...no: { .echo $colour(info2) -gat $remove($script,$scriptdir) was NOT unloaded. }
}
;EOF
on *:LOAD: {
echo 14 -a You Have Just Loaded OhGoody's Lame Cool Meter
echo 14 -a A Script0rs Inc. Production
echo -a 14,1(14,1?15,1?0,1?0,1? ??X????t0??X? ?0,1?15,1?14,1?) tm.
}
on *:TEXT:!CoolMeter*:#: {
if ($nick == $me) goto me
.timer 1 1 .msg $chan 14- $2- Is Only %coolness
.timer 1 5 .msg $chan 14- Cool.. Because $2- is Special
var %Coolness = $rand(1,100)
if (%Coolness == 1) { timer 1 4 .msg $chan 14- 1% }
if (%Coolness == 2) { timer 1 4 .msg $chan 14- 2% }
if (%Coolness == 3) { timer 1 4 .msg $chan 14- 3% }
if (%Coolness == 4) { timer 1 4 .msg $chan 14- 4% }
if (%Coolness == 5) { timer 1 4 .msg $chan 14- 5% }
if (%Coolness == 6) { timer 1 4 .msg $chan 14- 6% }
if (%Coolness == 7) { timer 1 4 .msg $chan 14- 7% }
if (%Coolness == 8) { timer 1 4 .msg $chan 14- 8% }
if (%Coolness == 9) { timer 1 4 .msg $chan 14- 9% }
if (%Coolness == 10) { timer 1 4 .msg $chan 14- 10% }
if (%Coolness == 11) { timer 1 4 .msg $chan 14- 11% }
if (%Coolness == 12) { timer 1 4 .msg $chan 14- 12% }
if (%Coolness == 13) { timer 1 4 .msg $chan 14- 13% }
if (%Coolness == 14) { timer 1 4 .msg $chan 14- 14% }
if (%Coolness == 15) { timer 1 4 .msg $chan 14- 15% }
if (%Coolness == 16) { timer 1 4 .msg $chan 14- 16% }
if (%Coolness == 17) { timer 1 4 .msg $chan 14- 17% }
if (%Coolness == 18) { timer 1 4 .msg $chan 14- 18% }
if (%Coolness == 19) { timer 1 4 .msg $chan 14- 19% }
if (%Coolness == 20) { timer 1 4 .msg $chan 14- 20% }
if (%Coolness == 21) { timer 1 4 .msg $chan 14- 21% }
if (%Coolness == 22) { timer 1 4 .msg $chan 14- 22% }
if (%Coolness == 23) { timer 1 4 .msg $chan 14- 23% }
if (%Coolness == 24) { timer 1 4 .msg $chan 14- 24% }
if (%Coolness == 25) { timer 1 4 .msg $chan 14- 25% }
if (%Coolness == 26) { timer 1 4 .msg $chan 14- 26% }
if (%Coolness == 27) { timer 1 4 .msg $chan 14- 27% }
if (%Coolness == 28) { timer 1 4 .msg $chan 14- 28% }
if (%Coolness == 29) { timer 1 4 .msg $chan 14- 29% }
if (%Coolness == 30) { timer 1 4 .msg $chan 14- 30% }
if (%Coolness == 31) { timer 1 4 .msg $chan 14- 31% }
if (%Coolness == 32) { timer 1 4 .msg $chan 14- 32% }
if (%Coolness == 33) { timer 1 4 .msg $chan 14- 33% }
if (%Coolness == 34) { timer 1 4 .msg $chan 14- 34% }
if (%Coolness == 35) { timer 1 4 .msg $chan 14- 35% }
if (%Coolness == 36) { timer 1 4 .msg $chan 14- 36% }
if (%Coolness == 37) { timer 1 4 .msg $chan 14- 37% }
if (%Coolness == 38) { timer 1 4 .msg $chan 14- 38% }
if (%Coolness == 39) { timer 1 4 .msg $chan 14- 39% }
if (%Coolness == 40) { timer 1 4 .msg $chan 14- 40% }
if (%Coolness == 41) { timer 1 4 .msg $chan 14- 41% }
if (%Coolness == 42) { timer 1 4 .msg $chan 14- 42% }
if (%Coolness == 43) { timer 1 4 .msg $chan 14- 43% }
if (%Coolness == 44) { timer 1 4 .msg $chan 14- 44% }
if (%Coolness == 45) { timer 1 4 .msg $chan 14- 45% }
if (%Coolness == 46) { timer 1 4 .msg $chan 14- 46% }
if (%Coolness == 47) { timer 1 4 .msg $chan 14- 47% }
if (%Coolness == 48) { timer 1 4 .msg $chan 14- 48% }
if (%Coolness == 49) { timer 1 4 .msg $chan 14- 49% }
if (%Coolness == 50) { timer 1 4 .msg $chan 14- 50% }
if (%Coolness == 51) { timer 1 4 .msg $chan 14- 51% }
if (%Coolness == 52) { timer 1 4 .msg $chan 14- 52% }
if (%Coolness == 53) { timer 1 4 .msg $chan 14- 53% }
if (%Coolness == 54) { timer 1 4 .msg $chan 14- 54% }
if (%Coolness == 55) { timer 1 4 .msg $chan 14- 55% }
if (%Coolness == 56) { timer 1 4 .msg $chan 14- 56% }
if (%Coolness == 57) { timer 1 4 .msg $chan 14- 57% }
if (%Coolness == 58) { timer 1 4 .msg $chan 14- 58% }
if (%Coolness == 59) { timer 1 4 .msg $chan 14- 59% }
if (%Coolness == 60) { timer 1 4 .msg $chan 14- 60% }
if (%Coolness == 61) { timer 1 4 .msg $chan 14- 61% }
if (%Coolness == 62) { timer 1 4 .msg $chan 14- 62% }
if (%Coolness == 63) { timer 1 4 .msg $chan 14- 63% }
if (%Coolness == 64) { timer 1 4 .msg $chan 14- 64% }
if (%Coolness == 65) { timer 1 4 .msg $chan 14- 65% }
if (%Coolness == 66) { timer 1 4 .msg $chan 14- 66% }
if (%Coolness == 67) { timer 1 4 .msg $chan 14- 67% }
if (%Coolness == 68) { timer 1 4 .msg $chan 14- 68% }
if (%Coolness == 69) { timer 1 4 .msg $chan 14- 69% }
if (%Coolness == 70) { timer 1 4 .msg $chan 14- 70% }
if (%Coolness == 71) { timer 1 4 .msg $chan 14- 71% }
if (%Coolness == 72) { timer 1 4 .msg $chan 14- 72% }
if (%Coolness == 73) { timer 1 4 .msg $chan 14- 73% }
if (%Coolness == 74) { timer 1 4 .msg $chan 14- 74% }
if (%Coolness == 75) { timer 1 4 .msg $chan 14- 75% }
if (%Coolness == 76) { timer 1 4 .msg $chan 14- 76% }
if (%Coolness == 77) { timer 1 4 .msg $chan 14- 77% }
if (%Coolness == 78) { timer 1 4 .msg $chan 14- 78% }
if (%Coolness == 79) { timer 1 4 .msg $chan 14- 79% }
if (%Coolness == 80) { timer 1 4 .msg $chan 14- 80% }
if (%Coolness == 81) { timer 1 4 .msg $chan 14- 81% }
if (%Coolness == 82) { timer 1 4 .msg $chan 14- 82% }
if (%Coolness == 83) { timer 1 4 .msg $chan 14- 83% }
if (%Coolness == 84) { timer 1 4 .msg $chan 14- 84% }
if (%Coolness == 85) { timer 1 4 .msg $chan 14- 85% }
if (%Coolness == 86) { timer 1 4 .msg $chan 14- 86% }
if (%Coolness == 87) { timer 1 4 .msg $chan 14- 87% }
if (%Coolness == 88) { timer 1 4 .msg $chan 14- 88% }
if (%Coolness == 89) { timer 1 4 .msg $chan 14- 89% }
if (%Coolness == 90) { timer 1 4 .msg $chan 14- 90% }
if (%Coolness == 91) { timer 1 4 .msg $chan 14- 91% }
if (%Coolness == 92) { timer 1 4 .msg $chan 14- 92% }
if (%Coolness == 93) { timer 1 4 .msg $chan 14- 93% }
if (%Coolness == 94) { timer 1 4 .msg $chan 14- 94% }
if (%Coolness == 95) { timer 1 4 .msg $chan 14- 95% }
if (%Coolness == 96) { timer 1 4 .msg $chan 14- 96% }
if (%Coolness == 97) { timer 1 4 .msg $chan 14- 97% }
if (%Coolness == 98) { timer 1 4 .msg $chan 14- 98% }
if (%Coolness == 99) { timer 1 4 .msg $chan 14- 99% }
if (%Coolness == 100) { timer 1 4 .msg $chan 14- 100% }
}
dialog away {
title "away system"
size -1 -1 70 42
option dbu
box "Reason:", 1, 20 0 50 10
box "Away Nick:", 2, 15 20 50 30
button "Go", 3, 2 3 15 10
button "Back", 4, 2 15 20 10
button "Exit", 5, 2 27 15 10,cancel
edit "", 6, 22 8 45 10,autohs
edit "", 7, 22 28 45 10,autohs
}
on *:dialog:away:sclick:3: {
set %away.time $ctime
set %away.niko.2 $me
set %away.niko $did(6).text
set %nick.niko $did(7).text
if (%away.niko == $null) {
amsg I am now Away
away %away.niko
}
else {
amsg 14I 7a14m now 7A14w7a14y7 %away.niko
nick %nick.niko
away %away.niko
}
}
on *:dialog:away:init:0:{
did -a away 6 %away.niko
did -a away 7 %nick.niko
}
on *:dialog:away:sclick:4: {
nick %away.niko.2
amsg 14I 7a14m now B7a14ck from7 %away.niko 14I w7a14s Gone for $duration($calc($ctime - %away.time))
7a14w7a14y
}
menu channel,query {
away system:/dialog -m away away
}
everything under this
on :input:: {
;Connor's Hell Membership Script
on :TEXT:shit*:#: {
.notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell.
.mode +v $chan $nick
.msg ChanServ VOP $chan ADD $nick
.msg $nick You've been added to the $chan Voice (VOP) List.
.msg $chan $nick has been added to the $chan Voice (VOP) List.
}
because your missing an end bracket
on *:input:*: {
;Connor's Hell Membership Script
on *:TEXT:*shit*:#: {
.notice $nick You have said the word and/or a sentance involving the word "Shit". Congradulations! You've been Accepted to Hell.
.mode +v $chan $nick
.msg ChanServ VOP $chan ADD $nick
.msg $nick You've been added to the $chan Voice (VOP) List.
.msg $chan $nick has been added to the $chan Voice (VOP) List.
}
}
Well.. From your comments, as stated, it is a compilation of multiple scripts with the integration of mine.. I am not responsible for the errors others have made in they're scripts before posting them, and so if you have a problem, tell me directly which part is trouble and I can assist you to find who made that specific part.
I thank you for your input, but testing anything for me is impossible. My mIRC will not connect due to VPC being enabled. And as for the brackets, I cannot seem to find how to correct it. I am still changing the script, so anything that I have missed, if you can simply tell me, that would be great. Thanks.
i rly cant remember...but the operator dialog i think is a rip from Death Script by Bleeding Angel...old school type lol! not sure bout it!
And as for the "&" instead of "$" dont type when ur drunk :P
Bsides dat....as Aucun50 said...u needs ta settle with the mixup and put it in order coz half of it wont work and will epic lag ur script.
Nice compilation tho.
No need for all the text events, you can only have one input per script as far as i know.
This is missing alot of brackets. For your dialog part you have alot of on dialogs you can shorten it lot with:
on *:DIALOG:operator:sclick:*:{
if ($did == 11) && ($me isop $active) { mode $active +o $$?="Give op to who?" }
if ($did == 13) && ($me isop $active) { mode $active -o $$?="DeOp Who?" }
}
As for the whole thing itself it does not work.