;Calculator Made By BlueThen
;Copyright September 29, 2007 9:40 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/calc' or right click on channel and click calculator.
dialog Calc {
  title "Calculator"
  size -1 -1 152 230
  option pixels notheme
  edit "", 1, 9 5 134 21, autohs
  button "1", 2, 10 29 30 25
  button "2", 3, 44 29 30 25
  button "3", 4, 78 29 30 25
  button "4", 5, 10 62 30 25
  button "5", 6, 44 62 30 25
  button "6", 7, 78 62 30 25
  button "7", 8, 10 95 30 25
  button "8", 9, 44 95 30 25
  button "9", 10, 78 95 30 25
  button "0", 11, 10 128 30 25
  button "x", 12, 112 62 30 25
  button "÷", 13, 112 95 30 25
  button "-", 14, 112 128 30 25
  button "+", 15, 112 29 30 25
  button "Solve", 16, 8 159 100 25
  button "Done", 17, 87 190 55 25, cancel
  button "Reset", 18, 10 190 65 25
  text "Made By BlueThen", 19, 31 217 90 17
  button "exp", 20, 112 159 30 25
  button "(", 21, 44 128 30 25
  button ")", 22, 78 128 30 25
}
on *:dialog:Calc:sclick:21: {
  did -a Calc 1 (
}
on *:dialog:Calc:sclick:22: {
  did -a Calc 1 )
}
on *:dialog:Calc:sclick:16: {
  set %preeq $replace($did(calc,1).text, $chr(160), $chr(32))
  set %equation $replace(%preeq, x, *, ÷, /)
  set %eqexp $replace(%equation,  * ^ * , $calc( * ^ * ))
  if ($chr(40) $+ * $+ $chr(41) isin %equation) {
    set %preanswer1 $remove(%eqexp, * $+ $chr(40), $chr(41) $+ *)
    set %preanswer2 $replace(%eqexp, %preanswer1, $calc(%preanswer1)
  }
  set %equation $replace(%eqexp, $chr(40) $+ * $+ $chr(41), %preanswer2)
  set %answer $calc( %eqexp )
  did -r Calc 1
  did -a Calc 1 %answer
}
on *:dialog:Calc:sclick:20: {
  did -a Calc 1 ^ 
}
menu Channel {
  Calculator:/dialog -m Calc Calc
}
alias calc {
  dialog -m calc calc
}
on *:dialog:Calc:sclick:2: {
  did -a Calc 1 1
}
on *:dialog:Calc:sclick:3: {
  did -a Calc 1 2
}
on *:dialog:Calc:sclick:4: {
  did -a Calc 1 3
}
on *:dialog:Calc:sclick:5: {
  did -a Calc 1 4
}
on *:dialog:Calc:sclick:6: {
  did -a Calc 1 5
}
on *:dialog:Calc:sclick:7: {
  did -a Calc 1 6
}
on *:dialog:Calc:sclick:8: {
  did -a Calc 1 7
}
on *:dialog:Calc:sclick:9: {
  did -a Calc 1 8
}
on *:dialog:Calc:sclick:10: {
  did -a Calc 1 9
}
on *:dialog:Calc:sclick:11: {
  did -a Calc 1 0
}
on *:dialog:Calc:sclick:12: {
  did -a Calc 1  x
}
on *:dialog:Calc:sclick:13: {
  did -a Calc 1  ÷
}
on *:dialog:Calc:sclick:14: {
  did -a Calc 1  -
}
on *:dialog:Calc:sclick:15: {
  did -a Calc 1  +
}
on *:dialog:Calc:sclick:18: {
  did -r Calc 1
}

;Common Factor Finder Made By BlueThen
;Copyright October 23, 2007 3:12 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/comm' or right click on channel and click Common Factor Finder
dialog CFF {
  title "Common Factor Finder"
  size -1 -1 239 153
  option pixels notheme
  edit "", 1, 11 28 100 20
  edit "", 2, 128 28 100 20
  edit "", 3, 70 56 100 20, read
  text "Number 1", 4, 11 4 100 17, center
  text "Number 2", 5, 128 4 100 17, center
  text "Common Factor", 6, 68 81 100 17, center
  button "Find Common Factor", 7, 23 107 77 35, multi
  button "Close", 8, 150 112 65 25, ok
}
on *:dialog:CFF:sclick:7: {
  set %emr 0
  set %nu1 $did(1)
  set %nu2 $did(2)
  if (%nu1 > %nu2) {
    set %temp %nu1
    set %nu1 %nu2
    set %nu2 %temp
  }
  set %nu11 %nu1
  set %nu22 %nu2
  while (%nu22 != %nu11) {
    if (%emr == 10000) {
      echo -a 4NUMBERS ARE TOO BIG!
      echo -a 4Halting...
      halt
    }
    if (%nu11 > %nu22) {
      inc %nu22 %nu2
      goto hai
    }
    if (%nu11 < %nu22) {
      inc %nu11 %nu1
      goto hai
    }
    :hai
    inc %emr 1
  }
  did -r CFF 3
  did -a CFF 3 %nu11
}
alias comm {
  dialog -m CFF CFF
}
menu Channel {
  Common Factor Finder:/dialog -m CFF CFF
}

;Number Convertor Made By BlueThen
;Copyright October 20, 2007 3:15 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/fract' or right click on channel and click Fraction Convertor
dialog FDC {
  title "Number Convertor"
  size -1 -1 350 273
  option pixels notheme
  box "Percentage", 21, 207 130 138 53
  box "Decimal", 8, 210 0 135 58
  box "Improper Fraction", 12, 11 0 94 125
  edit "", 1, 22 37 75 20, center
  text "_________________", 2, 22 57 75 25
  edit "", 3, 22 82 75 20, center
  text "Numerator", 4, 22 20 75 17, center
  text "Denominator", 5, 22 102 75 17, center
  edit "", 7, 227 24 100 20
  button ">", 9, 146 4 23 23, multi
  button "<", 10, 146 35 23 23, multi
  button "Close", 11, 280 244 65 25, cancel
  text "Made by BlueThen", 13, 202 85 100 17
  box "Proper Fraction", 6, 11 131 141 138
  text "Denominator", 14, 67 246 75 17, center
  edit "", 15, 67 221 75 20, center
  text "_________________", 16, 67 191 75 25
  edit "", 17, 67 166 75 20, center
  text "Numerator", 18, 67 149 75 17, center
  edit "", 19, 18 201 46 20
  text "Integer", 20, 18 180 46 17, center
  edit "", 22, 215 150 100 20
  text "%", 23, 314 149 12 17
  button "v", 24, 135 102 23 23, multi
  button ">", 25, 174 130 23 23, multi
  button "<", 27, 174 160 23 23, multi
  button "^", 26, 108 102 23 23, multi
}
on *:dialog:FDC:sclick:26: {
  set %nume $did(17)
  set %deno $did(15)
  set %int $did(19)
  set %nume $calc(%int * %deno + %nume)
  did -r FDC 1
  did -r FDC 3
  did -a FDC 1 %nume
  did -a FDC 3 %deno
}
on *:dialog:FDC:sclick:27: {
  set %full $did(22)
  set %full $calc(%full / 100)
  if (. !isin %full) {
    set %full %full $+ .
  }
  if ($pos(%full, ., 1) == 1) {
    set %full 0 $+ %full
  }
  set %pos $pos(%full, ., 1)
  set %deci $mid(%full, $calc(%pos + 1))
  set %int $mid(%full, 1, $calc(%pos - 1))
  set %FDCtemp $len(%deci)
  set %FDCnumb 0
  set %zero 1
  set %decil $len(%deci)
  while (%FDCnumb < %decil) {
    set %zero %zero $+ 0
    inc %FDCnumb
  }
  set %nume %deci
  set %deno %zero
  while (. !isin $calc(%nume / 7)) && (. !isin $calc(%deno / 7)) {
    set %nume $calc(%nume / 7)
    set %deno $calc(%deno / 7)
  }
  while (. !isin $calc(%nume / 5)) && (. !isin $calc(%deno / 5)) {
    set %nume $calc(%nume / 5)
    set %deno $calc(%deno / 5)
  }
  while (. !isin $calc(%nume / 3)) && (. !isin $calc(%deno / 3 )) {
    set %nume $calc(%nume / 3)
    set %deno $calc(%deno / 3)
  }
  while (. !isin $calc(%nume / 2)) && (. !isin $calc(%deno / 2)) {
    set %nume $calc(%nume / 2)
    set %deno $calc(%deno / 2)
  }
  while ($calc($calc(%nume - %deno) + %nume) >= %deno) {
    set %nume $calc(%nume - %deno)
    inc %int 1
  }
  did -r FDC 15
  did -r FDC 17
  did -r FDC 19
  did -a FDC 15 %deno
  did -a FDC 17 %nume
  did -a FDC 19 %int
}
on *:dialog:FDC:sclick:25: {
  set %nume $did(17)
  set %deno $did(15)
  set %int $did(19)
  set %deci $calc(%nume / %deno)
  set %deci $calc(%int + %deci)
  set %perc $calc(%deci * 100)
  did -r FDC 22
  did -a FDC 22 %perc

}
on *:dialog:FDC:sclick:24: {
  set %nume $did(1)
  set %deno $did(3)
  set %int 0
  while ($calc($calc(%nume - %deno) + %nume) >= %deno) {
    set %nume $calc(%nume - %deno)
    inc %int 1
  }
  did -r FDC 15
  did -r FDC 17
  did -r FDC 19
  did -a FDC 15 %deno
  did -a FDC 17 %nume
  did -a FDC 19 %int
}
on *:dialog:FDC:sclick:9: {
  set %nume $did(1)
  set %deno $did(3)
  set %FDCanswer $calc(%nume / %deno)
  did -r FDC 7
  did -a FDC 7 %FDCanswer
}
on *:dialog:FDC:sclick:10: {
  set %full $did(7)
  if ($pos(%full, ., 1) == 1) {
    set %full 0 $+ %full
  }
  set %pos $pos(%full, ., 1)
  set %deci $mid(%full, $calc(%pos + 1))
  set %int $mid(%full, 1, $calc(%pos - 1))
  set %FDCtemp $len(%deci)
  set %FDCnumb 0
  set %zero 1
  set %decil $len(%deci)
  while (%FDCnumb < %decil) {
    set %zero %zero $+ 0
    inc %FDCnumb
  }
  set %nume %deci
  set %deno %zero
  while (. !isin $calc(%nume / 7)) && (. !isin $calc(%deno / 7)) {
    set %nume $calc(%nume / 7)
    set %deno $calc(%deno / 7)
  }
  while (. !isin $calc(%nume / 5)) && (. !isin $calc(%deno / 5)) {
    set %nume $calc(%nume / 5)
    set %deno $calc(%deno / 5)
  }
  while (. !isin $calc(%nume / 3)) && (. !isin $calc(%deno / 3 )) {
    set %nume $calc(%nume / 3)
    set %deno $calc(%deno / 3)
  }
  while (. !isin $calc(%nume / 2)) && (. !isin $calc(%deno / 2)) {
    set %nume $calc(%nume / 2)
    set %deno $calc(%deno / 2)
  }
  set %nume $calc(%int * %deno + %nume)
  did -r FDC 1
  did -r FDC 3
  did -a FDC 1 %nume
  did -a FDC 3 %deno
}
alias numb {
  dialog -m FDC FDC
}
menu Channel {
  Number Convertor:/dialog -m FDC FDC
}

;Temperature Convertor Made By BlueThen
;Copyright October 23, 2007 9:32 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/temp' or right click on channel and click Temperature Convertor
dialog Temp {
  title "Temperature Convertor"
  size -1 -1 257 247
  option pixels notheme
  box "Cesius", 2, 13 5 138 57
  edit "", 1, 32 29 100 20
  box "Fahrenheit", 3, 11 78 138 57
  edit "", 4, 32 102 100 20
  box "Kelvin", 5, 12 151 138 57
  edit "", 6, 32 175 100 20
  button "Celsius", 7, 169 5 65 25
  button "Fahrenheit", 8, 169 78 65 25
  button "Kelvin", 9, 169 151 65 25
  button "Close", 10, 169 212 65 25, ok cancel
  text "Made by BlueThen", 11, 31 220 100 17
}
on *:dialog:Temp:sclick:7: {
  set %cels $did(1)
  set %f1 $calc(9/5)
  set %f2 $calc(%cels * %f1)
  set %fahr $calc(%f2 + 32)
  did -r Temp 4
  did -a Temp 4 %fahr
  set %kel %cels + 273.15
  did -r Temp 6
  did -a Temp 6 %kel
}
on *:dialog:Temp:sclick:8: {
  set %Fah $did(4)
  set %c1 $calc(5 / 9)
  set %c2 $calc(%fah - 32)
  set %cel $calc(%c1 * %c2)
  did -r Temp 1
  did -a Temp 1 %cel
  set %k1 $calc(%fah + 459.67)
  set %kelv $calc(%k1 * %c1)
  did -r Temp 6
  did -a Temp 6 %kelv
}
on *:dialog:Temp:sclick:9: {
  set %kelve $did(6)
  set %f1 $calc(9/5)
  set %f2 $calc(%f1 * %kelve)
  set %fah $calc(%f2 - 459.67)
  did -r Temp 4
  did -a Temp 4 %fah
  set %celsi $calc(%kelve -273.15)
  did -r Temp 1
  did -a Temp 1 %celsi
}
alias temp {
  dialog -m Temp Temp
}
menu Channel {
  Temperature Convertor:/dialog -m Temp Temp
}

;Number Generator Made By BlueThen
;Copyright September 30, 2007 12:13 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet(script) in the Remotes
;Then use '/NumGen' or right click on channel and click Number Generator.
dialog NGen {
  title "Number Generator"
  size -1 -1 171 156
  option pixels
  button "Generate!", 1, 52 55 66 26
  edit "1", 2, 16 29 42 20, autohs
  edit "10", 3, 113 29 42 20, autohs
  text "Generate a number between", 4, 16 6 138 17
  text "and", 5, 75 29 19 17
  edit "", 6, 44 87 83 20, autohs
  button "Done", 7, 53 113 65 25, ok
  text "Script Created by BlueThen", 8, 18 143 135 17
}
on *:dialog:Ngen:sclick:1: {
  set %number1 $did(Ngen,2).text
  set %number2 $did(Ngen,3).text
  set %nanswer $rand( $+ %number1 $+ , %number2 $+ )
  did -r Ngen 6
  did -a Ngen 6 %nanswer
}
menu Channel {
  Number Generator:/dialog -m NGen Ngen
}
alias NumGen {
  dialog -m NGen NGen
}

;¬ËËTËN¡ZË® Made By BlueThen
;Copyright October 2, 2007 4:30 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/1337' or right click on channel and click ¬ËËTËN¡ZË®.
dialog t1337 {
  title "¬ËËTËN¡ZË®"
  size -1 -1 300 206
  option pixels notheme
  edit "", 1, 1 2 299 60, multi vsbar
  edit "", 2, 1 103 299 60, read multi vsbar
  button "13373/\|153", 3, 111 70 79 25
  button "Close", 4, 118 166 65 25, cancel
  text "Made By BlueThen", 5, 105 194 90 17
}

on *:dialog:t1337:sclick:3: {
  set %NMessage $did(1).text
  set %lMessage $replace(%NMessage, ae, $chr(230), a, $chr(170), b, $chr(223), c, $chr(169), d, $chr(208), e, $chr(203), i, $chr(161), ?, $chr(191), l, $chr(172), o, $chr(176), p, $chr(254), r, $chr(174), s, $chr(167), u, $chr(181), x, $chr(215), y, $chr(221))   
  did -r t1337 2
  did -a t1337 2 %lmessage
}
menu Channel {
  ¬ËËTËN¡ZË®:/dialog -m t1337 t1337
}
alias 1337 {
  dialog -m t1337 t1337
}

;Typing Test Made By BlueThen
;Copyright October 23, 2007 9:32 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/type' or right click on channel and click Typing Test
dialog TT {
  title "Typing Test"
  size -1 -1 152 171
  option pixels notheme
  edit "", 1, 64 63 24 20, center
  text "", 2, 26 22 100 17, center
  button "START!", 3, 7 91 65 25
  button "Close", 4, 44 126 65 25, cancel
  text "", 5, 66 43 20 17, center
  text "", 6, 26 2 100 17, center
  button "Grade", 7, 81 91 65 25, disable
  text "", 8, 85 43 19 17, center
  text "", 9, 103 43 19 17, center
  text "Made by BlueThen", 10, 26 156 100 17, center
}
on *:dialog:TT:sclick:7: {
  dialog -m TTS TTS
}
on *:dialog:TT:sclick:3: {
  set %first yes
  did -e TT 1
  set %time 0
  timer32 0 1 inc %time 1
  set %latet 0
  set %wrong 0
  set %right 0
  signal -n TT
}

on *:dialog:TT:edit:1: {
  set %char2 %char
  set %let $did(1)
  did -r TT 1
  if (%late == yes) {
    if (%first == yes) {
      set %first no
      goto skip
    }
    inc %latet 1
    did -a TT 6 LATE!
  }
  if (%late != yes) {
    did -r TT 6
  }
  :skip
  if (%let != %char2) {
    inc %wrong 1
    did -a TT 2 WRONG!
  }
  if (%let == %char2) {
    inc %right 1
    did -a TT 2 CORRECT!
  }
  signal -n TT
}
on *:SIGNAL:TT: {
  if (%time >= 60) {
    timer3? off
    did -e TT 7
    did -r TT 5
    did -r TT 8
    did -r TT 9
    did -b TT 1
    halt
  }
  set %late no
  set %char %next
  set %next %nextn
  set %nextn $rand(a,z)
  did -r TT 5
  did -r TT 8
  did -r TT 9
  did -a TT 9 %nextn
  did -a TT 8 %next
  did -a TT 5 %char
  timer64 1 1 set %late yes
}
dialog TTS {
  title "Statistics"
  size -1 -1 243 231
  option pixels notheme
  edit "Wrong", 1, 126 111 100 20, read
  text "Wrong", 2, 17 111 50 17, right
  edit "Time", 3, 126 27 100 20, read
  text "Time", 4, 17 27 50 17, right
  edit "Late", 5, 126 167 100 20, read
  text "Late", 6, 17 167 50 17, right
  edit "Right", 7, 126 83 100 20, read
  text "Right", 8, 17 83 50 17, right
  text "Grade", 9, 17 139 50 17, right
  edit "%", 10, 126 139 56 20, read autohs multi
  edit "F", 11, 199 139 27 20, read
  button "Close", 12, 89 195 65 25, cancel
  text "GRADE", 13, 71 3 100 17, center
  text "Total", 14, 17 55 50 17, right
  edit "Total", 15, 126 55 100 20, read
  text "%", 16, 182 139 12 17
}
on *:dialog:TTS:init:0: {
  did -r TTS 1
  did -a TTS 1 %wrong
  did -r TTS 3
  did -a TTS 3 %time
  did -r TTS 5
  did -a TTS 5 %latet
  did -r TTS 7
  did -a TTS 7 %right
  set %total $calc(%right + %wrong)
  did -r TTS 15
  did -a TTS 15 %total
  set %perce $calc(%right / %total * 100)
  set %perce $calc(%perce - 0. $+ %latet)
  did -r TTS 10
  did -a TTS 10 %perce
  if (%perce >= 95) {
    set %grade A
  }
  if ((%perc >= 90) && (%perce < 95)) {
    set %grade A-
  }
  if ((%perc >= 85) && (%perce < 90)) {
    set %grade B+
  }
  if ((%perc >= 80) && (%perce < 85)) {
    set %grade B
  }
  if ((%perc >= 75) && (%perce < 80)) {
    set %grade B-
  }
  if ((%perc >= 70) && (%perce < 75)) {
    set %grade C+
  }
  if ((%perc >= 65) && (%perce < 70)) {
    set %grade C
  }
  if ((%perc >= 60) && (%perce < 65)) {
    set %grade C-
  }
  if ((%perc >= 55) && (%perce < 60)) {
    set %grade D+
  }
  if ((%perc >= 50) && (%perce < 55)) {
    set %grade D
  }
  if ((%perc >= 45) && (%perce < 50)) {
    set %grade D-
  }
  if (%perce <= 45) {
    set %grade F
  }
  did -r TTS 11
  did -a TTS 11 %grade
}
alias type {
  dialog -m TT TT
}
menu Channel {
  Typing Test:/dialog -m TT TT
}

;Toy Ball 0.1 Made By BlueThen
;Copyright October 29, 2007 6:25 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/ball' or right click on channel and click Toy Ball
;To control the ball, use the arrow keys. :)
dialog CP {
  title "Toy Ball Control Panel"
  size -1 -1 257 247
  option pixels notheme
  box "Ball Position", 1, 10 7 236 56
  text "X", 2, 24 32 100 17, center
  text "Y", 3, 133 32 100 17, center
  edit "3", 4, 214 122 33 20
  text "Color (1-15)", 5, 11 122 100 17, right
  text "New X", 6, 11 70 100 17, right
  text "New Y", 7, 11 96 100 17, right
  edit "Y", 8, 195 96 52 20
  edit "X", 9, 194 70 53 20
  button "Pause Ball", 10, 18 173 65 25
  button "Reset Ball", 11, 96 173 65 25
  button "Reset CP", 12, 174 173 65 25
  text "Size", 13, 11 148 100 17, right
  edit "Size", 14, 214 148 33 20
  button "Close", 15, 173 215 65 25, ok
  button "Save Settings", 16, 90 215 76 25
  button "Start Ball", 17, 18 215 65 25
}
on *:dialog:CP:sclick:15: {
  set %open no
  dialog -x CP CP
}
on *:dialog:CP:sclick:12: {
  did -r CP 4
  did -a CP 4 %color
  did -r CP 8
  did -r CP 9
  did -r CP 14
  did -a CP 14 %size
}
on *:dialog:CP:sclick:11: {
  .timer8? off
  .timer4? off
  .timer9? off
  .timer? off
  animation
}
on *:dialog:CP:sclick:17: {
  .timer44 -h 0 10 /animation.loop
}
on *:Dialog:CP:sclick:10: {
  .timer8? off
  .timer4? off
  .timer9? off
  .timer? off
}
on *:dialog:CP:init:0: {
  did -r CP 4
  did -a CP 4 %color
  did -r CP 8
  did -r CP 9
  did -r CP 14
  did -a CP 14 %size
  set %open yes
}
on *:dialog:cp:close: {
  set %open no
}
on *:dialog:CP:sclick:16: {
  if ($did(4) != $null) {
    set %color $did(4)
  }
  if ($did(8) != $null) {
    set %ud $did(8)
  }
  if ($did(9) != $null) {
    set %lr $did(9)
  }
  if ($did(14) != $null) {
    set %size $did(14)
  }
}
on *:dialog:CP:sclick:12: {
  did -r CP 4
  did -a CP 4 3
  did -r CP 14
  did -a CP 14 5
}
menu @toyball {
  uclick: {
    set %x $mouse.x
    set %y $mouse.y
    if (%y > %ud) {
      set %d down
      set %uda2 $calc(%y - %ud)
      set %uda2 $calc(%uda2 / 49)
    }
    if (%y < %ud) {
      set %d up
      set %uda2 $calc(%ud - %y)
      set %uda2 $calc(%uda2 / 9)
    }
    if (%x > %lr) {
      set %ra $calc(%x - %lr)
      set %ra $calc(%ra / 9)
      set %ra2 1
      set %rb +
      while ($calc(%ra * 0.5) > 10) {
        set %ra $calc(%ra - 10)
      }
      .timer93 -h 0 1 /animation.right
    }
    if (%x < %lr) {
      set %la $calc(%lr - %x)
      set %la $calc(%la / 9)
      set %la2 1
      set %lb -
      while ($calc(%la * 0.5) > 10) {
        set %la $calc(%la - 10)
      }
      .timer83 -h 0 1 /animation.left
    }
    .timer44 -h 0 1 /animation.loop
  }
}
alias animation.loop {
  set %thud naw
  if (%d == down) {
    set %uda2 $calc(%uda2 * 1.1)
  }
  if (%d == up) {
    set %uda2 $calc(%uda2 * 0.9)
  }
  if (%uda2 >= 100) {
    set %uda2 100
  }
  if (0.00 isin %uda2) {
    set %d down
    set %uda2 0.1
  }
  if (%d == down) {
    set %ud $calc(%ud + %uda2)
  }
  if (%d == up) {
    set %ud $calc(%ud - %uda2)
  }
  if (%ud >= 625) {
    set %d up
  }
  if (%ud <= 0) {
    set %d down
  }
  clear @toyball
  drawdot -h @toyball %color %size %lr %ud %lr %ud
  if (%open == yes) {
    did -r cp 2
    did -a cp 2 %lr
    did -r cp 3
    did -a cp 3 %ud
  }
  set %thud YES
}

