______ _______ ___ / ________ _____________ ________ ______ ___ |__ / _/__ __/ /____ /_ _ \___ __ \_ __ \ __ /| |_ /_____ / ____ __ / / __/__ /_/ // /_/ / _ ___ |/_____/_ / /___/ _ /__\___/ _ _, _/ \____/ /_/ |_| /_/ /____/ /_/ |_| ALT's PoPuP-TexT PLaYeR [ver 2.3] for mirc 5.0 Whats new: 4/14/97 {fix for mirc 5.0 playing and sending} & credits at bottom... 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 %picture play -cp %picture 600 halt } .instructions:/say 12To Get Any Az_text file {LOOK ABOVE THE PICTURE} 4COPY-N-PASTE 12Whats Hidden there! .offer Az-player:/say 12To Get The Newest Verison Of AZ_PlaYer 4COPY-N-PASTE --->12!az_player .offer Az-Text.zip:/say 12To Get The Newest Zip file Of AZ_TEXT 4COPY-N-PASTE --->12!az_zip - -------------------------------- Copy and paste to remote/events: -------------------------------- on 1:TEXT:!az_zip*:*:/dcc send $nick c:\mirc\az\az_text244.zip on 1:TEXT:!az_player*:*:/dcc send $nick c:\mirc\az\!az_player2.3.txt on 1:TEXT:^*:*:/if ( $parm1 == ^ $+ $me ) /dcc send $nick $parm2 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) -------- CREDITS: -------- [to whom ever made the nn player which struck the idea in my head] GIGI8 .........for all the az_text files shes made PINKUNICORN ...for all the az_text files shes made MikeKrit.......for help on 5.0 fixes [END] { Till I think of something else }