Jump to content

Archived

This topic is now archived and is closed to further replies.

chain

Text 3D

Recommended Posts

  • Administrators
** Text 3D© ** Versione 1.10 by JenKrn

** Grazie per aver scaricato questo add-on

 

** Installazione **

1) Installare i files Text3D.ini, 3Dreadme.txt

nella directory di mirc (Es.: ...\programmi\mirc).

2) Eseguire mirc e nella riga di testo della finestra di stato

digitare /load -a Text3D.ini

3) Ora lo script e' installato!

4) Per scrivere in 3D usa i seguenti comandi:

 

1°) /3dv tuafrase (per scrivere in verde)

2°) /3df tuafrase (per scrivere in fucsia)

3°) /3dr tuafrase (per scrivere in rosso)

4°) /3dg tuafrase (per scrivere in grigio)

5°) /3db tuafrase (per scrivere in blue)

 

ATTENZIONE!! - non sono riconosciuti i numeri nella tua frase

 

 

## Se avete problemi, suggerimenti o avete qualche

gioco da proporre scrivetemi a jenkrn@tiscalinet.it

 

## Buon divertimento !!!! by JenKrn

 

>[aliases]n0=# Text 3D©  Versione 1.10  by JenKrnn1=# NON MODIFICATE QUESTO SCRIPTn2=# Creato a Gennaio 2001n3=# Se avete problemi scrivetemi a jenkrn@tiscalinet.itn4=# Buon divertimento !!n5=# by JenKrn         n6=#n7=/3df {n8=  set %mytext.txt $1-n9=  set %lgh $len(%mytext.txt) | set %conta 1n10=  :nextn11=  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }n12=  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 1,14(15) }n13=  else { set %mytext.space 13,6(0 $mid(%mytext.txt,%conta,1) 1) }n14=  set %mytext %mytext %mytext.spacen15=  inc %conta 1n16=  goto nextn17=  :finen18=  %mytext = $remove(%mytext,$chr(32))n19=  say %mytextn20=  unset %mytext %mytext.txt %mytext.space %conta %lghn21=}n22=n23=/3db {n24=  set %mytext.txt $1-n25=  set %lgh $len(%mytext.txt) | set %conta 1n26=  :nextn27=  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }n28=  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 1,14(15) }n29=  else { set %mytext.space 12,2(0 $mid(%mytext.txt,%conta,1) 1) }n30=  set %mytext %mytext %mytext.spacen31=  inc %conta 1n32=  goto nextn33=  :finen34=  %mytext = $remove(%mytext,$chr(32))n35=  say %mytextn36=  unset %mytext %mytext.txt %mytext.space %conta %lghn37=}n38=n39=/3dv {n40=  set %mytext.txt $1-n41=  set %lgh $len(%mytext.txt) | set %conta 1n42=  :nextn43=  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }n44=  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 1,14(15) }n45=  else { set %mytext.space 9,3(0 $mid(%mytext.txt,%conta,1) 1) }n46=  set %mytext %mytext %mytext.spacen47=  inc %conta 1n48=  goto nextn49=  :finen50=  %mytext = $remove(%mytext,$chr(32))n51=  say %mytextn52=  unset %mytext %mytext.txt %mytext.space %conta %lghn53=}n54=n55=/3dr {n56=  set %mytext.txt $1-n57=  set %lgh $len(%mytext.txt) | set %conta 1n58=  :nextn59=  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }n60=  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 1,14(15) }n61=  else { set %mytext.space 4,5(0 $mid(%mytext.txt,%conta,1) 1) }n62=  set %mytext %mytext %mytext.spacen63=  inc %conta 1n64=  goto nextn65=  :finen66=  %mytext = $remove(%mytext,$chr(32))n67=  say %mytextn68=  unset %mytext %mytext.txt %mytext.space %conta %lghn69=}n70=n71=/3dg {n72=  set %mytext.txt $1-n73=  set %lgh $len(%mytext.txt) | set %conta 1n74=  :nextn75=  if ($mid(%mytext.txt,%conta,1) == $null) { goto fine }n76=  if ($mid(%mytext.txt,%conta,1) == $chr(32)) { set %mytext.space 1,14(15) }n77=  else { set %mytext.space 15,14(0 $mid(%mytext.txt,%conta,1) 1) }n78=  set %mytext %mytext %mytext.spacen79=  inc %conta 1n80=  goto nextn81=  :finen82=  %mytext = $remove(%mytext,$chr(32))n83=  say %mytextn84=  unset %mytext %mytext.txt %mytext.space %conta %lghn85=}

Link to comment
Share on other sites



×
×
  • Create New...