This script is no longer working due to the site "http://rickcreation.com/rickwalton/index.htm/curricul/lanimals.htm" not existing anymore.
Tried your version, while it's nice, the "you're out of stamina" parts doesn't seem to work.
If I have like 2 stamina left, and I use an attack that costs 4 stamina next turn, instead of telling me "you're out of stamina", it just goes ahead and let's me attack and then afterwards it says "you have -2 stamina".
And it just keeps going like that into further negative stamina.
Fix pls?
It seems to have some issues with the inches numbers though, and I don't know why.
In your example the current inches of 29.903294 and the largest erection of 33.977706 is different.
For me, the current one is always the same as the largest one, everytime.
And it grows each time I attack someone, updating both the current and the largest to the exact same number growth each time.
Example:
[02:03] * CookieBOT slaps Kaitou[Kid] with his e-Peen0r which is 4.474763 inches (11.365898 cm) erect! Largest erection ever was 4.474763 inches (11.365898 cm)!
[02:03] * CookieBOT slaps kyuubisubs with his e-Peen0r which is 4.475992 inches (11.36902 cm) erect! Largest erection ever was 4.475992 inches (11.36902 cm)!
[02:06] * CookieBOT slaps Kaitou[Kid] with his e-Peen0r which is 4.486145 inches (11.394808 cm) erect! Largest erection ever was 4.486145 inches (11.394808 cm)!
[02:06] * CookieBOT slaps AriGold|Away with his e-Peen0r which is 4.486591 inches (11.395941 cm) erect! Largest erection ever was 4.486591 inches (11.395941 cm)!
[02:29] * CookieBOT slaps AriGold|Away with his e-Peen0r which is 4.560373 inches (11.583347 cm) erect! Largest erection ever was 4.560373 inches (11.583347 cm)!
Anyone know how to correct this or maybe this is how it's supposed to be?
I'm not a scripting pro or anything, so I might be missing something lol :P
Something like this maybe
on *:text:!epenis *:#: {
if ($2 ison $chan) {
var %up = $uptime(system,3)
var %in = $sqrt($calc(0.0005 * %up))
var %cm = %in * 2.540
if ((%ePenis.record !isnum) || (%ePenis.record < %up)) {
set %ePenis.record %up
}
var %r.in = $sqrt($calc(0.0005 * %ePenis.record))
var %r.cm = %r.in * 2.540
%in = $round(%in,50)
%cm = $round(%cm,50)
%r.in = $round(%r.in,50)
%r.cm = $round(%r.cm,50)
describe $chan slaps $2 with his e-Peen0r which is %in inches ( $+ %cm cm) erect! $& Largest erection ever was %r.in inches ( $+ %r.cm cm)!
}
else {
msg $chan You can't attack someone who isn't here.
}
}
on *:exit:{
if ((%ePenis.record !isnum) || (%ePenis.record < $uptime(system,3))) {
set %ePenis.record $uptime(system,3)
}
}
Oh btw, you should make a trigger like this with http://dumbtweets.com as well...
so when you type @dumbtweets it will msg the channel with a random tweet from that site.
would also be cool with a script like that for http://failblog.org
No problem, Jethro_ thanks for having a look at it.
Weird though, cause I keep getting stuff like this:
<me> !fml
<CookieBOT> Today, I found out the reason I can't get a job. FML
<me> !fml
<CookieBOT> Today, I had my 21st birthday party. FML
I mean its like they are incomplete, missing the punchline or something?
the fmylife.com site must have updated/changed something on its site, cause recently this script have been acting weird. It cuts out the beginning with "Today" and some more and leaves only like the 2nd half of each FML, or the other way around. It only leaves the first half. So it gets cut off.
I've had no problems with it before, so seems they must have changed something with their site?
The fml script stopped working since yesterday.
I guess its cause the adress "http://www.rscript.org/lookup.php?type=fml" ain't up and running anymore?!
thanks, Jethro_
your version works great.
I changed it so that the !fml is the msg one, and the @fml and .fml are the notices ones though.
by the way, I tried to modify your code to work with thathigh.com, but couldnt get it to work. Can you help me out? I just changed all the FML to TH, and added the adress to thathigh.com and the /random etc.
On $*:Text:/^([!.@])TH$/Si:#:{
if ($sock(TH.)) sockclose $v1
sockopen TH. thathigh.com 80
sockmark TH. $iif($regml(1) = !,.msg #,.notice $nick)~$&
$+($chr(3),1,$chr(40),$chr(3),2,ThatHigh,$chr(3),1,$chr(41))
}
On *:SOCKOPEN:TH.:{
sockwrite -n $sockname GET /random HTTP/1.1
sockwrite -n $sockname Host: thathigh.com $+ $str($crlf,2)
}
On *:SOCKREAD:TH.:{
if (!$sockerr) {
var %th | sockread %th
if (Text:* iswm %th) {
$gettok($sock(TH.).mark,1,126) $&
$replace($v2,Text:,$gettok($sock(TH.).mark,2,126))
sockclose TH.
}
}
}