;;Made by slub77;;
;;HAWKEE;;
 
menu * {
  Wars
  .Commands:{
    /echo 7,7_____________________________________________________________________________________________
    /echo Other then the menu you cal also use / to get the commands you want here is the list of actions.
    /echo /clan will take you to the look up a clan screen 
    /echo /Cwar will take you to the war screen 
    /echo /CLwar will Take you to the look up a clan war screen
    /echo /Cwin will take you to the win screen
    /echo /CLwin will open the win document
    /echo /Close will take you to the lose screen
    /echo /CLlose will open the lose document
    /echo 7,7_____________________________________________________________________________________________
  }
  .Clans
  ..Note a clan:/write clanN.txt $$?"Enter there clan name in the annitals aka WTO" $$?"Now some infomation about that clan please"
  ..look a clan up:{
    if $read(ClanN.txt, s, $$?"Enter a clan name") = $null { /echo Sorry no clan has been recorded With that name please try again }
    else { /echo $read(clanN.txt, s, $!) }
  }
  .Wars
  ..Add a clan war:/write ClanW.txt $$?"Enter the clans name aka WTO" $$?"enter the clan war time and infomation please"
  ..Look up clan war:/echo $read(clanW.txt, s, $$?"There clan detail aka WTO")
  ..Results
  ...Won
  ....Win:/write clanT.txt $$?"enter the clan you beat" $$?"Enter any details you want to remember abut the match"
  ....Open win:/run clanT.txt
  ...Lost
  ....Lose:/write clanU.txt $$?"enter the clan you Lost against" $$?"Enter any details you want to remember abut the match"
  ....Open lost:/run ClanU.txt
  ..Challenge $1:{
    msg $1 Challege People $$?"Enter the names of people who are gona play for your team"
    msg $1 Time of war ; $$?"Enter the time you want the war"
    msg $1 Condtions ; $$?"enter the conditions of what you want"
    msg $1 GB : $$?"enter your Game battles page"
    msg $1 7,4WILL YOU ACCEPT?
  }
}
 
alias clan {
  if $read(ClanN.txt, s, $$?"Enter a clan name") = $null { /echo Sorry no clan has been recorded With that name please try again }
  else { /echo $read(clanN.txt, s, $!) }  
}
 
alias CWar {
  /write ClanW.txt $$?"Enter the clans name aka WTO" $$?"enter the clan war time and infomation please"
}
 
alias CLwar {
  echo $read(clanW.txt, s, $$?"There clan detail aka WTO")
}
 
alias Cwin { 
  /write clanT.txt $$?"enter the clan you beat" $$?"Enter any details you want to remember abut the match"
}
 
alias CLwin {
  /run clanT.txt
}
 
alias Close {
  /write clanU.txt $$?"enter the clan you Lost against" $$?"Enter any details you want to remember abut the match"
}
 
alias CLlose {
  /run ClanU.txt
}
 

Commenting Options