xTrivia — File Browser

xTriviav1.0 / xTriviav1.0 / xTriviaByRibellina / xtrivia / bot / Addons / Devoice.mrc

Devoice.mrc — 3.46 KB — Download this file

on *:voice:%game_channel: { 
  if ($2 == %nickrc1) { mode # -v $2 }
  if ($2 == %nickrc2) { mode # -v $2 }
  if ($2 == %nickrc3) { mode # -v $2 }
  if ($2 == %nickrc4) { mode # -v $2 }
  if ($2 == %nickrc5) { mode # -v $2 }
  if ($2 == %nickrc6) { mode # -v $2 }
  if ($2 == %nickrc7) { mode # -v $2 }
  if ($2 == %nickrc8) { mode # -v $2 }
  if ($2 == %nickrc9) { mode # -v $2 }
  if ($2 == %nickrc10) { mode # -v $2 }
  if ($2 == %nickrc11) { mode # -v $2 }
  if ($2 == %nickrc12) { mode # -v $2 }
  if ($2 == %nickrc13) { mode # -v $2 }
  if ($2 == %nickrc14) { mode # -v $2 }
  if ($2 == %nickrc15) { mode # -v $2 }
  if ($2 == %nickrc16) { mode # -v $2 }
}
alias mdx { var %dll $mircdirAddons\dll\mdx\mdx.dll } | return $dll(%dll,$1,$2-) 
alias dialogx { return $mircAddons\dll\mdx\dialog.mdx }
alias mdxbegin { mdx SetMircVersion $version | mdx MarkDialog $dname }

alias drc { dialog -m devrc devrc }

dialog devRc {
  title "Devoice RompiPalle"
  icon $mircdirImmagini\1.ico, 0
  size -1 -1 170 136
  option dbu
  text "Nick Da Devoicizzare",1, 23 3 130 10
  text "1",2, 2 15 15 10
  edit %nickrc1,3, 12 15 65 10,autohs
  text "2",4, 2 27 15 10
  edit %nickrc2,5, 12 27 65 10,autohs
  text "3",6, 2 39 15 10
  edit %nickrc3,7, 12 39 65 10,autohs
  text "4",8, 2 51 15 10
  edit %nickrc4,9, 12 51 65 10,autohs
  text "5",10, 2 63 15 10
  edit %nickrc5,11, 12 63 65 10,autohs
  text "6",12, 2 75 15 10
  edit %nickrc6,13, 12 75 65 10,autohs
  text "7",14, 2 87 15 10
  edit %nickrc7,15, 12 87 65 10,autohs
  text "8",21, 2 99 15 10
  edit %nickrc8,16, 12 99 65 10,autohs
  text "15",17, 85 87 15 10
  edit %nickrc9,18, 97 87 65 10,autohs
  text "16",19, 85 99 15 10
  edit %nickrc10,20, 97 99 65 10,autohs
  text "9",22, 86 15 15 10
  edit %nickrc11,23, 97 15 65 10,autohs
  text "10",24, 85 27 15 10
  edit %nickrc12,25, 97 27 65 10,autohs
  text "11",26, 85 39 15 10
  edit %nickrc13,27, 97 39 65 10,autohs
  text "12",28, 85 51 15 10
  edit %nickrc14,29, 97 51 65 10,autohs
  text "13",30, 85 63 15 10
  edit %nickrc15,31, 97 63 65 10,autohs
  text "14",32, 85 75 15 10
  edit %nickrc16,33, 97 75 65 10,autohs
  button "Okay",34, 4 117 160 13,ok
}
on *:dialog:devRc:init:*: {
  ;mdx  
  mdxbegin
  mdx SetBorderStyle $dname 34 staticedge clientedge
  mdx SetDialog $dname bgcolor $rgb(0,0,0)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34 16 660 comic sans ms
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33 background $rgb(0,0,0)
  mdx SetColor $dname 34 background $rgb(0,173,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33 textbg $rgb(0,0,0)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33 text $rgb(0,173,255)
}
on *:dialog:devRc:sclick:34: {
  set %nickrc1 $did(devRc,3)
  set %nickrc2 $did(devRc,5)
  set %nickrc3 $did(devRc,7)
  set %nickrc4 $did(devRc,9)
  set %nickrc5 $did(devRc,11)
  set %nickrc6 $did(devRc,13)
  set %nickrc7 $did(devRc,15)
  set %nickrc8 $did(devRc,16)
  set %nickrc9 $did(devRc,18)
  set %nickrc10 $did(devRc,20)
  set %nickrc11 $did(devRc,23)
  set %nickrc12 $did(devRc,25)
  set %nickrc13 $did(devRc,27)
  set %nickrc14 $did(devRc,29)
  set %nickrc15 $did(devRc,31)
  set %nickrc16 $did(devRc,33)
}

menu menubar {
  Devoice:/drc
  -
}