Hello New_One,
Pershendetje.

i have tested and function perfect.

Code
[19:09:54] <AdmiraL> !h demi
[19:09:55] <Alb> Po përjetoni një fazë acarimi ndaj shumë njerëzve. Mundohuni të shtyni takimet për javën e ardhshme, projektet do të marrin hov. Së shpejti dashuria do ecë mirë. Nga 13 janari, Venusi i favorshëm do të sjellë lajme të këndshme.
[19:10:03] <AdmiraL> !h dashi
[19:10:04] <Alb> Nesër nuk do të jetë më e mira për ju, veçanërisht në lidhje me dashurinë, prandaj përpiquni të qëndroni larg polemikave. Mundohuni të bëni minimumin por mos u dekurajoni: lajmet e mira do të vijnë në punë nga 12 janari.
[19:10:45] <AdmiraL> !h gaforrja
[19:10:46] <Alb> Duhet të përpiqeni të kompensoni në dashuri kohën e humbur për të cilën po përpiqeni të organizoni një udhëtim ose një fundjavë romantike. Në punë, edhe nëse keni ide të mira, gjithmonë duhet të luftoni për t’u imponuar.


Here is Script :

Code
on *:text:!h *:#egitim: {
  if ( $istok(Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit,$2,32) ) {
    set %shenja1 $2
    unset %terminal
    unset %mesazhihoroskopit*
    set %periudha.horoskopi Lindur me:
    set %kanalihoroskopit $chan
    set %fillohoroskopin <p>
    sockclose horoskopi
    sockopen -e horoskopi www.horoskopishqip.com 443

  }
}
on *:sockopen:horoskopi: {
  sockwrite -n horoskopi GET /shenja/ $+ %shenja1 $+ / HTTP/1.0
  sockwrite -n horoskopi Host: $sock($sockname).addr
  sockwrite -n horoskopi Connection: close
  sockwrite -n horoskopi $crlf
}
on *:sockread:horoskopi: {
  sockread %horoskopi.temp
  if (%periudha.horoskopi isin %horoskopi.temp) { set %periudha $remove($gettok(%horoskopi.temp,3,62),</span) }
  if ((%fillohoroskopin isin %horoskopi.temp) && (!%terminal)) {
    set %horoskopi.frase %horoskopi.temp
    set %terminal !
    /set %mesazhihoroskopit $remove(%horoskopi.temp,</p>,<p>)
    if ( $len(%mesazhihoroskopit) > 0 ) {
      set %mesazhihoroskopit2 $+ $right(%mesazhihoroskopit,$calc($len(%mesazhihoroskopit) - 1800))
      set %mesazhihoroskopit $remove(%mesazhihoroskopit,$right(%mesazhihoroskopit,$calc($len(%mesazhihoroskopit) - 1800)))
      set %mesazhihoroskopit %mesazhihoroskopit $+
    }
    /msg #egitim 10 %mesazhihoroskopit
    if ( %mesazhihoroskopit2 != $null ) { /msg #egitim 10 %mesazhihoroskopit2 }
  }
}

on *:TEXT:!h:#egitim: {
  /msg #egitim 10 Perdorimi i Horoskopit: !h <shenja juaj> 
/msg #egitim 10 Opsionet: Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit $halt - }

on *:ACTION:!h:#egitim: {
  /msg #egitim 10 Perdorimi i Horoskopit: !h <shenja juaj> 
/msg #egitim 10 Opsionet: Dashi Demi Binjaket Gaforrja Luani Virgjeresha Peshorja Akrepi Shigjetari Bricjapi Ujori Peshqit $halt - }



When you have a question you can write to me smile or send me a PM
shkrujem prv..:)

Last edited by Bes; 09/01/21 06:39 PM.