on *:CLOSE:@toyball: {
  .timer8? off
  .timer4? off
  .timer9? off
}
on *:KEYDOWN:@toyball:37: {
  set %la 10
  set %la2 1
  set %lb -
  .timer83 -h 0 1 /animation.left
}
alias animation.left {
  if (- isin %la) {
    halt
  }
  if (%lr <= 0) {
    set %lb +
  }
  set %lr $calc(%lr %lb %la)
  dec %la %la2
  dec %la2 0.05
  if (%la2 <= 0.1) {
    .timer8* off
  }
}
on *:KEYDOWN:@toyball:39: {
  set %ra 10
  set %ra2 1
  set %rb +
  .timer93 -h 0 1 /animation.right
}
alias animation.right {
  if (- isin %ra) {
    halt
  }
  if (%lr >= 1000) {
    set %rb -
  }
  set %lr $calc(%lr %rb %ra)
  dec %ra %ra2
  dec %ra2 0.05
  if (%ra2 <= 0.1) {
    .timer9* off
  }
}
on *:KEYDOWN:@toyball:40: {
  if (%d == up) {
    set %d down
    set %uda2 $calc(%uda2 * 0.002)
  }
  if (%d == down) {
    set %uda2 $calc(%uda2 * 0.002)
  }
}
on *:KEYDOWN:@toyball:38: {
  if (%d == up) {
    inc %uda2 5
  }
  if (%d == down) {
    set %d up
    inc %uda2 5
  }
}
alias animation {
  if ((%first == $null) || (%first != no)) {
    set %color 3
    set %size 5
    set %first no
  }
  window -pxk0 @ToyBall
  set %ud 0
  set %uda2 1
  set %lr 312
  .timer44 -h 0 1 /animation.loop
  dialog -m CP CP
}
menu Channel {
  Toy Ball:/ball
}

