View unanswered posts | View active topics It is currently Fri Apr 25, 2014 8:36 am



Reply to topic  [ 29 posts ]  Go to page 1, 2  Next
 BlueThen's mIRC Script Collection 
Author Message

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post BlueThen's mIRC Script Collection
Here is some of my scripts I created... this forum really needs "spoilers".
(Boring stuff first)

Calculator
Just a simple calculator. It's designed to sort've follow the Order of Operation rules


To install,
Press Alt+R, put the snippet in the Remotes
Then use '/calc' or right click on channel and click calculator.
Code:
;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
Script can find a common factor with 2 numbers. May not be interesting to you, but ya know... some people could find it interesting...

To install,
Press Alt+R, put the snippet in the Remotes
Then use '/comm' or right click on channel and click Common Factor Finder
Code:
;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
This fancy Number Convertor can convert proper fractions, improper factions, decimals, and percentages. I don't know, but some might find this useful



To install,
Press Alt+R, put the snippet in the Remotes
Then use '/fract' or right click on channel and click Fraction Convertor
Code:
;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
A basic Temperature Convertor.
Can convert Fahrenheit, Celsius, and Kelvin.

To install,
Press Alt+R, put the snippet in the Remotes
Then use '/temp' or right click on channel and click Temperature Convertor
Code:
;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
}



Random Number Generator
Random Number Generator. Put in the numbers you want the random number to be in between, and click "Generate!", pretty useless to me, but you can has it!


To install,
Press Alt+R, put the snippet(script) in the Remotes
Then use '/NumGen' or right click on channel and click Number Generator.
Code:
;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Ë®
¬ËËTËN¡ZË® (LEETENIZER) is just like a translator, but it changes whatever text you put in into 1337.


To install,
Press Alt+R, put the snippet in the Remotes
Then use '/1337' or right click on channel and click ¬ËËTËN¡ZË®.
Code:
;¬ËË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
A basic Typing Test for mIRC... let's see who's best. ;D


My score:
Total: 123
Right: 118
Wrong: 5
Grade: 96% A
Late: 2

To install,
Press Alt+R, put the snippet in the Remotes
Then use '/type' or right click on channel and click Typing Test
Code:
;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
}



mIRC Script Creator
mIRC Script Creator... basically creates scripts!

To install, put the file in your mIRC folder, then say '/load -rs scriptcreator.mrc' then right click in any channel and click 'mIRC Editor'
Attachment:
ScriptCreator.rar



A attempt at physics and animation in mIRC.


Toy Ball 0.1
The first Toy Ball, it's a ball... (ofcourse), that bounces around. You can control it with the arrowkeys, or click anywhere on the window for the ball to follow. There's also a fancy menu where you can edit size, color, shape, etc.

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.
Code:
;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
Second Toy Ball. Even though it's the second, doesn't mean it's the same. Just testing a different interface, meaning it's coded a bit differently. Click the ball to make it fly somewhere.

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.
Code:
;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
}



Sorry if advertising is against the rules, but I'm starting a mIRC Scripting forum at http://bluethen.the-brotherhood.org/ It's in development still, but if you script or want to script in mirc, the go thar!

A moderator can just tell me or remove the ad themself if you don't want it there.


Sat Nov 10, 2007 4:37 am
Profile

Joined: Sun Jun 24, 2007 6:13 am
Posts: 505
Post Re: BlueThen's mIRC Script Collection
♥♥♥♥.


Sat Nov 10, 2007 4:55 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Pyrorex wrote:
Im-****-pressive.

erm... thanks?


Sat Nov 10, 2007 4:57 am
Profile
User avatar

Joined: Fri Jan 26, 2007 3:22 am
Posts: 1449
Post Re: BlueThen's mIRC Script Collection
Heh. The only hard part about mIRC scripting is making scripts that are useful. Why are they all dialogues? Seriously, the majority of these could just be coded as aliases, without the need to do all the dialogue crap.

