Bind Part

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.<br /> <Radnet> [21:37] J4g4L (jz@wl-planet-3.teras.net.id) left #malam.<br />

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>