Forums Developers mirc syntax checking

;
; state of ___ !system
;
ON *:TEXT:!status*:#mychan:{
  msg $nick please use /msg chromer !status
  [color:red];  Why are you closing $nick's query window if the msg you got was in #mychan?[/color]
  close -m $nick
}
ON *:TEXT:!server*:#mychan:{
  msg $nick please use /msg chromer !server
  close -m $nick
}
ON *:TEXT:!event*:#mychan:{
  msg $nick please use /msg chromer !event
  close -m $nick
}
;
ON *:TEXT:!status*:?:{
  msg $nick ---------------
  msg $nick $fulldate
  [color:red];  play will take however long it will take[/color]
  play -tstatus $nick c:\windows\desktop\mychan.txt 500
  [color:red];  The following message will not display in the right place
  ;  put it as the last entry in that .txt file in that section[/color]
  msg $nick ---------------
  [color:red]; The close -m will also happen too soon since your /play is still continuing.[/color]
  close -m $nick
}
ON *:TEXT:!server*:?:{
  msg $nick ---------------
  msg $nick $fulldate
  play -tserver $nick c:\windows\desktop\mychan.txt 500
  msg $nick ---------------
  close -m $nick
}
ON *:TEXT:!event*:?:{
  msg $nick ---------------
  msg $nick $fulldate
  play -tevent $nick c:\windows\desktop\mychan.txt 500
  msg $nick ---------------
  close -m $nick
}
;
;
; !seen system
;
ON 1:JOIN:#mychan:{
  [color:red];  You must maintain spaces around [color:green]==[/color][/color]
  if ($read(c:\windows\desktop\mychan.dat,s,$nick)[color:red] == $null[/color]) {
    write c:\windows\desktop\mychan.dat $nick $&
    joined at: $left($time,5) $+ $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
  else {
    write -s c:\windows\desktop\mychan.dat $nick $&
    joined at: $left($time,5) $+ $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
}
ON *:PART:#eve-test:{
  [color:red];  I will rewrite this one slightly, using $iif, to get rid of the
  ;  if condition. You can decide if you wish to change the others
  ;  or use this style instead.[/color]
  write [color:red]$iif($read(c:\windows\desktop\mychan.dat,s,$nick),$+(-s,$nick))[/color] $&
    c:\windows\desktop\eve-test.dat $nick left at: $&
    [color:red]$left($time,hh:nntt) $+($left($gmt(zzz),3),:,$right($gmt(zzz),6))[/color]
}
ON *:QUIT:{
  if ($read(c:\windows\desktop\mychan.dat,s,$nick)[color:red] == $null[/color]) {
    write c:\windows\desktop\eve-test.dat $nick $&
    quit at: $left($time,5) $+ $&
    $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
  else {
    write -s $+ $nick c:\windows\desktop\mychan.dat $nick $&
    quit at: $left($time,5) $+ $&
    $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
}
ON *:NICK:{
  if ($read(c:\windows\desktop\mychan.dat,s,$nick)[color:red] == $null[/color]) {
    write c:\windows\desktop\mychan.dat $nick $&
    changed name to $newnick at: $left($time,5) $+ $&
    $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
  else {
    write -s $+ $nick c:\windows\desktop\mychan.dat $nick $&
    changed name to $newnick at: $left($time,5) $+ $&
    $time(tt) $left($gmt(zzz),3) $+ : $+ $&
    $right($gmt(zzz),6)
  }
}
ON 1:INPUT:*:{
  [color:red];  No quotes[/color]
  if ($1 == [color:red]!seen[/color]) {
    [color:red];  if ($2 == $null) can be restated if (!$2)[/color]
    if ($2 == $null) {
      [color:red];  Get used to specifying a target with your echo's. For this particular case, it will not matter, but if you ever try
      ;  to echo out a line that begins with a number, you will get unexpected results. Get into the habit early on.[/color]
      echo [color:red]-a[/color] Please specify a nick
      halt
    }
    [color:red];  If this $read() returns anything at all, it found a match (which will be stored in $ifmatch here)[/color]
    if [color:red]($read(c:\windows\desktop\mychan.dat,s,$2))[/color] echo [color:red]-a[/color] [seen-serve] [color:red]$ifmatch[/color]
    else echo [color:red]-a[/color] I haven't seen $2
  }
}
ON *:TEXT:!seen*:?:{
  if ($2 == $null) {
    msg $nick Please specify a nick
    msg $nick usage /msg chromer !seen nick
    halt
  }
  if [color:red]($read(c:\windows\desktop\mychan.dat,s,$2))[/color] msg $nick [seen-serve] [color:red]$ifmatch[/color]
  else msg $nick I haven't seen $2
  close -m $nick
}

; state !system

ON *:TEXT:!status*:#mychan:{
  msg $nick please use /msg chromer !status
}
ON *:TEXT:!server*:#mychan:{
  msg $nick please use /msg chromer !server
}
ON *:TEXT:!event*:#mychan:{
  msg $nick please use /msg chromer !event
}

