egghelp/eggheads community

>> Simple MIRC -> TCL Script Conversion <<

2006-03-31T11:40:12-04:00

De Kus, it works perfectly, thanks alot man!

Statistics: Posted by Hamish — Fri Mar 31, 2006 11:40 am

>> Simple MIRC -> TCL Script Conversion <<

2006-03-30T21:39:10-04:00

something like that should do the trick:

Code:

bind pub - !price pricesproc prices {nick uhost hand chan text} {   set hit 0   set fd [open prices.txt r]   while {![eof $fd]} {      if {[string match -nocase "$text: *" [set price [gets $fd]]]} {         set hit 1         break      }   }   close $fd   if {$hit} {       puthelp "NOTICE $nick :$price"       return 1   } else {       puthelp "NOTICE $nick :No match found"       return 0   }}

Read TCL manual for possible wildcard searchs.

Statistics: Posted by De Kus — Thu Mar 30, 2006 9:39 pm

>> Simple MIRC -> TCL Script Conversion <<

2006-03-30T03:27:20-04:00

I need a script that will allow the user to type !price item
The script should get the item from this text file Pricelist and return the line that word is contained on.

Eg. user types !price Abyssal whip and the bot will search the text file and return line one of the text file "Abyssal whip: 2.9-3.2Mil" as a notice to the user... So it's like:

<@Hamish> !price Abyssal whip
-ClanBot- Abyssal whip: 2.9-3.2Mil

Also, if it helps at all, here is the MIRC version:

Code:

on *:TEXT:!price*:#:{     .notice $nick *** [7 $upper($$2-) ]: $read(prices.txt, s, $$2- $+ :)   } }

Statistics: Posted by Hamish — Thu Mar 30, 2006 3:27 am