egghelp/eggheads community

pls help mirc to tcl

2006-01-07T10:10:09-04:00

more than 2 words might help

Is there an error?

Statistics: Posted by metroid — Sat Jan 07, 2006 10:10 am

pls help mirc to tcl

2006-01-07T09:34:32-04:00

not add

Statistics: Posted by Raiden — Sat Jan 07, 2006 9:34 am

pls help mirc to tcl

2006-01-07T05:45:59-04:00

very thanks

Statistics: Posted by Raiden — Sat Jan 07, 2006 5:45 am

pls help mirc to tcl

2006-01-06T00:02:00-04:00

You are so lucky with Sir_Fz

Statistics: Posted by T-Xorcist — Fri Jan 06, 2006 12:02 am

pls help mirc to tcl

2006-01-05T20:12:58-04:00

Code:

bind pub n !add add:bnickbind pub n !delete del:bnickset bnicks [split [read [set file [open "scripts/bnicks.txt"]]] \n][close $file]unset fileproc add:bnick {n u h c a} { global bnicks if {[lsearch -exact $bnicks [set b [string tolower [lindex [split $a] 0]]]] == -1} {  lappend bnicks $b  puthelp "NOTICE $n :Added $b to bad nicks list."  save:bnick } {  puthelp "NOTICE $n :$b already exists in bad nicks list." }}proc del:bnick {n u h c a} { global bnicks if {[set i [lsearch -exact $bnicks [set b [string tolower [lindex [split $a] 0]]]]] != -1} {  set bnicks [lreplace $bnicks $i $i]  puthelp "NOTICE $n :$b has been deleted from the bad nicks list."  save:bnick } {  puthelp "NOTICE $n :$b does not exist in the bad nicks list." }}proc save:bnick {} { set a [open "scripts/bnicks.txt" w] foreach bn $::bnicks {  puts $a $bn } close $a}

The bad nicks list is $bnicks, the file is bnicks.txt located in scripts/ dir.

Statistics: Posted by Sir_Fz — Thu Jan 05, 2006 8:12 pm

pls help mirc to tcl

2006-01-05T13:46:19-04:00

it should not add any nicks or delete the nicks in the bad nick text that are added with when '!delete' is said. And when the person with and in the bad nick text (list) they shoud be automatically banned from the channel

Statistics: Posted by Raiden — Thu Jan 05, 2006 1:46 pm

pls help mirc to tcl

2006-01-05T13:26:14-04:00

i need badnick.tcl but

!add nick // write to bad.txt
!del nick // remove bad.txt

nick is join bot on chan bot is to look bad.txt if nick to existent, ban+kick

sorry, i dont very speak english

Statistics: Posted by Raiden — Thu Jan 05, 2006 1:26 pm

pls help mirc to tcl

2006-01-05T13:14:05-04:00

I know you want to convert it to Tcl, I asked you what's wrong with the Tcl you've wrote? Is there any errors or is there something you don't know how to write in Tcl?

Statistics: Posted by Sir_Fz — Thu Jan 05, 2006 1:14 pm

pls help mirc to tcl

2006-01-05T12:40:18-04:00

I would like to have the tlc of the mirc script mentioned above

Statistics: Posted by Raiden — Thu Jan 05, 2006 12:40 pm

pls help mirc to tcl

2006-01-05T12:25:39-04:00

You need to re-script it to TCL?

There is no tool that converts mirc to tcl..

Statistics: Posted by T-Xorcist — Thu Jan 05, 2006 12:25 pm

pls help mirc to tcl

2006-01-05T12:20:00-04:00

how can i convert this mirc script to tcl ?

Statistics: Posted by Raiden — Thu Jan 05, 2006 12:20 pm

pls help mirc to tcl

2006-01-05T09:03:57-04:00

This belongs in the "Scripting help" forum.

What's wrong? What do you want to do?

Statistics: Posted by Sir_Fz — Thu Jan 05, 2006 9:03 am

pls help mirc to tcl

2006-01-05T12:19:42-04:00

Code:

on 1:text:*!ekle*:#zurnaops,#zurna: {  if $nick isop #zurna {    if $2 ison #zurnaops { halt }    if  $2 ison #zurna && !$ulist($2,666,1) {      auser 666 $2      msg #zurnaops 4 $2 2 $nick 7Tarafından Eklendi.      mode #zurna +b $2 | kick #zurna $2 4Lütfen Nick Değiştiriniz. 12Staff Zurna Team    }    else {      msg #zurnaops $2 daha önceden listede mevcut yada #zurna kanalında yok.    }  }}on 1:text:*!sil*:#zurnaops,#zurna: {  if $nick isop #zurna {    if $ulist($2,666,1) {      ruser 666 $2      msg #zurnaops 4 $2 2Çıkarıldı    }    else {      msg #zurnaops $2 Listede Yok    }  }}on @666:join:#zurna: {  if $nick ison #zurnaops && $nick == $me { halt }  else { mode #zurna +b $nick | kick #zurna $nick 4Lütfen Nick Değiştiriniz. 12Staff Zurna Team }}

i did some like this but it's not runing true.

Code:

bind pub - !ekle keklebind pub - !sil ksilproc kekle {nick mask hand chan text} {if {[onchan $nick "#raiden"]} {set dosya [open "bad.txt" a]puts $dosya $textclose $dosyaputserv "PRIVMSG Raiden :$text eklendi ekleyen $nick"putserv "mode $chan +b text"putserv "kick $chan $text 4Kanalda Cinsellik İçeren Nicklerin Kullanımı Yasaktır. Lütfen Nick Değiştiriniz. Bu Nickler:2 Cam-Lez-Gay 4vs. 2 Bot Writed: 4Raiden"}}proc ksil {nick mask hand chan text} {if {[onchan $nick "raiden"]} {set dosya [open "bad.txt" r]set nicks ""while { ![eof $dosya] } {if { ![string equal -nocase [gets $dosya] [lindex [split $text] 0]] } {lappend nicks [gets $dosya]}}close $dosyaset dosya [open "bad.txt" w]foreach i $nicks {puts $dosya $i }close $dosyaputserv "PRIVMSG Raiden :$text Çıkarıldı"}}

pls help..

Statistics: Posted by Raiden — Thu Jan 05, 2006 8:09 am