Used to lookup citizen feed from erepublik feed. It still a scratch code I made to spend a spare time before go to bed.. modify it with some improvisation development to make it suit you :D

Don't thank give gold. Don't sorry give money. Just to keep us real in virtual world..

PS: Contact me if you have a request :P

on *:text:.lp*:#: {
  if ( $me != %botnick ) halt
  else {
    var %idlp $right($ticks,8)
    var %snlp socklp. [ $+ [ %idlp ] ]
    set %chan. [ $+ [ %snlp ] ] $chan
    set %nick. [ $+ [ %snlp ] ] $nick
    if ( $2 == $null ) syntax $1 %chan. [ $+ [ %snlp ] ]
    elseif ( $2 != $null ) {
      sockclose %snlp
      var %lc. [ $+ [ %snlp ] ] $replace( $2- ,$chr(32), $chr(37) $+ 20 )
      set %ln. [ $+ [ %snlp ] ] $( $+ /v2/feeds/citizen_by_name/xml/ $+ %lc. [ $+ [ %snlp ] ] )
      notice %nick. [ $+ [ %snlp ] ] Processing data...
      sockopen %snlp api.erepublik.com 80
    }
    else syntax $1 %chan. [ $+ [ %snlp ] ]
  }
}

on *:SOCKOPEN:socklp*: {
  sockwrite -nt $sockname GET %ln. [ $+ [ $sockname ] ] HTTP/1.1
  unset %ln. [ $+ [ $sockname ] ]
  sockwrite -nt $sockname Host: api.erepublik.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:socklp*: {
  var %snlp $sockname
  if ($sockerr) {
    msg %chan. [ $+ [ %snlp ] ] Socket Error: %snlp $+ . Error code: $sockerr Please inform $me of this error message.
    unset %chan. [ $+ [ %snlp ] ] %nick. [ $+ [ %snlp ] ]
        sockclose $sockname
  }
  else {
    set %rd. [ $+ [ %snlp ] ]
    var %rdv %rd. [ $+ [ %snlp ] ]
    sockread %rdv
    if ( <message> isincs %rdv ) {
      set %error [ $+ [ %snlp ] ] $nohtml( %rdv )
      msg %chan. [ $+ [ %snlp ] ] ERROR: %error [ $+ [ %snlp ] ]
      unset %chan. [ $+ [ %snlp ] ] %nick. [ $+ [ %snlp ] ] %rdv %th1 %th2 %th3 %error [ $+ [ %snlp ] ] %luk1. [ $+ [ $right( %snlp,8 ) ] ] %i. [ $+ [ %snlp ] ]
      sockclose $sockname
      halt
    }
    else {
      if ( <citizen> isincs %rdv ) set %i. [ $+ [ %snlp ] ] 0
      if ( $nohtml( %rdv ) == $null ) {
        if ( ></ isincs %rdv ) {
          if ( </employer> isincs %rdv ) set %employname [ $+ [ %snlp ] ] Unemployed Citizen
          elseif ( </medal> isincs %rdv ) set %medsum. [ $+ [ %snlp ] ] No Medal collected yet. Try Harder! \o/
          elseif ( </party> isincs %rdv ) set %partyname. [ $+ [ %snlp ] ] No political activities
        }
        elseif ( /> isincs %rdv ) {
          if ( <employer/> isincs %rdv ) set %employname [ $+ [ %snlp ] ] Unemployed Citizen
          elseif ( <party/> isincs %rdv ) set %partyname. [ $+ [ %snlp ] ] No political activities
          elseif ( <medal/> isincs %rdv ) set %medsum. [ $+ [ %snlp ] ] No Medal collected yet
        }
        else {
          if ( </ !isincs %rdv ) {
            inc %i. [ $+ [ %snlp ] ]
            var %ii %i. [ $+ [ %snlp ] ]
            set %th [ $+ [ %ii ] ] %rdv
          }
          elseif ( </ isincs %rdv ) {
            if ( </military-skill> isincs %rdv && %milskilpts. [ $+ [ %snlp ] ] > 0 ) {
              set %milsum. [ $+ [ %snlp ] ] %milsum. [ $+ [ %snlp ] ] %milskilname. [ $+ [ %snlp ] ] - %milskillev. [ $+ [ %snlp ] ] $chr(91) $+ %milskilpts. [ $+ [ %snlp ] ] $+ $chr(93) :: 
            }
            if ( </medal> isincs %rdv ) && %medamount. [ $+ [ %snlp ] ] > 0 ) {
              set %medsum. [ $+ [ %snlp ] ] %medsum. [ $+ [ %snlp ] ] %medtype. [ $+ [ %snlp ] ] $chr(91) $+ %medamount. [ $+ [ %snlp ] ] $+ $chr(93) :: 
            }
            if ( </skill> isincs %rdv ) && %skilpts. [ $+ [ %snlp ] ] > 0 ) {
              set %skilsum. [ $+ [ %snlp ] ] %skilsum. [ $+ [ %snlp ] ] %skilname. [ $+ [ %snlp ] ] $chr(91) $+ %skilpts. [ $+ [ %snlp ] ] $+ $chr(93) :: 
            }
            var %ii %i. [ $+ [ %snlp ] ]
            unset %th [ $+ [ %ii ] ]
            dec %i. [ $+ [ %snlp ] ]
          }
        }
      }
      elseif ( $nohtml( %rdv ) != $null ) {
        if ( %i. [ $+ [ %snlp ] ] == 1 ) {
          if ( <name> isincs %rdv ) set %username. [ $+ [ %snlp ] ]  $+ $nohtml( %rdv ) $+ 
          elseif ( <wellness> isincs %rdv ) set %wellness. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <happiness> isincs %rdv ) set %happiness. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <id> isincs %rdv ) set %userid. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <level> isincs %rdv ) set %userlevel. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <experience-points> isincs %rdv ) set %userexp. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <is-president>true isin %rdv ) set %ispres. [ $+ [ %snlp ] ] $nohtml( %rdv )
          elseif ( <is-congressman>true isin %rdv ) set %iscong. [ $+ [ %snlp ] ] $nohtml( %rdv )
        }
        elseif ( %i. [ $+ [ %snlp ] ] == 2 ) {
          if ( <military> isincs %th2 ) {
            if ( <rank> isincs %rdv ) set %milrank. [ $+ [ %snlp ] ] $nohtml( %rdv )
            elseif ( <stars> isincs %rdv ) set %milstar. [ $+ [ %snlp ] ] $nohtml( %rdv )
            elseif ( <rank-points> isincs %rdv ) set %milrankp. [ $+ [ %snlp ] ] $nohtml( %rdv )
            elseif ( <total-damage> isincs %rdv ) set %miltot. [ $+ [ %snlp ] ] $nohtml( %rdv )
            elseif ( <fight-count> isincs %rdv ) set %milfight. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          if ( <employer> isincs %th2 ) {
            if ( <name> isincs %rdv ) set %employname [ $+ [ %snlp ] ] Employed at $nohtml( %rdv ) Company
          }
          if ( <party> isincs %th2 ) {
            if ( <president> isincs %rdv ) {
              if ( FALSE isin %rdv ) set %partypres. [ $+ [ %snlp ] ] Member
              else set %partypres. [ $+ [ %snlp ] ] President
            }
            if ( <name> isincs %rdv ) set %partyname. [ $+ [ %snlp ] ] Party %partypres. [ $+ [ %snlp ] ] of $nohtml( %rdv )
          }
        }
        elseif ( %i. [ $+ [ %snlp ] ] == 3 ) {
          if ( <citizenship> isincs %th2 && <country> isincs %th3 ) {
            if ( <code> isincs %rdv ) set %citcountcode. [ $+ [ %snlp ] ] $nohtml( %rdv )
            if ( <name> isincs %rdv ) set %citcountname. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          elseif ( <residence> isincs %th2 && <region> isincs %th3 ) {
            if ( <name> isincs %rdv ) set %resregname. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          elseif ( <residence> isincs %th2 && <country> isincs %th3 ) {
            if ( <name> isincs %rdv ) set %rescountname. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          elseif ( <military-skills> isincs %th2 && <military-skill> isincs %th3 ) {
            if ( <points> isincs %rdv ) set %milskilpts. [ $+ [ %snlp ] ] $nohtml( %rdv )
            if ( <level> isincs %rdv ) set %milskillev. [ $+ [ %snlp ] ] $nohtml( %rdv )
            if ( <name> isincs %rdv ) set %milskilname. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          elseif ( <medals> isincs %th2 && <medal> isincs %th3 ) {
            if ( <type> isincs %rdv ) set %medtype. [ $+ [ %snlp ] ] $nohtml( %rdv )
            if ( <amount> isincs %rdv ) set %medamount. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
          elseif ( <skills> isincs %th2 && <skill> isincs %th3 ) {
            if ( <name> isincs %rdv ) set %skilname. [ $+ [ %snlp ] ]  $nohtml( %rdv )
            if ( <points> isincs %rdv ) set %skilpts. [ $+ [ %snlp ] ] $nohtml( %rdv )
          }
        }
        elseif ( %i. [ $+ [ %snlp ] ] == 4 ) echo 2 -a RESULT 4 : %rdv $nohtml( %rdv )
      }
      if (</citizen> isincs %rdv ) {
        if ( true isin %ispres. [ $+ [ %snlp ] ] ) set %ispres. [ $+ [ %snlp ] ] The Country President of %citcountname. [ $+ [ %snlp ] ] :: 
        if ( true isin %iscong. [ $+ [ %snlp ] ] ) set %iscong. [ $+ [ %snlp ] ] The Member of %citcountname. [ $+ [ %snlp ] ] Congress :: 
        if ( Field Marshal isin %milrank. [ $+ [ %snlp ] ] ) set %milstar. [ $+ [ %snlp ] ] FM $+ $str($chr(42), %milstar. [ $+ [ %snlp ] ] )
        if ( Field Marshal !isin %milrank. [ $+ [ %snlp ] ] ) set %milstar. [ $+ [ %snlp ] ] %milrank. [ $+ [ %snlp ] ]
        if ( %milsum. [ $+ [ %snlp ] ] = $null ) set %milsum. [ $+ [ %snlp ] ] No Military archieve found
        if ( %medsum. [ $+ [ %snlp ] ] = $null ) set %medsum. [ $+ [ %snlp ] ] No Medal collected yet
        if ( %skilsum. [ $+ [ %snlp ] ] = $null ) set %skilsum. [ $+ [ %snlp ] ] No Economy Skill found
        echo 4 -a DOR :|

        msg %chan. [ $+ [ %snlp ] ] $chr(91) $+ %citcountcode. [ $+ [ %snlp ] ] $+ - $+ %userid. [ $+ [ %snlp ] ] $+ $chr(93) :: %username. [ $+ [ %snlp ] ] - level %userlevel. [ $+ [ %snlp ] ] $chr(91) $+ %userexp. [ $+ [ %snlp ] ] EXP $+ $chr(93) :: Location: %resregname. [ $+ [ %snlp ] ] $+ , %rescountname. [ $+ [ %snlp ] ] :: Wellness: %wellness. [ $+ [ %snlp ] ] - Happiness: %happiness. [ $+ [ %snlp ] ] :: Rank: %milstar. [ $+ [ %snlp ] ] $chr(91) $+ %milrankp. [ $+ [ %snlp ] ] point $+ $chr(93) :: Total Damage: %miltot. [ $+ [ %snlp ] ] point - %milfight. [ $+ [ %snlp ] ] fights :: %employname [ $+ [ %snlp ] ] :: %ispres. [ $+ [ %snlp ] ] %iscong. [ $+ [ %snlp ] ] %partyname. [ $+ [ %snlp ] ] :: 
        msg %chan. [ $+ [ %snlp ] ] MILITARY - %username. [ $+ [ %snlp ] ] :: %milsum. [ $+ [ %snlp ] ] ECONOMY - %username. [ $+ [ %snlp ] ] :: %skilsum. [ $+ [ %snlp ] ] 
        msg %chan. [ $+ [ %snlp ] ] MEDAL - %username. [ $+ [ %snlp ] ] :: %medsum. [ $+ [ %snlp ] ] 
        msg %chan. [ $+ [ %snlp ] ] LINK - %username. [ $+ [ %snlp ] ] :: Profile - http://www.erepublik.com/en/citizen/profile/ $+ %userid. [ $+ [ %snlp ] ] :: Donate - http://economy.erepublik.com/en/citizen/donate/ $+ %userid. [ $+ [ %snlp ] ]
        unset %i. [ $+ [ %snlp ] ]
        unset %rd. [ $+ [ %snlp ] ]
        unset %iscong. [ $+ [ %snlp ] ] %ispres. [ $+ [ %snlp ] ]
        unset %userlevel. [ $+ [ %snlp ] ] %userexp. [ $+ [ %snlp ] ]
        unset %employname [ $+ [ %snlp ] ] %skilpts. [ $+ [ %snlp ] ] %skilname. [ $+ [ %snlp ] ] %skilsum. [ $+ [ %snlp ] ]
        unset %wellness. [ $+ [ %snlp ] ] %happiness. [ $+ [ %snlp ] ]
        unset %partypres. [ $+ [ %snlp ] ] %partyname. [ $+ [ %snlp ] ]
        unset %medtype. [ $+ [ %snlp ] ] %medamount. [ $+ [ %snlp ] ] %medsum. [ $+ [ %snlp ] ]
        unset %milrank. [ $+ [ %snlp ] ] %milrankp. [ $+ [ %snlp ] ] %miltot. [ $+ [ %snlp ] ] %milstar. [ $+ [ %snlp ] ] %milfight. [ $+ [ %snlp ] ]
        unset %milskillev. [ $+ [ %snlp ] ] %milskilname. [ $+ [ %snlp ] ] %milskilpts. [ $+ [ %snlp ] ] %milsum. [ $+ [ %snlp ] ]
        unset %resregname. [ $+ [ %snlp ] ] %rescountname. [ $+ [ %snlp ] ] %citcountcode. [ $+ [ %snlp ] ] %citcountname. [ $+ [ %snlp ] ]
        unset %chan. [ $+ [ %snlp ] ] %nick. [ $+ [ %snlp ] ] %userid. [ $+ [ %snlp ] ] %username. [ $+ [ %snlp ] ]
        sockclose $sockname 
      }
    }
  }
}

on *:text:.mlp*:#: {
  if ( $me == w-BOT ) describe $chan erep API feed lagi mentenen ceritanya, mahoan aja dulu sama si kasanopa sanah! :s
}

alias syntax {
  if ( $1 == .lp ) msg $2 command: $1 <username>
  else halt
}