KinKinnyKith commented on Perl Snippet: X-Chat: Last-FM Script (Linux + Windows) - May 30, 2012

Since the script is working, you can avoid the error message by adding this on line 158:

		Code 			
next if (!defined($_));	

So lines 157-159 will look like:

		Code 			
foreach (@songname) {
	next if (!defined($_));
	$_ =~ m/title\>([^<]+)/i;	

..and you can optimize the foreach block's match and assignment by using a substituion in it's place:

		Code 			
foreach (@songname) { next if (!defined($_)); $_ =~ s/title\>([^<]+)/\1/i; }	

KinKinnyKith commented on mIRC Snippet: mIRC autobleh - Apr 15, 2012

Nice start to the script KindOne 8)

In my version of this feature I saved the second step of de-opping myself for quiets or bans (not followed by a kick) by adding a -o in the same line as the ban. For example, in aq:

set %command mode $chan +q-o $address($1,2) $me

Along with that change, the on RAWMODE will generate a "you are not operator" for cases where you were already de-op'd, so that can be fixed with a quick op check:

if ($me isop $chan) { mode $chan -o $me }

KinKinnyKith commented on mIRC Snippet: /BANSYNC Channel Ban Synchronization - Feb 04, 2012

Nice 8)

Sharing a modification that was requested to handle the case where the ban list is not populated for the source channel, and also bot trigger:

		Code 			
on *:text:!bansync*:#: { if (($nick isop $chan) || ($nick ishop $chan)) { bansync $2 $$3 } }
alias bansync {
  if (($me !isop $1) && ($me !ishop $1)) { echo -a Not an operator on $1 | return }
  if ($me !ison $$2) { echo -a Not on channel $2 | return }
  echo -a Synchronizing the banlist of $1 to the banlist of $+($2,.)
  if (!$chan($2).ibl) { set -e %BanSync $1 $2 | .enable #BanSync | .timerBanSyncTimeout 1 8 modesync $1 $2 timeout | mode $2 +b }
  else { modesync $1 $2 }
}
#BanSync off
raw 368:*: { .timerBanSyncTimeout off | .disable #BanSync | if (%BanSync) { modesync %BanSync | unset %BanSync } }
#BanSync end
alias -l modesync {
  if ($3) { .disable #BanSync }
  var %x $ibl($2,0)
  while %x {
    var %y $addtok(%y,$ibl($2,%x),32)
    if $numtok(%y,32) == $modespl { mode $1 + $+ $str(b,$modespl) %y | var %y $null }
    dec %x
  }
  if %y { mode $1 + $+ $str(b,$modespl) %y }
}	

Comments

Code

Code

Code

Code

KinKinnyKith