on SIGNAL:twdone {
    if ($httpok != true) {
        msg %twc gagal HTTP $httpstatus
        set %tw_busy 0
        return
    }
    set %twbody $httpbody
    msg %twc timeline %twu
    twparse 5
    set %tw_busy 0
}

alias twhome_step {
    set %twhacc $split(%twhome, ",")
    if (%twhidx >= $len(%twhacc)) {
        msg %twc selesai home
        set %tw_busy 0
        return
    }
    set %twu $get(%twhacc, %twhidx)
    inc %twhidx
    set %twurl https://fxtwitter.com/
    set %twurl %twurl%twu/feed.xml
    http.get -h %twa %twurl twhomedone
}

on SIGNAL:twhomedone {
    if ($httpok != true) {
        msg %twc skip %twu
        twhome_step
        return
    }
    set %twbody $httpbody
    msg %twc timeline %twu
    twparse 3
    twhome_step
}

alias twparse {
    set %twitems $split(%twbody, "<item>")
    set %twk 0
    set %twn 0
    foreach %twit %twitems {
        inc %twk
        if (%twk < 2) {
            continue
        }
        if (%twn >= $1) {
            break
        }
        ; --- Ambil Tanggal ---
        set %twp1 $split(%twit, "<pubDate>")
        set %twdate ""
        if ($len(%twp1) >= 2) {
            set %twp2 $split($get(%twp1, 1), "</pubDate>")
            if ($len(%twp2) >= 2) {
                set %twdate $get(%twp2, 0)
            }
        }
        ; --- Ambil Deskripsi (HTML) ---
        set %twd1 $split(%twit, "<description>")
        if ($len(%twd1) < 2) {
            continue
        }
        set %twd2 $split($get(%twd1, 1), "</description>")
        if ($len(%twd2) < 2) {
            continue
        }
        set %twdesc $get(%twd2, 0)
        ; Bersihkan CDATA jika ada
        set %twdesc $replace(%twdesc, "<![CDATA[", "")
        set %twdesc $replace(%twdesc, "]]>", "")
        
        ; --- Ekstrak Link Gambar dari HTML ---
        set %twimg ""
        set %twimg1 $split(%twdesc, "<img src=\"")
        if ($len(%twimg1) >= 2) {
            set %twimg2 $split($get(%twimg1, 1), "\"")
            if ($len(%twimg2) >= 1) {
                set %twimg $get(%twimg2, 0)
            }
        }
        
        ; --- Kirim Output ---
        if ($len(%twdate) > 0) {
            msg %twc %twdate
        }
        ; Kirim teks lengkap (setelah tag HTML dihapus secara kasar)
        ; Karena $replace dengan regex kompleks berisiko, kita kirim apa adanya dulu
        msg %twc %twdesc
        if ($len(%twimg) > 0) {
            msg %twc Gambar: %twimg
        }
        inc %twn
    }
    if (%twn == 0) {
        msg %twc tidak ada tweet
    }
}