;-=-=-=-=-=-
; DeadLy Script - start
;-=-=-=-=-=-
alias ai return @autoid
alias autoid {
  window -Ckpa +fbn $ai -1 -1 550 350 $icons(exe)
  drawrect -fr $ai $gettok(%xrgb,1,44) 1 0 0 550 350
  but0
  drawbut $ai 30 290 100 20 check all
  drawbut $ai 140 290 100 20 uncheck all
  drawbut $ai 400 290 100 20 clear all
  titlebar $ai - Auto Identify - $sc
}

alias but0 { var %x 1 
  while %x <= 10 { 
    drawchk $ai 20 $calc(%x *25) $hget(autoid,chk $+ %x) Auto Identify
    drawedit $ai 150 $calc(%x *25) 140 16
    drawedit $ai 300 $calc(%x *25) 140 16
    drawbut $ai 450 $calc(%x *25) 25 16 X
    drawbut $ai 480 $calc(%x *25) 40 16 clear
    drawtext -c $ai 15 verdana 11 155 $calc(%x *25) 999 999 $iif($hget(autoid,edt $+ %x) != $null, $hget(autoid,edt $+ %x), set nick)
    drawtext -c $ai 15 verdana 11 305 $calc(%x *25) 999 999 $iif($hget(autoid,edt $+ $calc(%x +10)) != $null, $hget(autoid,edt $+ $calc(%x +10)), set pass)
    inc %x 1 
  }
}
alias autochk {
  if ($inrect($mouse.x,$mouse.y,20 ,$2 ,110,16) = $true) { s.key
    hadd autoid $1 $iif($hget(autoid,$1) = on, off, on)
    drawchk $ai 20 $2 $hget(autoid,$1)
  }
}
alias id {
  if ($inrect($mouse.x,$mouse.y,450 ,$3 ,25,16) = $true) { s.key
    if ($hget(autoid,$1) != $null) && ($hget(autoid,$2) != $null) && ($hget(autoid,chk $+ $remove($1,edt)) = on) identify $1 $2 
  }
}
alias clearz {
  if ($inrect($mouse.x,$mouse.y,480 ,$3 ,40,16) = $true) { s.key
    hadd autoid $1
    hadd autoid $2
    hdel var $replace($1,edt,autoid)
    hdel var $replace($2,edt,autoid)
    drawedit $ai 150 $3 140 16
    drawedit $ai 300 $3 140 16
    drawtext -c $ai 15 verdana 11 155 $3 999 999 set nick
    drawtext -c $ai 15 verdana 11 305 $3 999 999 set pass
  }
}
on *:ACTIVE:@autoid: if $lactive = @edit window -c @edit
on *:CLOSE:@autoid: { unset %temp.click %editz | window -c @edit | unloads autoid }
menu @autoid {
  sclick:{ 
    autochk chk1 25
    autochk chk2 50
    autochk chk3 75
    autochk chk4 100
    autochk chk5 125
    autochk chk6 150
    autochk chk7 175
    autochk chk8 200
    autochk chk9 225
    autochk chk10 250

    menuedit $ai 150 25 140 16 autoid1
    menuedit $ai 150 50 140 16 autoid2
    menuedit $ai 150 75 140 16 autoid3
    menuedit $ai 150 100 140 16 autoid4
    menuedit $ai 150 125 140 16 autoid5
    menuedit $ai 150 150 140 16 autoid6
    menuedit $ai 150 175 140 16 autoid7
    menuedit $ai 150 200 140 16 autoid8
    menuedit $ai 150 225 140 16 autoid9
    menuedit $ai 150 250 140 16 autoid10

    menuedit $ai 300 25 140 16 autoid11
    menuedit $ai 300 50 140 16 autoid12
    menuedit $ai 300 75 140 16 autoid13
    menuedit $ai 300 100 140 16 autoid14
    menuedit $ai 300 125 140 16 autoid15
    menuedit $ai 300 150 140 16 autoid16
    menuedit $ai 300 175 140 16 autoid17
    menuedit $ai 300 200 140 16 autoid18
    menuedit $ai 300 225 140 16 autoid19
    menuedit $ai 300 250 140 16 autoid20

    id edt1 edt11 25 
    id edt2 edt12 50
    id edt3 edt13 75
    id edt4 edt14 100
    id edt5 edt15 125
    id edt6 edt16 150
    id edt7 edt17 175
    id edt8 edt18 200
    id edt9 edt19 225
    id edt10 edt20 250

    clearz edt1 edt11 25 
    clearz edt2 edt12 50
    clearz edt3 edt13 75
    clearz edt4 edt14 100
    clearz edt5 edt15 125
    clearz edt6 edt16 150
    clearz edt7 edt17 175
    clearz edt8 edt18 200
    clearz edt9 edt19 225
    clearz edt10 edt20 250

    if ($inrect($mouse.x,$mouse.y,30, 290, 100, 20) = $true) { var %chk 1 | while %chk <= 10 { hadd autoid chk $+ %chk on | inc %chk 1 } | autoid | s.key }
    if ($inrect($mouse.x,$mouse.y,150, 290, 100, 20) = $true) { var %chk 1 | while %chk <= 10 { hadd autoid chk $+ %chk off | inc %chk 1 } | autoid | s.key }
    if ($inrect($mouse.x,$mouse.y,400, 290, 100, 20) = $true) { var %chk 1 | while %chk <= 20 { hdel var autoid $+ %chk | hadd autoid edt $+ %chk | inc %chk 1 } | autoid | s.key }
  }
}
on *:EXIT: unloads autoid
;-=-=-=-=-=-
;-=-=-=-=-=-
