Comments

Typo
Comments: 224
 

Was grabbing this to give to someone and notices it could use some updating so I updated to simplify code with some $v1's, and a couple other small changes. It works exactly the same in every way, just less code is all.

Now nobody can say I haven't done anything on Hawkee lately. LOL

Typo

Typo
Comments: 224
 

Purcell had the right idea except he should be using elseif instead of else and if's and he should be using $1- not $1- and furthermore you should strip $1 so that if the person triggering is using a color talker it will still work.
I will use /tokenize 32 $strip($1-) to make $1 be stripped thru the whole script so that I dont have use a $strip call in ever if statement.
I also noticed a typo in the christmas greeting, it was missing a ctrl+b and ctrl+k.
Code edited:

Code:

on *:text:*:#:{   tokenize 32 $strip($1-)   if ($1- == !xmas) {     msg $chan 4M3E4R3R4Y      msg $chan 3C4H3R4I3S4T3M4A3S4!3!   }   elseif ($1- == !easter) {     msg $chan 5H6A13P9P4Y __()()     msg $chan ________(o.o)     msg $chan 3E4A12S10T9E7R13! (( . ))   }   elseif ($1- == !halleween) { msg $chan 7,1 HAPPY HALLOWEEN! Trick or Treat!  }   elseif ($1- == !birthday) { msg $chan 12H3A4P5P7Y 13B6I9R8T14H2D11A10Y12 $2- 4! 9! 7! }   elseif ($1- == !newyear) { msg $chan 4,1*\o/* 13*\o/* 8HAPPY NEW YEAR! 7*\o/* 12*\o/* } }

Good luck.

Typo
Comments: 224
 

