>> Simple MIRC -> TCL Script Conversion <<

[Hamish]

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: Select all

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

[De Kus]

something like that should do the trick:

Code: Select all

bind pub - !price prices

proc 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.

[Hamish]

De Kus, it works perfectly, thanks alot man!