Dabar yra 2020-09-23, 08:16




Naujos temos kūrimas Atsakyti į temą  [ 3 pranešimai(ų) ] 
!oras vieta error 
Autorius Žinutė
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2010-04-20, 18:28
Pranešimai: 117
Forumo litai: 142
Pinigų pervedimas
Miestas: Vilnius
Standartinė !oras vieta error
Kodas lyg ir normalus bet va rašo
<&The|Finder> Temperatura dabar yra °C laipsniu kažkodėl nerodo!

Kodas:
on *:TEXT:*:#Finder:{
  if ($1 == !oras) && ($2) {
    set %vieta $2
    .sockclose oras
    .sockopen oras www.wunderground.com 80

  }
}

on *:sockopen:oras:{
  sockwrite -n $sockname GET http://www.wunderground.com/cgi-bin/findweather/getForecast?query= $+ %vieta HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname User-Agent: ---
  sockwrite -n $sockname Host: www.wunderground.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}

on *:sockread:oras:{
  sockread %a
  if (</span>&nbsp;°C</span> isin %a) {
    .sockclose oras
    set %tt $remove(%msg,<span,class="nobr"><span,class="b">,</span>&nbsp;°C</span>,</span>&nbsp;°C</span>)
    tokenize 32 %tt
    /msg #Finder Temperatura dabar yra: $2 $+ $chr(176) $+ C
    unset %vieta
    unset %tt
    unset %a
  }
}

_________________
SimpleGame.eu


2010-10-12, 15:00
Aprašymas WWW
pats kiečiausias
pats kiečiausias
Vartotojo avataras

Užsiregistravo: 2006-11-27, 15:52
Pranešimai: 1780
Forumo litai: 777
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: !oras vieta error
matyt pasikeitė puslapyje sintaksė. pažiūrėsiu vėliau.

EDIT:

Kodas:
on *:TEXT:*:#:{
  if ($1 == !oras) && ($2) {
    set %place $2
    set %chan #
    sockopen oras www.wunderground.com 80
  }
}

on *:sockopen:oras:{
  sockwrite -n $sockname GET http://www.wunderground.com/cgi-bin/findweather/getForecast?query= $+ %place HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname User-Agent: ---
  sockwrite -n $sockname Host: www.wunderground.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}


on *:sockread:oras:{
  sockread %a
  if ($regex(oras,%a,<span class=\"nobr\"><span class=\"b\">(.*?)<\/span>)) {
    msg %chan Temperatūra dabar: $regml(oras,1) $+ °C
    sockclose oras
    unset %place,%chan
  }
}


ačiū Kastuvui.

P.S. naudokit mIRC su utf-8 skriptingu. (>=7.0 versijos)


2010-10-13, 08:12
Aprašymas WWW

Užsiregistravo: 2011-11-27, 03:30
Pranešimai: 23
Forumo litai: 28
Pinigų pervedimas
Standartinė Re: !oras vieta error
Kastuvas rašė:
matyt pasikeitė puslapyje sintaksė. pažiūrėsiu vėliau.

EDIT:

Kodas:
on *:TEXT:*:#:{
  if ($1 == !oras) && ($2) {
    set %place $2
    set %chan #
    sockopen oras www.wunderground.com 80
  }
}

on *:sockopen:oras:{
  sockwrite -n $sockname GET http://www.wunderground.com/cgi-bin/findweather/getForecast?query= $+ %place HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname User-Agent: ---
  sockwrite -n $sockname Host: www.wunderground.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}


on *:sockread:oras:{
  sockread %a
  if ($regex(oras,%a,<span class=\"nobr\"><span class=\"b\">(.*?)<\/span>)) {
    msg %chan Temperatūra dabar: $regml(oras,1) $+ °C
    sockclose oras
    unset %place,%chan
  }
}


ačiū Kastuvui.

P.S. naudokit mIRC su utf-8 skriptingu. (>=7.0 versijos)





Man jis veikia,bet raso nesamones :
<+EcH`> !oras jonava
<&V_V> Temperat?ra dabar: 69°C
<+EcH`> !oras vilnius
<&V_V> Temperat?ra dabar: 156°C


2012-12-19, 14:10
Aprašymas
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 3 pranešimai(ų) ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 4 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007