on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|s|ü|g|ö|ç|i|S|Ü|G|Ö|Ç|I).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),s,S,ç,Ç,ü,Ü,g,G,i,I)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),s,S,ç,Ç,ü,Ü,g,G,i,I)) $+ $right(%x,-1)
}
}
mIRC deprem okuyucu
alias depremler { set %koeri-writedir $+($scriptdir,depremler\) if $sock(koeri-depremler) { .sockclose koeri-depremler } sockopen koeri-depremler www.koeri.boun.edu.tr 80 if !$exists($qt(%koeri-writedir)) { mkdir $qt(%koeri-writedir) }}on *:sockopen:koeri-depremler: { if ($sockerr) { return } set %koeri-get-begin $false sockwrite -n $sockname GET /scripts/lst2.asp HTTP/1.1 $crlf sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) $crlf sockwrite -n $sockname Accept: */* $crlf sockwrite -n $sockname Host: www.koeri.boun.edu.tr $crlf sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf}on *:sockread:koeri-depremler: { sockread %getstr if $regex(%getstr,^$) { set %koeri-get-begin $true | return } elseif $regex(%getstr,^$) { var %file = $qt($+(%koeri-writedir,$replace($date,/,.),.txt)) set %koeri-get-begin $false | sockclose $sockname if $exists(%file) { loadbuf -a %file } } if %koeri-get-begin && $regex(%getstr,^\d{4}\.\d{2}\.\d{2}) { var %getdate = $gettok(%getstr,1,32), %knowndate = $+($gettok(%getdate,3,46),.,$gettok(%getdate,2,46),.,$gettok(%getdate,1,46)) var %time = $gettok(%getstr,2,32), %location = $gettok(%getstr,9-,32), %MD = $iif($gettok(%getstr,6,32) != -.-,MD: $v1,$null), %ML = $iif($gettok(%getstr,7,32) != -.-,ML: $v1,$null), %MS = $iif($gettok(%getstr,8,32) != -.-,MS: $v1,$null) var %totalstr = $+([,%knowndate %time,]) %location �B�üyüklügü %MD %ML %MS if !$read($qt($+(%koeri-writedir,%knowndate,.txt)),w,%totalstr) { write $qt($+(%koeri-writedir,%knowndate,.txt)) %totalstr } }}
www.mirc25.net
