Stuff

on *:dialog:war.main:init:*:{
  var %war.list = 1
  while (%war.list <= 100) {
    /did -i $dname 1 $gettok($read(warclans.txt, $+ %war.list $+ ),6-,32) 
    inc %war.list 1
  }
}