Dabar yra 2019-09-16, 04:53




Naujos temos kūrimas Atsakyti į temą  [ 10 pranešimai(ų) ] 
del puslapio sockets. 
Autorius Žinutė
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ė del puslapio sockets.
Sveiki, reikia man truputi jusu pagalbos, scripot beveik nesuprantu, bet pameginau padaryt, kad nors kanors rasytu.
Kodas:
on *:text:.dabar:#console:{
  .sockclose cup
  .sockopen cup http://cups.specas.lt 80
}
on *:sockopen:cup: {
  sockwrite -n $sockname GET http://cups.specas.lt/?menu=3&lang=lt HTTP/1.0
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname User-Agent: mIRC
  sockwrite -n $sockname Host: cups.specas.lt
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}
on *:sockread:cup: {
  sockread %a
  if (Administratorius isin %a) {
    set %yra 8
  }
  if (%yra == 1) {
    set %msg %msg %a
    set %msg $remove(%msg,$chr(9),</i><span></span><color:#01ba87></color>)
    msg #console Laikas: $+ $gettok(%msg,3,32) Numeris: $+ $gettok(%msg,4 - $calc($numtok(%msg,32) - 4),32) Vietos: $+ $gettok(%msg,-4,32) Map: $+ $gettok(%msg,-3,32) Admin: $+ $gettok(%msg,-2,32) Kanalas: $+ $gettok(%msg,-1,32)
    set %gth ivyko
    unset %msg
    unset %yra
  }
  elseif (%yra > 1) {
    set %msg %msg %a
    dec %yra
  }
}
on *:sockclose:cup:{
  if (!%gth) { msg #console Siuo metu nevyksta CUP turnyrai }
  else { unset %gth }
}


Meginau su $remove, bet nieko nesigauna, padekit prasau:)
Laikas:</i><span Numeris:style="color:#01ba87">#3333</span></i>. <span style="font-size:11px"><i> Administratorius: </i><span style="color:#01ba87">urban</span>, <i>Žaidimas:</i> <span style="color:#01ba87">CS</span>, <i>Žaidimo tipas:</i> <span style="color:#01ba87">5x5</span> <i>(<span style="color:#01ba87">2010-05-30</span> / <span style="color:#01ba87">00:00:00</span>)</i></span> </div><br> <table width="610" border="0" c - va ka meta irc'e.

_________________
Paveikslėlis


2012-02-21, 13:43
Aprašymas ICQ WWW
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: del puslapio sockets.
tai tu pasakyk ka ten turetu rasyti tas skriptas i ta kanala, nes neaisku ka tau cia pataisyt reik


2012-02-21, 15:28
Aprašymas WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1296
Forumo litai: 615
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: del puslapio sockets.
Kodas:
on *:text:.dabar:#console:{
  .sockclose cup
  .sockopen cup http://cups.specas.lt 80
}
on *:sockopen:cup: {
  sockwrite -n $sockname GET http://cups.specas.lt/?menu=3&lang=lt HTTP/1.0
  sockwrite -n $sockname
}
on *:sockread:cup: {
  sockread %a
  if ($regex(%a,/<span style="color:#01ba87">(.+?)<\/span>/g)) {
    set %gth 1
    msg #console Laikas: $regml(5) $regml(6) $chr(124) Numeris: $regml(1) $chr(124) Admin: $regml(2) $chr(124) Žaidimas: $regml(3) $chr(124) Žaidimo tipas: $regml(4)
  }
}
on *:sockclose:cup:{
  if (!%gth) { msg #console Siuo metu nevyksta CUP turnyrai }
  else { unset %gth }
}


Pažaidžiau su $regex ;) Realiai tavo nurodytoje svetainėje nera nurodytas nei kanalas nei žemėlapis (gal dėl to kad čia ne gth). Todėl ištraukiau tik tą informaciją, kuri įmanoma.

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2012-02-21, 17:07
Aprašymas WWW
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: del puslapio sockets.
Dekui tau sngz:) to man ir reikejo.

_________________
Paveikslėlis


2012-02-21, 20:59
Aprašymas ICQ WWW
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: del puslapio sockets.
O ziurek, imanoma butu jei atsiranda naujas cupas, rasytu kanale, kad prasidejo naujas cupas. Su taimeriu alias tikrint? bet kaip ta new paziuret nekibinus to seno ?

_________________
Paveikslėlis


2012-02-21, 21:09
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1296
Forumo litai: 615
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: del puslapio sockets.
Pagal žaidimo numerį gali tikrint buvo ar ne ;)

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2012-02-21, 21:11
Aprašymas WWW
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: del puslapio sockets.
http://cups.specas.lt/?menu=4&lang=lt

O kaip nutikrintu sita visa lentele su regex?

edit:
Kodas:
on *:text:.check:#console:{
  .sockclose check
  .sockopen check http://cups.specas.lt 80
}
on *:sockopen:check: {
  sockwrite -n $sockname GET http://cups.specas.lt/?menu=3&lang=lt HTTP/1.0
  sockwrite -n $sockname
}
on *:sockread:check: {
  sockread %a
  if ($read(regml.txt,s,$2) != $null) {
    set %check 1
  }
  else {
    if ($regex(%a,/<span style="color:#01ba87">(.+?)<\/span>/g)) {
      msg #console Laikas: $regml(5) $regml(6) $chr(124) Numeris: $regml(1) $chr(124) Admin: $regml(2) $chr(124) Zaidimas: $regml(3) $chr(124) Zaidimo tipas: $regml(4)
    }
  }
}
on *:sockclose:check:{
  if (!%check) {
    msg #console Siuo metu nevyksta CUP turnyrai
  }
  else { unset %regml }
}

alias check {
  .sockclose check
  .sockopen check http://cups.specas.lt 80
}


Cia meginau, kad ziuretu numeri ar toks jau yra ir pagal tai rasytu, bet vistiek raso nors ir irasytas regml i regml.txt failiuka.

_________________
Paveikslėlis


2012-02-21, 21:17
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1296
Forumo litai: 615
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: del puslapio sockets.
Kažkokią nesamonę tu čia parašei. Iš kur ten tas $2 atsirado ir pan..

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2012-02-21, 22:37
Aprašymas WWW
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: del puslapio sockets.
As truputi geriau sugalvojau... http://cups.specas.lt/ cia yra lentele virsuj (Paskutinieji turnyrai), gal galetum scriptuka numest kai pasibaigia cupas 2x2 irasytu i txt admina ir komandu skaiciu?

_________________
Paveikslėlis


2012-02-24, 14:14
Aprašymas ICQ WWW
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2005-10-10, 20:07
Pranešimai: 1296
Forumo litai: 615
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: del puslapio sockets.
Aš užvedžiau ant kelio, jog galėtum pats pasidaryti.

Nemokamus scriptukus mėto žmonės, kurie scriptina tobulėjimo tikslais. Aš tokios prabangos neturiu, todėl mano paslaugos yra mokamos. ;)

_________________
Niekada nebijok daryti to ko nemoki, atmink: Nojaus arką pastatė mėgėjas, o Titaniką - profesionalai.


2012-02-24, 15:49
Aprašymas WWW
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 10 pranešimai(ų) ] 


Dabar prisijungę

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


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