Also you use a temperature converter regularly in irc? Or common factor finder? And jesus christ that's a lot of code for a $rand(lol random number generator.).

I suppose some people do enjoy having a beefed up mirc client, but I could never live with a bunch of ♥♥♥♥ in my client like that(Seriously, a ball game? SERIOUSLY? ARE YOU KIDDING? IN MIRC?). Seems a little excessive.

Good job on the stuff by the way, you must really enjoy dialogues.


Sat Nov 10, 2007 6:10 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Dialogs makes things easier in my opinion. Less typing, and things aren't as complicated.

I make this stuff for experience. I don't care how useless or useful they are.

34 lines really isn't that much to me.

Ball Game was just a semi-physics animation game test in mIRC.

And I don't get why you have a problem with games and dialogs going in mIRC. They all don't have to be text based, or some kind of genius thing that'd be used by all the presidents and leaders daily for serious military work or some ♥♥♥♥ like that...


Sat Nov 10, 2007 6:24 am
Profile

Joined: Sun Jun 24, 2007 6:13 am
Posts: 505
Post Re: BlueThen's mIRC Script Collection
your random number generator, in remote wrote:
Blah blah massive hunk of text

Simple, aliases wrote:
/rand /msg #drlchat $rand(1, 50)

Dialogues much simpler.


Sat Nov 10, 2007 7:39 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Pyrorex wrote:
your random number generator, in remote wrote:
Blah blah massive hunk of text

Simple, aliases wrote:
/rand /msg #drlchat $rand(1, 50)

Dialogues much simpler.

I'm not talking about the code. I want it easier for the user, not for me.
And for ffs, I didn't do this to be used in a serious manner, I made this for experience. I don't care if there's a easier way. I don't want all my scripts to be used like a command prompt from Windows 3.0.

It's just like calculator, anyone can go "//echo -a $calc(1^2*3/5)", but at first glance, that can make anyone think that's complicated. The purpose of my dialogs are to make the commands and such simple, not the code.



But if you want, here it is in 4 lines...
Code:
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 }


Sat Nov 10, 2007 7:53 am
Profile

Joined: Sun Jun 24, 2007 6:13 am
Posts: 505
Post Re: BlueThen's mIRC Script Collection
BlueThen wrote:
Pyrorex wrote:
your random number generator, in remote wrote:
Blah blah massive hunk of text

Simple, aliases wrote:
/rand /msg #drlchat $rand(1, 50)

Dialogues much simpler.

I'm not talking about the code. I want it easier for the user, not for me.
And for ffs, I didn't do this to be used in a serious manner, I made this for experience. I don't care if there's a easier way. I don't want all my scripts to be used like a command prompt from Windows 3.0.

It's just like calculator, anyone can go "//echo -a $calc(1^2*3/5)", but at first glance, that can make anyone think that's complicated. The purpose of my dialogs are to make the commands and such simple, not the code.



But if you want, here it is in 4 lines...
Code:
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 }

And typing /rand is so hard. That code is overcomplicated and dumb. Mine, you open aliases, you type in the floor number, ceiling number, type /rand, and you're good to go.


Sat Nov 10, 2007 8:07 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Again, I do this for experience. Not to get it done. I can't just stick with cheap aliases for the rest of my life, I need to learn new things, like any great scripter or programmer.


Sat Nov 10, 2007 6:18 pm
Profile
REAL AMERICAN HERO
User avatar

Joined: Sat Jan 27, 2007 10:25 pm
Posts: 5655
Post Re: BlueThen's mIRC Script Collection
I prefer my calcbot.

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


Sat Nov 10, 2007 6:49 pm
Profile
User avatar

Joined: Fri Jan 26, 2007 3:22 am
Posts: 1449
Post Re: BlueThen's mIRC Script Collection
BlueThen wrote:
Again, I do this for experience. Not to get it done. I can't just stick with cheap aliases for the rest of my life, I need to learn new things, like any great scripter or programmer.



