CalcScripts v1.0

alias -l nn {
notice $nick $1- }
alias -l mc {
msg $chan  $+ $1 $2-  }
alias -l n2 {
notice $2 $1- }
alias -l mn {
msg $nick  $+ $1 $2-  }
alias -l nnbc {
notice $nick  $+ $1 $2-  }


on *:text:!calcm:#,?:{ mn 4 These are my calculators:
  mn 12 "!/@calc Equasion" - Normal Calculator ( /Divide *Multiply -Subtract +Add )
  mn 12 "!/@confd Numerator Denominator" - Convert fraction to decimal
  mn 12 "!/@pat Slope Term 1" - Find the equasion of Y = SlopeX + Y Intercept with patterns
  mn 12 "!/@geo  $+ $chr(35) Of Sides" - Total degrees/sum of angles in a $chr(35) of sides sided polygon
  mn 12 "!/@slope X2 Y2 X1 Y1" - Would return: (x2,y2) & (x1,y1) , Ex: !slope 1 3 6 9 would return: (1,3) & (6,9) and will find the slope, fraction, and y-intercept.
mn 1 -- End -- }

on *:text:!raeq:#:{
  set %raeq.eq $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000)
  set %raeq.answer $calc( %raeq.eq )
  notice $nick 1- 12Eq Generated:4 %raeq.eq 1-12 Answer:4 %raeq.answer 1-
}
on *:text:@raeq:#:{
  set %raeq.eq $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000) $+ + $+ $rand(0,10000)
  set %raeq.answer $calc( %raeq.eq )
  msg $chan 1- 12Eq Generated:4 %raeq.eq 1-12 Answer:4 %raeq.answer 1-
}

on *:text:!slope*:#:{
  if ($5 == $null) { notice $nick 4Error S - $nick - Syntax: "!slope X2 Y2 X1 Y1" | halt
  }
  else {
    if ($calc( $5 - $3 ) == 0) {
      set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
      set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq Y = %y.inter
      notice $nick 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 Zero 1-12 Y-Intercept:4 %y.inter 1-
      unset %x2 | unset %y2 | unset %x1 | unset %y1
      unset %slope.frac.t | unset %slope.frac.b | unset %y.inter | unset %slope.eq
    }
    else {
      if ($calc( $4 - $2 ) == 0) {
        set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
        set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq X = %y.inter
        notice $nick 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 Undefined 1-12 Y-Intercept:4 %y.inter 1-
        unset %x2 | unset %y2 | unset %x1 | unset %y1
        unset %slope.frac.t | unset %slope.frac.b | unset %y.inter | unset %slope.eq
      }
      else {
        set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
        set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %slope.answer $calc( ( (%y1 - %y2) / (%x1 - %x2) ) ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq Y = %slope.answer $+ X + %y.inter
        notice $nick 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 %slope.answer 1-12 Y-Intercept:4 %y.inter 1-
        unset %x2 | unset %y2 | unset %x1 | unset %y1
        unset %slope.frac.t | unset %slope.frac.b | unset %slope.answer | unset %y.inter | unset %slope.eq
} } } }
on *:text:@slope*:#:{
  if ($5 == $null) { msg # 4Error S - $nick - Syntax: "!slope X2 Y2 X1 Y1" | halt
  }
  else {
    if ($calc( $5 - $3 ) == 0) {
      set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
      set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq Y = %y.inter
      msg # 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 Zero 1-12 Y-Intercept:4 %y.inter 1-
      unset %x2 | unset %y2 | unset %x1 | unset %y1
      unset %slope.frac.t | unset %slope.frac.b | unset %y.inter | unset %slope.eq
    }
    else {
      if ($calc( $4 - $2 ) == 0) {
        set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
        set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq X = %y.inter
        msg # 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 Undefined 1-12 Y-Intercept:4 %y.inter 1-
        unset %x2 | unset %y2 | unset %x1 | unset %y1
        unset %slope.frac.t | unset %slope.frac.b | unset %y.inter | unset %slope.eq
      }
      else {
        set %x2 $2 | set %y2 $3 | set %x1 $4 | set %y1 $5
        set %slope.frac.t $calc( %y1 - %y2 ) | set %slope.frac.b $calc( %x1 - %x2 ) | set %slope.answer $calc( ( (%y1 - %y2) / (%x1 - %x2) ) ) | set %y.inter $calc( %y2 - ( %x2 * %slope.answer )) | set %slope.eq Y = %slope.answer $+ X + %y.inter
        msg # 1- 12Points:4 ( $+ %x2 $+ , $+ %y2 $+ ) & ( $+ %x1 $+ , $+ %y1 $+ ) 1-12 Equasion:4 %slope.eq 1- 12Slope:4 %slope.answer 1-12 Y-Intercept:4 %y.inter 1-
        unset %x2 | unset %y2 | unset %x1 | unset %y1
        unset %slope.frac.t | unset %slope.frac.b | unset %slope.answer | unset %y.inter | unset %slope.eq
} } } }

