// Scrim Menu
// Created by aimscene-kobE
// #aimscene

dialog scrim {
  title "Scrim Script"
  size -1 -1 149 155
  option dbu
  tab "Find Scrim", 16, 3 2 142 135
  button "Find Scrim", 13, 13 120 37 12, tab 16 ok
  button "Stop Search", 14, 55 120 37 12, tab 16 ok
  combo 1, 36 20 60 60, tab 16 size drop
  combo 6, 36 95 60 50, tab 16 size drop
  combo 4, 36 65 60 40, tab 16 size drop
  combo 3, 36 80 60 100, tab 16 size vsbar drop
  combo 2, 36 35 60 60, tab 16 size drop
  combo 5, 36 50 60 50, tab 16 size drop
  text "Game:", 7, 11 21 16 10, tab 16
  text "Players:", 8, 11 36 25 8, tab 16
  text "Server:", 9, 11 51 25 8, tab 16
  text "Location:", 10, 11 67 25 8, tab 16
  text "Map:", 11, 11 81 25 8, tab 16
  text "League:", 12, 11 96 25 8, tab 16
  tab "Players", 17
  check "", 37, 7 27 9 10, tab 17
  check "", 38, 7 47 8 10, tab 17
  check "", 39, 7 67 9 10, tab 17
  check "", 40, 8 87 9 10, tab 17
  check "", 41, 8 107 8 10, tab 17
  check "", 42, 65 27 9 10, tab 17
  check "", 43, 65 47 9 10, tab 17
  check "", 44, 65 67 9 10, tab 17
  check "", 45, 65 87 8 10, tab 17
  check "", 46, 65 107 8 10, tab 17
  edit "", 47, 16 27 45 10, tab 17 autohs
  edit "", 48, 16 47 45 10, tab 17 autohs
  edit "", 49, 74 47 45 10, tab 17 autohs
  edit "", 50, 16 67 45 10, tab 17 autohs
  edit "", 51, 74 67 45 10, tab 17 autohs
  edit "", 52, 16 87 45 10, tab 17 autohs
  edit "", 53, 74 87 45 10, tab 17 autohs
  edit "", 54, 16 107 45 10, tab 17 autohs
  edit "", 55, 76 107 45 10, tab 17 autohs
  edit "", 56, 74 27 45 10, tab 17 autohs
  text "Type Player Names in the Boxes Below", 57, 27 18 100 8, tab 17
  button "Save Players", 58, 102 121 37 12, tab 17
  tab "Config", 18
  text "Add Maps:", 19, 8 32 31 8, tab 18
  edit "Type map name here", 20, 42 31 63 10, tab 18
  text "Add Leagues:", 28, 8 54 40 12, tab 18
  edit "Type league name here", 29, 42 53 63 10, tab 18
  button "Add", 30, 109 54 32 9, tab 18
  text "THESE FEATURES NOT YET AVAILABLE!!!!!", 33, 16 75 105 26, tab 18
  button "Request Help", 27, 56 115 37 12, tab 18
  button "Upgrade Version", 35, 97 115 44 12, tab 18
  button "Add", 21, 109 32 32 9, tab 18
  tab "About", 36
  text "- More games to come", 22, 13 22 56 9, tab 36
  text "- Themed messages", 23, 13 34 49 10, tab 36
  text "- More maps", 31, 13 46 41 10, tab 36
  text "- Custom window and graphics", 32, 13 59 80 12, tab 36
  text "- Version Beta2", 34, 13 71 126 13, tab 36
  text "If you want to request any features please pm aimscene-kobE in #aimscene", 26, 13 102 101 15, tab 36
  text "Created by aimscene-kobE", 25, 13 124 68 9, tab 36
  button "Close", 15, 102 141 37 12, cancel
  text "Copyright 2006 © #aimscene", 24, 7 140 85 12
}


alias game {
  Did -a scrim 1 
  Did -a scrim 1 CS
  Did -a scrim 1 CZ
  ;  Did -a scrim 1 CS:S 
  ;  Did -a scrim 1 DoD 
  ;  Did -a scrim 1 DoD:S 
}

alias players {

  Did -a scrim 2  
  Did -a scrim 2 5v5
  Did -a scrim 2 4v4
  Did -a scrim 2 3v3
  Did -a scrim 2 2v2
  Did -a scrim 2 1v1
}

alias whatserver { 
  Did -a scrim 5 
  Did -a scrim 5 Yours
  Did -a scrim 5 Ours
  Did -a scrim 5 Y/ours 
}

alias location {
  Did -a scrim 4 
  Did -a scrim 4 East
  Did -a scrim 4 Cent
  Did -a scrim 4 West
}

alias maps {
  Did -a scrim 3  
  Did -a scrim 3 de_any
  Did -a scrim 3 de_dust2
  Did -a scrim 3 de_nuke
  Did -a scrim 3 de_train
  Did -a scrim 3 de_inferno
  Did -a scrim 3 de_cpl_fire
  Did -a scrim 3 de_cpl_mill
  Did -a scrim 3 de_cpl_strike
  Did -a scrim 3 de_aztec
  Did -a scrim 3 de_cbble
  Did -a scrim 3 de_forge
}

alias leagues {
  Did -a scrim 6
  Did -a scrim 6 Cal O/IM
  Did -a Scrim 6 Cal IM/M
  Did -a scrim 6 Cal M/P
  Did -a scrim 6 Cal P/I
}

alias hide {
  Did -h scrim 3
  Did -h scrim 6
}

