All pastes #156389 Raw Edit

Untitled

public text v1 · immutable
#156389 ·published 2006-08-31 18:40 UTC
rendered paste body
#calc on

alias calc {
  %len = $len($me)
  %left = $left($me,1)
  %lencalc = $calc(%len - 1)
  %right = $right($me,%lencalc)   
  Echo -a $+(12«7,%left,,%right,712») $+(,$rand(2,15)) $+($1-,=,$bytes($calc($replace($1-,k,000,÷,/)),b))
  unset %len*
  unset %left
  unset %right
}
on *:TEXT:!calc*:#:{ 
  if (%%scriptsactive. == on) { halt }
  if (* $+ a $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ b $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ c $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ d $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ e $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ f $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ g $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ h $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ i $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ j $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ l $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ m $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ n $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ o $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ p $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ q $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ r $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ s $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ t $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ u $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ v $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ w $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ x $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ y $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ z $+ * iswm $2- ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if ($2- == $null ) { notice $nick 7«4 $+ ERROR(!calc CMD) $+ 7» Nothing to calculate!
    halt
  }
  else {
    %len = $len($nick)
    %left = $left($nick,1)
    %lencalc = $calc(%len - 1)
    %right = $right($nick,%lencalc)   
    /notice $nick $+(4«12,%left,12,%right,4») $+(,$rand(2,15)) $+($2-,=,$bytes($calc($replace($2-,k,000,÷,/)),b))
    unset %len*
    unset %left
    unset %right
  }
}


on *:TEXT:@calc*:#:{
  if (%%scriptsactive. == on) { halt }
  if (* $+ a $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ b $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ c $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ d $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ e $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ f $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ g $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ h $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ i $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ j $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ l $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ m $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ n $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ o $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ p $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ q $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ r $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ s $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ t $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ u $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ v $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ w $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ x $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ y $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if (* $+ z $+ * iswm $2- ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Cannot Calculate letters | halt }
  if ($2- == $null ) { msg $chan 7«4 $+ ERROR(!calc CMD) $+ 7» Nothing to calculate!
    halt
  }
  else {
    %len = $len($nick)
    %left = $left($nick,1)
    %lencalc = $calc(%len - 1)
    %right = $right($nick,%lencalc)   
    /msg $chan $+(4«12,%left,12,%right,4») $+(,$rand(2,15)) $+($2-,=,$bytes($calc($replace($2-,k,000,÷,/)),b))
    unset %len*
    unset %left
    unset %right
  }
}

#calc end