Wikipedia:Scripts/Wikimedia RC Watcher

on 1:TEXT:*:#: {
 ;Wikimedia RC Watcher, v.1.0
 ;by [[User:Dbl2010]] 
 ;This script watches all the channels that user entered 
 ;in irc.wikimedia.org IRC server and lists the live RC in a
 ;separate list window in a proper format. Right clicking on list
 ;window brings an easy access menu for selected edit.
 
 var %maxline 30
 var %s $strip(1ドル-)
 if ($left(%s,1) != $chr(91)) halt
 if ($nick != rc) halt
 var %e1 $pos(%s,]],1)
 var %tpc �15 $+ $chr(91) $+ $chr(91) $+ �07 $+ $mid(%s,3,$calc(%e1 - 3)) $+ �15 $+ $chr(93) $+ $chr(93)
 if (Log/newusers isin %tpc) {
 if ($chan == #tr.wikipedia) isimsay $chan
 }
 var %s $right(%s,$calc($len(%s) - %e1 - 2))
 var %e2 $pos(%s,http,1)
 var %NorM $chr(32)
 if (M isin $left(%s,%e2)) var %NorM $remove(%NorM,$chr32) $+ �4M
 if (N isin $left(%s,%e2)) var %NorM $remove(%NorM,$chr32) $+ �4N
 var %s $right(%s,$calc($len(%s) - %e2 + 1))
 var %url $left(%s,$pos(%s,$chr(32),1))
 var %s $right(%s,$calc($len(%s) - $pos(%s,$chr(32),2)))
 var %user �03 $+ $left(%s,$calc($pos(%s,$chr(42),1) - 1))
 var %s $right(%s,$calc($len(%s) - $pos(%s,$chr(42),1) - 1))
 if ($left(%s,1) == $null ) halt
 if ($left(%s,1) == $chr(40)) { ;This is an edit
 if ($pos(%s,$chr(32),1) == $null ) { var %byte %s
 var %summary $chr(32) 
 }
 else {
 var %byte $left(%s,$pos(%s,$chr(32),1))
 var %summary �10 $+ $right(%s,$calc($len(%s) - $pos(%s,$chr(32),1)))
 }
 }
 else {
 ; Special: 
 halt
 }
 var %Wname @rc: $+ $remove($chan,$chr(35))
 if ($window(%Wname) == $null) window -alk0 -t6,8,30,39,44,77 %Wname Tahoma 12
 aline %Wname $timestamp $+ $chr(9) $+ %NorM $+ $chr(9) $+ %tpc $+ $chr(9) $+ %user $+ $chr(9) $+ %byte $&
 $+ $chr(9) $+ %summary $+ $chr(9) $+ %url
 if ($line(%Wname,0) == %maxline) dline %Wname 1
}
menu @rc:* {
 $ayikla(1ドル-,3): {
 echo -s �04----------------------------------------------------------------------- 
 echo -s �07Page:� $ayikla(1ドル-,3)
 echo -s �03User:� $ayikla(1ドル-,4)
 echo -s Byte change: $ayikla(1ドル-,5)
 echo -s �10Summary:� $ayikla(1ドル-,6)
 echo -s �02URL:� $ayikla(1ドル-,7)
 }
 -
 Page: $baglan(1ドル-,$menu,1)
 Diff: $baglan(1ドル-,$menu,2)
 User $+ $chr(58) $+ $ayikla(1ドル-,4) : $baglan(1ドル-,$menu,3)
 User talk $+ $chr(58) $+ $ayikla(1ドル-,4) : $baglan(1ドル-,$menu,4)
}
alias sfm {
 var %sitename $remove(1,ドルrc:,@) $+ .org
 return %sitename
}
alias ayikla {
 return $gettok($strip(1ドル),2,9ドル)
}
alias baglan {
 var %sayfa $strip(1ドル)
 if (3ドル == 1) {
 var %sayfa $gettok(%sayfa,3,9)
 var %sayfa $remove(%sayfa,$chr(91),$chr(93))
 var %sayfa $replace(%sayfa,$chr(32),_)
 var %sayfa http:// $+ $sfm(2ドル) $+ /wiki/ $+ %sayfa
 }
 elseif (3ドル == 2) { 
 var %sayfa $gettok(%sayfa,7,9)
 }
 elseif (3ドル == 3) { 
 var %sayfa $gettok(%sayfa,4,9)
 var %sayfa http:// $+ $sfm(2ドル) $+ /wiki/User: $+ %sayfa
 }
 elseif (3ドル == 4) { 
 var %sayfa $gettok(%sayfa,4,9)
 var %sayfa http:// $+ $sfm(2ドル) $+ /wiki/User_talk: $+ %sayfa
 }
 url -a %sayfa
}