zodiak.tcl

######################################################################
# Zodiak By JoJo - #LaLaLa Allnetwork
# hillzx@gmail.com
# Version 1.1
# 19 Maret 2010
# Update 26 Juli 2010
######################################################################

package require http 2.0

bind pub - !zodiak pub:zodiak

proc pub:zodiak {nick host hand chan arg} {


  set arg1 [lindex $arg 0]
  set arg2 [lindex $arg 1]
 
  if {$arg1=="" || $arg2==""} {
    putserv "PRIVMSG $nick :Format yg benar !zodiak <aries,taurus,gemini, cancer,leo,virgo, libra,scorpio,sagitarius, capricorn,aquarius,pisces> <umum,cinta,karier,diet>"
    putserv "PRIVMSG $nick :Zodiak di update setiap minggu lhoo.."
    puthelp "PRIVMSG $nick :Catatan: Zodiak ini hanyalah permainan dan iseng belaka. Jangan dipercaya sebagai ramalan."
    return 0
  }
  switch [string tolower $arg1] {
    "aries" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_aries.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_aries.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_aries.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_aries.html"]
        }
       
    } "taurus" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_taurus.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_taurus.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_taurus.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_taurus.html"]
        }
       
    } "gemini" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_gemini.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_gemini.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_gemini.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_gemini.html"]
        }
       
    } "cancer" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_cancer.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_cancer.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_cancer.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_cancer.html"]
        }
       
    } "leo" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_leo.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_leo.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_leo.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_leo.html"]
        }
       
    } "virgo" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_virgo.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_virgo.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_virgo.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_virgo.html"]
        }
       
    } "libra" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_libra.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_libra.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_libra.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_libra.html"]
        }
       
    } "scorpio" {
   
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_scorpio.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_scorpio.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_scorpio.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_scorpio.html"]
        }
      
    } "sagitarius" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_sagitarius.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_sagitarius.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_sagitarius.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_sagitarius.html"]
        }
       
    } "capricorn" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_capricorn.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_capricorn.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_capricorn.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_capricorn.html"]
        }
       
    } "aquarius" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_aquarius.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_aquarius.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_aquarius.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_aquarius.html"]
        }
       
    } "pisces" {
        if { $arg2=="umum" } {
            set result [getzodiakumum "http://m.kapanlagi.com/woman/zodiac/umum_pisces.html"]           
        } elseif { $arg2=="cinta"} {
            set result [getzodiakcinta "http://m.kapanlagi.com/woman/zodiac/cinta_pisces.html"]
        } elseif { $arg2=="karier"} {
            set result [getzodiakkarier "http://m.kapanlagi.com/woman/zodiac/karier_pisces.html"]
        } elseif { $arg2=="diet"} {
            set result [getzodiakdiet "http://m.kapanlagi.com/woman/zodiac/diet_pisces.html"]
        }
       
    } default {
    putserv "PRIVMSG $nick :Format yg benar !zodiak <aries,taurus,gemini, cancer,leo,virgo, libra,scorpio,sagitarius, capricorn,aquarius,pisces> <umum,cinta,karier,diet>"
    putserv "PRIVMSG $nick :Zodiak di update setiap minggu lhoo.. Zodiak Bot satu2nya di Allnetwork karya JoJo pastinya.."
    puthelp "PRIVMSG $nick :Catatan: Zodiak ini hanyalah permainan dan iseng belaka. Jangan dipercaya sebagai ramalan."
    }
  }
 
putserv "PRIVMSG $chan :4[string toupper $arg1]:14 $result"
 
}

proc getzodiakumum {url} {

    set zodiak "Maaf fitur zodiak mengalami gangguan pada saat ini, silakan ulangi beberapa saat lagi."
    set http [http::config -useragent mozilla]
    set http [http::geturl $url -timeout [expr 1000 * 10]]
    set html [http::data $http]
 
    regsub -all "\n" $html "" html
    regexp {Umum:</b>(.*)</div>} $html zodiak
    regsub -all "<b>Umum:</b>" $zodiak "" zodiak
    regsub -all "<br />" $zodiak "" zodiak
    regsub -all "</b>" $zodiak "" zodiak
    regsub -all "</div>" $zodiak "" zodiak
   
    return "$zodiak"

}

proc getzodiakcinta {url} {

    set zodiak "Maaf fitur zodiak mengalami gangguan pada saat ini, silakan ulangi beberapa saat lagi."
    set http [http::config -useragent mozilla]
    set http [http::geturl $url -timeout [expr 1000 * 10]]
    set html [http::data $http]
   
    regsub -all "\n" $html "" html
    regexp {Cinta:</b>(.*)</div>} $html zodiak
    regsub -all "<b>Cinta:</b>" $zodiak "" zodiak
    regsub -all "<br />" $zodiak "" zodiak
    regsub -all "</b>" $zodiak "" zodiak
    regsub -all "</div>" $zodiak "" zodiak
   
    return "$zodiak"

}

proc getzodiakkarier {url} {

    set zodiak "Maaf fitur zodiak mengalami gangguan pada saat ini, silakan ulangi beberapa saat lagi."
    set http [http::config -useragent mozilla]
    set http [http::geturl $url -timeout [expr 1000 * 10]]
    set html [http::data $http]
   
    regsub -all "\n" $html "" html
    regexp {Karier dan Keuangan:</b>(.*)</div>} $html zodiak
    regsub -all "<b>Karier dan Keuangan:</b>" $zodiak "" zodiak
    regsub -all "<br />" $zodiak "" zodiak
    regsub -all "</b>" $zodiak "" zodiak
    regsub -all "</div>" $zodiak "" zodiak
   
    return "$zodiak"

}

proc getzodiakdiet {url} {

    set zodiak "Maaf fitur zodiak mengalami gangguan pada saat ini, silakan ulangi beberapa saat lagi."
    set http [http::config -useragent mozilla]
    set http [http::geturl $url -timeout [expr 1000 * 10]]
    set html [http::data $http]
   
    regsub -all "\n" $html "" html
    regexp {Diet:</b>(.*)</div>} $html zodiak
    regsub -all "<b>Diet:</b>" $zodiak "" zodiak
    regsub -all "<br />" $zodiak "" zodiak
    regsub -all "</b>" $zodiak "" zodiak
    regsub -all "</div>" $zodiak "" zodiak
   
    return "$zodiak"

}
putlog "Zodiak by JoJo Version 1.1 Update 26 Juli 2010"