alias steamid.search {
  sockclose steamid- $+ $1
  sockopen steamid- $+ $1 steamid.esportsea.com 80
}
on *:SOCKOPEN:steamid*:{
  sockwrite -n $sockname GET /index.php?action=search&type=single&key= $+ %mode $+ &query= $+ $did(steamid,1).text  $+ &output=xml&version=extended HTTP/1.1
  sockwrite -n $sockname Host: steamid.esportsea.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
  sockwrite -n $sockname Authorization: Basic <uu-encoded>
  sockwrite -n $sockname $crlf
}
on *:sockread:steamid*: {
  if ($sockerr > 0) return
  sockread %temp
  if (<total_results> isin %temp) { set %results $gettok($gettok(%temp,2,62),1,60) | dialog -t steamid Steamid Lookup - %results Results }
  if (%temp == <result> ) { inc %total_results }
  if (<team_name> isin %temp) { set %team_name $gettok($gettok(%temp,2,62),1,60) }
  if (<player_steam_id> isin %temp) { set %player_steamid $gettok($gettok(%temp,2,62),1,60) }
  if (<player_alias> isin %temp) { set %player_alias  $gettok($gettok(%temp,2,62),1,60) }
  if (<team_game> isin %temp) { set %team_game $gettok($gettok(%temp,2,62),1,60) }
  if (<team_league> isin %temp) { set %team_league $gettok($gettok(%temp,2,62),1,60) }
  if (<team_division> isin %temp) { set %team_division $gettok($gettok(%temp,2,62),1,60) }
  if (<team_irc> isin %temp) { set %team_channel $gettok($gettok(%temp,2,62),1,60) }
  if (<player_name_first> isin %temp) { set %player_firstname $gettok($gettok(%temp,2,62),1,60) }
  if (<player_name_last> isin %temp) { set %player_lastname $gettok($gettok(%temp,2,62),1,60) }
  if (<team_website> isin %temp) { set %team_website $gettok($gettok(%temp,2,62),1,60) }
  if (<team_location> isin %temp) { set %team_location $gettok($gettok(%temp,2,62),1,60) }
  if (%temp == </result> ) {
    did -a steamid 4 %player_steamid $chr(9)  %player_firstname %player_lastname $chr(9) %player_alias $chr(9) $upper(%team_game)  $chr(9) %team_name $chr(9) %team_channel $chr(9) %team_league $+ - $+ %team_division - %team_location
  }
}
alias steamid { dialog -m steamid steamid }
alias mdx { return mdx.dll }
alias views { return views.mdx }
alias bars { return bars.mdx }
dialog steamid {
  title "Steamid Lookup"
  size -1 -1 184 119
  option dbu
  edit "", 1, 3 5 101 11
  button "Search", 2, 107 5 37 11, default flat
  box "", 3, 1 -2 184 21
  box "", 5, 0 31 184 87
  list 4, 1 38 181 79, size
  button "Clear", 6, 145 5 37 11, flat
  radio "Steamid", 7, 2 21 31 10
  radio "Channel", 8, 34 21 30 10
  radio "Alias", 9, 66 21 22 10
  radio "Name", 10, 90 21 25 10
  radio "Team", 11, 117 21 23 10
  radio "Tag", 12, 141 21 20 10
  radio "Site", 13, 161 21 21 10
}
on *:dialog:steamid:*:*:{
  if ($devent == INIT) {
    dll $mdx SetMircVersion $version
    dll $mdx MarkDialog $dname
    dll $mdx SetControlMDX $dname 4 ListView report single grid > $views
    did -i $dname 4 1 headerdims 80 90 90 50 130 80 90 
    did -i $dname 4 1 headertext Steamid $chr(9) Name $chr(9) Alias $chr(9) Game $chr(9) Team $chr(9) Channel $chr(9) League
  }
  if ($devent == sclick) && ($did == 7) if ($did(steamid,7).state == 1) set %mode steam_id 
  if ($devent == sclick) && ($did == 8) if ($did(steamid,8).state == 1) set %mode irc 
  if ($devent == sclick) && ($did == 9) if ($did(steamid,9).state == 1) set %mode alias 
  if ($devent == sclick) && ($did == 10) if ($did(steamid,10).state == 1) set %mode name
  if ($devent == sclick) && ($did == 11) if ($did(steamid,11).state == 1) set %mode team 
  if ($devent == sclick) && ($did == 12) if ($did(steamid,12).state == 1) set %mode tag 
  if ($devent == sclick) && ($did == 13) if ($did(steamid,13).state == 1) set %mode website 
  if ($devent == sclick) { if ($did == 6) { did -r steamid 4 | dialog -t steamid Steamid Lookup } }
  if ($devent == sclick) { if ($did == 2) { 
      if ($did(steamid,1).text  == $null) { 
        dialog -t steamid Steamid Lookup - Enter Parameters
      } 
      else { steamid.search $did(steamid,1).text }
    } 
  }
}