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
}