;Toy Ball 0.2 Made By BlueThen
;Copyright November 6, 2007 8:55 PM
;Please do not distribute, copy, or publish this without my permission.
;Else I will track you down and freakin shoot you.
;If you paid for this, then you are a idiot and you were scammed.
;To install,
;Press Alt+R, put the snippet in the Remotes
;Then use '/ball2' or right click on channel and click Toy Ball 0.2
;To control the ball, use the arrow keys. :)
menu @toyball2 {
  sclick:{
    set %x2 $mouse.x
    set %y2 $mouse.y
    if ((%x2 > $calc(%lr2 - 20)) && (%x2 < $calc(%lr2 + 20)) && (%y2 < $calc(%ud2 + 20)) && (%y2 > $calc(%ud2 - 20))) {
      if (%y2 < %ud2) {
        set %d2 down
        set %uda22 5
      }
      if (%y2 > %ud2) {
        set %d2 up
        set %uda22 10
      }
      if (%x2 > %lr2) {
        set %hel no
        if (%t == -) {
          inc %am $calc(%x2 - %lr2)
        }
        if ((%t == +) && (- !isin %am)) {
          set %am $calc(%x2 - %lr2)
        }
        if (%1 == yes) {
          set %am $calc(%x2 - %lr2)
        }
        if (- isin %am) {
          set %am $calc(%x2 - %lr2)
        }
        set %t -
        .timer93 -h 0 10 animation.lr
      }
      if (%x2 < %lr2) {
        set %hel no
        if (%t == +) {
          inc %am $calc(%lr2 - %x2)
        }
        if ((%t == -) && (- !isin %am)) {
          set %am $calc(%lr2 - %x2)
        }
        if (%1 == yes) {
          set %am $calc(%lr2 - %x2)
        }
        set %t +
        .timer93 -h 0 10 animation.lr
      }
    }
  }
}
alias animation.lr {
  if (%fd != up) {
    set %lr2 $calc(0.5 * %lr2)
  }
  if (%lr2 < 1) {
    set %lr2 1.1
    set %t +
  }
  if (%lr2 > 999) {
    set %lr2 998.9
    set %t -
  }
  if (%t == +) {
    set %lr2 $calc(%lr2 + %am)
  }
  if (%t == -) {
    set %lr2 $calc(%lr2 - %am)
  }
  set %am $calc(%am * 0.9)
  set %1 no
  if (%am < 0.01) {
    .timer9? off
  }
}
alias ANIMATION.LOOP2 {
  set %thud2 naw
  if (%d2 == down) {
    set %uda22 $calc(%uda22 * 1.15)
  }
  if (%d2 == up) {
    set %uda22 $calc(%uda22 * 0.87)
  }
  if (%uda22 >= 75) {
    set %uda22 75
  }
  if (0.00 isin %uda22) {
    set %d2 down
    set %uda22 0.2
  }
  if (%d2 == down) {
    set %ud2 $calc(%ud2 + %uda22)
  }
  if (%d2 == up) {
    set %ud2 $calc(%ud2 - %uda22)
  }
  if (%ud2 >= 625) {
    set %d2 up
  }
  clear @toyball2
  drawdot -h @toyball2 2 20 %lr2 %ud2 %lr2 %ud2
  set %thud2 YES
}