on *:text:!pat*:#:{ if ($3 == $null) { notice $nick 4Error P - $nick - Syntax: "!pat Slope Term 1 | halt
  }
  else {
    set %pattern.p $2 | set %pattern.t $3 | set %pattern.y $calc( $3 - $2 )
    notice $nick 1- 12Y Inter:4 %pattern.y 1-12 Equasion:4 Y = $2 $+ x + %pattern.y 1-12 Slope:4 %pattern.p 1-12 First Term:4 %pattern.t 1-
    unset %pattern.p | unset %pattern.t | unset %pattern.y
} }
on *:text:@pat*:#:{ if ($3 == $null) { msg # 4Error P - $nick - Syntax: "!pat Slope Term 1 | halt
  }
  else {
    set %pattern.p $2 | set %pattern.t $3 | set %pattern.y $calc( $3 - $2 )
    msg # 1- 12Y Inter:4 %pattern.y 1-12 Equasion:4 Y = $2 $+ x + %pattern.y 1-12 Slope:4 %pattern.p 1-12 First Term:4 %pattern.t 1-
    unset %pattern.p | unset %pattern.t | unset %pattern.y
} }


on *:text:!calc*:#:{
  if ($2 == $null) { notice $nick 4Error C - $nick - You Did Not Specify An Equasion To Solve | halt
  }
  else {
    notice $nick 12The answer to4 $replace($2-,*, x ) 12is..4 $calc($replace($2-,k,000,m,000000,c,00,x,*) $2- ))
} }
on *:text:@calc*:#:{
  if ($2 == $null) { msg $chan 4Error C - $nick - You Did Not Specify An Equasion To Solve | halt
  }
  else {
    msg # 12The answer to4 $replace($2-,*, x ) 12is..4 $calc($replace($2-,k,000,m,000000,c,00,x,*) $2- ))
} }

on *:text:!confd*:#:{
  if ($3 == $null) { notice $nick 4Error RF - $nick - Syntax: "!rfrac Numerator Denominator" }
  else {
    if (*.* iswm $2 || *.* iswm $3) { notice $nick 4Error RF - $nick - No Decimals Allowed | halt
    }
    else {
      if (*0* iswm $2 || *0* iswm $3) { notice $nick 4Error RF - $nick - No Zeros Allowed | halt
      }
      else {
        set %rfa $calc( $2 / $3)
        notice $nick 4 $+ $nick $+ 12, answer to4 $2 $+ / $+ $3 12=4 %rfa $+ 
        unset %rfa
} } } }
on *:text:@confd*:#:{
  if ($3 == $null) { msg # 4Error RF - $nick - Syntax: "!rfrac Numerator Denominator" }
  else {
    if (*.* iswm $2 || *.* iswm $3) { msg # 4Error RF - $nick - No Decimals Allowed | halt
    }
    else {
      if (*0* iswm $2 || *0* iswm $3) { msg # 4Error RF - $nick - No Zeros Allowed | halt
      }
      else {
        set %rfa $calc( $2 / $3)
        msg # 4 $+ $nick $+ 12, answer to4 $2 $+ / $+ $3 12=4 %rfa $+ 
        unset %rfa
} } } }

on *:text:!geo*:#:{
  if ($2 == $null) { notice $nick 4Error G - $nick - Syntax: "!geo # Of Sides" | halt
  }
  else {
    if ($2 < 3) { notice $nick 4Error G - $nick - $chr(35) Of Sides Must Be Greater Than 2 | halt
    }
    else {
      notice $nick 12Sides:4 $2 12Sum Of Degrees/Angles:4 $calc( ($2 - 2) * 180) 12Degrees/Angles Each W/ Regular:4 $calc( ($2 - 2) * 180 / $2 ) 
} } }
on *:text:@geo*:#:{
  if ($2 == $null) { msg # 4Error G - $nick - Syntax: "!geo # Of Sides" | halt
  }
  else {
    if ($2 < 3) { msg # 4Error G - $nick - $chr(35) Of Sides Must Be Greater Than 2 | halt
    }
    else {
      msg # 12Sides:4 $2 12Sum Of Degrees/Angles:4 $calc( ($2 - 2) * 180) 12Degrees/Angles Each W/ Regular:4 $calc( ($2 - 2) * 180 / $2 ) 
} } }