This is another basic script made by me :)

This script is for them clans who war with other clans ect... I made this for a friend as a quick script and though may as well give it here as well :)

The script will pretty much explain it self in one of it's commands so it has help even when not looking here, but i am going to give you some detail here:

What it has:
.It can record clans for you (you enter then clan and some details about them)
.and then look the up for you
.It can record wars aka record a clan war and the timeing ect
.look up a clan war with the clans name
.Record win and loses as well

VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV

So yea pretty basic stuff when you come round to it, anyone can make this script easy if they know some stuff about scripting but this is here for them who want it quick :)

Oh and also it has some alias in it so /clan ect that will be explained in side the script it self :)

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