Part of script unbalanced ()

Mirc Detected Guest 3 Views Size: 2.56 KB Posted on: Oct 30, 26 @ 3:07 PM
  1. on SIGNAL:twdone {
  2.     if ($httpok != true) {
  3.         msg %twc gagal HTTP $httpstatus
  4.         set %tw_busy 0
  5.         return
  6.     }
  7.     set %twbody $httpbody
  8.     msg %twc timeline %twu
  9.     twparse 5
  10.     set %tw_busy 0
  11. }
  12.  
  13. alias twhome_step {
  14.     set %twhacc $split(%twhome, ",")
  15.     if (%twhidx >= $len(%twhacc)) {
  16.         msg %twc selesai home
  17.         set %tw_busy 0
  18.         return
  19.     }
  20.     set %twu $get(%twhacc, %twhidx)
  21.     inc %twhidx
  22.     set %twurl https://fxtwitter.com/
  23.     set %twurl %twurl%twu/feed.xml
  24.     http.get -h %twa %twurl twhomedone
  25. }
  26.  
  27. on SIGNAL:twhomedone {
  28.     if ($httpok != true) {
  29.         msg %twc skip %twu
  30.         twhome_step
  31.         return
  32.     }
  33.     set %twbody $httpbody
  34.     msg %twc timeline %twu
  35.     twparse 3
  36.     twhome_step
  37. }
  38.  
  39. alias twparse {
  40.     set %twitems $split(%twbody, "<item>")
  41.     set %twk 0
  42.     set %twn 0
  43.     foreach %twit %twitems {
  44.         inc %twk
  45.         if (%twk < 2) {
  46.             continue
  47.         }
  48.         if (%twn >= $1) {
  49.             break
  50.         }
  51.         ; --- Ambil Tanggal ---
  52.         set %twp1 $split(%twit, "<pubDate>")
  53.         set %twdate ""
  54.         if ($len(%twp1) >= 2) {
  55.             set %twp2 $split($get(%twp1, 1), "</pubDate>")
  56.             if ($len(%twp2) >= 2) {
  57.                 set %twdate $get(%twp2, 0)
  58.             }
  59.         }
  60.         ; --- Ambil Deskripsi (HTML) ---
  61.         set %twd1 $split(%twit, "<description>")
  62.         if ($len(%twd1) < 2) {
  63.             continue
  64.         }
  65.         set %twd2 $split($get(%twd1, 1), "</description>")
  66.         if ($len(%twd2) < 2) {
  67.             continue
  68.         }
  69.         set %twdesc $get(%twd2, 0)
  70.         ; Bersihkan CDATA jika ada
  71.         set %twdesc $replace(%twdesc, "<![CDATA[", "")
  72.         set %twdesc $replace(%twdesc, "]]>", "")
  73.        
  74.         ; --- Ekstrak Link Gambar dari HTML ---
  75.         set %twimg ""
  76.         set %twimg1 $split(%twdesc, "<img src=\"")
  77.         if ($len(%twimg1) >= 2) {
  78.             set %twimg2 $split($get(%twimg1, 1), "\"")
  79.             if ($len(%twimg2) >= 1) {
  80.                 set %twimg $get(%twimg2, 0)
  81.             }
  82.         }
  83.        
  84.         ; --- Kirim Output ---
  85.         if ($len(%twdate) > 0) {
  86.             msg %twc %twdate
  87.         }
  88.         ; Kirim teks lengkap (setelah tag HTML dihapus secara kasar)
  89.         ; Karena $replace dengan regex kompleks berisiko, kita kirim apa adanya dulu
  90.         msg %twc %twdesc
  91.         if ($len(%twimg) > 0) {
  92.             msg %twc Gambar: %twimg
  93.         }
  94.         inc %twn
  95.     }
  96.     if (%twn == 0) {
  97.         msg %twc tidak ada tweet
  98.     }
  99. }

Raw Paste

Comments 0
Login to post a comment.
  • No comments yet. Be the first.
Login to post a comment. Login or Register
We use cookies. To comply with GDPR in the EU and the UK we have to show you these.

We use cookies and similar technologies to keep this website functional (including spam protection via Google reCAPTCHA or Cloudflare Turnstile), and — with your consent — to measure usage and show ads. See Privacy.