rendered paste body
;##########################################################
;#####Snpster auth/user system(gamesurge) #Plutonic########
;##########################################################
on *:TEXT:.*:*: {
set %my.chan $chan
set %auth.nick $nick
set %auth.command $1-
as userinfo $nick
}
;$address($me,-1)
;#########################################################
;############### Muli`chan Commands ######################
;#########################################################
;#########################################################
on *:NOTICE:*authenticated to*:*:{
set %auth.user $remove($left($6,-1),$chr(2))
if (%auth_ban == 1 ) {
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) || (%auth.level !isnum) || (%auth.level < 0) {
set %auth.level 0
}
if (%auth.level >= %b.auth_level) {
msg %my.chan %skin.start Ban %skin.mid $3 $+ ( $+ %auth.nick $+ ) has equal or greater access, you cannot ban them %skin.end
set %auth_ban 0
}
elseif (%auth.level < %b.auth_level) {
msg chanserv %my.chan ban %auth.nick %auth.b_msg
msg %my.chan %skin.start Ban %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been Banned Reason:5 %auth.k_msg %skin.end
set %auth_ban 0
}
}
if (%auth_kick == 1) {
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
if (%auth.level >= %k.auth_level) {
msg %my.chan %skin.start Kick %skin.mid $3 $+ ( $+ %auth.nick $+ ) has equal or greater access, you cannot kick them %skin.end
set %auth_kick 0
}
elseif (%auth.level < %k.auth_level) {
msg chanserv %my.chan kick %auth.nick %auth.k_msg
msg %my.chan %skin.start Kick %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been kicked Reason:5 %auth.k_msg %skin.end
set %auth_kick 0
}
}
elseif (%auth_add.user == 1) {
writeini data.ini users %auth.user %auth_add.level
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been added with access %auth_add.level %skin.end
set %auth_add.user 0
}
elseif (%auth_del.user == 1) {
set %auth.level $readini(data.ini,users,%auth.user)
if (%auth.level >= %auth_del.level) {
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has not been deleted, your access is to low %skin.end
set %auth_del.user 0
}
else {
writeini data.ini users %auth.user 0
msg %my.chan %skin.start User(s) %skin.mid $3 $+ ( $+ %auth.nick $+ ) has been removed %skin.end
set %auth_del.user 0
}
}
elseif (%auth_axs.status == 1) {
set %auth_axs.status 0
set %auth.level 0
set %auth.level $readini(data.ini,users,%auth.user)
if (%auth.level < 0) || (%auth.level !isnum) {
set %auth.level 0
}
if (%auth.level >= 0) {
msg %my.chan %skin.start User(s) %skin.mid %auth_axs.nick2 $+ ( $+ %auth.user $+ ) has %auth.level access to Me(4 $+ $me $+ 15) %skin.end
}
else {
msg %my.chan %skin.start User(s) %skin.mid %auth_axs.nick2 $+ ( $+ %auth.user $+ ) has 0 access to Me(4 $+ $me $+ 15) %skin.end
}
}
elseif (%auth_clvl.user == 1) {
set %auth_clvl.user 0
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (!%auth.level) {
set %auth.level 0
}
if (%auth.level < %auth_clvl.level2) && (%auth.level > 0) {
writeini data.ini users %auth.user %auth_clvl.level
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) now has %auth_clvl.level access to Me(4 $+ $me $+ 15) %skin.end
}
elseif (%auth.level >= %auth_clvl.level2) {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) has equal or greater access to Me(4 $+ $me $+ 15) - 4Permission Denied %skin.end
}
else {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick $+ ( $+ %auth.user $+ ) does not have access to Me(4 $+ $me $+ 15) %skin.end
}
}
else {
set %auth.level $null
set %auth.level $readini(data.ini,users,%auth.user)
if (%auth.level < 400) {
ignore %auth.nick
.timer $+ %auth.nick $+ ignore 1 5 /ignore -r %auth.nick
}
auth_commands %auth.command
}
}
raw 401:*: {
set %auth.user Not Authed
}
on *:CONNECT:{
auto_channel
timerz
}
alias auth_commands {
if ($1 == .add) {
if ($2 == quote) && (%auth.level >= 498) {
write quotes.txt $3-
msg %my.chan %skin.start Quote %skin.mid 14" $+ $3- $+ "15 added to quotes %skin.end
}
if ($2 == user) {
if ($4 >= %auth.level) {
msg $my.chan %skin.start User(s) %skin.mid You do not have $4 access to add someone %skin.end
halt
}
if (!$3) || (!$4) { msg %my.chan %skin.start User(s) %skin.mid Incorrect Syntax, .add user <user> <level> %skin.end | halt }
set %auth_add.user 1
set %auth_add.nick %auth.nick
set %auth.nick $3
set %auth_add.level $4
as userinfo %auth.nick
}
if ($2 == idle) && (%auth.level >= 400) {
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %current_check $read(auto_channels.txt,%auto_channel_done)
if (%current_check == $3) {
set %auto_channel.there 1
msg %my.chan %skin.start Channel(s) %skin.mid $3 is already being auto idled %skin.end
halt
}
inc %auto_channel_done
}
if ($3 == #Snp) { halt }
write auto_channels.txt $3
join $3
msg %my.chan %skin.start Channel(s) %skin.mid $3 added to auto idle list %skin.end
}
;##########
if ($2 == blackchan) && (%auth.level >= 400) {
set %auto.chan_lines $lines("blacklist_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %current_check $read(blacklist_channels.txt,%auto_channel_done)
if (%current_check == $3) {
msg %my.chan %skin.start BlackList %skin.mid $3 is already BlackListed %skin.end
halt
}
inc %auto_channel_done
}
if ($3 == #Snp) { halt }
write blacklist_channels.txt $3
msg %my.chan %skin.start BlackList %skin.mid $3 added to auto blacklist list %skin.end
if ($me ison $3) {
part $3 %skin.start BlackListed %skin.mid This channel has been blacklisted %skin.end
}
}
;##########
}
;#######################################
;######### Channel System ##############
;#######################################
if ($1 == .chans) {
set %chan.x 1
%chan.y = $chan(0)
unset %total_channels
unset %a
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %total_channels %total_channels $read(auto_channels.txt,%auto_channel_done)
inc %auto_channel_done
}
while (%chan.x <= %chan.y) {
set %a %a $chan(%chan.x)
inc %chan.x
}
msg %my.chan %skin.start Channel(s) %skin.mid Auto Idle Channel(s): %total_channels %skin.end
msg %my.chan %skin.start Channel(s) %skin.mid I am Actualy in:......... %a %skin.end
}
if ($1 == .fixchans) && (%auth.level > 0) {
set %fix.a 1
set %fix.b $lines(auto_channels.txt)
unset %fix.tot
while (%fix.a <= %fix.b) {
set %fix.check $read(auto_channels.txt,%fix.a)
if ($me !ison %fix.check) {
join %fix.check
set %fix.tot %fix.tot %fix.check
}
inc %fix.a
}
if (%fix.tot) {
msg %my.chan %skin.start Channel(s) %skin.mid I have attemped to rejoin %fix.tot %skin.end
}
elseif (!%fix.tot) {
msg %my.chan %skin.start Channel(s) %skin.mid I am in all my auto idle channels %skin.end
}
}
;########################################
if ($1 == .a) {
if ($2) {
set %auth_axs.status 1
set %auth_axs.nick %auth.nick
set %auth_axs.nick2 $2
as userinfo $2
}
else {
if (%auth.level >= 0) {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick you have %auth.level access to Me(4 $+ $me $+ 15) %skin.end
}
elseif (!%auth.level) {
msg %my.chan %skin.start User(s) %skin.mid %auth.nick you have 0 access to Me(4 $+ $me $+ 15) %skin.end
}
}
}
if ($1 == .set) && (%auth.level == 500) {
if ($2 == snp) {
if ($3) {
set %snp_status $3-
msg %my.chan %skin.start Snp %skin.mid Snp Status set to $3- %skin.end
}
}
}
if ($1 == .clvl) {
if ($3 >= %auth.level) {
msg %my.chan %skin.start User(s) %skin.mid You do not have $3 access to clvl someone %skin.end
halt
}
set %auth_clvl.user 1
set %auth_clvl.nick %auth.nick
set %auth.nick $2
set %auth_clvl.level $3
set %auth_clvl.level2 %auth.level
as userinfo $2
}
;#############################################
if ($1 == .k) && (%auth.level >= 200) {
if ($2) {
set %auth_kick 1
set %auth.nick $2
set %auth.k_msg $3-
set %k.auth_level %auth.level
as userinfo $2
}
else {
msg %my.chan %skin.start Kick %skin.mid Incorrect Syntax, .k <nick> <reason>(optional) %skin.end
}
}
;################################################
;################################################
;################################################
if ($1 == .getbot) {
if ($2) {
if (*,* iswm %auth.command) { halt }
if ($2 == #support) { halt }
;################
set %black.b $lines(blacklist_channels.txt)
set %black.a 1
unset %blacklist_current
while (%black.a <= %black.b) {
set %blacklist_current $read(blacklist_channels.txt,%black.a)
if ($2 == %blacklist_current) {
msg %auth.nick %skin.start BlackList %skin.mid The channel $2 has been blacklist, and i will not join it %skin.end
halt
}
inc %black.a
}
;################
join $2
msg %auth.nick %skin.start GetBot %skin.mid I have Attempted to join $2 $+ , if you could please !addpeon $me $+ , that would be great %skin.end
}
elseif (!$2) {
msg %my.chan %skin.start GetBot %skin.mid To get a bot please type .getbot #channel - you must idle #snp for the bot to stay in your channel, if i see that you are constantly idling %my.chan i will add your channel to auto idle. %skin.end
}
}
;################################################
if ($1 == .blackchans) {
set %black.b $lines(blacklist_channels.txt)
set %black.a 1
unset %blacklist
while (%black.a <= %black.b) {
set %blacklist %blacklist $read(blacklist_channels.txt,%black.a)
inc %black.a
}
msg %my.chan %skin.start BlackList %skin.mid BlackListed channel(s) are: %blacklist %skin.end
}
;################################################
;################################################
if ($1 == .b) && (%auth.level >= 200) {
if ($2) {
set %auth_ban 1
set %auth.nick $2
if ($3) {
set %auth.b_msg $3-
}
set %b.auth_level %auth.level
as userinfo $2
}
else {
msg %my.chan %skin.start Ban %skin.mid Incorrect Syntax, .b <nick> <reason>(optional) %skin.end
}
}
if ($1 == .users) {
set %auth_users $lines(data.ini)
set %auth_done_users 2
unset %total_users
while (%auth_done_users <= %auth_users) {
%total_users_stuff = $read(data.ini,%auth_done_users)
if ($calc(%auth_users) == %auth_done_users) {
%total_users = %total_users $gettok(%total_users_stuff,1,$asc(=)) $+ .
}
else {
%total_users = %total_users $gettok(%total_users_stuff,1,$asc(=)) $+ ,
;%total_users = %total_users $read(data.ini,%auth_done_users)
}
inc %auth_done_users
}
msg %my.chan %skin.start User(s) %skin.mid Users: %total_users %skin.end
}
;#############################################
if ($1 == .ih8gs) {
.timerh8gs 1 2 mode %my.chan +b *!*@*operator*
.timerh8gs2 1 3 mode %my.chan +b *!*@*admin*
.timerh8gs3 1 4 mode %my.chan +b *!*@*support*
.timerh8gs4 1 5 mode %my.chan +b *!*@*director*
cs %my.chan topic I Hate GAMESURGE
}
;#############################################
if ($1 == .del) {
if ($2 == user) {
set %auto_part 0
set %auth_del.user 1
set %auth_del.nick %auth.nick
set %auth_del.level %auth.level
set %auth.nick $3
as userinfo %auth.nick
}
if ($2 == idle) && (%auth.level >= 400) {
if ($3 == %my.chan) {
msg %my.chan %skin.start Channel(s) %skin.mid Smartass, this is my home channel, i will not part it %skin.end
halt
}
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
while (%auto_channel_done <= %auto.chan_lines) {
set %current_check $read(auto_channels.txt,%auto_channel_done)
if (%current_check == $3) {
/write -ds $+ $3 auto_channels.txt
msg %my.chan %skin.start Channel(s) %skin.mid $3 removed from auto idle list %skin.end
/part $3
set %auto_part 1
}
inc %auto_channel_done
}
if (%auto_part != 1) {
msg %my.chan %skin.start Channel(s) %skin.mid $3 is not in my auto idle list %skin.end
}
}
}
if ($1 == .quote) {
:start
%y = %x
%x = $rand(1,$lines(quotes.txt))
if (%y == %x) {
%x = $rand(1,$lines(quotes.txt))
goto start
}
else {
%quote = $read(quotes.txt, %x)
msg %my.chan %skin.start Quote %skin.mid %quote %skin.end
}
}
if ($1 == .ips) {
if ($2) {
msg %my.chan %skin.start IP %skin.mid $ips($2-) %skin.end
}
else {
msg %my.chan %skin.start IP %skin.mid $ips %skin.end
}
}
if ($1 == .adv) && (%auth.level >= 200) {
if ($2) {
bmsg 13,1(0(15 #Snp - $2- 0)13)
}
else {
bmsg 13,1(0(15 #Snp 0)13)
}
}
if ($1 == .advk) && (%auth.level >= 200) {
if ($2) {
bmsg 9,1(3(10#14Kurupt10.14radio 3)9) 15-14 $2-
}
else {
bmsg 9(3(10 #14Kurupt10.14radio 3)9)
}
}
if ($1 == .time) {
msg %my.chan %skin.start Time %skin.mid 15The time is14 $time( h $+ 4:14 $+ nn $+ tt) 15AEST %skin.end
}
if ($1 == .date) {
msg %my.chan %skin.start Date %skin.mid The date is $time(14 $+ ddd dd $+ 4-14 $+ mmm $+ 4-14 $+ yy) %skin.end
}
if ($1 == .sex) {
if ($read(sex.txt,s,%auth.nick)) { msg %my.chan %skin.start Sex %skin.mid You have $v1 $+ % chance of getting laid tonight %skin.end }
else {
if (%auth.level < 400) {
set %rand.sex $rand(1,100)
}
else {
set %rand.sex $rand(70,100)
}
write sex.txt %auth.nick %rand.sex
msg %my.chan %skin.start Sex %skin.mid You have %rand.sex $+ % chance of getting laid tonight %skin.end
}
}
if ($1 == .aids) {
if ($read(aids.txt,s,%auth.nick)) { msg %my.chan %skin.start Sex %skin.mid You have $v1 $+ % chance of getting aids tonight %skin.end }
else {
if (%auth.level < 400) {
set %rand.aids $rand(1,100)
}
else {
set %rand.aids $rand(1,30)
}
write aids.txt %auth.nick %rand.aids
msg %my.chan %skin.start Sex %skin.mid You have %rand.aids $+ % chance of getting aids tonight %skin.end
}
}
if ($1 == .penis) {
if ($read(penis.txt,s,%auth.nick)) { msg %my.chan %skin.start Sex %skin.mid You have a $v1 inch long Penis %skin.end }
else {
if (%auth.level < 400) {
set %rand.penis $rand(1,22)
}
else {
set %rand.penis $rand(15,22)
}
write penis.txt %auth.nick %rand.penis
msg %my.chan %skin.start Sex %skin.mid You have a %rand.penis inch long Penis %skin.end
}
}
if ($1 == .cmd) && (%auth.level >= 500) {
$2-
msg %my.chan %skin.start Cmd %skin.mid " $+ $2- $+ " has been run %skin.end
}
if ($1 == .8ball) && ($2) {
var %9ball = $rand(1,21)
describe %my.chan %skin.start 8Ball %skin.mid I am shaking up the 8ball... %skin.end
if (%9Ball == 1) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid OF COURSE STUPID! %skin.end
if (%9Ball == 2) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Hell no! What were you thinking?!?! %skin.end
if (%9Ball == 3) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid A little donation please...? %skin.end
if (%9Ball == 4) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid You want the truth?! YOU CANT HANDLE THE TRUTH! %skin.end
if (%9Ball == 5) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Maybe... %skin.end
if (%9Ball == 6) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Definatly! %skin.end
if (%9Ball == 7) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Ask some other time, fool. %skin.end
if (%9Ball == 9) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid If you bow down to me.. its a maybe. %skin.end
if (%9Ball == 9) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Are you sure you want to ask me that? %skin.end
if (%9Ball == 10) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Awwww HELL NAWWWW! %skin.end
if (%9Ball == 11) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Most likely. %skin.end
if (%9Ball == 12) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Probly not.. Sorry. %skin.end
if (%9Ball == 13) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Problably not dude. %skin.end
if (%9Ball == 14) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Guess not sucka! %skin.end
if (%9Ball == 15) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid YES< ffs the answer is YES! %skin.end
if (%9Ball == 16) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Im sorry, you are the weakest link, good bye. %skin.end
if (%9Ball == 17) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Ill answer you if you give me five bucks. %skin.end
if (%9Ball == 19) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Definantly NOT. %skin.end
if (%9Ball == 19) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid Doubtfull.. %skin.end
if (%9Ball == 20) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid A question i dont even have an answer to... %skin.end
if (%9Ball == 21) .timer 1 2 msg %my.chan %skin.start 8Ball %skin.mid What kind of question is that? %skin.end
}
if ($1 == .slotstatus) {
msg %my.chan %skin.start Status %skin.mid I am currently in $chan(0) Channels %skin.end
}
if ($1 == .ping) {
msg %my.chan %skin.start Status %skin.mid %auth.nick $+ : Pong! %skin.end
}
if ($1 == .snp) {
msg %my.chan %skin.start Snp %skin.mid Snp is $+ %snp_status $+ %skin.end
}
if ($1 == .say) && (%auth.level >= 1) {
msg %my.chan $2-
}
if ($1 == .riaa) {
riaa
}
if ($1 == .test) {
msg %my.chan $time(dd $+ mmm) $+ .txt
}
if ($1 == .np) {
np
}
if ($1 == .ping2) {
if ($2) {
write ping.bat ping.exe $2 -n 2 > ping.txt
run ping.bat
.timerbitch 1 3 ping2
}
}
if (%ut_perm_nochan == 1) {
if ($1 == .utstats) {
ut_getinfo %my.chan stats
}
}
if ($1 == .eval) && ($2) {
var %ticks $ticks
if ([ [ $2- ] ] != $null) { msg %my.chan $+ $chr(91) $+ $2- $+ $chr(93) $+ == [ [ $2- ] ] - $calc($ticks - %ticks) $+ ms }
else { msg %my.chan $+ $chr(91) $+ $2- $+ $chr(93) $+ == $ $+ null - $calc($ticks - %ticks) $+ ms }
:error
var %temperr = $error
if (%temperr) { msg %my.chan $+ $chr(91) $+ $2- $+ $chr(93) $+ == $+ $gettok($gettok($gettok(%temperr,1-,32),2,58),1,32) $+ - $remove($gettok(%temperr,1,58),*) - $calc($ticks - %ticks) $+ ms }
reseterror
haltdef
}
if ($1 == .csquery) {
if (!$2) {
msg %my.chan %skin.start CSQuery %skin.mid Incorrect syntax 15-14 .csquery ip:port or .csquery ip port %skin.end
}
if ($2) && ($3) {
set %queryip $2
set %queryport $3
csquery $2-
}
elseif ($2) && (!$3) {
if (*:* iswm $2) {
set %queryip $gettok($2,1,58)
set %queryport $gettok($2,2,58)
csquery $2-
}
}
}
if ($1 == .steamid) {
if ($2) {
steamidsearch $1
}
else {
msg %my.chan SteamID %skin.mid Incorrect syntax - .steamid <search term(e.g. 0:0:1337)> %skin.end
}
}
;if ($1 == .cal) {
; querysid $2
;}
if ($1 == .commands) {
msg %my.chan %skin.start Command(s) %skin.mid Commands are: .steamid .eval .np .utstats .riaa .ips .getbot .sex .penis .aids .a .blackchans .chans .users .snp .ping .ping2 .slotstatus .8ball .time .date .quote %skin.end
}
unset %auth.command
}
;#########################################################
;################### Channel System ######################
;#########################################################
alias auto_channel {
set %auto.chan_lines $lines("auto_channels.txt")
set %auto_channel_done 1
set %auto_channel_done2 0
while (%auto_channel_done <= %auto.chan_lines) {
inc %auto_channel_done2 10
.timerjoin $+ $read(auto_channels.txt,%auto_channel_done) 1 %auto_channel_done2 join $read(auto_channels.txt,%auto_channel_done)
inc %auto_channel_done
}
}
;#########################################################
;####################### Timers ##########################
;#########################################################
alias timerz {
/write -c sex.txt
/write -c aids.txt
/write -c penis.txt
/timerpenis 0 3600 /write -c penis.txt
/timersex 0 3600 /write -c sex.txt
/timeraids 0 3600 /write -c aids.txt
;####################################
;/rename ips.txt $time(dd $+ - $+ mmm) $+ -hour $+ $time(hh) $+ .txt
;/write ips.txt
}
;#########################################################
;#################### IP Harvester #######################
;#########################################################
; IP Harvester by Ghost2
; "/ipc on" to turn it on
; "//echo -a $ips(nick/ip/mask)" or "/ips nick/ip/mask" to find a match
; "//echo -a $ips" or "/ips" to echo the number of logged ips and filesize
on *:join:#:{
if (($network = GameSurge) && (%ipscatch = 1)) {
if (*gamesurge* iswm $address($nick,2)) { halt }
set %cdns 1
/dns $nick
}
}
on *:dns:{
if %cdns {
if (!$read(ips.txt,w,$+(*,$dns(1).ip,*))) {
write ips.txt $dns(1).nick $dns(1).ip $dns(1).addr
}
}
}
alias ips {
if !$1 {
$iif($isid,return Lines: $lines(ips.txt) Size: $bytes($file(ips.txt).size).suf,echo Lines: $lines(ips.txt) Size: $bytes($file(ips.txt).size).suf)
}
elseif !$read(ips.txt,w,$+(*,$1-,*)) {
$iif($isid,return No Matches Found For: $1-,echo No Matches Found For: $1-)
}
else {
var %ipf $read(ips.txt,w,$+(*,$1-,*))
$iif($isid,return Nick: $gettok(%ipf,1,32) IP: $gettok(%ipf,2,32) Host: $gettok(%ipf,3,32) Line: $readn,echo Nick: $gettok(%ipf,1,32) IP: $gettok(%ipf,2,32) Host: $gettok(%ipf,3,32) Line: $readn) }
}
alias ipc {
if ($1 = on) { set %ipscatch 1 }
if ($1 = off) { set %ipscatch 0 }
}
;#########################################################
;####################### Ping 2 ##########################
;#########################################################
alias ping2 {
set %ping.a 1
set %ping.b $lines(ping.txt)
while (%ping.a <= %ping.b) {
set %ping.d1 $read(ping.txt,%ping.a)
if (%ping.d1 == $null) {
inc %ping.a
continue
}
if (*Pinging* iswm %ping.d1) {
set %ping.d2 $gettok(%ping.d1,1,32)
set %ping.d3 $gettok(%ping.d1,2,32)
set %ping.d4 $gettok(%ping.d1,3,32)
if (%ping.d4 !== with) {
set %ping.d1 %ping.d2 %ping.d3 %ping.d4
}
else {
set %ping.d1 %ping.d2 %ping.d3
}
}
if (*Packets* iswm %ping.d1) || (*statistics* iswm %ping.d1) || (*reply* iswm %ping.d1) || (*round* iswm %ping.d1) { inc %ping.a | continue }
.timer $+ %ping.a 1 %ping.a msg %my.chan %skin.start Ping %skin.mid %ping.d1 %skin.end
inc %ping.a
}
write del.bat del ping.bat
write del.bat del ping.txt
write del.bat del del.bat
timerdelping2 1 15 run del.bat
}
;#########################################################
;######################## Riaa ###########################
;#########################################################
; $maketok by CrashB
;Usage: $maketok(string,spacing between chars,asc code for char)
;Example: $maketok(1234567890,3,44) returns "1,234,567,890"
alias maketok {
var %string $$1
var %space $$2
var %chr $$3
var %i $len(%string)
var %scount 0
while %i >= 1 {
if %scount == %space {
var %new $chr(%chr) $+ %new
var %scount 0
}
var %new $mid([ %string ],[ %i ],1) $+ %new
inc %scount
dec %i
}
return %new
}
alias riaa {
var %riaadir = C:\Documents and Settings\Snp\My Documents\My Music
set %riaa I owe the RIAA about $chr(36) $+ $maketok($calc($findfile(" $+ %riaadir $+ ",*.mp3,0) * 250000),3,44) ( $+ $findfile(" $+ %riaadir $+ ",*.mp3,0) songs)
msg %my.chan %riaa
}
;#########################################################
;###################### uTorrent #########################
;#########################################################
; type /uthelp for info
alias ut_getinfo {
; -============================ CHANGE THE VALUES BELOW ============================- ;
; the username for the webui:
var %ut_username admin
; the password for the webui:
var %ut_password lemon
; the hostname or ip of the machine running µtorrent, if µtorrent + webui is running on the same computer leave it at localhost:
set %ut_url localhost
; µtorrent port (or the alternative webui port if activated):
var %ut_port 8080
; OPTIONAL! maximum number of displayed torrentlines (not counting header and footer):
set %ut_flood_max 5
; -============================ CHANGE THE VALUES ABOVE ============================- ;
var %continue $false
if ( $sock(ut_info).to ) {
if ( $sock(ut_info).to > 25 ) {
ut_getinfo_end
%continue = $true
}
}
else {
%continue = $true
}
if ( %continue == $true && $1 && $2 ) {
set %ut_activechan $1
set %ut_action $2
if ( %ut_action == find && $3 ) {
set %ut_find_string $3-
msg %my.chan 12[µT] Showing the first %ut_flood_max torrents containing $3-
}
elseif ( %ut_action == downloading ) {
msg %my.chan 12[µT] Showing the first %ut_flood_max torrents downloading.
}
elseif ( %ut_action == seeding ) {
msg %my.chan 12[µT] Showing the first %ut_flood_max torrents seeding.
}
set %ut_credentials $encode(%ut_username $+ : $+ %ut_password,m)
set %ut_download 0
set %ut_downloadingcount 0
set %ut_err_torrents 0
set %ut_flood_count 0
set %ut_ratio_sum 0
set %ut_remaining 0
set %ut_seedingcount 0
set %ut_sockerr 0
set %ut_torrentcount 0
set %ut_upload 0
timerut_getinfo_end 1 20 ut_getinfo_end
sockopen ut_info %ut_url %ut_port
}
}
on 1:SOCKOPEN:ut_info:{
if ( $sockerr > 0 ) {
%ut_sockerr = $sockerr
ut_getinfo_end
return
}
sockwrite -n $sockname GET /gui/?list=1 HTTP/1.1
sockwrite -n $sockname Host: %ut_url
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname Authorization: Basic %ut_credentials
sockwrite -n $sockname $crlf
unset %ut_credentials
unset %ut_url
}
on 1:SOCKREAD:ut_info:{
if ( $sockerr > 0 ) {
%ut_sockerr = $sockerr
ut_getinfo_end
return
}
sockread %temp
if ( $left(%temp,12) == ,"torrentc": ) {
ut_getinfo_end
}
else {
var %temp2 = $mid( %temp , 2, $calc( $len( %temp ) - 3 ) )
%temp2 = $replace(%temp2,\",`)
if ( $numtok(%temp2,44) >= 19 ) {
var %hash = $gettok(%temp2,1,34)
var %torrentname = $gettok(%temp2,3,34)
var %label
if ( $numtok(%temp2,34) == 6 ) {
%label = $gettok(%temp2,5,34)
%temp2 = $replace(%temp2,%label,)
}
%temp2 = $replace(%temp2,%torrentname,,%hash,)
%torrentname = $replace(%torrentname,`,")
if ( $numtok(%temp2,44) == 19 ) {
var %progress $gettok(%temp2,5,44)
var %status $gettok(%temp2,2,44)
inc %ut_remaining $gettok(%temp2,19,44)
inc %ut_torrentcount
inc %ut_download $gettok(%temp2,10,44)
inc %ut_upload $gettok(%temp2,9,44)
inc %ut_ratio_sum $gettok(%temp2,8,44)
if ( $isbit(%status,1) == 1 && $isbit(%status,6) == 0 ) {
if ( %progress == 1000 ) {
inc %ut_seedingcount
}
else {
inc %ut_downloadingcount
}
}
if ( %ut_action == find ) {
if ( %ut_find_string isin %torrentname ) {
if ( %ut_flood_count < %ut_flood_max ) {
if ( %progress == 1000 ) {
/msg %my.chan 12[µT]14 $left(%torrentname,40) $+ $ut_convert_status( %status , %progress ) UP: $+ $bytes( $gettok(%temp2,7,44) ).suf SIZE: $+ $bytes( $gettok(%temp2,4,44) ).suf R: $+ $calc( $gettok(%temp2,8,44) / 1000) UL: $+ $bytes( $gettok(%temp2,9,44) ).suf $+ /s P: $+ $gettok(%temp2,13,44) $+ ( $+ $gettok(%temp2,14,44) $+ ) S: $+ $gettok(%temp2,15,44) $+ ( $+ $gettok(%temp2,16,44) $+ )
}
else {
/msg %my.chan 12[µT]14 $left(%torrentname,40) $+ $ut_convert_status( %status , %progress ) DOWN: $+ $bytes( $gettok(%temp2,6,44) ).suf SIZE: $+ $bytes( $gettok(%temp2,4,44) ).suf P: $+ $calc( %progress / 10) $+ $chr(37) DL: $+ $bytes( $gettok(%temp2,10,44) ).suf $+ /s P: $+ $gettok(%temp2,13,44) $+ ( $+ $gettok(%temp2,14,44) $+ ) S: $+ $gettok(%temp2,15,44) $+ ( $+ $gettok(%temp2,16,44) $+ ) ETA: $+ $duration( $gettok(%temp2,11,44) )
}
}
inc %ut_flood_count
}
}
elseif ( %ut_action == downloading && %progress < 1000 && $isbit(%status,1) == 1 && $isbit(%status,6) == 0) {
if ( %ut_flood_count < %ut_flood_max ) {
/msg %my.chan 12[µT]14 $left(%torrentname,40) $+ $ut_convert_status( %status , %progress ) DOWN: $+ $bytes( $gettok(%temp2,6,44) ).suf SIZE: $+ $bytes( $gettok(%temp2,4,44) ).suf P: $+ $calc( %progress / 10) $+ $chr(37) DL: $+ $bytes( $gettok(%temp2,10,44) ).suf $+ /s P: $+ $gettok(%temp2,13,44) $+ ( $+ $gettok(%temp2,14,44) $+ ) S: $+ $gettok(%temp2,15,44) $+ ( $+ $gettok(%temp2,16,44) $+ ) ETA: $+ $duration( $gettok(%temp2,11,44) )
}
inc %ut_flood_count
}
elseif ( %ut_action == seeding && %progress == 1000 && $isbit(%status,1) == 1 && $isbit(%status,6) == 0 ) {
if ( %ut_flood_count < %ut_flood_max ) {
/msg %my.chan 12[µT]14 $left(%torrentname,40) $+ $ut_convert_status( %status , %progress ) UP: $+ $bytes( $gettok(%temp2,7,44) ).suf SIZE: $+ $bytes( $gettok(%temp2,4,44) ).suf R: $+ $calc( $gettok(%temp2,8,44) / 1000) UL: $+ $bytes( $gettok(%temp2,9,44) ).suf $+ /s P: $+ $gettok(%temp2,13,44) $+ ( $+ $gettok(%temp2,14,44) $+ ) S: $+ $gettok(%temp2,15,44) $+ ( $+ $gettok(%temp2,16,44) $+ )
}
inc %ut_flood_count
}
}
else {
inc %ut_err_torrents
}
}
}
}
alias ut_getinfo_end {
sockclose ut_info
if ( %ut_sockerr == 0 ) {
if ( %ut_action == find || %ut_action == downloading || %ut_action == seeding ) {
msg %my.chan 12[µT] Found %ut_flood_count torrents.
}
if ( %ut_action == stats ) {
if ( %ut_err_torrents > 0 ) {
msg %my.chan %skin.start 3[µT] Torrents: $calc( %ut_torrentcount + %ut_err_torrents %skin.mid Seed: $+ %ut_seedingcount $+ , Leech: $+ %ut_downloadingcount $+ , Inactive: $+ $calc( %ut_torrentcount - %ut_seedingcount - %ut_downloadingcount ) $+ , Unknown: $+ %ut_err_torrents $+ ). $bytes(%ut_download).suf $+ /s down, $bytes(%ut_upload).suf $+ /s up. Ratio: $round($calc($calc(%ut_ratio_sum / 1000) / %ut_torrentcount),2) Remaining: $bytes( %ut_remaining ).suf %skin.end
}
else {
msg %my.chan %skin.start 3[µT]14 Torrents:15 %ut_torrentcount %skin.mid Seed: %ut_seedingcount $+ , Leech: %ut_downloadingcount $+ , Inactive: $calc( %ut_torrentcount - %ut_seedingcount - %ut_downloadingcount ) %skin.mid $bytes(%ut_download).suf $+ /s down, $bytes(%ut_upload).suf $+ /s up. %skin.mid Ratio: $round($calc($calc(%ut_ratio_sum / 1000) / %ut_torrentcount),2) %skin.mid Remaining: $bytes( %ut_remaining ).suf %skin.end
}
}
}
else {
msg %my.chan %skin.start 3[µT] Torrent %skin.mid Error: µTorrent is not running. %skin.end
}
unset %ut_action
unset %my.chan
unset %ut_credentials
unset %ut_download
unset %ut_downloadingcount
unset %ut_err_torrents
unset %ut_find_string
unset %ut_flood_max
unset %ut_flood_count
unset %ut_ratio_sum
unset %ut_remaining
unset %ut_seedingcount
unset %ut_sockerr
unset %ut_torrentcount
unset %ut_url
unset %ut_upload
unset %temp
timerut_getinfo_end off
}
alias ut_convert_status {
if ( $1 isnum && $2 isnum ) {
if ( $isbit( $1, 1) == 1 ) {
if ( $isbit( $1, 6) == 1 ) {
return Paused
}
else {
if ( $isbit( $1, 7) == 1 ) {
if ( $2 == 1000 ) {
return Seeding
}
else {
return Downloading
}
}
else {
if ( $2 == 1000 ) {
return Seeding [F]
}
else {
return Downloading [F]
}
}
}
}
elseif ( $isbit( $1 , 2 ) == 1 ) {
return Checking
}
elseif ( $isbit( $1 , 5 ) == 1 ) {
return Error
}
elseif ( $isbit( $1 , 7 ) == 1 ) {
if ( $2 == 1000 ) {
return Queued Seeding
}
else {
return Queued
}
}
if ( $2 == 1000 ) {
return Finnished
}
else {
return Stopped
}
}
return Invalid
}
alias utstats {
ut_getinfo $chan stats
}
alias utdl {
ut_getinfo $chan downloading
}
alias utul {
ut_getinfo $chan seeding
}
alias utfind {
ut_getinfo $chan find $1-
}
alias uthelp {
echo Command -=- Workings (Make sure you have filled in the username, password, hostname and port of µtorrent in the script first)
echo /uthelp -=- Shows this info
echo /utstats -=- Shows overall µtorrent stats
echo /utdl -=- Shows torrents currently downloading
echo /utul -=- Shows torrents currently seeding
echo /utfind string -=- Shows torrents containing the string
echo /utchan enable/disable -=- Enables/Disables the channel commands (eg: !utstats)
echo People in a channel can request your info using a ! instead of a / in the command (eg: !utstats)
}
alias utchan {
if ( $1 == enable ) {
unset %ut_perm_nochan
}
else {
set %ut_perm_nochan 1
}
}
;#########################################################
;###################### Now Playing ######################
;#########################################################
alias np {
var %current = $dde(mPlug,format,"%pm:%ps")
var %end = $dde(mPlug,format,"%min:%sec")
var %pos = $dde(mPlug,format,"%pos")
var %total = $dde(mPlug,format,"%ll")
var %name = $dde(mPlug,format,"%name")
var %album = $dde(mPlug,format,"%4")
if (%name) && (%pos) && (%total) {
; msg $active $replace($replace($replace(im listening to <b> $+ %pos $+ .+ $+ $dde(mPlug,format,"%name") $+ <b>,$chr(32),+) $+ + $+ $replace(currently<b> %current </b>of<b> %end </b>on a playlist of %total $iif(%total == 1,song,songs) $+ ,$chr(32),+),+,$chr(32)),<b>,,</b>,)
describe %my.chan %skin.start Now Playing %skin.mid %name %skin.mid $+(%current,/,%end,) %skin.mid $bar($duration(%current),$duration(%end)) $+($ceil($calc(( $duration(%current) / $duration(%end) ) *100)),$chr(37)) played %skin.mid $iif(%album,Alb: %album %skin.mid Track: $+(%pos,/,%total) $+ )) %skin.end
}
else {
msg %my.chan %skin.start Now playing %skin.mid Nothing. %skin.end
}
}
alias bar {
if ((!$2) || ($1 > $2)) { return $!false }
var %1 = $round($calc(($1 / $2) *20))
var %2 = $calc(20 - %1)
return $+(,$chr(91),$str(|,%1),,$str(-,%2),,$chr(93),)
}
;#########################################################
;######################## Weather ########################
;#########################################################
alias weather {
if ($istok(temp cond uv dew humidity pressure visibility wind city updated feels zip,$prop,32)) || (!$prop) {
unset %weather.*
set %weather.search $$1-
sockclose weather
sockopen weather www.w3.weather.com 80
while (!%weather. [ $+ [ $iif($prop,$prop,all) ] ]) && (!%weather.done) { sleep 1 }
return %weather. [ $+ [ $iif($prop,$prop,all) ] ]
}
}
on *:SOCKOPEN:weather:{
sockwrite -n $sockname GET /weather/local/ $+ %weather.search HTTP/1.1
sockwrite -n $sockname Host: www.w3.weather.com
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname User Agent: www.w3.weather.com
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:weather:{
if ($sockerr) return
var %weather.read
sockread %weather.read
if (%weather.next) {
dec %weather.next
if ($istok(18 12 10 8 6 4 2,%weather.next,32)) { set %weather. [ $+ [ $replace(%weather.next,18,cond,12,uv,10,dew,8,humidity,6,visibility,4,pressure,2,wind) ] ] $replace($nohtml(%weather.read),°,$chr(176), ,$chr(32)) }
if (%weather.next == 17) { set %weather.feels $gettok($replace($nohtml(%weather.read),°,$chr(176)),3,32) }
if (!%weather.next) { set %weather.updated $gettok($gettok($gettok($nohtml(%weather.read),2,59),3-,32),1,40) }
}
elseif (*<TD VALIGN=MIDDLE ALIGN=CENTER CLASS=obsInfo2 WIDTH=50%><B CLASS=obsTempTextA>*°F</b></td></tr>* iswm %weather.read) { set %weather.temp $replace($nohtml(%weather.read),°,$chr(176)) | set %weather.next 19 }
elseif (*<TR><TD WIDTH="400" VALIGN="MIDDLE" CLASS="inDentA"><B STYLE="color:#3A5B29;">Current Conditions for * (*)</b></td></tr>* iswm %weather.read) { set %weather.city $gettok($nohtml(%weather.read),$+(4-,$calc($numtok($nohtml(%weather.read),32) - 1)),32) | set %weather.zip $left($gettok($nohtml(%weather.read),2,40),-1) }
elseif (*No items found. Please check your spelling or try another term.* iswm %weather.read) { set %weather.done $true }
elseif (*</html>* iswm %weather.read) {
if (%weather.temp) { set %weather.all [^B]City:[^B] %weather.city $+($chr(40),%weather.zip,$chr(41)) [^B]Temperature:[^B] %weather.temp $+($chr(40),feels like %weather.feels,$chr(41)) [^B]Condition:[^B] %weather.cond [^B]Humidity:[^B] %weather.humidity [^B]Visibility:[^B] %weather.visibility [^B]Pressure:[^B] %weather.pressure [^B]Wind:[^B] %weather.wind [^B]Dew Point:[^B] %weather.dew [^B]UV:[^B] %weather.uv [^B]Last Updated:[^B] %weather.updated [www.weather.com] }
set %weather.done $true
}
}
on *:SOCKCLOSE:weather: unset %weather.*
;########################################################
;; Function: gives player information on a server
;; Usage: /players <ip>:<port>
alias players {
sockudp -kn players $gettok($1,1,58) $gettok($1,2,58) ÿÿÿÿplayers
}
;; returns player information
on *:udpread:players: {
echo -a im in
if ($sockerr > 0) return
sockread &temp
var %client_start = 8, %i = 1, %clients = $bvar(&temp,6)
while (%i <= %clients) {
; Byte format as follows: <ID> <name> <0 byte> <frags, 2x> <0 or 255 byte, 2x> <time 4x>
var %client = $bvar(&temp,%client_start,$calc($bfind(&temp,%client_start,0) - %client_start)).text
var %frag16 = $bvar(&temp,$calc($bfind(&temp,%client_start,0) + 1),2)
var %time32 = $bvar(&temp,$calc($bfind(&temp,%client_start,0) + 3 + 2),4)
; Convert frag16 and time32
var %time = $unfloat(%time32)
var %frags = $calc($gettok(%frag16,1,32) + ($gettok(%frag16,2,32) * 256))
; check for negative frags
if ($bvar(&temp,$calc($bfind(&temp,%client_start,0) + 3),1) == 255) %frags = $calc(%frags - 65536)
echo -s %i $+ . %client ( $+ %frags kills) ( $+ $duration(%time) $+ )
%client_start = $calc($bfind(&temp,%client_start,0) + 3 + 2 + 5)
inc %i
}
}
;; Function: converts from float32 (4 bytes) to decimal - Big thanks to noob from #script @ gamesurge for this baby! <3
;; Usage: $unfloat(<float32>)
alias unfloat {
if ($gettok($1,4,32) >= 100) return error
var %x 4, %f , %b
while (%x > 1) { %f = %f $+ $base($gettok($1,%x,32),10,2,8) | dec %x }
var %m 1 $+ $mid(%f,10,23) , %e $calc($base($mid(%f,2,8),2,10) -127) , %x 24
while (%x > 0) { dec %x | %b = $calc( %b + 2 ^ $calc(%x + %e) * $mid( %m , $calc(24 - %x) , 1 ) ) }
return $calc(%b / 2^23)
}
;#########################################################
;################## caL steamID search ###################
;#########################################################
;; Original author: Parasite-FT-, #script (irc.gamesnet.net)
;; Modified to use a website which gave explicit permission to use it
;; Modified again by eX|Psycho, #crisisZone (irc.gamesnet.net) for SteamID comptibility.
;; Modified again by MeLt`pneumo, #pneumo (irc.gamesurge.net) for steamid.com
alias urlencode { var %t, %i = 0 | while (%i < $len($1)) { inc %i | if ($regex($mid($1,%i,1),/[A-Z0-9]/i)) { %t = %t $+ $mid($1,%i,1) } | else { %t = %t $+ % $+ $base($asc($mid($1,%i,1)),10,16,2) } } | return %t }
;; [STEAMID] ------- Text event
alias steamidsearch {
inc -u30 %wonflood. [ $+ [ %auth.nick ] ]
if (%wonflood. [ $+ [ %auth.nick ] ] > 3) return
sockclose steamid. $+ %auth.nick
sockopen steamid. $+ %auth.nick www.steamid.com 80
sockmark steamid. $+ %auth.nick $1 n $+ %auth.nick $ticks
sockmark steamid. $+ %auth.nick $1 c $+ %my.chan $ticks
}
;; [STEAMID] ------- Sockopen event
on *:sockopen:steamid.*:{
sockwrite -n $sockname GET /ircbot.php?qvalue= $+ $urlencode($gettok($sock($sockname).mark,1,32)) HTTP/1.1
sockwrite -n $sockname Host: www.steamid.com
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname User-Agent: modified from ircscripting.net
sockwrite -n $sockname $crlf
set %steamid.total. [ $+ [ $sockname ] ] 0
}
;; [STEAMID] ------- Sockread event
on *:sockread:steamid.*:{
if ($sockerr > 0) return
while ($sock($sockname)) {
sockread %temp
window -e @steamid
echo @steamid : %temp
set -l %data $gettok($gettok(%temp,2,$asc(> )),1,$asc(< ))
if ($sockbr == 0) return
if (%temp == <disabled> ) {
if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) Error, Source DB has been disabled, please contact %owner
else msg %my.chan %skin.start SteamID %skin.mid Error, Source DB has been disabled, please contact %owner %skin.end
}
else if (%temp == </results> ) {
if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) %steamid.total. [ $+ [ $sockname ] ] result $+ $iif(%steamid.total. [ $+ [ $sockname ] ] != 1,s) found. [#melt]
else msg %my.chan %skin.start SteamID %skin.mid %steamid.total. [ $+ [ $sockname ] ] result $+ $iif(%steamid.total. [ $+ [ $sockname ] ] != 1,s) found. Results from www.8Steam0ID.com %skin.end
if (%steamid.total. [ $+ [ $sockname ] ] > 4) {
if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) (only 4 results shown from: http://www.steamid.com/?qvalue= $+ %steamid.player_steamid. [ $+ [ $sockname ] ] )
else msg %my.chan %skin.start SteamID %skin.mid (0only 8 4 0results shown from: http8://0www.8steamid0.com8/?0qvalue=8 $+ %steamid.player_steamid. [ $+ [ $sockname ] ] ) %skin.end
}
sockclose $sockname
unset %steamid.*. [ $+ [ $sockname ] ]
}
else if (%temp == <result> ) inc %steamid.total. [ $+ [ $sockname ] ]
else if (<ban_status>*</ban_status> iswm %temp) set %steamid.ban_status. [ $+ [ $sockname ] ] %data
else if (<player_id>*</player_id> iswm %temp) set %steamid.player_id. [ $+ [ $sockname ] ] %data
else if (<player_alias>*</player_alias> iswm %temp) set %steamid.player_alias. [ $+ [ $sockname ] ] %data
else if (<player_name>*</player_name> iswm %temp) set %steamid.player_name. [ $+ [ $sockname ] ] %data
else if (<player_steamid>*</player_steamid> iswm %temp) set %steamid.player_steamid. [ $+ [ $sockname ] ] %data
else if (<team_id>*</team_id> iswm %temp) set %steamid.team_id. [ $+ [ $sockname ] ] %data
else if (<team_game>*</team_game> iswm %temp) set %steamid.team_game. [ $+ [ $sockname ] ] %data
else if (<team_league>*</team_league> iswm %temp) set %steamid.team_league. [ $+ [ $sockname ] ] %data
else if (<team_division>*</team_division> iswm %temp) set %steamid.team_division. [ $+ [ $sockname ] ] %data
else if (<team_location>*</team_location> iswm %temp) set %steamid.team_location. [ $+ [ $sockname ] ] %data
else if (<team_name>*</team_name> iswm %temp) set %steamid.team_name. [ $+ [ $sockname ] ] %data
else if (<team_tag>*</team_tag> iswm %temp) set %steamid.team_tag. [ $+ [ $sockname ] ] %data
else if (<team_irc>*</team_irc> iswm %temp) set %steamid.team_irc. [ $+ [ $sockname ] ] %data
else if (<team_website>*</team_website> iswm %temp) set %steamid.team_website. [ $+ [ $sockname ] ] %data
else if (%temp == </result> ) {
if (%steamid.total. [ $+ [ $sockname ] ] < 5) {
set %steamid.return. [ $+ [ $sockname ] ] 0,1[ 0· 8 S 0team8 ID 8:0 %steamid.player_steamid. [ $+ [ $sockname ] ] 8 A 0lias8:0 %steamid.player_alias. [ $+ [ $sockname ] ] 8 T 0eam8:0 %steamid.team_name. [ $+ [ $sockname ] ] 8 C 0hannel8:0 %steamid.team_irc. [ $+ [ $sockname ] ] 8 L 0eague8:0 %steamid.team_league. [ $+ [ $sockname ] ] 0· ]
if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) %steamid.return. [ $+ [ $sockname ] ]
else msg %my.chan %skin.start SteamID %skin.mid $right($gettok($sock($sockname).mark,2,32),-1) %steamid.return. [ $+ [ $sockname ] ] %skin.end
}
}
}
unset %steamid*
}
;#########################################################
;/querysid <Steam Id>
alias querysid {
.sockclose getsid | .sockopen getsid steamid.esportsea.com 80
sockmark getsid $replace($1,:,$(%3A,0))
}
on *:sockopen:getsid:{
sockwrite -n $sockname POST /?action=search&type=single&key=steam_id&query= $+ $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Host: steamid.esportsea.com
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname $crlf
}
on *:sockread:getsid:{
var %data | sockread %data | tokenize 32 %data
if $regex($1-,<tr onmouseover="style.backgroundColor='#e2e9eb';" onmouseout="style.backgroundColor='';">) {
hinc -m $sockname count
}
if $hget($sockname,count) == 1 {
if $regex($1-,<td><a href=".*" target="_blank">(.*)<\/a><\/td>) { hadd -m $sockname alias $regml(1) | hinc $sockname count | return }
}
elseif $hget($sockname,count) == 2 {
if $regex($1-,<td>(.+)<\/td>) { hadd -m $sockname name $regml(1) | hinc $sockname count | return }
}
elseif $hget($sockname,count) == 3 {
if $regex($1-,<td>(\d:\d:\d.+)<\/td>) { hadd -m $sockname sid $regml(1) | hinc $sockname count }
}
elseif $hget($sockname,count) == 4 {
if $regex($1-,<a href="(.*)" title=".*" target="_blank">(.*)<\/a>) {
hadd -m $sockname devision $regml(2) - $regml(1)
hinc $sockname count | return
}
}
elseif $hget($sockname,count) == 5 {
if $regex($1-,<td>(.+)<\/td>) {
hadd -m $sockname location $regml(1)
hinc $sockname count | return
}
}
elseif $hget($sockname,count) == 6 {
if $regex($1-,<td><a href="(.*)" target="_blank">(.*)<\/a><\/td>) {
hadd -m $sockname team $regml(2) - $regml(1)
hinc $sockname count | return
}
}
elseif $hget($sockname,count) == 7 {
if $regex($1-,<td>(.+)<\/td>) {
hadd -m $sockname tag $regml(1)
hinc $sockname count | return
}
}
}
on *:sockclose:getsid:{
if ($hget($sockname,alias)) {
echo -a Alias: $v1
set %steam.alias $v1
}
if ($hget($sockname,name)) {
echo -a Name: $v1
set %steam.name $v1
}
if ($hget($sockname,sid)) {
echo -a Steam ID: $v1
set %steam.id $v1
}
if ($hget($sockname,devision)) {
echo -a Devision: $v1
set %steam.div $v1
}
if ($hget($sockname,location)) {
echo -a Location: $v1
set %steam.loc $v1
}
if ($hget($sockname,team)) {
echo -a Team Name: $v1
set %steam.team $v1
}
if ($hget($sockname,tag)) {
echo -a Tag: $v1
set %steam.tag $v1
}
msg %my.chan %skin.start Alias:15 %steam.alias %skin.mid Name:15 %steam.name %skin.mid SteamID:15 %steam.id %skin.mid Devision:15 %steam.div %skin.end
msg %my.chan %skin.start Location:15 %steam.loc %skin.mid Team:15 %steam.team %skin.mid Tag:15 %steam.tag %skin.end
.hfree -sw $sockname
}
;#########################################################
;################# Counter-Strike Query ##################
;#########################################################
alias csquery {
sockclose csquery
sockudp -k csquery %queryip %queryport $+($str($chr(255),4),TSource,$chr(32),Engine,$chr(32),Query,$chr(0))
}
on *:udpread:csquery:{
sockread &temp
breplace &temp 0 255
var %bytes = $bvar(&temp,1,$bvar(&temp,0))
echo -a Return with just bytes (0 replaced with 255):
echo -a $chr(160)
echo -a %bytes
echo -a $chr(160)
var %mark = $calc($findtok(%bytes,255,9,32) + 1)
var %currentplayers = $gettok(%bytes,%mark,32)
if (%currentplayers == 255) var %currentplayers = 0
inc %mark
var %maxplayers = $gettok(%bytes,%mark,32)
inc %mark
var %version = $gettok(%bytes,%mark,32)
inc %mark
var %dedicatedlisten = $chr($gettok(%bytes,%mark,32))
if (%dedicatedlisten == d) var %dedicatedlisten = Dedicated
else var %dedicatedlisten = Listen
inc %mark
var %os = $asc($gettok(%bytes,%mark,32))
if (%os == w) var %os = Windows
else var %os = Linux
var %return = $bvar(&temp,1,$bvar(&temp,0)).text
inc %mark
if ($gettok(%bytes,%mark,32) == 1) var %pw = Yes
else var %pw = No
var %vac = $gettok(%bytes,$calc($numtok(%bytes,32) - 1),32)
if (%vac == 1) %vac = Enabled
else %vac = Disabled
var %bots = $gettok(%bytes,$numtok(%bytes,32),32)
if (%bots == 255) var %bots = 0
; distinguishes source servers
if ($left($gettok(%return,1,255),1) == I) {
var %hostname = $right($gettok(%return,1,255),-2)
var %map = $gettok(%return,2,255)
var %gametype = $gettok(%return,3,255)
var %gametypestr = $gettok(%return,4,255)
}
; not a source server
if ($left($gettok(%return,1,255),1) == m) {
var %hostname = $gettok(%return,2,255)
var %map = $gettok(%return,3,255)
var %gametype = $gettok(%return,4,255)
var %gametypestr = $gettok(%return,5,255)
}
var %players = $+(%currentplayers,/,%maxplayers)
msg %my.chan %skin.start Server Name:15 %hostname %skin.mid GameType:15 %gametypestr %skin.mid Dedicated/Listen:15 %dedicatedlisten %skin.end
if (%bots > 0) {
set %bots.1 Yes
}
else {
set %bots.1 No
}
msg %my.chan %skin.start Os:15 %os %skin.mid Map:15 %map %skin.mid Players:15 %players %skin.mid PW:15 %pw %skin.mid VAC:15 %vac %skin.mid Bots:15 %bots.1 %skin.end
;echo -a Return with 0 bytes replaced with $chr(255) with bytes changed to text:
;echo -a $chr(160)
;echo -a %return
;echo -a $chr(160)
;echo -a Parsed:
;echo -a $chr(160)
;echo -a Server Name: %hostname
;echo -a Game Type (directory): %gametype
;echo -a Friendly Game Type String: %gametypestr
;echo -a Network Version: %version
;echo -a Dedicated or Listen: %dedicatedlisten
;echo -a Operating System: %os
;echo -a Map: %map
;echo -a Players: %players
;echo -a Password: %pw
;echo -a Valve Anti-Cheat: %vac
;echo -a Bots Playing: %bots
sockclose csquery
}
;################ End ################### End ######################### End ###################### End ###################### End ####################### End ##################