egghelp/eggheads community

Trying to convert the FML script to That High

2010-11-26T20:38:08-04:00

Thanks! That worked like a charm. I'm sorry for my late response, I wasn't notified of the replies.

Thanks again

Statistics: Posted by notrox — Fri Nov 26, 2010 8:38 pm

Trying to convert the FML script to That High

2010-11-20T09:51:35-04:00

I'm so getting this script when you finish it hehehe

Statistics: Posted by spithash — Sat Nov 20, 2010 9:51 am

Trying to convert the FML script to That High

2010-11-19T23:32:54-04:00

Sorry for the late response, but I normally check out Script Support & Releases rather than here. It's normally simpler to send me a pm to get my attention, because I check my e-mail more than I do here.

Anyway, the problem with the regex is that it's trying to use tags to match, while the clean up code ends up removing all of them:

Code:

     regsub -all {} $html {} html     regsub -all {} $html {} html

so you could probably try removing them to make the suggested regexes work.

But it would probably be better to preserve that code (for future fml like in-line ad links) and rather use a regex without relying on them:

Code:

     if {[regexp -- {(.+?)
} $html - fmlq]} {        set fmlq [string trim $fmlq]     }

Statistics: Posted by Trixar_za — Fri Nov 19, 2010 11:32 pm

Re: Trying to convert the FML script to That High

2010-11-08T17:21:00-04:00

Try...
Code:
 if {[regexp -- {.*?(.+?)} $html - fmlq]} {        set fmlq [string trim $fmlq]
Thanks but it was a no go.

Code:

 if {[regexp -- {.*?(.*?).*?
 $html - fmlq]} {        set fmlq [string trim $fmlq]

Statistics: Posted by Guest — Mon Nov 08, 2010 5:21 pm

Re: Trying to convert the FML script to That High

2010-11-07T14:33:12-04:00

Try...

Code:

 if {[regexp -- {.*?(.+?)} $html - fmlq]} {        set fmlq [string trim $fmlq]

Thanks but it was a no go.

Statistics: Posted by notrox — Sun Nov 07, 2010 2:33 pm

Re: Trying to convert the FML script to That High

2010-11-07T14:16:36-04:00

I am getting stuck at this part. The div's are slightly different from FML, I tried a few different ways and nothing.
Code:
 if {[regexp -- {(.+?)
} $html - fmlq]} {        set fmlq [string trim $fmlq]

Try...

Code:

 if {[regexp -- {.*?(.+?)} $html - fmlq]} {        set fmlq [string trim $fmlq]

Statistics: Posted by speechles — Sun Nov 07, 2010 2:16 pm

Trying to convert the FML script to That High

2010-11-07T13:58:22-04:00

I have been trying to modify Trixar_za's FML Script to pull from http://www.thathigh.com The two sites are very similar in design.

Site source

Code:

                                                 Thought lying was bad so I chewed up my friends fake id.. That high.

I am getting stuck at this part. The div's are slightly different from FML, I tried a few different ways and nothing.

Code:

 if {[regexp -- {(.+?)
} $html - fmlq]} {        set fmlq [string trim $fmlq]

( For testing purposes I kept the commands the same)

Code:

# Fmylife.com Script by Trixar_za# Based on the Twitter script by Warlord v1.0# Type in partyline: ".chanset #channel +fml" to enable it.# Sets the logoset fml(logo) "\002\[FML\]:\002"# Sets the user agentset fml(agent) "Mozilla/4.75 (X11; U; Linux 2.2.17; i586; Nav)"setudef flag fmlif {[catch {package require http 2.5} e] != 0} {  set fml(noutf8) 1  package require http}bind pub - !fml proc:fmlbind pub - .fml proc:fml# wordwrap code by speechlessproc msg {type dest data} {   set len [expr {500-[string len ":$::botname $type $dest :\r\n"]}]   foreach line [wordwrap $data $len] {      putserv "$type $dest :$line"   }}proc wordwrap {data len} {   set out {}   foreach line [split [string trim $data] \n] {      set curr {}      set i 0      foreach word [split [string trim $line]] {         if {[incr i [string len $word]]>$len} {            lappend out [join $curr]            set curr [list $word]            set i [string len $word]         } {            lappend curr $word         }         incr i      }      if {[llength $curr]} {         lappend out [join $curr]      }   }   set out}proc proc:fml {nick uhand handle chan input} {  if {[channel get $chan fml]} {     global fml     if {[info exists fml(noutf8)]} {        set http [::http::config -useragent $fml(agent)]     } else {        set http [::http::config -useragent $fml(agent) -urlencoding "utf-8"]     }     catch { set http [::http::geturl "http://www.thathigh.com/random/"]}error      if {![string match -nocase "::http::*" $error]} {        msg "PRIVMSG" $chan "$fml(logo) [string totitle [string map {"\n" " | "} $error]]"        return 0     }     if {![string equal -nocase [::http::status $http] "ok"]} {        msg "PRIVMSG" $chan "$fml(logo) [string totitle [::http::status $http]]"        return 0     }     set html [::http::data $http]     # Clean up :P     regsub -all {\n} $html { } html     regsub -all {\t} $html { } html     regsub -all {
} $html { } html     regsub -all { } $html { } html     regsub -all {    } $html { } html     regsub -all {   } $html { } html     regsub -all {  } $html { } html     regsub -all {} $html {} html     regsub -all {} $html {} html     regsub -all {} $html {} html     regsub -all {} $html {} html     regsub -all {—} $html {-} html     regsub -all {>} $html {>} html     regsub -all {<} $html {<} html     regsub -all {&} $html {\&} html     regsub -all {×} $html {*} html     regsub -all {(?:\x91|\x92|’|‘|')} $html {'} html     regsub -all {(?:\x93|\x94|“|”|")} $html {"} html     regsub -all {×} $html {x} html     regsub -all {(?:(.+?)
} $html - fmlq]} {        set fmlq [string trim $fmlq]     }     if {[info exists fmlq]} {        msg "PRIVMSG" $chan "$fml(logo) $fmlq"     } else {        msg "PRIVMSG" $chan "$fml(logo) Error: Couldn't get a FML quote!"     }  }}putlog "Fmylife.com Script by Trixar_za Loaded"

Could someone please point me in the right direction.

Thanks

Statistics: Posted by notrox — Sun Nov 07, 2010 1:58 pm