3D text

By blackvenomm666 on May 11, 2011

As the title says its a 3D text talker. turn it on and select the colors you want and you get 3D looking text the original version was made by Jethro_ me and lucius did some edits to it though so that you can choose diff colors for the text instead of it always being the same can also do underline and bold. put into a new remotes then right click in the nicklist,query or channel go to 3d text choose your color and turn it on.

alias -l spaces { return %3d.3 ( }
Menu Nicklist,query,channel {
  .3dtext
  ..on: { set %3dtext on }
  ..off: { set %3dtext off }
  ..Blue: { .set %3d.1 02 | .set %3d.2 12 | .set %3d.3 2,2 | .set %3d.4 00 | .set %3d.5 01 }
  ..Green: { .set %3d.1 03  | .set %3d.2 09 | .set %3d.3 3,3 |  .set %3d.4 00 | .set %3d.5 01 }
  ..Red: { .set %3d.1 05  | .set %3d.2 04 | .set %3d.3 01 | .set %3d.4 07 | .set %3d.5 01 }
  ..Gray: { .set %3d.1 14 | .set %3d.2 15 | .set %3d.3 14 | .set %3d.4 00 | .set %3d.5 01 }
  ..Pink: { .set %3d.1 13 | .set %3d.2 07 | .set %3d.3 13 | .set %3d.4 08 | .set %3d.5 12 } 
  .Bold
  ..On: { .set %bold  }
  ..Off: { .set %bold  }
  .underline
  ..On: { .set %underline  }
  ..Off: { .set %underline }
}
on *:Input:*: {
  if (%3dtext == on) {

    msg $active %underline %bold $regsubex($regsubex($1-,/(?!\s)(.)/g,$+($chr(3),%3d.2,$chr(44),%3d.1,$chr(40),$&
      $+($chr(3),%3d.4,$chr(44),%3d.1,\1),$+($chr(3),%3d.5,$chr(41),$chr(3)))),/(\s)/g,$spaces(\1)))
    haltdef
  }
}

Comments

Sign in to comment.
blackvenomm666   -  May 12, 2011

colour talker will mess with it as well turn off your colour talker

 Respond  
Zmodem   -  May 12, 2011

You may be using another addon/snippet/script loaded that is also doing something with the ON INPUT events. Make sure you don't have any themes loaded, like MTS, or the like. Make sure the only script loaded is this one.

 Respond  
}{exer   -  May 12, 2011

Nice :)
but
if turned on and I write something it poste two lines
the original and your modificated
What to do ?

 Respond  
Zmodem   -  May 12, 2011

I'd actually prefer yours, Jethro_, the most :) Tokens always slip my mind haha.

 Respond  
Jethro   -  May 12, 2011

Or this:

if ($istok(/ ! .,$left($1,1),32)) { return }
 Respond  
Zmodem   -  May 12, 2011

You don't need the 'goto skipper' or the :skipper jump point. Example:

Instead of this:

if ($left($1,1) == /) || ($left($1,1) == !) || ($left($1,1) == .) { goto skipper }

Use this:

if ($left($1,1) == /) || ($left($1,1) == !) || ($left($1,1) == .) { return }

The 'return' alias allows you to exit out of a function without halting things, only skipping the rest of the code if the if-then-else statement is TRUE. Enjoy! :)

 Respond  
Lucius   -  May 11, 2011

Nicely spotted.
Here's my version.

alias -l spaces { return $+(,%3d.2,$chr(44),%3d.2,_)   }
Menu Nicklist,query,channel {
  .3dtext
  ..on: set %3dtext on 
  ..off: unset %3dtext  
  ...Bold
  ....On: set %3dbold 
  ....Off: unset %3dbold
  .Scheme
  ;####         v-text-v        v-background-v   v-endbrack-v   v-1stbrack-v
  ..Red (d):  set %3d.1 07 | set %3d.2 05 | set %3d.3 01 | set %3d.4 04
  ..Red (l):  set %3d.1 01 | set %3d.2 04 | set %3d.3 05 | set %3d.4 07
  ..Green..:  set %3d.1 00 | set %3d.2 03 | set %3d.3 01 | set %3d.4 09
  ..Blue...:  set %3d.1 14 | set %3d.2 02 | set %3d.3 01 | set %3d.4 12
  ..Teal...:  set %3d.1 00 | set %3d.2 10 | set %3d.3 02 | set %3d.4 11
  ..White..:  set %3d.1 00 | set %3d.2 14 | set %3d.3 01 | set %3d.4 15
  ..Pink...:  set %3d.1 08 | set %3d.2 13 | set %3d.3 12 | set %3d.4 07
  ..BLIND..:  set %3d.1 01 | set %3d.2 08 | set %3d.3 14 | set %3d.4 00
}
on *:Input:*: {
  if (%3dtext) && ($len($1-) < 49) {
    if ($left($1,1) == /) || ($left($1,1) == !) || ($left($1,1) == .) { goto skipper }
    msg $active %3dbold $regsubex($regsubex($1-,/(?!\s)(.)/g,$+($chr(3),%3d.4,$chr(44),%3d.2,$chr(40),$&
      $+($chr(3),%3d.1,$chr(44),%3d.2,\1),$+($chr(3),%3d.3,$chr(41),$chr(3)))),/(\s)/g,$spaces(\1)))
    haltdef

  }
  :skipper
}

Both ryan and I ended up with pretty much the same script. three extra colour schemes (added later) and the command triggers as well as a length check. More than 48 letters/numbers/spaces and it messed up the regex, so I set it to just skip and save the error message. (mine does not have the underline though)
(the bold variable was simply the CTRL+B bold character but hawkee doesn't recognise it, remember to add it in when/if you copy it (line 7) hehe)
Enjoy!
And remember Jethro did the hard work, we just played with it a bit. ;]

 Respond  
Zmodem   -  May 11, 2011

Should change your ON INPUT event to include this:

  if ((%3dtext == on) && ($left($1-,1) != /)) {

This will make sure that commands, like '/clear', won't be parsed.

 Respond  
blackvenomm666   -  May 11, 2011

as i said sunny i can't take all the credit haha all i did was change the original version from an alias to an on text and then me and lucius found diff color combo's that look 3D the original color combo was the green one

 Respond  
Sorasyn   -  May 11, 2011

Agreed looks very nice Venom. Points for originality and design. ^^

 Respond  
Lucius   -  May 11, 2011

It looks better in bold, and I also think the blue is the most effective for the 3d.
I prefer the dark red (brown) but then thats my usual colour so yeah.
Was a fun hour or two. Thanks again jethro for the original code, it kept boredom at bay.

 Respond  
JFK   -  May 11, 2011

Well, I'm still not so good in mirc-scripting

 Respond  
blackvenomm666   -  May 11, 2011

this is a regular remote code jfk the alias is just for the spaces

 Respond  
JFK   -  May 11, 2011

Ah, really nice code here!
I personally would like it as a regular remotecode, and not a alias. But that's just me ;)

8.5/10 since it didn't look to well all the time

 Respond  
ShaferBatman   -  May 11, 2011

very nice snipplet. good effect 10/10

 Respond  
blackvenomm666   -  May 11, 2011

yea could do it that way to but if you look it sets bold and underline to have no value therefore it works either way haha. but yes unset woulda been the proper way to go about it. and as for the real off switch. it checks to see if the var is set to on so technically i could have the off switch set the var to f|_|ckyou and it would still work properly haha

 Respond  
Jethro   -  May 11, 2011

Nice effort to include more colors the ability to bold or underline the text. One question I do have: shouldn't the off switch be unset rather than set?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.