alias -l ss { sockwrite -n dom $1- }
alias -l sn { return $sockname }
;cookie
alias -l dom.login { return X }
;/xscan chan|nick x y z
alias ecoscan {
if ($1 isnum 1-) && ($2 isnum 1-) && ($3 isnum 1-15) {
dom $dom.login $1 $+(eco_,$2,-,$3,-,$4,.php /dom/kgb.php?act=show&type=22&px=,$2,&py=,$3,&pos=,$4)
}
}
alias armyscan {
if ($1 isnum 1-) && ($2 isnum 1-) && ($3 isnum 1-15) {
dom $dom.login $1 $+(army_,$2,-,$3,-,$4,.php /dom/kgb.php?act=show&type=23&px=,$2,&py=,$3,&pos=,$4)
}
}
alias milscan {
if ($2 isnum 1-) && ($3 isnum 1-) && ($4 isnum 1-15) {
dom $dom.login $1 $+(mil_,$2,-,$3,-,$4,.php /dom/kgb.php?act=show&type=24&px=,$2,&py=,$3,&pos=,$4)
}
}
alias newsscan {
if ($2 isnum 1-) && ($3 isnum 1-) && ($4 isnum 1-15) {
dom $dom.login $1 $+(news_,$2,-,$3,-,$4,.php /dom/kgb.php?act=show&type=25&px=,$2,&py=,$3,&pos=,$4)
}
}
alias comscan {
if ($2 isnum 1-) && ($3 isnum 1-) {
dom $dom.login $1 $+(com_,$2,-,$3,.php /dom/kgb.php?act=show&type=26&px=,$2,&py=,$3)
}
}
alias dom {
if (!$hget(dom)) { hmake dom 5 }
if (!$sock(dom)) { sockopen dom dom.gamesurf.tiscali.de 8080 | hadd dom login $1 | hadd dom chan $2 | hadd dom file $3 | hadd dom c $4- }
}
on *:sockopen:dom:{
if (!$sockerr) {
ss GET $hget(dom,c) HTTP/1.0
ss Host: dom.gamesurf.tiscali.de:8080
ss User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ALL YOUR BASE ARE BELONG TO US; en-US; rv:1.7.5) Gecko/20041107 Firefox/1.0
ss Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
ss Accept-Language: en-us,en;q=0.5
ss Accept-Encoding: gzip,deflate
ss Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
ss Connection: close
ss Cookie: nummer= $+ $hget(dom,login)
ss
}
else { echo -s $sock($sn).wsmsg }
}
on *:sockread:dom:{
if ($sockerr) return
if (!$hget(dom,headers)) {
var %r
sockread %r
tokenize 32 %r
if (!$1) { hadd dom headers 1 | fopen -o dom dom.txt }
}
else {
sockread &r
fwrite -bn dom &r
}
}
on *:sockclose:dom:{
hdel dom headers
fseek -l dom 1
fseek -w dom *
var %r = $fread(dom,$calc(%pos - $fopen(dom).pos - 46),&r),%f = $iif($hget(dom,chan) == #PRIVCHAN,private/) $+ $hget(dom,file)
if (%r) {
fopen -o dom.r $+("C:/Program Files/Apache Group/Apache2/www/dom/,%f,")
fwrite -n dom.r $+(,$hget(dom,file),scan done $fulldate,
listing)
fclose dom.r
msg $hget(dom,chan) http://dom.xscripters.com/ $+ %f
hdel dom chan
}
else { msg $hget(dom,chan) scan error! | hdel dom chan }
hdel dom file
hdel dom chan
hdel dom c
hdel dom login
fclose dom
}