dialog clanbot {
  title "S4.Gaming ClanBOT"
  size -1 -1 100 100
  option dbu
  ;button "Vent", 1, -2 122 117 36
  ;button "Server", 2, 116 121 112 37
  ;button "Game", 3, -1 89 116 35
  ;button "#Channel", 4, 115 88 112 33
  ;button "WebSiteURL", 5, 2 57 114 32
  ;radio "Red", 6, 2 13 50 10
  ;radio "Blue", 7, 2 23 50 10
  ;radio "Black", 8, 2 33 50 10
  ;radio "Green", 9, 2 42 50 10
  ;box "Credits", 10, 169 3 55 50
  ;button "Members", 11, 116 58 112 31
  ;button "Cancel", 12, 131 0 37 12, cancel
  ;text "Made and developed by secon- and Roeyzzzz.  All rights reserved.", 13, 170 13 52 37
  button "Ventrilo",1, 5 5 45 12
  button "Server",2, 50 5 45 12
  button "Game",3, 5 17 45 12
  button "Channel",4, 50 17 45 12
  button "Website",5, 5 29 45 12
  box "Messages Color",6, 5 43 90 40
  radio "Random Color",7, 10 51 80 10
  radio "Selected Color",8, 10 61 80 10
  button "Select the Color",9, 10 71 80 10
  button "Members",11, 50 29 45 12
  button "Close",12, 5 85 90 12, ok cancel
}

ON *:dialog:ClanBOT:sclick:9: {
  clanbot.colors
}

dialog Colors {
  title "S4.Gaming ClanBOT - Color"
  size -1 -1 100 110
  option dbu
  radio "Black",1, 5 5 40 10
  radio "Dark Blue",2, 5 15 40 10
  radio "Dark Green",3, 5 25 40 10
  radio "Red",4, 5 35 40 10
  radio "Brown",5, 5 45 40 10
  radio "Purple",6, 5 55 40 10
  radio "Orange",7, 5 75 40 10
  radio "Yellow",8, 55 5 40 10
  radio "Light Green", 9, 55 15 40 10
  radio "Turquoise", 10, 55 25 40 10
  radio "Light Blue",11, 55 35 40 10
  radio "Blue", 12, 55 45 40 10
  radio "Pink", 13, 55 55 40 10
  radio "Grey", 14, 55 65 40 10
  radio "Light Grey", 15, 5 65 40 10
  button "Close", 16, 5 90 90 15, cancel
}

ON *:dialog:ClanBOT:init:*: {
  var %rand = $r(0,15)
  while (%rand == 1) {
    %rand = $r(0,15)
  }
  var %color = $readini(ClanBOT.ini,Color,Selected)
  if (!%color) { %color = 0 } ; Random Color
  if (%color == 0) {
    did -b $dname 9
  }
  if (%color == 0) { set %globalColor %rand }
  if (%color == 1) { set %globalColor $iif($readini(ClanBOT.ini,Color,Color),$readini(ClanBOT.ini,Color,Color),0) }
  did -c $dname $iif(%color == 0,7,8)
}

ON *:dialog:ClanBOT:sclick:7,8: {
  if ($did == 8) { did -e $dname 9 }
  if ($did == 7) { did -b $dname 9 }
  writeini ClanBOT.ini Color Selected $iif($did == 7,0,1)
}

ON *:dialog:Colors:init:*: {
  var %color = $readini(ClanBOT.ini,Color,Color)
  if (!%color) { %color = 0 }
  if (%color == 0) {
    %color = 1
  }
  did -c $dname %color
}

ON *:dialog:Colors:sclick:1,2,3,4,5,6,7,8,9,10,11,12,13,14,15: {
  writeini ClanBOT.ini Color Color $did
}

alias clanbot.colors {
  dialog -m Colors Colors
}

alias clanbot {
  .dialog -m clanbot clanbot
}

menu * {
  ClanBOT: clanbot
}

on *:DIALOG:clanbot:sclick:3: {
  var %game = $input(Enter The Clan Game:,e,Change Game,$readini(ClanBOT.ini,Game,Game))
  writeini ClanBot.ini Game Game %game
}

ON *:dialog:clanbot:sclick:12: {
  var %close = $input(Are you sure that you want to close the ClanBOT Dialog Manager?,y,Close)
  if (!%close) { Halt }
}

on *:text:*:#S4.Gaming: {
  var %ss = $readini(ClanBOT.ini,Color,Selected)
  var %color
  if (%ss == 0) { %color = $r(1,15) }
  if (%ss == 1) { %color = $iif($readini(ClanBOT.ini,Color,Color),$readini(ClanBOT.ini,Color,Color),0) }
  var %commandList = !Members, !Website, !Channel, !Server, !Vent, !Game
  if ($1 == !Help || $1 == Commands) {
    msg #  $+ %color $+ S4.Gaming Channel Commands are:15 %commandList
  }
  if ($1 == !Members) {
    var %Members = $readini(Clanbot.ini,Members,Members)
    msg # 0,1S4.Gaming Team Members are:15 %Members
  }

  if ($1 == !WebSite) {
    var %WebSite = $readini(Clanbot.ini,WebSite,WebSite)
    msg # 0,1S4.Gaming Website is:15 %WebSite
  }

  if ($1 == !Channel) {
    var %Channel = $readini(Clanbot.ini,Channel,Channel)
    msg # 0,1S4.Gaming Channel is:15 %Channel
  }
  if ($1 == !Server) {
    var %Server = $readini(Clanbot.ini,Server,Server)
    msg # 0,1S4.Gaming Game's Server IP is:15 %Server
  }
  if ($1 == !vent) {
    var %vent = $readini(Clanbot.ini,Vent,Vent)
    msg # 0,1S4.Gaming Ventrilo's Server IP is:15 %vent
  }
  if ($1 == !game) {
    var %game = $readini(Clanbot.ini,Game,Game)
    msg # 0,1S4.Gaming Game is:15 %game
  }
}

on *:DIALOG:clanbot:sclick:1: {
  var %Vent = $input(Enter The Ventip:,e,Change Vent,$readini(Clanbot.ini,Vent,Vent))
  if (!%Vent) {
    var %s = $input(You must enter the Ventrilo IP in order to make a change!,o,Ventrilo)
    Halt
  }
  writeini ClanBot.ini Vent Vent %Vent
}

on *:DIALOG:clanbot:sclick:2: {
  var %Server = $input(Enter The Serverip:,e,Change Server,$readini(Clanbot.ini,Server,Server))
  writeini ClanBot.ini Server Server %Server
}

on *:DIALOG:clanbot:sclick:4: {
  var %Channel = $input(Enter The ChannelName:,e,Change Channel,$readini(Clanbot.ini,Channel,Channel))
  writeini ClanBot.ini Channel Channel %Channel
}

on *:DIALOG:clanbot:sclick:5: {
  var %WebSite = $input(Enter The WebSiteURL:,e,Change URL,$readini(Clanbot.ini,WebSite,WebSite))
  writeini ClanBot.ini WebSite WebSite %WebSite
}

on *:DIALOG:clanbot:sclick:11: {
  var %Members = $input(Enter The Team Members:,e,Change Members,$readini(Clanbot.ini,Members,Members))
  writeini ClanBot.ini Members Members %Members
}