Check league & ooo results via mIRC

More
12 years 6 months ago #107516 by Fclan
Hi everyone, this topic is related to users who are lazy and uses irc client called: mIRC.

So, if your mIRC client is running type ALT+R and paste this code:
alias results{ 
  /ticker
}
alias ticker { 
  write -c ooo.txt
  sockopen ticker2 www.sensiblesoccer.de 80
}
on *:SOCKOPEN:ticker2: {
  sockwrite -n $sockname GET /index.php?site=online_amigaoneonone_result HTTP/1.1
  sockwrite -n $sockname Host: www.sensiblesoccer.de
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ticker2: {
  sockread %temp
  if ( TD class= ranking2  align= right  width= 140   isin %temp) {
    set %p1 $left($gettok(%temp,3,62),-3)
  }
  elseif ( TD align= center  width= 50   isin %temp) {
    set %r1 $left($gettok(%temp,5,62),-3)
    set %r2 $left($gettok(%temp,9,62),-3)
  }
  elseif ( TD class= ranking2  align= left  width= 140   isin %temp) {
    set %p2 $left($gettok(%temp,3,62),-3)
  }
  elseif ( td align= center  class= medium  style= color:#c0c0c0   isin %temp) {
    set %d $left($gettok(%temp,2,62),-3)
    write ooo.txt $remove(%p1 %r1 $+ : $+ %r2 %p2 %d, nbsp; , nbsp;, )
    /lv
    clear @A-OOO
    echo  @A-OOO $read(ooo.txt,1)
    echo  @A-OOO $read(ooo.txt,2)
    echo  @A-OOO $read(ooo.txt,3)
    echo  @A-OOO $read(ooo.txt,4)
    echo  @A-OOO $read(ooo.txt,5)
    echo  @A-OOO $read(ooo.txt,6)
    echo  @A-OOO $read(ooo.txt,7)
    echo  @A-OOO $read(ooo.txt,8)
    echo  @A-OOO $read(ooo.txt,9)
    echo  @A-OOO $read(ooo.txt,10)
    /ticker1
    sockclose ticker2
  }
}
alias lv {
  if (!%lv_col) set %lv_col 10
  if (!window(wyniki)) window -l13S @A-OOO
} 
alias lv2 {
  if (!%lv2_col) set %lv2_col 10
  if (!window(wyniki2)) window -l13S @Liga
} 
alias ticker1 { 
  write -c liga.txt
  sockopen ticker3 www.sensiblesoccer.de 80
}
on *:SOCKOPEN:ticker3: {
  sockwrite -n $sockname GET /index.php?site=online_amiga_ergebnisse HTTP/1.1
  sockwrite -n $sockname Host: www.sensiblesoccer.de
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ticker3: {
  sockread %temp2
  if ( td class= right_rank_header  style= color:#farbe_liga#   isin %temp2) {
    set %n $left($gettok(%temp2,11,62),-4)
  }
  elseif ( TD class= right_rank_header  align= right  width= 110  style= color:#ffffff;text-transform:uppercase   isin %temp2) {
    set %pl1 $left($gettok(%temp2,2,62),-4)
  }
  elseif ( tr  td width= 15  align= right  class= right_rank_header  style= color:#ffffff   isin %temp2) {
    set %rl1 $left($gettok(%temp2,5,62),-4)
    set %rl2 $left($gettok(%temp2,9,62),-4)
  }
  elseif ( TD class= right_rank_header  align= left  width= 110  style= color:#ffffff;text-transform:uppercase   isin %temp2) {
    set %pl2 $left($gettok(%temp2,2,62),-4)
  }
  elseif ( td align= center  class= right_rank_header  style= color:#c0c0c0   isin %temp2) {
    set %dt $left($gettok(%temp2,2,62),-4)
    write liga.txt $remove(4 $+ %n $+   %pl1 %rl1 $+ : $+ %rl2 %pl2 %dt, nbsp;)
    /lv2
    clear @Liga
    echo  @Liga $read(liga.txt,1)
    echo  @Liga $read(liga.txt,2)
    echo  @Liga $read(liga.txt,3)
    echo  @Liga $read(liga.txt,4)
    echo  @Liga $read(liga.txt,5)
    echo  @Liga $read(liga.txt,6)
    echo  @Liga $read(liga.txt,7)
    echo  @Liga $read(liga.txt,8)
    echo  @Liga $read(liga.txt,9)
    echo  @Liga $read(liga.txt,10)
    sockclose ticker3
  }
}

Now type /results in any window

You should see:



If you add /results to perform settings on connect you will see latest results everytime, when you start your mIRC.

Let me know if it works for you. Remember, only for mIRC, not dana etc.

Please Log in or Create an account to join the conversation.

12 years 6 months ago #107562 by ElMichaJ
a real nice one idea :) !!!

Hey Hey Hey .... El Micha J !!!

Please Log in or Create an account to join the conversation.

More
12 years 6 months ago #107644 by Fclan
Ranking included. If you have any other ideas, just let me know 8)

