rendered paste bodyalias a { dialog -md Randomns Randomns }
dialog Randomns {
title "Randomns @ / % / +"
size -1 -1 471 328
option pixels
box "[@]", 1, 9 2 148 244
box "[%]", 2, 163 0 148 245
box "[+]", 3, 317 0 148 244
button " Start Random ( @ )", 4, 14 197 104 19
button " Start Random ( % )", 5, 167 197 104 19
button " Start Random ( + )", 6, 321 197 104 19
button "ok", 7, 241 306 60 17, ok
button "Cancel", 8, 404 306 60 17, cancel
text " Each minute:", 9, 9 15 83 16
edit "", 10, 78 13 53 19
text " Each minute:", 11, 163 15 69 16
text " Each minute:", 12, 314 15 69 16
edit "", 13, 242 13 53 19
edit "", 14, 395 13 53 19
text " Chan:", 15, 9 36 41 16
edit "", 16, 56 34 76 21,autohs
text " Chan:", 17, 163 38 40 16
edit "", 18, 219 34 76 21,autohs
text " Chan:", 19, 314 38 44 16
edit "", 20, 372 34 76 21,autohs
text " Number of times that will work", 21, 9 90 148 14
radio "1", 22, 11 103 31 17
radio "Permanent", 23, 11 118 70 17
radio "Choose:", 24, 11 133 61 17
edit "", 25, 82 130 25 21
text " Number of times that will work", 26, 163 90 148 14
radio "1", 27, 164 103 31 17
radio "Permanent", 28, 164 118 69 17
radio "Choose:", 29, 164 133 61 17
edit "", 30, 234 130 25 21
radio "1", 31, 319 103 31 17
radio "Permanent", 32, 319 118 69 17
radio "Choose:", 33, 319 133 61 17
edit "", 34, 390 130 25 21
text " Number of times that will work", 35, 317 90 148 14
button " Stop Ranndom ( @ )", 36, 14 220 104 19
button " Stop Ranndom ( % )", 37, 167 220 104 19
button " Stop Ranndom ( + )", 38, 321 220 104 19
button "Remove @ for last got", 39, 15 166 118 19
button "Remove % for last got", 40, 168 166 118 19
button "Remove + for last got", 41, 320 166 118 19
icon 42, 5 269 157 35, D:\colors.jpg, 0
text " Choose color:", 43, 8 249 75 14
edit "", 44, 89 247 26 19
text "----------------------------------", 48, 166 151 140 8
text "----------------------------------", 49, 13 151 140 8
text "------------------------------------", 50, 317 151 140 8
text "------------", 45, 48 184 54 10
text "------------", 46, 199 184 54 10
text "------------", 47, 353 184 54 10
button "Set color", 54, 12 308 48 17
text " Number of op in once time:", 55, 9 56 137 13
edit "", 56, 29 71 25 20
button "Claer All", 57, 323 306 60 17
text " Number of op in once time:", 58, 162 57 139 13
text " Number of op in once time:", 59, 315 57 140 13
edit "", 60, 182 71 25 20
edit "", 61, 335 71 25 20
text "", 51, 179 246 60 17
text " ", 52, 185 260 110 12
text " ", 53, 185 276 110 12
text " ", 62, 185 289 110 12
}
on *:dialog:randomns:init:0:{
did -a $dname 10 %timerop
did -a $dname 13 %timerhop
did -a $dname 14 %timervoi
did -a $dname 44 %rcolor
did -a $dname 16 %crop
did -a $dname 18 %crhop
did -a $dname 20 %crvo
if (%getop) || (%gethop) || (%getvo) { did -a $dname 51 statistics: }
if (%getop) { did -a $dname 52 %getop Got @ in this script }
if (%gethop) { did -a $dname 53 %gethop Got % in this script }
if (%getvo) { did -a $dname 62 %getvo Got + in this script }
}
on *:dialog:Randomns:sclick:*:{
if ($did = 36) { timerop2 off }
if ($did = 37) { timerhop2 off }
if ($did = 38) { timervo2 off }
if ($did = 39) { mode %crop $str(-o,$modespl) %rop }
if ($did = 40) { mode %crhop $str(-h,$modespl) %rhop }
if ($did = 41) { mode %crvo $str(-v,$modespl) %rvo }
if ($did = 54) { set %rcolor $did(44) }
if ($did = 57) { rclear }
if ($did = 4) {
if ($did(16).text != $null) { set %crop $did(16).text }
if ($did(10).text != $null) { set %timerop $did(10).text }
if ($did(56).text != $null) { set %xop $did(56).text }
if ($did($dname,22).state == 1) { set %numop 1 }
elseif ($did($dname,23).state == 1) { set %numop 0 }
elseif ($did($dname,24).state == 1) { set %numop $did(25).text }
/trop
}
if ($did = 5) {
if ($did(18).text != $null) { set %crhop $did(18).text }
if ($did(13).text != $null) { set %timerhop $did(13).text }
if ($did(60).text != $mull) { set %xhop $did(60).text }
if ($did($dname,27).state == 1) { set %numhop 1 }
elseif ($did($dname,28).state == 1) { set %numhop 0 }
elseif ($did($dname,29).state == 1) { set %numhop $did(30).text }
/trhop
}
if ($did = 6) {
if ($did(20).text != $null) { set %crvo $did(20).text }
if ($did(14).text != $null) { set %timervoi $did(14).text }
if ($did(61).text != $null) { set %xvo $did(61).text }
if ($did(31).state == 1) { set %numvo 1 }
elseif ($did($dname,32).state == 1) { set %numvo 0 }
elseif ($did($dname,33).state == 1) { set %numvo $did(34).text }
/trvo
}
}
alias rclear {
timervo1 off | timervo2 off | timerOP2 off | timerOP1 off | unset %numop | unset %numhop | unset %rvo | unset %timervoi | unset %xvo | unset %xhop | unset %rop | unset %xop | unset %numvo | unset %crop | unset %crhop | unset %crvo | unset %rcolor | unset %timerop | unset %timerhop | unset %timerrvo
}
------------------
------------------
alias trop {
if ($nopnick(%crop,0) < %xop) { echo -a | halt }
elseif (!%crop) { echo -a | halt }
.timerOP1 1 1 /rop
if (%numop == 1) { halt }
elseif (%numop = 0) { .timerOP2 0 $calc(%timerop + 2) /rop }
else { .timerOP2 $calc(%numop - 1) $calc(%timerop + 2) /rop }
}
alias rop {
:bla
var %t = $addtok(%t,$nopnick(%crop,$r(1,$nopnick(%crop,0))),32)
if ($numtok(%t,32) < %xop) goto bla
set %rop %t | mode %crop $str(o,%xop) %t | inc %getop %xop | .timer 1 1 /msg %crop $chr(3) $+ $iif(%rcolor,%rcolor,1) $+ %t you got random @p - Enjoy
.timer 1 $calc(%timerop - 1) /mode %crop $str(-o,%xop) %rop
}
------------------
------------------
alias trhop {
if ($nick(%crhop,0,a,oh) < %xhop) { echo -a | halt }
elseif (!%crhop) { echo -a | halt }
.timerHOP1 1 1 /rhop
if (%numhop == 1) { halt }
elseif (%numhop = 0) { .timerHOP2 0 $calc(%timerhop + 2) /rhop }
else { .timerHOP2 $calc(%numhop - 1) $calc(%timerhop + 2) /rhop }
}
alias rhop {
:bla
var %t = $addtok(%t,$nick(%crhop,$r(1,$nick(%crhop,0,a,oh)),a,oh),32)
if ($numtok(%t,32) < %xhop) goto bla
set %rhop %t | mode %crhop $str(h,%xhop) %t | inc %gethop %xhop | .timer 1 1 /msg %crhop $chr(3) $+ $iif(%rcolor,%rcolor,1) $+ %t you got random @p - Enjoy
.timer 1 $calc(%timerhop - 1) /mode %crhop $str(-h,%xhop) %rhop
}
-----------------
-----------------
alias trvo {
if ($rnick(%crvo,0) < %xvo) { echo -a | halt }
elseif (!%crvo) { echo -a | halt }
.timerVO1 1 1 /rvo
if (%numvo == 1) { halt }
elseif (%numvo = 0) { .timerVO2 0 $calc(%timervoi + 2) /rvo }
else { .timervo2 $calc(%numvo - 1) $calc(%timervoi + 2) /rvo }
}
alias rvo {
:bla
var %t = $addtok(%t,$rnick(%crvo,$r(1,$rnick(%crvo,0))),32)
if ($numtok(%t,32) < %xvo) goto bla
set %rvo %t | mode %crvo $str(v,%xvo) %t | inc %getvo %xvo | .timer 1 1 /msg %crvo $+ %rcolor $+ %t you got random Vo+ce - Enjoy
.timer 1 $calc(%timervoi - 1) /mode %crvo $str(-v,%xvo) %rvo
}