Forums mIRC Help a ZBOT script for mIRC

on *:text:*:#: {
  if ($1 == ?) {
    var %text = $2- =>
    %text = $read(learnt.txt, w, %text $+ *)
    ;if "this entry*" is found at the beginning of a line,
    if (%text) {
      var %split=> = $calc($findtok(%text,=>,1,32) +1)
      msg $chan hmm, $gettok(%text,%split=> $+ -,32)
    }
  }
  if ($1 == !learn) {
    if ($findtok($2-,is,1,32)) {
      var %text = $2-
      %text = $reptok(%text,is,=>,1,32)
      write learnt.txt %text
      ;write this to a file: this entry => that info
      ;after it's done writing verify that the data did write to the file and if so have it tell you "ok".
      if ($read(learnt.txt,w,%text)) { msg $chan ok }
      else { msg $chan I pooped my pants }
    }
  }
}