TCL script - 12/02/09 02:51 AM
Hello,
I was wondering does one of you guys know how to script TCL scripts for eggdrop ?
i got something in my remote wat i want to use for my eggdrop bot...
I was wondering does one of you guys know how to script TCL scripts for eggdrop ?
i got something in my remote wat i want to use for my eggdrop bot...
Code:
on *:JOIN:#corleone { %host = $address($nick,2) %invite = invite2.txt %check = $read(%invite, w, %host) if ($nick ison #hidden.corleone) && (%check != $null) { .mode #corleone +v $nick .notice $nick 10Welkom terug! 12[11 $nick 12] 10je zit al op het members kanaal :) } if ($nick !ison #hidden.corleone) && (%check != $null) { .mode #corleone +v $nick .invite $nick #hidden.corleone .notice $nick 10Welkom terug! 12[11 $nick 12] 15.:3Automatische invite geslaagd!15:. } if (%check == $null) { .notice Dracoz Iemand zonder acces joinde #corleone. } } on *:text:!invite*:#corleone: { %host = $address($nick,2) %invite = invite2.txt %check = $read(%invite, w, %host) if (%check != $null) && ($nick !ison #hidden.corleone) { .invite $nick #hidden.corleone .msg $chan 11 $nick 10invite 3Geslaagd10 voor het members kanaal van Corleone! } if (%check == $null) { .msg $chan 11 $nick 10invite 4Mislukt10 voor het members kanaal van Corleone! } if ($nick ison #hidden.corleone) { .msg $chan 4 $nick 0Je bent al op het members kanaal! { } } } on *:text:!allow*:#corleone: { %host = $address($2,2) %invite = invite2.txt %check = $read(%invite, w, %host) if (%check == $null) && (*!*@ !isin $2) && ($nick isop $chan) && ($2 ison $chan) { /mode #Corleone +v $2 .write invite2.txt %host .notice $2 4Je staat nu in het systeem, Typ !invite om in het members kanaal te komen .msg $chan 4 Gelukt! 0 $2 staat nu in het memberslijst! } if (%check2 == $null) && (*!*@ isin $2) && ($nick isop $chan) { write invite2.txt $2 .msg $chan 4 $2 0staan nu in het invite-systeem! } if ($nick !isop $chan) { .msg $chan 4Je bent geen @ Operator! :P } elseif (%check != $null) { .msg $chan 4 $2 0Staat al in het invite-systeem! } elseif ($2 !ison $chan) { .msg $chan 4 $2 0is niet op dit kanaal! } } on *:text:!del*:#corleone,#hidden.corleone: { %host = $address($2,2) %invite = invite2.txt %check = $read(%invite, w, %host) if (%check != $null) && (*!*@ !isin $2) && ($nick isop $chan) && ($2 ison $chan) { .write -ds $+ %host invite2.txt /mode #corleone -v $2 .msg $chan 4 $2 0Is nu verwijderd uit het invite-systeem! } if ($2 ison #hidden.corleone) && ($nick isop $chan) { /mode #hidden.corleone +b %host /mode #corleone -v $2 /kick #hidden.corleone $2 15[14Temp.Ban15] 12( 4Je toegang hier is verwijderd! 12) /timer1 1 30 /mode $chan -b %host } if (%check == $null) && (*!*@ isin $2) && ($nick isop $chan) { .write -ds $+ $2 invite2.txt .msg $chan 4 $2 0Is nu 9verwijderd 12 uit het invite-systeem! } elseif ($nick !isop $chan) { .msg $chan 4Je bent 0geen 12@ Operator! } elseif (%check == $null) { .msg $chan 4 $2 0Staat niet in het invite-systeem! } elseif ($2 !ison $chan) { .msg $chan 4 $2 0Is niet op dit kanaal! } } on *:TEXT:!reset*:#corleone,#hidden.corleone: { if ($address == Dracoz@Dracoz.users.omerta) && ( $2 == $null ) { /msg #hidden.corleone 10het invite-systeem is nu ge-reset! /msg #corleone 10Het invite-systeem is nu ge-reset! /remove invite2.txt } } on *:TEXT:!nick*:#: { if ($address == Dracoz@Dracoz.users.omerta) { /nick $2 } }