`Green said:

Quote:

i don't know if i can make a word counter but i made a character counter :)

You can count words with:

Code:

$numtok(TEXT,32)

For instance, if you type the following in mirc:

Code:

//var %Words = How many words is this? | echo -a $qt(%Words) has $numtok(%Words,32) words.

You will see:

Quote:

"How many words is this?" has 5 words.

Good luck.

Typo
Comments: 224
 

Someone voted this like a 2 or 3. It was at like 7.6 with 3 votes and is now at 6.0 with 4 votes.

This wouldn't bother me except that this obviously dissatisfied person takes the time to rate my script crappily but can't find it in them to share with the rest of us what it is they find so wrong with with the code.

Even if the score was only 7.0 and is now 6.0 that means that the anon user only voted 3 by my rather hasty calculations and that just seems rude in my opinion.

I know its not a nice script and is just a silly ans useless game and I will even admit the coding could probably be cleaned up a little more but this seems like a personal dig to me and thats not at all what this site is intended for.

Crap like this makes a lot of people just stop posting and honestly even tho I refuse to let it stop me I completely understand why they let it stop them.

Personally, I vote for a rating system where it shows everyone who rated what how much.

Then maybe we can notice patterns of losers voting out of malice and could then weed them out.

Just my two cents.

Typo
Comments: 224
 

Updated to properly track and reset the amount you are betting to the last amount selected when the credits are reset or the dialog restarted.

Kirby: I would have to use mdx or dcx dialog extensions to get a better looking dialog or to make it look really good I would need to do it using picwins. I'm not sure I want to put that kind of time into this script but it is something I am thinking about.

Thanks again everyone for the comments, ratings and likes.

Typo
Comments: 224
 

Thanks for all the comments everyone. I didnt even notice I accidently left blueberry in the payout list instead of pineapple, that has been fixed since it's an easy fix, I will address the zero bet later tho it techincally isnt an issue since you cannot win any credits when you bet 0.

If I want it to remember the bet you had it on then I have to add another variable and I was just avoiding doing that so I let it reset the bet to blank upon credits reset. I will fix that one way or the other and upload a screenshot in an hour or two.

Typo
Comments: 224
 

Something I threw together the other day when someone was asking for help on a different one and then didn't need help anymore.

I haven't released anything in so long that I thought why not put this on just for the heck of it.

Enjoy!

Typo
Comments: 224
 

This isnt even usable in its current form. It isn't an alias or anything, it's just code looking for a home and cannot be used as-is.
Your comments need to be on seperate lines to avoid them being processed.
You have bracket mismatches.
You do not need to use "/" in front of commands inside of scripts.
Here is the code with the items above fixed.

Code:

alias NAME_ME {   if ($exists(scripts\moo.mrc) == $true) {                ;if moo.mrc exists...     set %z.sys.moo Available                            ;...set it as available.     if ($script(moo.mrc) == $null) {                      ;if it's not loaded...       if (%z.load.plugins == 1) {                          ;...and plugin loading is enabled...         .load -rs scripts\moo.mrc                          ;...try to load it...         if ($script moo.mrc) == $null) {                    ;...if it's still not loaded...           set %z.sys.moo.loaded failed to load            ;...set status to 'failed to load'         }         else {                                              ;if it was loaded successfully...           set %z.set.sysinfo.moo 1                        ;...make moo.mrc do the sysinfo...           set %z.sys.moo.loaded loaded                    ;...and make moo.mrc show up as loaded.         }       }       else {                                                ;if we don't want to load plugins at start..         set %z.set.sysinfo.moo 0                          ;...do not use moo.mrc for sysinfo...         set %z.sys.moo.loaded not loaded                  ;...and make it show up as 'not loaded'.       }     }     else {       set %z.set.sysinfo.moo 1                          ;if the script is already loaded...       set %z.sys.moo.loaded loaded                      ;...make it show up as such.     }   }   else {     set %z.sys.moo Unavailable                          ;if moo.mrc doesn't exist...     set %z.set.sysinfo.moo 0                            ;...disable moo.mrc sysinfo...     set %z.sys.moo.loaded not loaded                    ;...set it as 'not loaded'...     set %z.sys.moo Unavailable                          ;...and as 'unavailable'.   }   echo %z.pr %z.col.hi $+ moo.mrc %z.col.txt $+ is %z.col.hi $+ %z.sys.moo $+ %z.col.txt $+ , %z.sys.moo.loaded                          ; the line above this shows status, if it's available and/or loaded. }

Good luck.

Typo
Comments: 224
 

I wanted to apologize to anyone waiting for the release of the next update which adds online image searching abilities. Things got really busy for me the past couple months and I haven't had time for any kind of coding till past few days. I will resume the testing for the update very soon and then release it if it's good to go.

Sorry for the delays.

Typo
Comments: 224
 

Good idea brando, I didn't see this post until now or would have done it sooner.

To be honest I'm not sure why the heck I didnt use $true and $false in the first place but hey, if I'm not being goofy then I'm not being me so oh well.

Typo
Comments: 224
 

I love the idea but it doesnt quite perform right.

In some cases the picture didn't fill the fullscreen window and the fullscreen window itself isnt actually fullscreen.

It doesnt maintain the aspect ratio either which makes some pictures look very odd when switched to fullscreen.

I also suggest you make any single key press close the fullscreen window since your not giving it a proper frame with an x like a nrmal window.

I know that this script is a toughie because I had to tackle the same thing when adding the ability to view pictures in fullscreen mode to my ViewPic script. The aspect ratio part alone took me some time to nail and figuring out the proper window paramaters to get the window right was a pain too.

Its a good start but honestly needs work. I love the concept tho.

Good luck.

p.s. If you would like to try out Typos ViewPic to test the fullscreen mode it's posted here on hawkee at http://www.hawkee.com/snippet/4955/ .

Typo
Comments: 224
 

Very awesome. I love seeing projects like this.

Typo
Comments: 224
 

ENGLISH:
Considering this is an english site why not atleast post an english translation?

Just seems rude to me to post something that the majority of the users will not understand.

I'm not saying to make the code itself in both languages but translating the introduction would be a decent idea.

All I know is that if I were posting on a dutch website in english (which I wouldn't do) I would atleast provide the users with a translation they can understand.

DUTCH:
Uitgaande van deze site is een engels waarom niet ten minste een post engels vertalen?

Just lijkt onbeleefd tegen me to post iets waar de meerderheid van de gebruikers zullen niet begrijpen.

Ik zeg niet om de code zelf in beide talen, maar het vertalen van de invoering zou een fatsoenlijk idee.

Alles wat ik weet is dat als ik het posten op een nederlandse website in het engels (die ik niet zou doen) Ik zou minimaal aan de gebruikers met een vertaling die zij begrijpen.

Typo
Comments: 224
 

Not bad.
I was wondering why you didnt try something like this?

Code:

alias duratie { return $replace($duration($strip($1)),wk,week,weeks,weken,day,dag,dags,dagen,hr,uur,uurs,uren,min,minuut,minuuts,minuten,sec,seconde,secondes,seconden) }

That was made to go in remotes btw.

Typo
Comments: 224
 

Your right there, thats why i tried to make it interesting with $r() and $iif(), lol.

Typo
Comments: 224
 

Two things I noticed right off, one is you use $2-5 instead of $2-4 which would allow extra data in since you never check if (!$5).
The second thing is..

Code:

if ($len($2) == 4) && ($2 isnum) && ($len($3) == 4) && ($3 isnum) && ($len($4) == 4) && ($4 isnum) {

Could be changed to

Code:

if ($len($remove($2-4,$chr(32))) == 12) && ($remove($2-4,$chr(32)) isnum) {

I know its not a lot shorter but it does give you a great example of creative thinking to bring down the amount of ifs you need.

You should also consider checking the input against the file to make sure it doesnt already exist to avoid someone adding the same number a thousand times.

The code in general is a very simple one, almost too much so.

Keep up the coding. :)

Typo
Comments: 224
 

Lmao, you changed the code on me. You get the idea tho.

Typo
Comments: 224
 

You could even use $r() (the same as $random()) to make it a little shorter.
So your code..

Code:

on 1:TEXT:!candy*:#:{   set %candy $rand(1,2)   if (%candy == 1) describe $chan smacks $nick over the head with an iron pan "1,0no candy for you!6"   if (%candy == 2) describe $chan gives $nick a piece of candy }

Could be shortened to..

Code:

on 1:TEXT:!candy*:#: describe $chan $iif($r(1,2) == 2,gives $nick a piece of candy,smacks $nick over the head with an iron pan "1 $+ $chr(44) $+ 0no candy for you!6")

Notice how I had to use the $chr(44) instead of the comma in the color 1,0 part, that was to keep the $iif from treating it as a part of the $iif and therefor failing. The $+'s ofcourse were needed to rebuild 1,0 from 1 $chr(44) 0.
Keep up the coding. :)

Typo
Comments: 224
 

I found an error in my code I think. It seems something is different when you try certain sets.
Your alias's show:
$stdev(1287 19675 13826 95762 1480 26372)
32316.37381
and
$stdev(1287 19675 13826 95762 1480 26372 1287 19675 13826 95762 1480 26372)
32316.37381
Obviously that cannot be tru as theyre very different numbers.
My code returns:
$stdev(1287 19675 13826 95762 1480 26372)
32316.37381
and
$stdev(1287 19675 13826 95762 1480 26372 1287 19675 13826 95762 1480 26372)
22851.127064

Thought you should know..
*Edit*
Couldn't figure out why mine is right some of the time and yet oh so very wrong others but maybe I'll try again later. :) Either way, like I said its been fun so far.

Typo
Comments: 224
 

Nice! Gave it a 7/10 for lack of a 7.5.
I love codes like this, theyre fun to try and figure out. As soon as I saw yours I decided to see how I would have done it and this was what I came up with:

Code:

alias dev {   tokenize 32 $1-   var %numbaavg $calc(($replace($1-,$chr(32),$chr(43))) / $numtok($1-,32)), %numplace 1   while ($abs($calc(($($ $+ %numplace,2)) - %numbaavg))) {     var %resultnum $addtok(%resultnum,$calc($v1 * $v1),43)     inc %numplace   }   return $sqrt($calc((%resultnum) / $numtok($1-,32))) }

And your code was:

Code:

alias stdev {   var %x = 1   while $gettok($1,%x,32) {     var %z = %z $calc(($v1 - $mean($1)) * ($v1 - $mean($1)))     inc %x   }   return $sqrt($mean(%z)) } alias mean return $calc(($replace($1,$chr(32),+)) / $numtok($1,32))

I tested it on a few different number sets such as $stdev(134 566 12983 12 13) while comparing results with your code and it seems to be perfect.

Thanks for giving me something fun to try and wd on yours. I think the main difference is yours is two aliases and mine is only one.

I think it's fun to see things like this done in different ways.