Basic partyline for learning purposes

;Basic Partyline

alias dccCmsg { 
  if ($chat($1) == $null) { halt }
  else {
    msg = $+ [ $1 ] $2- 
  }
}
on *:OPEN:=: { pmotd $nick | glchat $nick $+ ( $+ $address($nick,2) $+ )) Has Joined The Partyline }
on *:CLOSE:=: { glchat $nick $+ ( $+ $address($nick,2) $+ )) $skz(Has Left The Partyline) }
alias pmotd {
  /dccCmsg $chat($1) 01,01
  /dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
  /dccCmsg $chat($1) 04,01|0100Welcome To vIPRPG Partyline0104|
  /dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
  /dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
  /dccCmsg $chat($1) 04,01|0100Flooding Will Not Be Tolerated!0104|
  /dccCmsg $chat($1) 04,01|0100Flooding Will Result In A Warning, 3 Warnings = Permanent Ban + Account Suspension0104|
  /dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
  /dccCmsg $chat($1) 01,0104_______________________________________________________________________________________________01
  /dccCmsg $chat($1) 04,01|0100Commands: `commands0104|
  /dccCmsg $chat($1) 04,01|0100Help: `help0104|
  /dccCmsg $chat($1) 04,01|0100Rules: `rules0104|
  /dccCmsg $chat($1) 04,01|0100Ban appeals: `appeal0104|
  /dccCmsg $chat($1) 04,01|0100Password Retrieval: `getpass0104|
  /dccCmsg $chat($1) 01,0104¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯01
}
alias plchat {
  var %dcT = $chat(0)
  var %dcC = 1
  var %n = $1
  while (%dcC < %dcT) {
    if ($chat(%dcC) == %n) { inc %dcC }
    /dccCmsg $chat(%dcC) %n $2-
    inc %dcC
  }
}
alias glchat {
  var %dcT = $chat(0)
  var %dcC = 0
  while (%dcC < %dcT) {
    inc %dcC
    /dccCmsg $chat(%dcC) $1-
  }
}
on 1:CHAT:*:{
  if ($left($1,1) == `) {
    if ($1 = `help) { /notice $nick Help! }
    if ($1 = `whois) {
      ;if ($2 isin %partyline) { blajh
      /dccCmsg $chat($nick) $skz($2 is $address($2,2))
      halt
    } 
    if ($1 = `commands) {
      if ($access($nick) = 0) { /dccCmsg $chat($nick) Your access Level Is: $uaccess($nick) | /dccCmsg $chat($nick) `whois `stats `about | halt }
      if ($access($nick) >= 1) { /dccCmsg $chat($nick) Your access Level Is: $uaccess($nick) | /dccCmsg $chat($nick) `whois `stats `about | halt }
      halt
    }
  }
  else {
    /plchat $nick $1- | halt
  }
}