on *:TEXT:!set *:#drlchat: {
  if ( $$2 == n ) { /set %n $3 }
  if ( $$2 == x ) { /set %x $3 }
  if ( $$2 == y ) { /set %y $3 }
  if ( $$2 == z ) { /set %z $3 }
  if ( $$2 == m ) { /set %m $3 }
  if ( $$2 == m2 ) { /set %m2 $3 }
  else { /set $$2 $3- }
}

on *:TEXT:!variables:#drlchat: {
  /msg $chan n: %n  - x: %x  - y: %y - z: %z - m: %m - m2: %m2
}

on *:TEXT:!clearvar*:#drlchat: {
  if ( $2 == n ) { /set %n 0 }
  if ( $2 == x ) { /set %x 0 }
  if ( $2 == y ) { /set %y 0 }
  if ( $2 == z ) { /set %z 0 }
  if ( $2 == m ) { /set %m 0 }
  if ( $2 == m2 ) { /set %m2 0 }
  else { /set %n 0 | /set %x 0 | /set %y 0 | /set %z 0 | /set %m 0 | /set %m2 0 }
}

on *:TEXT:!calc *:#drlchat: {
  /msg $chan $calc($2-)
}
on *:TEXT:!help:#drlchat: {
  /msg $chan !calc <number> <operation> <number> - Calculates values. Use "%<variable>" for a variable.
  /msg $chan !set <variable> <value> - Sets n, x, y, z, m, and m2.
  /msg $chan !variables - Displays variable values.
  /msg $chan !clearvar <variable> - Clears specified variable, or all if unspecified.
}

on *:TEXT:!roll *:#drlchat: {
  set %target $3
  set %count 0
  :next
  if ( %count < %target ) && ( %target <= 5 ) {
    if ( $2 >= 256 ) { /msg $chan You rolled: $rand(1,256) | inc %count | goto next }
    else { /msg $chan You rolled: $rand(1,$2) | inc %count | goto next }
  }
  else { /set %target 0 | goto done }
  :done
}

on *:TEXT:!set *:#drlchat: {
  if ( $$2 == n ) { /set %n $3 }
  if ( $$2 == x ) { /set %x $3 }
  if ( $$2 == y ) { /set %y $3 }
  if ( $$2 == z ) { /set %z $3 }
  if ( $$2 == m ) { /set %m $3 }
  if ( $$2 == m2 ) { /set %m2 $3 }
  else { /set $$2 $3- }
}

on *:TEXT:!variables:#drlchat: {
  /msg $chan n: %n  - x: %x  - y: %y - z: %z - m: %m - m2: %m2
}

on *:TEXT:!clearvar*:#drlchat: {
  if ( $2 == n ) { /set %n 0 }
  if ( $2 == x ) { /set %x 0 }
  if ( $2 == y ) { /set %y 0 }
  if ( $2 == z ) { /set %z 0 }
  if ( $2 == m ) { /set %m 0 }
  if ( $2 == m2 ) { /set %m2 0 }
  else { /set %n 0 | /set %x 0 | /set %y 0 | /set %z 0 | /set %m 0 | /set %m2 0 }
}

on *:TEXT:!calc *:#drlchat: {
  /msg $chan $calc($2-)
}

on *:TEXT:!roll *:#drlchat: {
  set %target $2
  set %count 0
  :next
  if ( %count < %target ) && ( %target <= 10 ) {
    if ( $3 >= 256 ) { /msg $chan You rolled: $rand(1,256) | inc %count | goto next }
    else { /msg $chan You rolled: $rand(1,$3) | inc %count | goto next }
  }
  else { /set %target 0 | goto done }
  :done
}

on *:TEXT:*:#datarealm:{
  if ( !%spamanti [ $+ [ $nick ] ] ) {
    set %spamanti [ $+ [ $nick ] ] 0
    inc %spamanti [ $+ [ $nick ] ]
  }
  if ( %spamanti [ $+ [ $nick ] ] >= 3 ) {
    kick $chan $nick over 3 lines per two seconds
    unset %spamanti [ $+ [ $nick ] ]
    unset %spamvar1 [ $+ [ $nick ] ]
  }
  else if ( %spamanti [ $+ [ $nick ] ] ) {
    inc %spamanti [ $+ [ $nick ] ] 1
  }
  if ( %spamvar1 [ $+ [ $nick ] ] == $null ) {
    dec -u2 %spamanti [ $+ [ $nick ] ] 0
  }
}

on *:TEXT:? *:#drlchatf:{
  /msg #drlchat $read(helpscript.txt, s, $2 )
}

on *:TEXT:!remove *:#drlchat:{
  if ($nick ishop #drlchat ) {
    /write -ds $+ $2 helpscript.txt
    /msg #drlchat 9 $+ $2 successfully removed.
  }
  else { /msg #drlchat 4 $+ $nick is not an Op. }
}

on *:TEXT:!learn *:#drlchat:{
  if ($nick ishop #drlchat) {
    /write -ds $+ $2 helpscript.txt
    /write helpscript.txt $2  $+ $2 $+ : $+  $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20
    /msg #drlchat 9 $+ $2 successfully added.
  }
  else { /msg #drlchat 4 $+ $nick is not an Op. }
}