          ______                                         
  _______ ___  / ________ _____________ ________ ______  
  ___    |__  / _/__  __/ /____  /_  _ \___  __ \_  __ \
  __  /| |_  /_____  / ____ __  / /  __/__  /_/ // /_/ /
  _  ___ |/_____/_  / /___/ _  /__\___/ _  _, _/ \____/  
  /_/  |_|       /_/        /____/      /_/ |_|          
                                                         
             ALT's PoPuP-TexT PLaYeR [ver 2.2]


   Whats new:
      4/09/97 {fixed bug when useing day [%dz] on wednesday  
      4/07/97 {added use of mulitble directory plays and sends}
-----------------------------------
Copy and paste to Popups/nicknames:
-----------------------------------
-
PLAY AZ-TEXT's
.Pick One:{
  %az = $$1
  %mz = $me
  %cz = $chan
  %dz = $day
  %tz = $rtime
  :home
  if ($len(%az) = 12) { goto end }
  if ($len(%az) = 11) { %az = %az $+ $str(1,.) }
  if ($len(%az) = 10) { %az = $str(1,.) $+ %az $+ $str(1,.) }
  if ($len(%az) = 9) { %az = $str(1,.) $+ %az $+ $str(2,.) }
  if ($len(%az) = 8) { %az = $str(2,.) $+ %az $+ $str(2,.) }
  if ($len(%az) = 7) { %az = $str(2,.) $+ %az $+ $str(3,.) }
  if ($len(%az) = 6) { %az = $str(3,.) $+ %az $+ $str(3,.) }
  if ($len(%az) = 5) { %az = $str(3,.) $+ %az $+ $str(4,.) }
  if ($len(%az) = 4) { %az = $str(4,.) $+ %az $+ $str(4,.) }
  if ($len(%az) = 3) { %az = $str(4,.) $+ %az $+ $str(5,.) }
  if ($len(%az) = 2) { %az = $str(5,.) $+ %az $+ $str(5,.) }
  if ($len(%az) = 1) { %az = $str(5,.) $+ %az $+ $str(6,.) }
  if ($len(%mz) = 12) { goto end }
  if ($len(%mz) = 11) { %mz = %mz $+ $str(1,-) }
  if ($len(%mz) = 10) { %mz = $str(1,.) $+ %mz $+ $str(1,.) }
  if ($len(%mz) = 9) { %mz = $str(1,.) $+ %mz $+ $str(2,.) }
  if ($len(%mz) = 8) { %mz = $str(2,.) $+ %mz $+ $str(2,.) }
  if ($len(%mz) = 7) { %mz = $str(2,.) $+ %mz $+ $str(3,.) }
  if ($len(%mz) = 6) { %mz = $str(3,.) $+ %mz $+ $str(3,.) }
  if ($len(%mz) = 5) { %mz = $str(3,.) $+ %mz $+ $str(4,.) }
  if ($len(%mz) = 4) { %mz = $str(4,.) $+ %mz $+ $str(4,.) }
  if ($len(%mz) = 3) { %mz = $str(4,.) $+ %mz $+ $str(5,.) }
  if ($len(%mz) = 2) { %mz = $str(5,.) $+ %mz $+ $str(5,.) }
  if ($len(%mz) = 1) { %mz = $str(5,.) $+ %mz $+ $str(6,.) }
  if ($len(%cz) = 20) { goto end }
  if ($len(%cz) = 19) { %cz = %cz $+ $str(1,.) }
  if ($len(%cz) = 18) { %cz = $str(1,.) $+ %cz $+ $str(1,.) }
  if ($len(%cz) = 17) { %cz = $str(1,.) $+ %cz $+ $str(2,.) }
  if ($len(%cz) = 16) { %cz = $str(2,.) $+ %cz $+ $str(2,.) }
  if ($len(%cz) = 15) { %cz = $str(2,.) $+ %cz $+ $str(3,.) }
  if ($len(%cz) = 14) { %cz = $str(3,.) $+ %cz $+ $str(3,.) }
  if ($len(%cz) = 13) { %cz = $str(3,.) $+ %cz $+ $str(4,.) }
  if ($len(%cz) = 12) { %cz = $str(4,.) $+ %cz $+ $str(4,.) }
  if ($len(%cz) = 11) { %cz = $str(4,.) $+ %cz $+ $str(5,.) }
  if ($len(%cz) = 10) { %cz = $str(5,.) $+ %cz $+ $str(5,.) }
  if ($len(%cz) = 9) { %cz = $str(5,.) $+ %cz $+ $str(6,.) }
  if ($len(%cz) = 8) { %cz = $str(6,.) $+ %cz $+ $str(6,.) }
  if ($len(%cz) = 7) { %cz = $str(6,.) $+ %cz $+ $str(7,.) }
  if ($len(%cz) = 6) { %cz = $str(7,.) $+ %cz $+ $str(7,.) }
  if ($len(%cz) = 5) { %cz = $str(7,.) $+ %cz $+ $str(8,.) }
  if ($len(%cz) = 4) { %cz = $str(8,.) $+ %cz $+ $str(8,.) }
  if ($len(%cz) = 3) { %cz = $str(8,.) $+ %cz $+ $str(9,.) }
  if ($len(%cz) = 2) { %cz = $str(9,.) $+ %cz $+ $str(9,.) }
  if ($len(%dz) = 10) { goto end }
  if ($len(%dz) = 9) { %dz = %dz $+ $str(1,.) }
  if ($len(%dz) = 8) { %dz = $str(1,.) $+ %dz $+ $str(1,.) }
  if ($len(%dz) = 7) { %dz = $str(1,.) $+ %dz $+ $str(2,.) }
  if ($len(%dz) = 6) { %dz = $str(2,.) $+ %dz $+ $str(2,.) }
  if ($len(%tz) = 8) { goto end }
  if ($len(%tz) = 7) { %tz = %tz $+ $str(1,.) }
  goto home
  :end
  set %picture $dir="Choose a Picture" c:\mirc\az\*.txt 
  say 0,0^ $+ $me $remove(%picture,[DIR])  
  play -cp %picture 600
  halt
}
.offer Az-player:/say 12To Get The Newest Verison Of AZ_PlaYer 4COPY-N-PASTE --->12!az_text_player
.instructions:/say 12To Get Any Az_text file {LOOK ABOVE THE PICTURE} 4COPY-N-PASTE 12Whats Hidden there!
-

--------------------------------
Copy and paste to remote/events:
--------------------------------
1:ON TEXT:*^*:*:/if ( $parm1 == ^ $+ $me ) /dcc send $nick %DIR $+ $parm2 
1:ON TEXT:!az_text_player*:*:/dcc send $nick c:\mirc\az\!az_player.txt

Change the c:\mirc\az\ to your path in the [ popup and remote ] to where you
keep your az-text files.  You should try to keep them separately 
from regular pics in there own directory.

-------------------------------------------------------------------------
Copy and paste to alaises: most already have this but if you dont put in!
-------------------------------------------------------------------------
/rtime {
  set %realtime $time
  set %hour $token(1,58,%realtime)
  set %type AM  
  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
  if (%hour = 12) /set %type PM
  if (%hour = 0) /set %hour 12 
  set %min $token(2,58,%realtime)
  set %realtime %hour $+ : $+ %min %type
  if (%online = on) /set %online %realtime 
  unset %hour | /unset %min | /unset %type | /return %realtime
}




-----==========[MAKEING YOUR OWN PICTURE TEXT]==========-----
                                                                ---------------------------
-------------------------------------------                    ( known bug:                )
In the Text files.  If YOU make any Yourself:                  ( when useing more than one )
-------------------------------------------                    ( veriable like %az & %cz   )
                                                               ( in your az_text popups    )
Use %az for anyones nick          (allow 12 spaces)            ( you cant max the letter   )
Use %mz for your nick             (allow 12 spaces)      still ( limit out.   so use:      )
Use %cz for the channel your in   (allow 20 spaces)      allow (  11 on nicks              )
Use %dz for the for day of week   (allow 10 spaces)       reg  (  19 on channels           )
Use %tz for the for time of day   (allow  8 spaces)      amount ---------------------------

!REMEMBER!  allow for enough spaces for each different % in the script.

-------------------------------------------
Other things you can use in the Text files:
-------------------------------------------

use $date for the date (allow 8 space's for this)

                   [END]

     { Till I think of something else }