Yeah. Mirc is text-based. You should be moving on to c++ or C# if you're going to be making stuff like this, this is why it annoys me to see scripts like these in mIRC. And cheap aliases? You mean things that are even more simple then your dialogues?

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


Typing /rand 4 9542350 seems much easier then typing /randgen, putting two numbers in two boxes, which involves multiple mouse clicks, and then pressing a button. Seriously.

And great scripters or programmers know that simplicity comes before everything else.


Sun Nov 11, 2007 12:49 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Daman3456 wrote:
BlueThen wrote:
Again, I do this for experience. Not to get it done. I can't just stick with cheap aliases for the rest of my life, I need to learn new things, like any great scripter or programmer.



Yeah. Mirc is text-based. You should be moving on to c++ or C# if you're going to be making stuff like this, this is why it annoys me to see scripts like these in mIRC. And cheap aliases? You mean things that are even more simple then your dialogues?

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


Typing /rand 4 9542350 seems much easier then typing /randgen, putting two numbers in two boxes, which involves multiple mouse clicks, and then pressing a button. Seriously.

And great scripters or programmers know that simplicity comes before everything else.


Ok, I give up. I'm not going to release anything else here.

You people are just trying to discourage me from using complex varieties of codes, and keep me from learning new things by trying to make me to use basic aliases that anyone can do.

In my opinion, great scripters and programmers actually prefer to learn new things, than sticking with the basic cheap ways you use.

♥♥♥♥ troll, criticizing a piece of work cause it's complexity is beyond compare to your basic same old things.

If you paint something, you can't make great works with just red, blue, and yellow, you have to mix the paint and use different shades. Your methods are just ♥♥♥♥ up.

Dialogs were new to me at the time. My main priority was NOT to be simple or to perform the task of making random numbers, I wanted to learn more about dialogs, and experiment.

If you have a problem with my script complexity, then ♥♥♥♥ you. "Seriously."


Sun Nov 11, 2007 2:11 am
Profile

Joined: Sun Jun 24, 2007 6:13 am
Posts: 505
Post Re: BlueThen's mIRC Script Collection
Yes but this isn't painting. When you code something, you have to consider the user, not yourself. Also, learn C++ and quite your self-righteous bitching. We're really attempting to hinder you by telling you simpler is better. Go ahead and make those giant scriipts, noone gives a ♥♥♥♥, but if you release something, be intelligent about it and consider the user.


Sun Nov 11, 2007 2:19 am
Profile
User avatar

Joined: Fri Dec 29, 2006 7:42 pm
Posts: 1871
Location: UK
Post Re: BlueThen's mIRC Script Collection
My problem isn't with your script complexity, but your inability to take any criticism.


Sun Nov 11, 2007 2:27 am
Profile

Joined: Thu Sep 27, 2007 10:19 pm
Posts: 32
Post Re: BlueThen's mIRC Script Collection
Pyrorex wrote:
be intelligent about it and consider the user.

Though, the irony is, is that everyone is complaining about the complexity and the length of my scripts, when I spent this whole time saying THAT. It's not about the source, not about how complex it is, it's about the execution. If I put this in a file that you can't open, I doubt anyone would complain this kind of stuff because they never seen how big or complex the script is...

Instead of giving people a alias, and not telling them what to do with it or how to use it, I make a basic dialog which takes less brain power to know how to use, btw, read my previous posts again, cause you are just repeating stuff that I already explained against with detail that I doubt any person who can read miss.

Quote:
My problem isn't with your script complexity, but your inability to take any criticism.

I don't take bull criticism.



And for the last time,
I scripted these for EXPERIENCE! Not for them to be BASIC!


Sun Nov 11, 2007 2:37 am
Profile
Display posts from previous:  Sort by  
Reply to topic   [ 29 posts ]  Go to page 1, 2  Next

Who is online

Users browsing this forum: Bing [Bot], Contrary


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.
[ Time : 0.056s | 14 Queries | GZIP : Off ]