alias unhide { 
  Did -v scrim 3
  Did -v scrim 6
}

alias configdialog {
  game 
  leagues
  whatserver
  location
  maps
  players
}

alias findmaps {
  var %x 1
  while ($read(scrimmaps.txt,%x)) { 
    Did -a scrim 3 $v1
    inc %x 
  }
}

alias findleagues {
  var %x 1
  while ($read(scrimleagues.txt,%x)) { 
    Did -a scrim 6 $v1
    inc %x 
  }
}

alias clearmaps {
  write -c scrimmaps.txt
}

alias clearleagues {
  write -c scrimleagues.txt
}

alias saveplayers {
  writeini scrimscript.ini Players player1 $did(47)
  writeini scrimscript.ini Players player2 $did(48) 
  writeini scrimscript.ini Players player3 $did(49)
  writeini scrimscript.ini Players player4 $did(50)
  writeini scrimscript.ini Players player5 $did(51)
  writeini scrimscript.ini Players player6 $did(52)
  writeini scrimscript.ini Players player7 $did(53)
  writeini scrimscript.ini Players player8 $did(54)
}

alias readplayers {
  Did -a 47 $readini(scrimscript.ini, Players, player1)
  Did -a 48 $readini(scrimscript.ini, Players, player2)
  Did -a 49 $readini(scrimscript.ini, Players, player3)
  Did -a 50 $readini(scrimscript.ini, Players, player4)
  Did -a 51 $readini(scrimscript.ini, Players, player5)
  Did -a 52 $readini(scrimscript.ini, Players, player6)
  Did -a 53 $readini(scrimscript.ini, Players, player7)
  Did -a 54 $readini(scrimscript.ini, Players, player8)
}

ON *:DIALOG:scrim:INIT:0: {
  configdialog
  hide
  findmaps
  findleagues
  readplayers
}

on *:DIALOG:scrim:sclick:1: {
  set %scrim.game $did(1)
  unhide
  if (%scrim.game == CZ) {
    Did -o scrim 3 2 de_dust2_cz
    Did -o scrim 3 3 de_nuke_cz
    Did -o scrim 3 4 de_inferno_cz
    Did -o scrim 3 9 de_aztec_cz
    Did -o scrim 3 10 de_cbble_cz
    Did -d scrim 3 11
    Did -o scrim 6 2 Cal O
    Did -o scrim 6 3 Cal M
    Did -o scrim 6 4 Cal I
    Did -d scrim 6 5  
  }
  if (%scrim.game == $null) {
    hide
  }
}

on *:DIALOG:scrim:sclick:2: { 
  set %scrim.players $did(2)
}

on *:DIALOG:scrim:sclick:3: {
  set %scrim.maps $did(3)
}

on *:DIALOG:scrim:sclick:4: {
  set %scrim.location $did(4)
}

on *:DIALOG:scrim:sclick:5: {
  set %scrim.server $did(5)
}

on *:DIALOG:scrim:sclick:6: {
  set %scrim.leagues $did(6)
}

on *:DIALOG:scrim:sclick:20: { 
  if (%dialog.map == 1) {
    Did -r scrim 20 
    unset %dialog.map
  }
}

on *:DIALOG:scrim:sclick:21: {
  write scrimmaps.txt $did(20).text
  did -a scrim 3 $did(20)
}

on *:DIALOG:scrim:sclick:30: {
  write scrimleagues.txt $did(29).text
  did -a scrim 6 $did(29)
}

on *:DIALOG:scrim:sclick:27: {
  join #ScrimScript
  msg #ScrimScript .help
}

on *:DIALOG:scrim:sclick:35: {
  join #ScrimScript
  msg #ScrimScript .upgrade
}

on *:DIALOG:scrim:sclick:33: {
  var %clearmaps $?!="Do you really want to delete all added maps?"
  if (%deletemaps == $true) {
    clearmaps
  }
}

on *:DIALOG:scrim:sclick:47: {
  var %clearleagues $?!="Do you really want to delete all added leagues?"
  if (%deletemaps == $true) {
    clearleagues
  }
}


on *:DIALOG:scrim:sclick:13: {
  if ((%scrim.game) && (%scrim.players) && (%scrim.server) && (%scrim.location) && (%scrim.maps) && (%scrim.leagues)) {
    if (%scrim.game == CS) {
      if (%scrim.players == 5v5) {
        join #calscrim     
        msg #calscrim %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
        timer.scrim.cs 0 65 msg #calscrim %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
        set %scrim #calscrim
      }
      if (%scrim.players != 5v5) {
        join #findscrim      
        msg #findscrim %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
        timer.scrim.cs 0 65 msg #findscrim %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
        set %scrim #findscrim
      }
    }
    if (%scrim.game == CZ) {
      join #calscrim-cz      
      msg #calscrim-cz %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
      timer.scrim.cz 0 35 msg #calscrim-cz %scrim.players - %scrim.server - %scrim.location - %scrim.maps - %scrim.leagues
      set %scrim #calscrim-cz
    }
  }
}

on *:DIALOG:scrim:sclick:14: {
  timer.scrim.cs off
  timer.scrim.cz off
}

on *:DIALOG:scrim:sclick:58: {
  saveplayers
}

on *:TEXT:*:?: { 
  if ($nick ison %scrim) {
    timer.scrim off 
    unset %scrim
  }
}

alias scrim {
  /dialog -m scrim scrim 
}

menu channel,status,query {
  ScrimScript:/scrim
}

alias connectserver {
}