on *:CLOSE:@toyball2: {
  .timer8? off
  .timer4? off
  .timer9? off
  .timer? off
}
alias animation.left2 {
  if (- isin %la2) {
    halt
  }
  if (%lr2 <= 0) {
    set %lb2 +
  }
  set %lr2 $calc(%lr2 %lb2 %la2)
  dec %la2 %la2
  dec %la22 0.05
  if (%la22 <= 0.1) {
    .timer8* off
  }
}
alias animation.right2 {
  if (- isin %ra2) {
    halt
  }
  if (%lr2 >= 1000) {
    set %rb2 -
  }
  set %lr2 $calc(%lr %rb %ra)
  dec %ra2 %ra2
  dec %ra22 0.05
  if (%ra22 <= 0.1) {
    .timer9* off
  }
}
alias Ball2 {
  set %1 no
  window -pxk0 @ToyBall2
  set %ud2 0
  set %uda22 1
  set %lr2 312
  .timer44 -h 0 10 /animation.loop2
}
menu Channel {
  Toy Ball 0.2:/ball2
}

dialog NGen { title "Number Generator"| size -1 -1 171 156 | option pixels | button "Generate!", 1, 52 55 66 26 | edit "1", 2, 16 29 42 20, autohs |edit "10", 3, 113 29 42 20, autohs | text "Generate a number between", 4, 16 6 138 17 | text "and", 5, 75 29 19 17 | edit "", 6, 44 87 83 20, autohs |button "Done", 7, 53 113 65 25, ok | text "Script Created by BlueThen", 8, 18 143 135 17 }
on *:dialog:Ngen:sclick:1: { set %number1 $did(Ngen,2).text |set %number2 $did(Ngen,3).text | set %nanswer $rand( $+ %number1 $+ , %number2 $+ ) |did -r Ngen 6 | did -a Ngen 6 %nanswer }
menu Channel { Number Generator:/dialog -m NGen Ngen }
alias NumGen { dialog -m NGen NGen }

on *:TEXT:!calc *:#drlchat: {
  if ( / $abs(0) isin $2- ) { /msg $chan OSHI $upper($nick) DIVIDED BY ZERO }
  else { /msg $chan $calc($2-)
}

/rand /msg $chan $rand($1, $2)