; kpart snippet by David "Saturn" van Moolenbroek <saturn@quakenet.org>
; Version 0.1, released 12-07-2005 -- support on #help.script/QuakeNet
;
; Usage: /kpart <channel> [reason]
;
; This commands lets mIRC part from a channel without closing its window,
; by locally simulating that you kicked yourself off the channel, while
; halting the part reply coming from the server.
;
; This snippet requires io.dll v0.76 or higher.

alias -l io return $dll($scriptdir $+ io.dll,$$1,$2-)

alias kpart {
  if ($chan(#$1).status != joined) return
  io add -im ":& PART #$1 $+ " kparted
  io add -i $result ":& PART #$1 *" kparted
  io send PART #$1 $iif($2-,: $+ $2-)
}
alias kparted {
  tokenize 32 $1-
  if ($+(:,$me,!*) iswm $1) {
    set -u0 %kpart $3
    io recv $1 KICK $3 $me :
    return 2
  }
}
on ^*:KICK:%kpart:{
  echo -tic info2 $chan * Parted channel $chan
  haltdef
}