alias 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
}