Type ALT+R and replace old code with this:
alias results { 
  /ticker
}
alias ticker { 
  write -c ooo.txt
  sockopen ticker2 www.sensiblesoccer.de 80
}
on *:SOCKOPEN:ticker2: {
  sockwrite -n $sockname GET /index.php?site=online_amigaoneonone_result HTTP/1.1
  sockwrite -n $sockname Host: www.sensiblesoccer.de
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ticker2: {
  sockread %temp
  if ( TD class= ranking2  align= right  width= 140   isin %temp) {
    set %p1 $left($gettok(%temp,3,62),-3)
  }
  elseif ( TD align= center  width= 50   isin %temp) {
    set %r1 $left($gettok(%temp,5,62),-3)
    set %r2 $left($gettok(%temp,9,62),-3)
  }
  elseif ( TD class= ranking2  align= left  width= 140   isin %temp) {
    set %p2 $left($gettok(%temp,3,62),-3)
  }
  elseif ( td align= center  class= medium  style= color:#c0c0c0   isin %temp) {
    set %d $left($gettok(%temp,2,62),-3)
    write ooo.txt $remove(%p1 %r1 $+ : $+ %r2 %p2 %d, nbsp; , nbsp;, )
    /lv
    clear @A-OOO
    echo  @A-OOO $read(ooo.txt,1)
    echo  @A-OOO $read(ooo.txt,2)
    echo  @A-OOO $read(ooo.txt,3)
    echo  @A-OOO $read(ooo.txt,4)
    echo  @A-OOO $read(ooo.txt,5)
    echo  @A-OOO $read(ooo.txt,6)
    echo  @A-OOO $read(ooo.txt,7)
    echo  @A-OOO $read(ooo.txt,8)
    echo  @A-OOO $read(ooo.txt,9)
    echo  @A-OOO $read(ooo.txt,10)
    /ticker1
    sockclose ticker2
  }
}
alias lv {
  if (!%lv_col) set %lv_col 10
  if (!window(wyniki)) window -l13S @A-OOO
} 
alias lv2 {
  if (!%lv2_col) set %lv2_col 10
  if (!window(wyniki2)) window -l13S @Liga
} 
alias lv3 {
  if (!%lv3_col) set %lv2_col 10
  if (!window(wyniki3)) window -l13S @Ranking
}
alias ticker1 { 
  write -c liga.txt
  sockopen ticker3 www.sensiblesoccer.de 80
}
on *:SOCKOPEN:ticker3: {
  sockwrite -n $sockname GET /index.php?site=online_amiga_ergebnisse HTTP/1.1
  sockwrite -n $sockname Host: www.sensiblesoccer.de
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ticker3: {
  sockread %temp2
  if ( td class= right_rank_header  style= color:#farbe_liga#   isin %temp2) {
    set %n $left($gettok(%temp2,11,62),-4)
  }
  elseif ( TD class= right_rank_header  align= right  width= 110  style= color:#ffffff;text-transform:uppercase   isin %temp2) {
    set %pl1 $left($gettok(%temp2,2,62),-4)
  }
  elseif ( tr  td width= 15  align= right  class= right_rank_header  style= color:#ffffff   isin %temp2) {
    set %rl1 $left($gettok(%temp2,5,62),-4)
    set %rl2 $left($gettok(%temp2,9,62),-4)
  }
  elseif ( TD class= right_rank_header  align= left  width= 110  style= color:#ffffff;text-transform:uppercase   isin %temp2) {
    set %pl2 $left($gettok(%temp2,2,62),-4)
  }
  elseif ( td align= center  class= right_rank_header  style= color:#c0c0c0   isin %temp2) {
    set %dt $left($gettok(%temp2,2,62),-4)
    write liga.txt $remove(4 $+ %n $+   %pl1 %rl1 $+ : $+ %rl2 %pl2 %dt, nbsp;)
    /lv2
    clear @Liga
    echo  @Liga $read(liga.txt,1)
    echo  @Liga $read(liga.txt,2)
    echo  @Liga $read(liga.txt,3)
    echo  @Liga $read(liga.txt,4)
    echo  @Liga $read(liga.txt,5)
    echo  @Liga $read(liga.txt,6)
    echo  @Liga $read(liga.txt,7)
    echo  @Liga $read(liga.txt,8)
    echo  @Liga $read(liga.txt,9)
    echo  @Liga $read(liga.txt,10)
    sockclose ticker3
    /ticker2
  }
}
alias ticker2 { 

  write -c ranking.txt
  sockopen ticker www.sensiblesoccer.de 80
}
on *:SOCKOPEN:ticker: {
  clear @Ranking
  sockwrite -n $sockname GET /index.php?site=community_ranking sid=5 HTTP/1.1
  sockwrite -n $sockname Host: www.sensiblesoccer.de
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ticker: {
  sockread %temp3
  if ( td class= ranking2  align= center  bgcolor= #000033  width= 30   isin %temp3) {
    set %place $left($gettok(%temp3,2,62),-4)
  }
  elseif ( td class= ranking2  align= left  background= images/bg_ranking.gif  colspan= 2   table border= 0  cellpadding= 0  cellspacing= 0   tr  td width= 30  align= center   isin %temp3) {
    set %plr $left($gettok(%temp3,9,62),-3)
  }

  elseif ( td class= ranking2  align= center  bgcolor= #575366  width= 50   isin %temp3 ||  td class= ranking2  align= center  bgcolor= #474355  width= 50   isin %temp3) {
    set %pts $left($gettok(%temp3,2,62),-4)


    write ranking.txt %place $+ . %plr %pts SRN
    /lv3



    clear @Ranking
    echo  @Ranking $read(ranking.txt,1)
    echo  @Ranking $read(ranking.txt,2)
    echo  @Ranking $read(ranking.txt,3)
    echo  @Ranking $read(ranking.txt,4)
    echo  @Ranking $read(ranking.txt,5)
    echo  @Ranking $read(ranking.txt,6)
    echo  @Ranking $read(ranking.txt,7)
    echo  @Ranking $read(ranking.txt,8)
    echo  @Ranking $read(ranking.txt,9)
    echo  @Ranking $read(ranking.txt,10)
    echo  @Ranking $read(ranking.txt,11)
    echo  @Ranking $read(ranking.txt,12)
    echo  @Ranking $read(ranking.txt,13)
    echo  @Ranking $read(ranking.txt,14)
    echo  @Ranking $read(ranking.txt,15)
    echo  @Ranking $read(ranking.txt,16)
    echo  @Ranking $read(ranking.txt,17)
    echo  @Ranking $read(ranking.txt,18)
    echo  @Ranking $read(ranking.txt,19)
    echo  @Ranking $read(ranking.txt,20)
    echo  @Ranking $read(ranking.txt,21)
    echo  @Ranking $read(ranking.txt,22)
    echo  @Ranking $read(ranking.txt,23)
    echo  @Ranking $read(ranking.txt,24)
    echo  @Ranking $read(ranking.txt,25)
    echo  @Ranking $read(ranking.txt,26)
    echo  @Ranking $read(ranking.txt,27)
    echo  @Ranking $read(ranking.txt,28)
    echo  @Ranking $read(ranking.txt,29)
    echo  @Ranking $read(ranking.txt,30)
    echo  @Ranking $read(ranking.txt,31)
    echo  @Ranking $read(ranking.txt,32)
    echo  @Ranking $read(ranking.txt,33)
    echo  @Ranking $read(ranking.txt,34)
    echo  @Ranking $read(ranking.txt,35)
    echo  @Ranking $read(ranking.txt,36)
    echo  @Ranking $read(ranking.txt,37)
    echo  @Ranking $read(ranking.txt,38)
    echo  @Ranking $read(ranking.txt,39)
    echo  @Ranking $read(ranking.txt,40)
    echo  @Ranking $read(ranking.txt,41)
    echo  @Ranking $read(ranking.txt,42)
    echo  @Ranking $read(ranking.txt,43)
    echo  @Ranking $read(ranking.txt,44)
    echo  @Ranking $read(ranking.txt,45)
    echo  @Ranking $read(ranking.txt,46)
    echo  @Ranking $read(ranking.txt,47)
    echo  @Ranking $read(ranking.txt,48)
    echo  @Ranking $read(ranking.txt,49)
    echo  @Ranking $read(ranking.txt,50)

    sockclose ticker
  }
}



If you want to see last results and ranking when your miRC starts, all you need to do is:




Please Log in or Create an account to join the conversation.

More
12 years 6 months ago #107684 by cinek
good job pijaku :P

Please Log in or Create an account to join the conversation.

Time to create page: 0.220 seconds
Powered by Kunena Forum