ON *:TEXT:!status*:?:{
  ;%mychan_state is defined in my variables section
  play -tstatus $nick %mychan_state
  ;closes the window on my side, doesn't close the window on their side.
  close -m $nick
}
ON *:TEXT:!server*:?:{
  play -tserver $nick %mychan_state
  close -m $nick
}
ON *:TEXT:!event*:?:{
  play -tevent $nick %mychan_state
  close -m $nick
}


; !seen system
; for some reason the following 4 events
; create temp files using the nick of person
; causing the event
; this can become quite a lot of files
; in a large irc chat room
ON 1:JOIN:#mychan:{
  ;%mychan_users is defined in my variables_section
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) $&
      $nick joined at: $left($time,hh:nntt) $left($gmt(zzz),3),:,$&
      $right($gmt(zzz),6)
  if($isfile($nick)) remove $nick
}
ON *:PART:#mychan:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) $&
      $nick left at: $left($time,hh:nntt) $left($gmt(zzz),3),:,$&
      $right($gmt(zzz),6)
  if($isfile($nick)) remove $nick
}
ON *:QUIT:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) $&
      $nick quit at: $left($time,hh:nntt) $left($gmt(zzz),3),:,$&
      $right($gmt(zzz),6)
  if($isfile($nick)) remove $nick
}
ON *:NICK:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) $&
      $nick changed name at: $left($time,hh:nntt) $left($gmt(zzz),3),:,$&
      $right($gmt(zzz),6)
  if($isfile($nick)) remove $nick
}

ON *:TEXT:!seen*:?:{
  if (!$2) {
    msg $nick Please specify a nick
    msg $nick usage /msg chromer !seen nick
    halt
  }

  if ($read(%mychan_users,s,$2)) msg $nick [seen-serve] $ifmatch
  else msg $nick I haven't seen $2

  close -m $nick
}
ON 1:INPUT:*:{
  if ($1 == !seen) {
    if (!$2) {
      echo -a Please specify a nick
      halt
    }

    if ($read(%mychan_users,s,$2)) echo [seen-serve] $ifmatch
    else echo I haven't seen $2
  }
}

; many thanks to Hammer of #mirc on dalnet for the great help
; and mirc knowledge matrix

%mychan_state=c:\windows\desktop\blah_state
%mychan_users=c:\windows\desktop\blah_users

;  state !system
  
[color:red];  Since you have only a single command,  you don't really need to put
;  those message commands on separate lines. Also, since it's a single
;  command, you don't need to use the group separators { and } either.[/color]
  
ON *:TEXT:!status*:#mychan: [color:red].[/color]msg $nick please use /msg chromer !status
ON *:TEXT:!server*:#mychan: [color:red].[/color]msg $nick please use /msg chromer !server
ON *:TEXT:!event*:#mychan:  [color:red].[/color]msg $nick please use /msg chromer !event
  
; !seen system
; %mychan_users is defined in my variables_section
 
ON 1:JOIN:#mychan:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) [color:red]%mychan_users[/color] $&
  $nick joined at: $left($time,hh:nntt) [color:red]$+([/color]$left($gmt(zzz),3),:,$right($gmt(zzz),6)[color:red])[/color]
}
ON *:PART:#mychan:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) [color:red]%mychan_users[/color] $&
  $nick left at: $left($time,hh:nntt) [color:red]$+([/color]$left($gmt(zzz),3),:,$right($gmt(zzz),6)[color:red])[/color]
}
ON *:QUIT:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) [color:red]%mychan_users[/color] $&
  $nick quit at: $left($time,hh:nntt) [color:red]$+([/color]$left($gmt(zzz),3),:,$right($gmt(zzz),6)[color:red])[/color]
}
ON *:NICK:{
  write $iif($read(%mychan_users,s,$nick),$+(-s,nick)) [color:red]%mychan_users[/color] $&
  $nick changed name at: $left($time,hh:nntt) [color:red]$+([/color]$left($gmt(zzz),3),:,$right($gmt(zzz),6)[color:red])[/color]
}

ON *:INPUT:*:{
  if ( $1 == !replay ) && ( $2 != $null ) {
   ...
 }
...
}

on *:INPUT:#:{
  if (($1 == !replay) && ($2)) {
    [color:#006600];
    ;  This section of code will execute if you typed 
    ;  [color:black]!replay text here[/color]
    ;  in a channel window editbox.
    ; [/color]
    MyReplayAlias $active $2-
    halt
    ;[/color]
  }
  elseif ($1 == !config) {
    [color:#006600];
    ;  This section of code would bring up a dialog called 
    ;  MyConfig using the table definition tdefMyConfig
    ;[/color]
    dialog -m MyConfig tdefMyConfig
    halt
  }
}