[mIRC Script -- "birthday"]

Hello

 

I wrote the following script for Koach.com

 

To install the script:

 

Open mIRC.exe

Press Alt+R to open the mIRC Scripts Editor

Copy and paste the script

Click OK

 

To use the script:

 

Please read the comments in the script for how to use :-)

 

 

--------------------------------------------------------------------

 

 

 

/*

{

 

 

"birthday"

by Charles "charles" M. (February 2012)

 

 

# Prelude

 

Koach (a hacker) put a list of birthdays (name month/day) on the Koach.com forum.

 

 

# What does this script do?

 

This script attempts to connect to the Koach.com forum to retrieve the list of

birthdays. It then compares each birthday to today's date. If there is a

comparison, it will notify you with the user's birthday.

 

 

# How do I use this script?

 

The script can be used in two ways:

 

Alias: birthday

 

or

 

Popups: Status Window or Channel Window -> Birthday -> Check for Birthdays

 

 

# How do I contact you?

 

charles @ irc.koach.com

 

 

# Version history

 

11/02/2012

 

First public release.

 

 

}

*/

 

 

 

 

/*

**

** Aliases

**

*/

 

 

 

 

; _echo [-eiw] <text>

; Prints text in the active window using the optional colour switch.

;

; The colour switches are as follows:

;

; -e -- error

; -i -- information

; -w -- warning

 

alias _echo {

if ($0) {

var %colour, %switches

if ($active == Status Window) {

%switches = -cegs

}

else {

%switches = -cga

}

 

if (-* iswm $1) {

if (e isincs $1) {

%colour = "ctcp text"

}

elseif (i isincs $1) {

%colour = "info text"

}

else {

if (w isincs $1) {

%colour = "wallops text"

}

else {

%colour = "info text"

}

}

tokenize 32 $2-

}

else {

%colour = "info text"

}

 

echo %switches %colour * $1-

}

}

 

; birthday

;

 

alias birthday {

if ($sock(birthday)) {

sockclose birthday

}

 

set -e %birthdays 0

sockopen birthday www.koach.com 80

.timerbirthday -o 0 28800 birthday

 

if ($show) {

_echo -i Connecting to birthday server

}

}

 

 

 

 

/*

**

** Popups

**

*/

 

 

 

 

menu status,channel {

&Birthday

.&Check for Birthdays: {

birthday

}

}

 

 

 

 

/*

**

** Events

**

*/

 

 

 

 

on *:START: {

if ($version < 7.22) {

_echo -e birthday is designed for mIRC 7.22. It should work on your $&

mIRC version $+($chr(40), $version, $chr(41)) but it is untested $&

and may act strange.

}

 

birthday

}

 

 

 

 

/*

**

** Socket events

**

*/

 

 

 

 

on *:SOCKOPEN:birthday: {

if ($sockerr > 0) {

_echo -e Error while connecting to birthday server

return

}

 

var %% = sockwrite -n birthday

 

%% GET /forum/index.php?/topic/328-current-birthday-list/ HTTP/1.1

%% Accept: */*

%% Host: www.koach.com

%% Connection: close

%%

}

 

on *:SOCKCLOSE:birthday: {

if ($sockerr > 0) {

_echo -e Error while disconnecting from birthday server

return

}

}

 

on *:SOCKREAD:birthday: {

if ($sockerr > 0) {

_echo -e Error while reading data from birthday server

return

}

 

var %data

sockread %data

 

while ($sockbr > 0) {

tokenize 32 %data

 

if (HTTP/1.?* iswm $1) {

if ($2 != 200) {

_echo -e Error while connecting to birthday server

sockclose birthday

}

}

elseif (*cached*Date Nick* iswm $1-) {

sockmark birthday 1

}

else {

if ($sock(birthday).mark) {

if ($regex(birthday, $1-, /0?(\d+)\/0?(\d+)\S*([^<]+)/)) {

if ($+($regml(birthday, 1), /, $regml(birthday, 2)) == $asctime(m/d)) {

beep

inc %birthdays

_echo -w It's $+($regml(birthday, 3), 's) birthday!

}

}

else {

if (*</div>* iswm $1-) {

sockmark birthday

_echo -i Finished checking for birthdays. Found: %birthdays

unset %birthdays

}

}

}

}

 

if ($sockname) {

sockread %data

}

}

}

 

 

 

 

; EOF

[Oysters Kilpatrick Recipe]

February 8, 2012

 

Hello, World!

 

I'm not much of a chef, but I gave it a go. :-)

 

--------------------------------------------------------------------------------

 

This recipe serves one person.

 

 

Ingredients:

 

Half a dozen oysters (I recommend Sydney Rock)

One piece rindless bacon

3 tablespoons tomato sauce

4 tablespoons worcestershire sauce

50 grams (~1.7 ounces) parmesan cheese

One lime and/or lemon

50 grams (~1.7 ounces) parsley

A few pieces of mint

Salt and black peppercorn

One bag rock sea salt

 

 

Preparation:

 

Preheat oven to 220 degrees celcius (428 degrees fahrenheit)

Shuck oysters, if necessary

Finely dice bacon

Grate parmesan cheese, if necessary

Chop parsley, if necessary

Blend tomato and worcestershire sauce in bowl to create kilpatrick sauce

Microwave lemon and/or lime for 20 seconds, roll and cut into wedges

 

Line oven tray with rock salt, place oysters on top

Sprinkle bacon on oysters

Drizzle kilpatrick sauce on oysters, season with salt and black peppercorn

Sprinkle parmesan cheese on oysters

 

 

Cooking:

 

Cook for 6 to 8 minutes until bacon is crisp and parmesan cheese is browned

 

 

Final touches and plating:

 

Sprinkle parsley on oysters

Serve on a bed of rock sea salt, with lemon and/or lime wedges and mint

 

 

Comments, flames, questions and suggestions welcome.