Dabar yra 2020-09-23, 08:33




Naujos temos kūrimas Atsakyti į temą  [ 19 pranešimai(ų) ]  Eiti į 1, 2  Kitas
!horo Bot 
Autorius Žinutė
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė !horo Bot
Kodas:
on *:TEXT:*:#KANALAS: {
  if ($1 == !horo) {
    .sockclose horoskopas
    .sockopen horoskopas www.day.lt 80
    if ($2 == avinas) { set %z avinas }
    if ($2 == jautis) { set %z jautis }
    if ($2 == dvyniai) { set %z dvyniai }
    if ($2 == vezys) { set %z V%EB%FEys }
    if ($2 == liutas) { set %z Li%FBtas }
    if ($2 == mergele) { set %z Mergel%EB }
    if ($2 == svarstykles) { set %z Svarstykl%EBs }
    if ($2 == skorpionas) { set %z skorpionas }
    if ($2 == saulys) { set %z $chr(37) $+ D0aulys }
    if ($2 == oziaragis) { set %z O%FEiaragis }
    if ($2 == vandenis) { set %z vandenis }
    if ($2 == zuvys) { set %z $chr(37) $+ DEuvys } 
  }
}
on *:sockopen:horoskopas: {
  sockwrite -n $sockname GET http://www.day.lt/horoskopai/ $+ %z HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Host: day.lt
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}
on *:sockread:horoskopas: {
  sockread %a
  if ("content justified" isin %a) {
    set %msg %msg %a
    tokenize 32 %msg
    set %cm $remove($11-,justified">)
    set %z2 $remove($9,/>,</span>,</h2>,<p)
    tokenize 32 %cm
    set %h $remove($deltok(%cm,-11-,32),</p><p)
    /msg #KANALAS %z2 $+ : %h
    unset %z
    unset %msg
    unset %cm
    unset %a
    unset %h
    unset %z2
  }
}


Gal kamnors pravers, kadangi nemoku regexpu tai dariau kitu keliu :)





TCL SKRIPTAS, Tinka eggdrop/windrop botams:

Kodas:
bind pub -|- !horo horoskopai

proc horoskopai {nick uhost hand chan text} {
   global url avinas jautis dvyniai vezys liutas mergele svarstykles skorpionas saulys oziaragis vandenis zuvys
   if {[lindex $text 0] == ""} {
   putserv "privmsg $chan :$nick, Naudok: !horo zenklas"
   return 0 }
   if {[string match -nocase "vezys" $text]} { set text Vėžys }
   if {[string match -nocase "liutas" $text]} { set text Liūtas }
   if {[string match -nocase "mergele" $text]} { set text Mergelė }
   if {[string match -nocase "svarstykles" $text]} { set text Svarstyklės }
   if {[string match -nocase "saulys" $text]} { set text Šaulys }
   if {[string match -nocase "oziaragis" $text]} { set text Ožiaragis }
   if {[string match -nocase "zuvys" $text]} { set text Žuvys }
   ::http::config -useragent "Mozilla/5.0; Hinfo"
        set http_req [::http::geturl http://www.day.lt/horoskopai/[lindex $text 0] -timeout 2000]
        if {[::http::status $http_req] != "ok"} {
                puthelp "PRIVMSG $chan :Puslapis nepasiekiamas";
        }
        set data [::http::data $http_req]
        ::http::cleanup $http_req
        if {[regexp {justified">([^<]+)</p>} $data x tekstas]} {
                puthelp "PRIVMSG $chan :[lindex $text 0]: $tekstas"
        } else {
                puthelp "PRIVMSG $chan :Puslapis nepasiekiamas arba tokio ženklo nėra."

        }
   }

putlog "Horoskopai @ www.lt-help.com"

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


Paskutinį kartą redagavo iso 2012-10-22, 10:29. Iš viso redaguota 1 kartą.



2010-03-21, 18:13
Aprašymas WWW
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2007-03-19, 11:54
Pranešimai: 186
Forumo litai: 49
Pinigų pervedimas
Miestas: Aiur
Standartinė Re: !horo Bot
well done
+rep

_________________
on *:connect:{
if ($snapsas) quit goodbye :)
}


2010-03-21, 18:40
Aprašymas WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2009-07-14, 08:19
Pranešimai: 1472
Forumo litai: 1670
Pinigų pervedimas
Standartinė Re: !horo Bot
O dekui, geras dalykas :)

Paveikslėlis

_________________
http://counter-strike-download.fleshas.lt/


2010-03-21, 20:37
Aprašymas
Dalyvis
Dalyvis

Užsiregistravo: 2008-11-19, 08:25
Pranešimai: 139
Forumo litai: 117
Pinigų pervedimas
Standartinė Re: !horo Bot
o tcl kaip butu :? :P


2010-03-23, 19:48
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-10-19, 13:20
Pranešimai: 780
Forumo litai: 1355
Pinigų pervedimas
Miestas: Taurage
Standartinė Re: !horo Bot
o tcl pasidarysi pats :!:


2010-03-23, 19:53
Aprašymas WWW
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-06-27, 22:16
Pranešimai: 857
Forumo litai: 731
Pinigų pervedimas
Miestas: Kaunas
Standartinė Re: !horo Bot
o tcl gali pats pasirasyt :P :D

_________________
Keli faktai:
1. Tu dabar internete
2. Tu dabar lt-help.com
3. Tu skaitai
5. Tu nepastebejai, kad nera 4-to punkto
6. Tu dabar tai patikrinai
7. Tu sypsaisi. Geros dienos! :*


2010-03-23, 19:53
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė Re: !horo Bot
Praverte, dekui. :lol:

_________________
Paveikslėlis


2010-03-24, 20:16
Aprašymas ICQ WWW
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2007-02-16, 15:34
Pranešimai: 113
Forumo litai: 29
Pinigų pervedimas
Miestas: in da hell
Standartinė Re: !horo Bot
Kodas:
Vлюys: Tinkamas laikas

Klausimas, ka daryti kad nors ir ijungta utf-8 pas bota, bet vistiek is webo neskaito lietuvisku simboliu, gal turite kokiu tai patarimu ?

_________________
Kai gimiau, kazkas dave man sparnus, kad galeciau skristi, net kai lija lietus..


2010-05-24, 08:48
Aprašymas
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2010-05-10, 15:10
Pranešimai: 316
Forumo litai: 47
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: !horo Bot
Geras čia Scriptas Mldc labai Dėkui :)

