Talker system.

By Aurora801 on Jul 01, 2009

Talker system. Paste in Remotes.

#Screamer off

on *:input:*:{

  if (/ !isin $left($1,1)) { 

    if (! !isin $left($1,1)) {

      haltdef 

      say 15,01..:::4,1 $+ $1- $+ 15,01:::..

    }

  }

}

#Screamer end

#HellTalker off

on *:input:*:{

  if (/ !isin $left($1,1)) { 

    if (! !isin $left($1,1)) {

      haltdef 

      say 14,01.15,01.00,01:15,01:14,01:06,01 $+ $1- $+ 14,01:15,01:0,1:15,1.14,1.

    }

  }

}

#HellTalker end

#Wahoo off

on *:input:*:{

  if (/ !isin $left($1,1)) { 

    if (! !isin $left($1,1)) {

      haltdef 

      say 14,01.15,01.00,01:15,01:14,01:4,1(6,1(7,1(8,1(9,1(06,01 $+ $1- $+ 9,1)8,1)7,1)6,1)4,1)14,01:15,01:0,1:15,1.14,1.

    }

  }

}

#Wahoo end

#DefCon off

on *:input:*:{

  if (/ !isin $left($1,1)) { 

    if (! !isin $left($1,1)) {

      haltdef 

      say 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1«0,1 $+ $1- $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°

      haltdef 

    }

  }

}

#DefCon end

#Krewl off

on *:input:*:{

  if (/ !isin $left($1,1)) { 

    if (! !isin $left($1,1)) {

      haltdef 

      say 14©15º0°9¨4 $1- 9¨0°15º14©

    }

  }

}

#Krewl end

#Talker.v2 off

on *:INPUT:*: {

  if (/* !iswm $1) && (!$inpaste) && (!$ctrlenter) {

    say 14,1©15,1º0,1°4,1¨ $+ $regsubex($1-,/^(.)/g,$&

      $+($chr(3),03,\t,$chr(3),14)) $+ 4,1¨0,1°15,1º14,1©

    halt

  }

}

#Talker.v2 end

menu channel {

  Talkers

  .Screamer

  ..[On]:/enable #Screamer | msg $chan I have Enabled my Screamer Talker.

  ..[Off]:/disable #Screamer | msg $chan I have Disabled my Screamer Talker.

  ..[Test]:/echo -a 15,01..:::4,1 $+ Test $+ 15,01:::..

  .HellTalker

  ..[On]:/enable #HellTalker | msg $chan I have Enabled my HellTalker Talker.

  ..[Off]:/disable #HellTalker | msg $chan I have Disabled my HellTalker Talker.

  ..[Test]:/echo -a 14,01.15,01.00,01:15,01:14,01:06,01 $+ Test $+ 14,01:15,01:0,1:15,1.14,1.

  .Wahoo

  ..[On]:/enable #Wahoo | msg $chan I have Enabled my Wahoo Talker.

  ..[Off]:/disable #Wahoo | msg $chan I has Disabled my Wahoo Talker.

  ..[Test]:/echo -a 14,01.15,01.00,01:15,01:14,01:4,1(6,1(7,1(8,1(9,1(06,01 $+ Test $+ 9,1)8,1)7,1)6,1)4,1)14,01:15,01:0,1:15,1.14,1.

  .DefCon

  ..Delta[On]:/enable #DefCon | msg $chan DefCon Delta Achieved!! Activating Negotiationist!

  ..Sigma[Off]:/disable #DefCon | msg $chan A safe level of DefCon Sigma is in effect. Deactivating Negotiationist.

  ..Alpha[Test]:/echo -a 4,1°7,1Ø6,1±7,1Ø4,1°14,1«15,1«0,1 $+ Test $+ 15,1»14,1»4,1°7,1Ø6,1±7,1Ø4,1°

  .Krewl

  ..Be Krewl![On]:/enable #Krewl | msg $chan I am so Krewl. ;D

  ..DunBeKrewl[Off]:/disable #Krewl | msg $chan I'm not gonna be Krewl now.

  ..Krewl how?[Test]:/echo -a 14,1©15,1º0,1°9,1¨14,1 $+ Test $+ 9,1¨0,1°15,1º14,1©

  .Talker V2

  ..Talk![On]:/enable #Talker.v2 | echo -a Talker.v2 Enabled.

  ..DunTalk![Off]:/disable #Talker.v2 | echo -a Talker.v2 Disabled.

}

Like Page Follow Author

Comments

Aurora801 - Jul 26, 2009

D2K7: It's enabled through menus. It's just a simple talker. :]

Respond

Grant- - Jul 25, 2009

or regex

if ($regex($1,/^[\/!].*$/Si)) {

Respond

D2K7 - Jul 25, 2009

Can some One Please explain to me how this code works?

Respond

Aurora801 - Jul 01, 2009

Cool! Thanks for the suggestions. I appreciate it! :]

Respond

Jethro - Jul 01, 2009

Nicely done there. But you can save yourself an if statement and a closing bracket by combining them with ||

if (/ !isin $left($1,1)) || (! !isin $left($1,1)) {

if (!$istok(/ !,$left($1,1),32)) {

Respond

Aurora801 - Jul 01, 2009

I originally didn't space it out, but a friend wanted the code and not spacing it made lines group together and made the script hard to copy, so I spaced it out to give to my friends.

Respond

Aucun50 - Jul 01, 2009

Why so spaced out?

Respond