From Lostpedia
By Me
Time Till Lost (Public Trigger)
on *:TEXT:!lost:#lostpedia:{
set %losttime 11 OCTOBER 2006 20:00:00
if ($calc($ctime(%losttime) - $ctime) < 0) {
timer 1 $rand(1,3) msg $chan Error: Script not updated for this week
}
if ($calc($ctime(%losttime) - $ctime) > 0) {
timer 1 $rand(1,3) msg $chan There are $calc($ctime(%losttime) - $ctime) seconds, $calc($calc($ctime(%losttime) - $ctime) /60 /60) hours, $duration($calc($ctime(%losttime) - $ctime)) till Lost airs on the East Coast.
}
}
Time Till Lost (Private Trigger)
alias lost { msg $chan There are $calc($ctime(11 OCTOBER 2006 20:00:00) - $ctime) seconds, $calc($calc($ctime(11 OCTOBER 2006 20:00:00) - $ctime) /60 /60) hours, $duration($calc($ctime(11 OCTOBER 2006 20:00:00) - $ctime)) till Lost airs on the East Coast. }
Search Scripts (Google, Lostpedia, Amazon)
on *:TEXT:-lp *:#:{
msg $chan http://lostpedia.com/wiki/Special:Search?search= $+ $replace($$2-,$chr(32),$chr(37) $+ 20)
}
on *:TEXT:-google *:#:{
msg $active Google search for: $+ $+ $replace($1-,$chr(32),+) http://www.google.com/search?q= $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-tv *:#:{
msg $active TVRage search for: $+ $+ $replace($1-,$chr(32),+) http://www.tvrage.com/search.php?search= $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-groups *:#:{
msg $active Google Groups search for: $+ $+ $replace($1-,$chr(32),+) http://groups.google.com/groups?q= $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-news *:#:{
msg $active Google News search for: $+ $+ $replace($1-,$chr(32),+) http://news.google.com/news?q= $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-image *:#:{
msg $active Google Image search for: $+ $replace($1-,$chr(32),+) http://images.google.com/images?q= $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-word *:#:{
msg $active Definition of: $+ $replace($1-,$chr(32),+) http://www.google.com/search?q=define: $+ $replace($1-,$chr(32),+)
}
on *:TEXT:-amazon *:#:{
msg $active Amazon.com search for: $+ $replace($2-,$chr(32),+) http://www.amazon.com/exec/obidos/external-search/102-9490607-5599300?keyword= $+ $replace($1-,$chr(32),+) $+ &mode=blended&Search=Go
}
Not By Me
Wikify IRC links (Allows you to click text in brackets)
;Adapted from Wikilinks 1.3.1 by CXI
;http://en.wikipedia.org/wiki/Wikipedia:Scripts#Wikilinks_1.3.1
on ^$*:HOTLINK:/[\{\}\[\]]{2}/:#,?,=:{ return }
on *:HOTLINK:*:#,?,=:{
tokenize 32 $remove($1,[[,]],{{,}})
if ($regex($hotline,(.*\[\[(.*? $+ $1 $+ .*?)(\|.*)?\]\].*|.*(\{\{.*? $+ $1 $+ .*?)\}\}.*))) {
url %wiki-uopt $+(http://lostpedia.com/wiki/Special:Search?search=,$replace($gettok($regml(2),1,124),{{,Template:,$chr(32),_))
}
}