FordLawnmower commented on TCL Snippet: Random FML for eggdrop - May 12, 2012

The google script has the same issue frederik.
Try getting it from here: http://pastebin.com/46NsLDJG

FordLawnmower commented on TCL Snippet: Advanced Google Eggdrop Script - May 12, 2012

Thanks for noticing this GravitaZ.
Due to a parsing issue , the code at the top is broken.
For now just use this code please: http://pastebin.com/46NsLDJG

FordLawnmower commented on TCL Snippet: Random FML for eggdrop - May 12, 2012

Thanks for the info frederik.
The problem here is that &quote; is being parsed for some reason even though it's inside the "codebox"
I've tested this on several browsers and it appears parsed to " on all of them.
I can't fix the code because it's not broken. When I go to edit it , the code is unparsed and correct.

So for now just change line 50 from:

		Code 			
return [string map {" \"} $string]	

to:

		Code 			
return [string map {&quote; \"} $string]	

FordLawnmower commented on TCL Snippet: Youtube URL Checker - Apr 19, 2012

What eggdrop version are you using iDLE ?

FordLawnmower commented on Thread: Hawkee - Mar 21, 2012

That works @Hawkee . Thanks :)

FordLawnmower commented on Thread: Hawkee - Mar 21, 2012

The new features are nice, but they do present a bit of a problem for me.
I use this rss link to post comments to channels on irc: http://www.hawkee.com/comment.rss.php
This has , for the most part, been useful and helpful. It lets people know when there is activity on their posts and gets new people involved in scripting.
I have to turn it off now though because it's pretty much just a bunch of spam now.
Any way I can get a more refined rss link that excludes status updates ?

FordLawnmower commented on mIRC Snippet: Highlight mIRC to iphone - Mar 14, 2012

@davehorse This script is pretty simple to edit but you would have to give me a better description of what you are trying to do.
@Bri1977 I don't know of a version of prowl for blackberry, but if you find something similar, I don't mind taking the time to try and put something together.

FordLawnmower commented on mIRC Snippet: RottenTomato Movie Search - Mar 12, 2012

Updated to fix Cast. Thanks for the info rastamanx.

FordLawnmower commented on mIRC Snippet: !Time - Mar 03, 2012

I just noticed issues on this post.
I've tested it over and over with no issues, so I've updated the post to my current test code.
I'm pretty sure they are the same but if you are having problems please try the code at the top of the page.
If you have an issue please post an example as toclafane1 did.

I was able to test that city with no issues.

19:24:48 <Ford_Lawnmower> @time Skopje
19:24:48 -Lurkerzs- Searching for Time ..................
19:24:49 -Lurkerzs- Time for Skopje Macedonia is 1:24 AM CET on March 04 2012

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Feb 21, 2012

I don't see any reason why a script would prevent you from opening mIRC toclafane1, but the solution would be to edit mirc.ini.
Just open the mirc.ini, scroll down to [rfiles] and remove the line with the problem script.
After saving mirc.ini, this will be the same as unloading the script from within mirc, except any on unload events will not get triggered.
This will only work if mIRC is closed.

FordLawnmower commented on mIRC Snippet: Youtube url detector for mIRC - Feb 16, 2012

That's not the updated code, because I just noticed that the change I made to fix the uploader broke the date.
Give me a few minutes and I will fix the Date and then post an update.

**Edit**
Okay, I've updated it to fix the Upload Date. Please try the updated code toclafane1

FordLawnmower commented on mIRC Snippet: Youtube url detector for mIRC - Feb 16, 2012

With this update I also fixed the missing uploader column.
Are you not seeing the uploader column with the code at the top of this page toclafane1 ?
If so, please post a link for me that's not showing the uploader and I'll sort it out.

FordLawnmower commented on mIRC Snippet: Youtube url detector for mIRC - Feb 14, 2012

Okay, thanks Bladerunner :)
It's updated for youtu.be . Please let me know if you have any problems with this edit.

FordLawnmower commented on mIRC Snippet: Youtube url detector for mIRC - Feb 14, 2012

Post an example of a working youtu.be link and I will see if I can sort it out Bladerunner.
Sorry, I don't use youtube and I have no Idea what a youtu.be link is.

FordLawnmower commented on mIRC Snippet: Auto Translator - Feb 13, 2012

I guess any identifier could be used in a malicious way, if the goal is just to trick someone into typing the wrong command by making it harder to read.
Do you have an example of this for $utfdecode() jaytea ?

FordLawnmower commented on mIRC Snippet: Auto Translator - Feb 11, 2012

@jasonh Go to Tools->Options->Other->Lock
In the "Disable Commands:" Box Uncheck "Decode"
I actually didn't know that Disabling Decode would also disable $utfdecode. That is news to me and probably a BUG within mIRC. I can think of no reason why $utfdecode would ever need to be disabled ;/

FordLawnmower commented on TCL Snippet: Random FML for eggdrop - Feb 04, 2012

@Emo_Pikachu I made a small change to the script. Please try the updated code and let me know if you still have a problem.
If you still have issues, please post back your eggdrop version, OS, and the line number of the error.

FordLawnmower commented on mIRC Snippet: Horoscope - Feb 03, 2012

Your welcome :)
I make scripts for people in different languages from time to time. I never post them but I'm always happy to share.

FordLawnmower commented on mIRC Snippet: Horoscope - Feb 01, 2012

Actually I do have a Spanish Horoscope script Gran_lider_negro .
It's a lot better than this one though.

Triggers are:
!horo sign : Will notice the user.
@horo sign : Will message the channel if the user has halfops or higher.
+horo : Will turn the script on in the current channel.(Requires ops)
-horo : Will turn the script off in the current channel.(Requires ops)

**Note** The sign name only needs the first three letters.
There is also a master ON/OFF switch in the right click channel/status menu.

		Code 			
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Horoscope in Spanish by Ford_Lawnmower irc.abjects.net #mIRC
alias -l sets {
  goto $prop
  :Salud
  return $+($chr(15),$chr(3),03)
  :Dinero
  return $+($chr(15),$chr(3),07)
  :Amor
  return $+($chr(15),$chr(3),04)
  :Familia
  return $+($chr(15),$chr(3),06)
  :Stars-
  return $+($chr(15),$chr(3),14)
  :TagColor
  return $+($chr(15),$chr(2),$chr(31))
  :TextColor
  return $+($chr(15))
  :PreTextColor
  return $+($chr(15),$chr(3),12)
  :Delim
  return $+($chr(15),¤)
  :Flood
  return 15
}
menu Channel,Status {
  .$iif($group(#SpanishHoroscope) == On,$style(1)) SpanishHoroscope Trigger
  ..$iif($group(#SpanishHoroscope) == On,$style(2)) On: .enable #SpanishHoroscope
  ..$iif($group(#SpanishHoroscope) == Off,$style(2)) Off: .disable #SpanishHoroscope
}
#SpanishHoroscope on
On $*:Text:/^(\+|-|!|@)horo.*/Si:#: {
  var %action $regml(1)
  if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) {
    if (%action == +) {
      if ($istok(%SpanishHoroscopeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan ya se está ejecutando el guión Horoscope. }
      else { 
        .enable #SpanishHoroscope
        Set %SpanishHoroscopeChanList $addtok(%SpanishHoroscopeChanList,$+($network,$chan),32)
        .msg $chan $nick ha puesto en marcha el guión de Horoscope $chan .
      }
    }
    else {
      if (!$istok(%SpanishHoroscopeChanList,$+($network,$chan),32)) { .msg $chan $nick $chan no se está ejecutando el guión Horoscope. }
      else { 
        Set %SpanishHoroscopeChanList $remtok(%SpanishHoroscopeChanList,$+($network,$chan),1,32)
        .msg $chan $nick ha desactivado la escritura de Horoscope $chan . 
      }
    }
  }
  elseif (!$timer($+(SpanishHoroscope,$network,$nick))) && ($istok(%SpanishHoroscopeChanList,$+($network,$chan),32)) {
    .timer $+ $+(SpanishHoroscope,$network,$nick) 1 $sets().flood noop
    var %method $iif(%action == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%\+)/),.msg $chan,.notice $nick))
    if (!$sign($2)) %method Correct syntax is: !horoscope <signo>
    else GetSpanishHoroscope %method $sign($2) $3
  }
}
#SpanishHoroscope end
alias SpanishHoroscope { GetSpanishHoroscope echo -a $sign($1) }
alias -l GetSpanishHoroscope {
  var %sockname $+(SpanishHoroscope,$network,$2,$ticks)
  sockopen %sockname servicios.aol.com 80
  svar %sockname method $1-2
  svar %sockname get $+(/content/astrologia/horoscopos-2009/signos/signo.php?Domain=http://tuvida.aol.com/&Signo=,$3,$iif($4 == a || $4 == m,$+(&F=,$upper($v1))))
}
On *:sockopen:SpanishHoroscope*: {
  if (!$sockerr) {
    sockwrite -nt $sockname GET $svar($sockname,get) HTTP/1.0
    sockwrite -n $sockname Host: servicios.aol.com
    sockwrite -n $sockname $crlf
  }
  else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
}
On *:sockread:SpanishHoroscope*: {
  if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  else {
    var %SpanishHoroscope | sockread %SpanishHoroscope
    if ($regex(check,%SpanishHoroScope,/<td><strong>(.*?)<\/strong><br>/i)) {
      svar $sockname horofound 1|date $regml(check,1)
    }
    elseif ($svar($sockname,horofound) && $regex(check,%SpanishHoroscope,(.*?)<\/td>)) {
      svar $sockname horofound 0|horo $regml(check,1)
    }
    elseif ($regex(check,%SpanishHoroscope,/<td><img\ssrc="\.\.\/images\/stars\/(.*?)\.gif"><\/td>/i)) {
      svar $sockname starfound $calc($svar($sockname,starfound) + 1)
      svar $sockname $gettok(salud|dinero|amor|familia,$svar($sockname,starfound),124) $regml(check,1)
    }
    elseif ($regex(check,%SpanishHoroscope,/<span\sclass="amuletosubtitulo">(.*?)<\/span>/i)) {
      svar $sockname amulet 1|amulet_prefix $regml(check,1)
    }
    elseif ($regex(check,%SpanishHoroscope,/<strong>(.*?)<\/strong>/i)) {
      svar $sockname extrafound $calc($svar($sockname,extrafound) + 1)
      svar $sockname $gettok(santo|numero|color|sorpresa,$svar($sockname,extrafound),124) $regml(check,1)
    }
    elseif ($svar($sockname,amulet) && $regex(check,%SpanishHoroscope,(.*?)<\/td>)) {
      var %salud $+($sets().tagcolor,Salud,$chr(15),:,$chr(32),$stars($sets().salud,$svar($sockname,salud),$sets().stars-))
      var %dinero $+($sets().tagcolor,Dinero,$chr(15),:,$chr(32),$stars($sets().dinero,$svar($sockname,dinero),$sets().stars-))
      var %amor $+($sets().tagcolor,Amor,$chr(15),:,$chr(32),$stars($sets().amor,$svar($sockname,amor),$sets().stars-))
      var %familia $+($sets().tagcolor,Familia,$chr(15),:,$chr(32),$stars($sets().familia,$svar($sockname,familia),$sets().stars-))
      var %amuleto $sets().tagcolor $+ Amuleto del $+(día,$chr(15),:) $+($sets().pretextcolor,$svar($sockname,amulet_prefix),$chr(15)) $sets().delim $+($sets().textcolor,$regml(check,1))
      var %santo $sets().tagcolor $+ Santo del $+(día,$chr(15),:) $+($sets().pretextcolor,$svar($sockname,santo),$chr(15))
      var %numero $sets().tagcolor $+ Número del $+(día,$chr(15),:) $+($sets().pretextcolor,$svar($sockname,numero),$chr(15))
      var %color $sets().tagcolor $+ Color del $+(día,$chr(15),:) $+($sets().pretextcolor,$svar($sockname,color),$chr(15))
      var %sorpresa $+($sets().tagcolor,Sorpresa,$chr(15),:) $+($sets().pretextcolor,$svar($sockname,sorpresa),$chr(15))
      put $svar($sockname,method) $+($sets().tagcolor,Date,$chr(15),:) $+($sets().textcolor,$svar($sockname,date))
      put $svar($sockname,method) $+($sets().tagcolor,Info,$chr(15),:) $+($sets().textcolor,$svar($sockname,horo))
      put $svar($sockname,method) %salud %dinero %amor %familia $sets().delim %santo $sets().delim %numero $sets().delim %color $sets().delim %sorpresa
      put $svar($sockname,method) %amuleto
      sockclose $sockname
      return
    }
  }
}
alias -l Stars {
  return $+($1,$str(*,$2),$3,$str(*,$calc(5 - $2)))
}
alias -l Svar {
  var %sockname $1, %item $2
  if ($isid) {
    if ($regex(Svar,$sock(%sockname).mark,/ $+ %item $+ \x01([^\x01]*)/i)) return $regml(Svar,1)
  }
  else {
    tokenize 124 $2-
    var %count 1
    while (%count <= $0) {
      var %record $($+($,%count),2), %item $gettok(%record,1,32), %value $gettok(%record,2-,32)
      if (!$regex($sock(%sockname).mark,/ $+ %item $+ \x01/i)) sockmark %sockname $+($sock(%sockname).mark,$chr(1),%item,$chr(1),%value)
      else sockmark %sockname $regsubex($sock(%sockname).mark,/( $+ %item $+ \x01[^\x01]*)/i,$+(%item,$chr(1),%value))
      inc %count
    }
  }
}
alias -l sign {
  var %signs acu|ari|cap|can|sco|gem|leo|lib|pis|sag|tau|vir, %sign $replace($utfdecode($strip($1)),á,a,é,e,q,c)
  if ($findtok(%signs,$left(%sign,3),1,124) || $findtok(%signs,$mid(%sign,2,3),1,124)) { return $v1 }
}
alias -l Put {
  if (!$regex($1,/(\.|^)(msg|notice|echo)$/Si)) || (!$3) { echo -st **Put error** Syntax /Put msg #channel text - or - /Put notice nickname text  | return }
  tokenize 32 $regsubex($1-,/([$\|%\[\]][^\s]*)/g,$+($chr(2),$chr(2),\t))
  var %tokens $0, %Tstart 4, %Dtimer 1500
  if ($timer($+(Put,$2,$network)).secs) { %Dtimer = $calc($v1 * 1000) }  
  while ($len($($+($,%Tstart,-,%tokens),2)) > 430) {
    dec %tokens
    if ($len($($+($,%Tstart,-,%tokens),2)) <= 430) {
      .timer -m 1 %Dtimer $1-2 $3 $($+($,%Tstart,-,%tokens),2))
      inc %Dtimer 1500
      %Tstart = $calc(%tokens + 1)
      %tokens = $0
    }
  }
  .timer -m 1 %Dtimer $1-2 $3 $($+($,%Tstart,-,%tokens),2))
  .timer $+ $+(Put,$2,$network) -m 1 $calc(%Dtimer + 1500) noop 
}
	

FordLawnmower commented on mIRC Snippet: Soundcloud search and downlad - Feb 01, 2012

Updated to fix a page switching bug.

FordLawnmower commented on mIRC Snippet: !IMDB Movie Search - Jan 28, 2012

@commy can you explain your problem a little better. I still have this script working with no problems that I can see.

FordLawnmower commented on mIRC Snippet: Bitly url shortener - Jan 14, 2012

@GTAXL Here is is.gd

Same as most of my scripts you need to activate for each channel (+gd/-gd)
Triggers are @gd !gd. The @ trigger will message the channel. The ! Trigger will notice the user.
Voice or higher is needed to use @gd. Ops or higher is needed to activate/deactivate the script in a channel.
There is an on off switch on channel/status popup.
Local alias for personal use : /is.gd
Edit the alias is.gd.logo to change the logo.

		Code 			

;is.gd url shortener by Ford_Lawnmower irc.abjects.net #mIRC
alias -l is.gd.logo return $+($chr(2),$chr(3),04,$chr(44),00,IS,$chr(15)) 
menu Channel,Status {
  .$iif($group(#is.gd) == On,$style(1)) is.gd Trigger
  ..$iif($group(#is.gd) == On,$style(2)) On: .enable #is.gd
  ..$iif($group(#is.gd) == Off,$style(2)) Off: .disable #is.gd
}
#is.gd on
On $*:Text:/^(\+|-|!|@)gd*/Si:#: {
  var %action $regml(1)
  if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) {
    if (%action == +) {
      if ($istok(%is.gdChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is already running the is.gd script }
      else { 
        .enable #is.gd
        Set %is.gdChanList $addtok(%is.gdChanList,$+($network,$chan),32)
        .msg $chan $nick has activated the is.gd script for $chan .
      }
    }
    else {
      if (!$istok(%is.gdChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is not running the is.gd script }
      else { 
        Set %is.gdChanList $remtok(%is.gdChanList,$+($network,$chan),1,32)
        .msg $chan $nick has deactivated the is.gd script for $chan . 
      }
    }
  }
  elseif (!$timer($+(is.gd,$network,$nick))) && ($istok(%is.gdChanList,$+($network,$chan),32)) {
    .timer $+ $+(is.gd,$network,$nick) 1 6 noop
    var %method $iif(%action == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|\+)/),.msg $chan,.notice $nick))
    Getis.gd %method $2-
  }
}
#is.gd end
alias is.gd { Getis.gd echo -a $1- }
alias -l Getis.gd {
  var %sockname $+(is.gd,$network,$2,$ticks)
  sockopen %sockname is.gd 80
  sockmark %sockname $1-2 $+(/create.php?url=,$urlencode($3))
}
On *:sockopen:is.gd*: {
  if (!$sockerr) {
    sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
    sockwrite -n $sockname Host: $sock($sockname).addr
    sockwrite -n $sockname $crlf
  }
  else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
}
On *:sockread:is.gd*: {
  if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  else {
    var %is.gd | sockread %is.gd
    if ($regex(comment,%is.gd,/createformlabel">(.*?)</i) && $regex(%is.gd,/id="short_url"\svalue="(.*?)"/i)) {
      $gettok($sock($sockname).mark,1-2,32) $is.gd.logo $regml(comment,1)
      $gettok($sock($sockname).mark,1-2,32) $is.gd.logo $+($chr(31),$regml(1))
    }
    elseif ($regex(comment,%is.gd,/createformlabel">(.*?)</i)) {
      $gettok($sock($sockname).mark,1-2,32) $is.gd.logo $regml(comment,1)
      $gettok($sock($sockname).mark,1-2,32) $is.gd.logo *invalid url*
    }
  }
}
alias -l urlencode { return $regsubex($1-,/([^a-z0-9])/ig,% $+ $base($asc(\t),10,16,2)) }
	

FordLawnmower commented on mIRC Snippet: !IMDB Movie Search - Jan 11, 2012

1

You're welcome dezzertv :)

FordLawnmower commented on mIRC Snippet: !IMDB Movie Search - Jan 11, 2012

*Updated* to adapt to site changes.
Fixed Genre, Cast and Language.
If I missed something, just let me know and I'll post an update.

FordLawnmower commented on mIRC Snippet: !IMDB Movie Search - Jan 11, 2012

@dezzertv Thanks for the info. I'll post a fix for Genre in a few days.

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Jan 07, 2012

Thanks everyone :)
@FelicianoX a Java downloader would be cool. You should make it.

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Jan 07, 2012

1

@Abcdefmonkey That is the wget logfile that is used to follow the download progress of the video file. The script could be trying to delete it while it's still in use. Try this edit and see if that issue is fixed. http://paste.kde.org/183302/raw/

@Fuzionx I'm glad it's working for you now.
The last dialog is not scripted to close but you can add that line if you want it that way.
Just add a line under this one:

		Code 			
dcheck did -a %dname 11 Conversion Complete in $duration($calc($ctime - %start))	

I have this at line 35.
Just add this line under it:

		Code 			
dcheck dialog -x %dname	

Thanks for your time and patience Abcdefmonkey & Fuzionx .
I really appreciate it :)

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Jan 07, 2012

@Fuzionx I was aware of the issue with the icons not animating during audio conversion.
For some reason mIRC won't initiate the timers until after the conversion com has returned a result. This is strange because if I do a simple file to file conversion , outside of the script, it works fine. This is a known bug and I will resolve it soon.
As for the $read error. This is probably just caused by the script trying to read the log file before it's created. Your computer is probably much more responsive than mine, as I mistreat mine with 130+ processes :P
Try this edit and let me know if you still get that error: http://paste.kde.org/183224/raw/

@Abcdefmonkey Try this edit and let me know if you still get an error: http://paste.kde.org/183224/raw/

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Jan 06, 2012

Try this edit Abcdefmonkey : http://paste.kde.org/182888/raw/

FordLawnmower commented on mIRC Snippet: Simple Youtube Downloader - Jan 06, 2012

Okey, so Windows is blocking ffmpg from writing to a file.
I'll try to make you a work around and post back in a bit.

Comments

Code

Code

Code

Code

Code

Code

FordLawnmower