.aclock:/me 0,0___1Eastern0____15,14\14,14__________15,14/ | /me 0,0___1Standard 0__15,14 4,1 $time 15,14 | /me 0,0___1Time0_______15,14/14,14__________15,14\
..Clock1: /me 13,6(\o/)11(\o/)13(\o/)11(\o/)13(\o/) | /me 13,6(/|\)11(/|\)13(/|\)11(/|\)13(/|\) | /me 11,6(\o/)6,6...11 $date 6,6..11(\o/) | /me 11,6(/|\)6,6...11 $time 6,6..11(/|\) | /me 13,6(\o/)11(\o/)13(\o/)11(\o/)13(\o/) | /me 13,6(/|\)11(/|\)13(/|\)11(/|\)13(/|\)
..puppytime:/say 0,0.....5,,,,, | /say 0,0.. 5/))'''((\ | /say 0,0..5{.))12o o5((.} | /say 0,0.. 5\)(_o_)(/ | /say 0,05()4,1 $rtime 5() | /say 0,0..5(_).....(_) | /say 11,5!12!13!8Puppy Time12!13!11!
..BunClock:/me 0,0----------10(Y) | /me 0,0---------10(1213.1210) | /me 0,0-----10()4,1 $rtime 10() | /me 0,0--------10(_)-(_) | /me 0,0....11,5!12!13!8Bunny Time12!13!11!
..Beartime:/me 0,0---------12{4.12-4.12} | /me 0,0---------12( 9Y 12) | /me 0,0-----12()4,1 $rtime 12() | /me 0,0--------12(_)-(_) | /me 0,0....11,9!12!13!12Bear Time12!13!11!
MixedUp Hug {
.set %flipit $$1
.set %fliplen $len(%flipit)
:next
if (%fliplen == 0) goto done
.set %rchar $rand(1,%fliplen)
.set %flipmid $mid(%rchar,1,%flipit)
%lcharlen = %rchar - 1
%rcharlen = %fliplen - %rchar
.set %flipit $left(%lcharlen, %flipit) $right(%rcharlen, %flipit)
.set %flipit $remove(%flipit,$chr(32))
if (%flipmid == $null) { .set %flipmid %chr(32) | goto set }
:set
.set %flipped %flipped $+ %rchar $+ %flipmid
.set %flipped $remove(%flipped,$chr(32))
.dec %fliplen
.unset %flipmid
goto next
:done
.set %flipnick %flipped
if (%coloron. [ $+ [ $chan ] ] == On) { me 1hugs $+ $$1 $+ so by surprise, it mixes them all up 14((( $+ %flipnick $+ 14))) | goto unsetall }
me hugs $+ $$1 $+ so by surprise, it mixes them all up ((( $+ $strip(%flipnick) $+ )))
:unsetall
.unset %flipit %flipped %fliplen %rchar %lcharlen %rcharlen
}
..No Vowel Hug {
set %vowels A a E e I i O o U u
set %i 0
set %thisc
set %nick $snick(1,#)
set %startnick
set %nicklen $len(%nick)
:next
if (%i == %nicklen) goto done
inc %i
set %thisc $mid(%i,1,%nick)
if (%thisc isin %vowels && %i == %nicklen) goto done
if (%thisc isin %vowels && %i != %nicklen) goto next
set %startnick %startnick %thisc
if (%i == %nicklen) goto done
goto next
:done
if (%coloron. [ $+ [ $chan ] ] == On) { me hugs $+ %nick $+ so tight, squeezing the Vowels out of 1((( $+ 10 $+ %startnick $+ 1))) | goto unsetall }
me hugs $+ %nick $+ so tight, squeezing the Vowels out of ((( $+ $strip(%startnick) $+ )))
:unsetall
.unset %vowels %i %thisc %startnick %nicklen
..Froggytime:/me 0,0----------5@..@ | /me 0,0--------3(------) | /me 0,0-----3_(4,1 $rtime 3)_ | /me 0,0------12^^^~~~~~~^^^ | /me 0,0....11,8!12!13!12Froggy Time12!13!11!
Text file Source (historic): geocities.com/southbeach/breakers/Breakers/8178/mirc
geocities.com/southbeach/breakers/Breakers/8178geocities.com/southbeach/breakers/Breakers
geocities.com/southbeach/breakers
geocities.com/southbeach
(to report bad content: archivehelp @ gmail)
|
|
|
|
|