@Hawkee - I was wondering about the code edit boxes for snippets/scripts which don't seem to be read only? I'm finding it a big issue and sometimes have to refresh the page..
Nice little script! Few suggestions, though.
You do not need to add in the "/" for "set"
And you could also make some improvements by using
var %i Eat well, $nick $+ |Don't forget to come back, $nick $+ |East coast dinner time.
and
msg $chan $gettok(%i,$rand(1,$numtok(%i,124)),124)
Keep up the good work. :)
@Hawkee - just wondering, if users uploaded snippets page lists gone now or what?
@RiMaJoy - the problem is here:
#___|___ off
raw *:*: {
haltdef
tokenize 32 $rawmsg
var %_ = hadd -m $4
if ($2 = 311) %_ _id $5-6 $strip($right($8-,-1))
if ($2 = 307) %_ _reg Registered.
if ($2 = 319) %_ _chans $right($5-,-1)
if ($2 = 317) {
%_ _idle $duration($5)
%_ _sign $asctime($6,dd/mm/yy - hh:nn:ss)
}
if ($2 = 313) %_ _own $right($5-,-1)
if ($2 = 318) {
sq $4 $mouse.dx $mouse.dy $active
.disable #___|___
}
}
#___|___ end
Remove the
.disable #___|___
and change
#___|___ off
to
#___|___ on
I had a go at updating myself:
;Youtube advanced search by Ford_Lawmower irc.GeekShed.net #Script-Help
alias -l GetYoutube {
var %MaxResults 3
var %TitleColor $+($chr(3),$chr(2))
var %TextColor $+($chr(2),$chr(3),04)
var %LinkColor $+($chr(3),$chr(31))
var %logo $+($chr(3),14,Y,$chr(3),04,outube) $chr(7)
$1-2 %logo %TitleColor Searching Youtube........
var %sockname $+(YoutubeAdvancedSearch,$network,$2,$ticks), %yt.url $replace($3-,$chr(32),+)
if ($left($3,1) == -) {
if ($3 == -h || !$4) {
$1-2 Syntax is !Youtube search words here. Optionally, you can change the search type by adding a search flag directly after !youtube and before The search word(s)
$1-2 Valid search flags are -n (newest) -o (oldest) -v (view count) -r (rating) . Ex. !Youtube -n jimi hendrix <<-- Will show the 3 newest posts with jimi hendrix in them.
$1-2 You can also use the @ trigger to message the channel if you have halfops or higher. Ex. @Youtube jimi hendrix
return
}
elseif ($3 == -n) { var %SearchType &search_sort=video_date_uploaded }
elseif ($3 == -o) { var %SearchType &search_sort=video_date_uploaded_reverse }
elseif ($3 == -v) { var %SearchType &search_sort=video_view_count }
elseif ($3 == -r) { var %SearchType &search_sort=video_avg_rating }
%yt.url = $replace($4-,$chr(32),+) $+ %SearchType
}
var %yt.url $replace($iif(- isin $3,$4-,$3-),$chr(32),+) $+ %SearchType
sockopen %sockname www.youtube.com 80
sockmark %sockname $1-2 $+(/results?search_type=&aq=f&search_query=,%yt.url,&hl=en) %MaxResults %TitleColor %TextColor %LinkColor %logo
}
menu Channel,Status {
.$iif($group(#Youtube) == On,$style(1)) Youtube Trigger
..$iif($group(#Youtube) == On,$style(2)) On: .enable #Youtube
..$iif($group(#Youtube) == Off,$style(2)) Off: .disable #Youtube
}
#Youtube on
On $*:Text:/^(\+|-|!|@)Youtube.*/Si:#: {
var %action $regml(1)
if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) {
if (%action == +) {
if ($istok(%YoutubeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is already running the Youtube script }
else {
.enable #Youtube
Set %YoutubeChanList $addtok(%YoutubeChanList,$+($network,$chan),32)
.msg $chan $nick has activated the Youtube script for $chan .
}
}
else {
if (!$istok(%YoutubeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is not running the Youtube script }
else {
Set %YoutubeChanList $remtok(%YoutubeChanList,$+($network,$chan),1,32)
.msg $chan $nick has deactivated the Youtube script for $chan .
}
}
}
elseif (!$timer($+(Youtube,$network,$nick))) && ($istok(%YoutubeChanList,$+($network,$chan),32)) {
.timer $+ $+(Youtube,$network,$nick) 1 6 noop
var %method $iif(%action == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%)/),.msg $chan,.notice $nick))
GetYoutube %method $strip($2-)
}
}
#Youtube end
On *:sockopen:YoutubeAdvancedSearch*: {
if (!$sockerr) {
sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
sockwrite -n $sockname Host: www.youtube.com
sockwrite -n $sockname $crlf
}
else { echo -st Socket Error $nopath($script) | youtube.cleanup }
}
On *:sockread:YoutubeAdvancedSearch*: {
if ($sockerr) { echo -st Socket Error $nopath($script) | youtube.cleanup }
else {
var %Youtube | sockread %Youtube
if (No video results isin %Youtube) {
$gettok($sock($sockname).mark,1-2,32) No results were found for your search!
youtube.cleanup
}
elseif ($regex(%Youtube,/data-context-item-title="(.*?)"/i)) hadd -m $sockname title $fix($regml(1))
elseif ($regex(%Youtube,/data-video-ids="(.*?)"/i)) hadd -m $sockname id $regml(1)
elseif ($regex(%Youtube,/dir="ltr">(.*?)<\/a><span class="metadata-separator">(.*?)<span class="metadata-separator">(.*?) views/i)) {
hinc -m $sockname count
var %s $sockname
tokenize 32 $sock(%s).mark
$1-2 $8- $+($5,Title:,$6) $remove($hget(%s,title),<b>,</b>) $+($5,User:,$6) $regml(1) $+($5,Added:,$6) $remove($regml(2),</span>,•) $+($5,Views:,$6) $remove($regml(3),</span>,•) $+($7,http://www.youtube.com/watch?v=,$hget(%s,id))
if ($hget(%s,count) >= $4) youtube.cleanup
}
}
}
On *:sockclose:YoutubeAdvancedSearch*: youtube.cleanup
alias -l youtube.cleanup {
if ($hget($sockname)) hfree $v1
sockclose $sockname
return
}
alias Youtube { GetYoutube echo -a $1- }
alias -l fix { return $regsubex($remove($replace($1-,&,&,","),amp;,<b>,</b>),/&#([0-9]{2});/gi,$chr(\t)) }
[11:47am] <~Stewie> @Youtube Halestorm
[11:47am] <&thunderbolt> Youtube Searching Youtube........
[11:47am] <&thunderbolt> Youtube Title: Halestorm - Bad Romance (cover) HD User: britton stallard Added: 1 year ago Views: 306,257 http://www.youtube.com/watch?v=ZO7NN9w9Z_g
[11:47am] <&thunderbolt> Youtube Title: Halestorm - Daughters of Darkness Lyrics User: denestygg Added: 8 months ago Views: 258,190 http://www.youtube.com/watch?v=3XQ1FB3Rz0g
[11:47am] <&thunderbolt> Youtube Title: Halestorm - I Miss The Misery [Official Video] User: HalestormRocks Added: 5 months ago Views: 2,357,340 http://www.youtube.com/watch?v=YpJAmlnBxoA
@Kiddo96 - I have added an alias: /def ... Will echo it to your active window.
I use FireFox... Also seems I am getting the same issue, but when I re-coded this, I had no issue with it.
Edit: I think I have found the issue, the searching seems to be case sensitive.
[7:43pm] <~Stewie> !define smoke
[7:43pm] <&thunderbolt> Definition: a visible suspension of carbon or other particles in air, typically one emitted from a burning substance and > [7:44pm] <~Stewie> !define Smoke
[7:44pm] <&thunderbolt> No Results have been found for: "Smoke" Maybe the reason for the script not working, when you posted your first comment was because of this reason, I will post a fix around this soon.
Okay another post edit: Updated, so now should be fixed for that issue. > [11:04pm] <~Stewie> !define Smoke
[11:04pm] <&thunderbolt> Definition: a visible suspension of carbon or other particles in air, typically one emitted from a burning substance
[11:04pm] <~Stewie> !define smoke
[11:04pm] <&thunderbolt> Definition: a visible suspension of carbon or other particles in air, typically one emitted from a burning substance
Updated. @mike_12212012 - let me know if there is still a problem.
@Jethro - I don't think he wants the help. :/
Updated with some Flood Protection.... > [1:00am] <~Stewie> !whois Stewie
[1:00am] <&thunderbolt> Nick: Stewie
[1:00am] <&thunderbolt> Real Name: Stewie
[1:00am] <&thunderbolt> Address: I@m.Sexy.Stewie
[1:00am] <&thunderbolt> Channels: (Not Showing Channels >.<)
[1:00am] <&thunderbolt> Using Server: Irc.Torn.Com - Torn's Server
[1:00am] <&thunderbolt> Has Been Signed On For: 9Hours 29Minutes 27Seconds
[1:00am] <&thunderbolt> Has Been Idle For: 2Seconds
[1:00am] <~Stewie> !whois Stewie
[1:00am] thunderbolt This command can only be used once every 20 seconds!
RicJames
How is it irrelevant? I don't see you "encouraging" other's who seek help to write their own. And it's pretty obvious you're sick of me at least asking for help. I realise this was said 2 years ago, but any way. I've seen Jethro to be one of the people who provides the most help on this site. Also great work Ford_Lawnmower. :)
Why the bad use of $chr() ? @Ghost-writer :P