Dulu banyak temen gw yang nanya “Kenapa tcl script pada eggdrop gw error setiap kali gw part?”

yang di maksud adalah tcl facelift3.6.1. Kalo kita liat pada baris 1373:

proc part_deauth {nick uhost hand chan} {
  if {[matchattr $hand Q] == 1} {
    chattr $hand -Q
    putlog " 02[FL] 02 $nick has parted $chan, automatic deauthentication."
  }
  if {[matchattr $hand Q] == 0} {
    return 0
  }
}

kita lihat hasilnya pada console:

<Radnet> [21:17] Tcl error [part_deauth]: wrong # args: should be "part_deauth nick uhost hand chan"
<Radnet> [21:17] J4g4L (jz@wl-planet-3.teras.net.id) left #malam.

Karena facelift3.6.1 untuk eggdrop 1.3.7 sementara pada eggdrop 1.6.8 ada banyak perubahan yang mendasar, maka tcl pada facelift3.6.1 akan error.

## Version 3.6.1 (eggdrop version 1.3.7 or later)

agar tidak terdapat error lagi, kita ubah menjadi:

proc part_deauth {nick uhost hand chan {msg ""}} {
  if {[matchattr $hand Q] == 1} {
    chattr $hand -Q
    putlog " 02[FL] 02 $nick has parted $chan, automatic deauthentication."
  }
  if {[matchattr $hand Q] == 0} {
    return 0
  }
}

hasil yang nampak pada console:

<Radnet> [21:37] [FL] J4g4L has parted #malam, automatic deauthentication.
<Radnet> [21:37] J4g4L (jz@wl-planet-3.teras.net.id) left #malam.

ini aku baca dari panduan tcl for eggdrop1.6.8

1.4.4 == procname <nick> <user@host> <handle> <channel>

1.6.8 == procname <nick> <user@host> <handle> <channel> <msg>