dialog run {
  title "Ultimate Runners Script - By interSys"
  size -1 -1 199 238
  option dbu
  text "Runners Script - By intersys", 1, 60 7 71 8
  box "Login details", 2, 110 23 86 70
  text "Username:", 3, 7 33 28 8
  edit "", 4, 40 33 64 8
  text "Password:", 5, 7 44 26 8
  edit "", 6, 40 44 64 8
  check "Save details?", 7, 8 68 42 8
  box "Login to the gatherbot", 8, 3 23 106 70
  text "Username:", 9, 114 32 28 8, disable
  text "Not enter yet", 10, 148 32 36 8, disable
  text "Password:", 11, 114 42 26 8, disable
  text "Not enter yet", 12, 148 42 36 8, disable
  check "Auto login on connect", 14, 8 80 72 8
  button "Login", 15, 55 67 37 10
  text "Auto login:", 16, 114 71 28 8, disable
  text "OFF", 17, 153 71 23 8, disable
  text "Login Status:", 18, 114 82 35 8, disable
  text "OFFLINE", 19, 153 82 31 8, disable
  text "Details saving:", 13, 114 61 37 8, disable
  text "OFF", 20, 153 61 23 8, disable
  box "Run Gather", 21, 2 96 194 140
  text "Gather Number", 22, 8 111 39 8
  list 23, 7 121 93 82, size
  text "Maps to run", 24, 104 111 31 8
  list 25, 103 121 86 82, size
  button "Run Gather", 26, 6 205 185 12
  edit "Gather Status", 27, 6 221 184 10, disable center
  text "Gbot name:", 28, 7 54 31 8
  edit "", 29, 40 54 64 8
  button "Add Map", 30, 141 109 46 10
  button "Refresh", 31, 50 109 40 10
  text "Gbot name:", 32, 114 51 31 8, disable
  text "Bar - Gather", 33, 148 51 41 8, disable
}



on *:dialog:run:*:*: {
  if ($devent == sclick) {
    if ($did == 15) {
      join #vgathers.crew
      .timer 1 1 msg !login $iif(%r.gbot,%r.gbot,$did(29)) $iif(%r.user,%r.user,$did(4)) $iif(%r.pass,%r.pass,$did(6))
      did -ra $dname 10 $iif(%r.user,%r.user,$did(4))
      did -a $dname 12 $iif(%r.pass,%r.pass,$did(6))
      did -a $dname 33 $iif(%r.gbot,%r.gbot,$did(29))
      did -a $dname 20 $iif(%r.dsave == ON,ON,OFF)
      did -a $dname 17 $iif(%r.autolog == ON,ON,OFF)
      did -a $dname 19 loginstatus
    }
    elseif ($did == 7) {
      set %r.dsave $iif($did(7).state == 1,ON,OFF)
      did -a $dname 20 $iif($did(7).state == 1,ON,OFF)
      if (%r.dsave == on) {
        set %r.user $did(4)
        set %r.pass $did(6)
        set %r.gbot $did(29)
      }
      else { unset %r.* }
    }
    elseif ($did == 14) { set %r.autolog $iif($did(14).state == 1,ON,OFF) | did -a $dname 17 $iif($did(14).state == 1,ON,OFF) }
  }
  elseif ($devent == init) {
    did -a $dname 4 %r.user
    did -a $dname 6 %r.pass
    did -a $dname 29 %r.gbot
    did -a $dname 10 $iif(%r.user,%r.user,Not enter yet)
    did -a $dname 12 $iif(%r.pass,%r.pass,Not enter yet)
    did -a $dname 33 $iif(%r.gbot,%r.gbot,Not enter yet)
    did -a $dname 20 $iif(%r.dsave == ON,ON,OFF)
    did -a $dname 17 $iif(%r.autolog == ON,ON,OFF)
    did $iif(%r.dsave == on,-c,-u) $dname 7
    did $iif(%r.autolog == on,-c,-u) $dname 14
    var %x = 1
    while ($ini(RunGTR.ini,%x)) {
      did -a $dname 23 Gather: $ifmatch $chr(124) Status $readini(RunGTR.ini,$ifmatch,Gather $+ %x) $+ $chr(124) Sign: $readini(RunGTR.ini,$ifmatch,Sign $+ %x)
      inc %x
    }
    var %x = 1
    while ($read(RMaps.txt,%x)) {
      did -a $dname 25 $ifmatch
      inc %x
    }
  }
}
on *:connect: {
  if (%r.autolog == on) {
    var %x = $regsubex($me,/^(?:\[?.+?\](.+?)|.+\|(.+?))$/i,\1)
    .timer 1 3 nick vG $+ $chr(124) $+ %x
    .timer 1 4 join #vGames.Gathers,#vGathers.Crew
    .timer 1 7 msg %r.gbot !login %r.user %r.pass
  }
}
on *:text:*:#vGames.Gathers: {
  if ($nick == vG|Rankbot) && (Gather 1: isin $strip($1-)) && (%msgon) {
    noop $regsubex($strip($1-),/\((.)\) Gather (\d+): \((ON|OFF|Adding)(?:\|[^\x29]*)?\)/g, $rplaa(\1, \2, \3))
  }
}
alias rund {
  .echo -ag 14Please wait, its get the status gathers ...
  .msg #vGames.gathers ?status
  .set -u3 %msgon on
}
alias rplaa { writeini -n RunGTR.ini $2 Gather $+ $2 $3 | writeini -n RunGTR.ini $2 Sign $+ $2 $1 }