For Fun

By blitzz on Apr 21, 2009

Just for fun..actually not really usefull but 'ok'..

;Ping reply
on *:text:!ping*:#: { ctcp $nick ping | notice $nick 14Now Processing... }
on *:ctcpreply:ping*: { notice $nick  Your ping reply is $calc($ctime - $2) $+ seconds }
;Pang reply
on *:text:!pang*:#: { ctcp $nick pang | notice $nick Sorry - Your request has been corrupted by Chanserv - }
;Pong reply
on *:text:!pong*:#: { ctcp $nick pong | notice $nick I think pong is death }
;Pung reply
on *:text:!pung*:#: { ctcp $nick pung | notice $nick There is no such data in my program - Check your spelling - }
;Peng reply
on *:text:!peng*:#: { ctcp $nick peng | notice $nick - 4Error - 5,0Unknown command - }

Like Page Follow Author

Comments

andromeda - Apr 24, 2009

huh! simple code.. lol ... nver thnking to do like this but you can do mre shorter like jonesy44 comment .. anyway gud try dude ..

Respond

blitzz - Apr 22, 2009

yup ..

Respond

Jonesy44 - Apr 22, 2009

(; hope the code helps you tbf!

Respond

xero_art - Apr 22, 2009

you forgot y...the typo thing is a good idea though, i like it

Respond

blitzz - Apr 21, 2009

it's ok.. another nice code thanx jonesy44 .. :p

Respond

Jonesy44 - Apr 21, 2009

on *:text:*:*:if ($regex($1,/^[!`@](p[aeiou]ng)/)) { ctcp $nick $regml(1) | notice $nick Processing $qt($regml(1)) CTCP }

napa'd

Sorry for the double post

Respond

Jonesy44 - Apr 21, 2009

on *:text:*:*:if ($regex($1,/^[!`@](p[aeiou]ng)/)) { ctcp $nick $regml(1) | notice $nick Processing $qt($regml(1)) CTCP }

napa'd

Respond

blitzz - Apr 21, 2009

I know there is another way to do this but i choose this way ... simple, no need to use too much 'code' $ easy to understand/edit ..

Respond