_________________
Paveikslėlis


2010-05-24, 13:19
Aprašymas WWW
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2007-02-16, 15:34
Pranešimai: 113
Forumo litai: 29
Pinigų pervedimas
Miestas: in da hell
Standartinė Re: !horo Bot
Tai nera jokiu patarimu kaip apdaryti kad rodytu ir lietuviskas raides ? ;]

_________________
Kai gimiau, kazkas dave man sparnus, kad galeciau skristi, net kai lija lietus..


2010-05-24, 17:20
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2009-07-14, 08:19
Pranešimai: 1472
Forumo litai: 1670
Pinigų pervedimas
Standartinė Re: !horo Bot
Picius rašė:
Tai nera jokiu patarimu kaip apdaryti kad rodytu ir lietuviskas raides ? ;]

http://www.aitvaras.eu/utf-8
Pačio boto IRC kliento konfigūraciją susitvarkyk.

_________________
http://counter-strike-download.fleshas.lt/


2010-05-24, 21:04
Aprašymas
Dalyvis
Dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-23, 19:00
Pranešimai: 420
Forumo litai: 56
Pinigų pervedimas
Miestas: Plunge
Standartinė Re: !horo Bot
man tj neveikia meginau pajunkt 2 mirc parasiau !horo bet nieko...

_________________
Paveikslėlis


2010-05-25, 13:54
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2009-07-14, 08:19
Pranešimai: 1472
Forumo litai: 1670
Pinigų pervedimas
Standartinė Re: !horo Bot
joncas24 rašė:
man tj neveikia meginau pajunkt 2 mirc parasiau !horo bet nieko...

Šiaip kur kanalas, reikia įrašyti savo kanalą :)

_________________
http://counter-strike-download.fleshas.lt/


2010-05-25, 14:06
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-04-04, 15:02
Pranešimai: 815
Forumo litai: 716
Pinigų pervedimas
Miestas: Heaven
Standartinė Re: !horo Bot
Arba pas tave viršuje yra kažkoks blogas skriptas. Ištrink jį ir įsirašyk iso duota skriptą. :sleep:

_________________
Paveikslėlis


2010-05-25, 16:14
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: !horo Bot
Heh labai sena tema prikelta :)
Kazkam reikejo mirc versijos, paskaiciau sios temos komentus ir ziu, kad tcl versija kazkas norejo ir nieks neopasidalino :(

Jei dar reik:


Kodas:
bind pub -|- !horo horoskopai

proc horoskopai {nick uhost hand chan text} {
   global url avinas jautis dvyniai vezys liutas mergele svarstykles skorpionas saulys oziaragis vandenis zuvys
   if {[lindex $text 0] == ""} {
   putserv "privmsg $chan :$nick, Naudok: !horo zenklas"
   return 0 }
   if {[string match -nocase "vezys" $text]} { set text Vėžys }
   if {[string match -nocase "liutas" $text]} { set text Liūtas }
   if {[string match -nocase "mergele" $text]} { set text Mergelė }
   if {[string match -nocase "svarstykles" $text]} { set text Svarstyklės }
   if {[string match -nocase "saulys" $text]} { set text Šaulys }
   if {[string match -nocase "oziaragis" $text]} { set text Ožiaragis }
   if {[string match -nocase "zuvys" $text]} { set text Žuvys }
   ::http::config -useragent "Mozilla/5.0; Hinfo"
        set http_req [::http::geturl http://www.day.lt/horoskopai/[lindex $text 0] -timeout 2000]
        if {[::http::status $http_req] != "ok"} {
                puthelp "PRIVMSG $chan :Puslapis nepasiekiamas";
        }
        set data [::http::data $http_req]
        ::http::cleanup $http_req
        if {[regexp {justified">([^<]+)</p>} $data x tekstas]} {
                puthelp "PRIVMSG $chan :[lindex $text 0]: $tekstas"
        } else {
                puthelp "PRIVMSG $chan :Puslapis nepasiekiamas arba tokio ženklo nėra."

        }
   }

putlog "Horoskopai @ www.lt-help.com"

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-10-07, 16:38
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 19 pranešimai(ų) ]  Eiti į 1, 2  Kitas


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 8 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