PC-X 1997 October/pcx14_9710.iso/shutils/internet/irc/script/bw10b1.exe/aliases1.ini

INI File | 1997-08-26 | 15.7 KB | 217 lines

[aliases]
n0=/about {
n1=  window @áAboutáBioWará@ 100 100 300 145 terminal
n2=  echo 7 @áAboutáBioWará@ 7,1          ╔══════════╗
n3=  echo 7 @áAboutáBioWará@ 7,1          ║          ║
n4=  echo 7 @áAboutáBioWará@ 7,1          ║  BioWar  ║
n5=  echo 7 @áAboutáBioWará@ 7,1          ║          ║
n6=  echo 7 @áAboutáBioWará@ 7,1          ╚══════════╝
n7=  echo 7 @áAboutáBioWará@ 7,1  Welcome to BioWar Version 1.0
n8=  echo 7 @áAboutáBioWará@ 7,1  Created by Vega and Blue_Max
n9=  echo 7 @áAboutáBioWará@ 7,1  View the BioWar Help File by
n10=  echo 7 @áAboutáBioWará@ 7,1        Pressing [F1]
n11=}
n12=/backtalk {
n13=  unset %i %newtext %text %len | set %text $1- | set %len $len(%text) | set %i 0 | :loop
n14=  inc %i | if (%i > %len) { say %newtext | halt } | set %newtext $mid(%i,1,%text) $+ %newtext | goto loop
n15=}
n16=/biostartup {
n17=  echo 5 -s Updating BioWar Files... | unset %cg* %i %text* %newtext %ex* %hang* %www* golf* temp*
n18=  if ($exists(aliases.ini) == $false) { echo 12 -a Error : aliases.ini missing }
n19=  if ($exists(aliases1.ini) == $false) { echo 12 -a Error : aliases1.ini missing }
n20=  if ($exists(blackjack.bio) == $false) { echo 12 -a Error : blackjack.bio missing }
n21=  if ($exists(cards.bio) == $false) { echo 12 -a Error : cards.bio missing }
n22=  if ($exists(chana.ini) == $false) { echo 12 -a Error : chana.ini missing }
n23=  if ($exists(chane1.ini) == $false) { echo 12 -a Error : chane1.ini missing }
n24=  if ($exists(chane2.ini) == $false) { echo 12 -a Error : chane2.ini missing }
n25=  if ($exists(chane3.ini) == $false) { echo 12 -a Error : chane3.ini missing }
n26=  if ($exists(chanjoin.bio) == $false) { echo 12 -a Error : chanjoin.bio missing }
n27=  if ($exists(chanm.ini) == $false) { echo 12 -a Error : chanm.ini missing }
n28=  if ($exists(chanpop.bio) == $false) { echo 12 -a Error : chanpop.bio missing }
n29=  if ($exists(chanr.ini) == $false) { echo 12 -a Error : chanr.ini missing }
n30=  if ($exists(chans.txt) == $false) { echo 12 -a Error : chans.txt missing }
n31=  if ($exists(clock.bio) == $false) { echo 12 -a Error : clock.bio missing }
n32=  if ($exists(commands.bio) == $false) { echo 12 -a Error : commands.bio missing }
n33=  if ($exists(events.bio) == $false) { echo 12 -a Error : events.bio missing }
n34=  if ($exists(chane1.ini) == $false) { echo 12 -a Error : chane1.ini missing }
n35=  if ($exists(golf.ini) == $false) { echo 12 -a Error : golf.ini missing }
n36=  if ($exists(golfe.ini) == $false) { echo 12 -a Error : golfe.ini missing }
n37=  if ($exists(hangman.bio) == $false) { echo 12 -a Error : hangman.bio missing }
n38=  if ($exists(html.bio) == $false) { echo 12 -a Error : html.bio missing }
n39=  if ($exists(mirc.ini) == $false) { echo 12 -a Error : mirc.ini missing }
n40=  if ($exists(notepad.bio) == $false) { echo 12 -a Error : notepad.bio missing }
n41=  if ($exists(partye.ini) == $false) { echo 12 -a Error : partye.ini missing }
n42=  if ($exists(partym.ini) == $false) { echo 12 -a Error : partym.ini missing }
n43=  if ($exists(partyr.ini) == $false) { echo 12 -a Error : partyr.ini missing }
n44=  if ($exists(popups.ini) == $false) { echo 12 -a Error : popups.ini missing }
n45=  if ($exists(quotes.bio) == $false) { echo 12 -a Error : quotes.bio missing }
n46=  if ($exists(raw.bio) == $false) { echo 12 -a Error : raw.bio missing }
n47=  if ($exists(remote.ini) == $false) { echo 12 -a Error : remote.ini missing }
n48=  if ($exists(servers.ini) == $false) { echo 12 -a Error : servers.ini missing }
n49=  if ($exists(title1.bio) == $false) { echo 12 -a Error : title1.bio missing }
n50=  if ($exists(notice1.wav) == $false) { echo 12 -a Error : notice1.wav missing }
n51=  if ($exists(notice2.wav) == $false) { echo 12 -a Error : notice2.wav missing }
n52=  if ($exists(pop.wav) == $false) { echo 12 -a Error : pop.wav missing }
n53=  echo 5 -s Update Complete
n54=}
n55=/clickgameshow {
n56=  rline %cgwindow %cgrandline á | set %cgrandline $r(1,20)
n57=  rline %cgwindow %cgrandline -------------------Double Click Here!!!!!!!!----------------------------------------------------
n58=}
n59=/clickgameclicked {
n60=  if ($1 == %cgrandline) { inc %cgscore | inc %cgrightclicks }
n61=  if ($1 != %cgrandline) { dec %cgscore | inc %cgwrongclicks }
n62=  halt
n63=}
n64=/clickgamend {
n65=  window -c %cgwindow | window %cgwindow 150 50 300 100
n66=  aline %cgwindow ááááááááááááá2You Scored a %cgscore / 30 ( $+ $percent(%cgscore,30) $+ $chr(37) $+ )
n67=  aline %cgwindow 2you had %cgwrongclicks points deducted from wrong clicks. | aline %cgwindow á
n68=  halt
n69=}
n70=/clickgame {
n71=  .timer0071 0 1 clickgameshow | .timer0082 1 30 .timer0071 off | set %cgrandline $r(1,20)
n72=  clear @áClickáGame | aline %cgwindow á | aline %cgwindow á
n73=  aline %cgwindow á | aline %cgwindow á | aline %cgwindow á | aline %cgwindow á
n74=  aline %cgwindow á | aline %cgwindow á | aline %cgwindow á | aline %cgwindow á
n75=  aline %cgwindow á | aline %cgwindow á | aline %cgwindow á | aline %cgwindow á
n76=  aline %cgwindow á | aline %cgwindow á | aline %cgwindow á | aline %cgwindow á
n77=  aline %cgwindow á | aline %cgwindow á | .timer0093 1 30 clickgamend
n78=}
n79=/clickgamestart {
n80=  unset %cg* | window -le @áClickáGame 159 0 300 400 | set %cgwindow @áClickáGame
n81=  aline %cgwindow ááááááááááWelcome To the $logo2 Click Game | aline %cgwindow á | aline %cgwindow á
n82=  aline %cgwindow Type "Start" to start the game,
n83=  aline %cgwindow and double click on the lines that show up. | aline %cgwindow Try and keep up  ;)
n84=  aline %cgwindow The game will last 30 seconds.
n85=}
n86=/custom-alias {
n87=  .alias $$?="Enter the name of the alias you want to add:" $$?="Enter what you want it to do:" | echo -a Alias Added.
n88=}
n89=/explorer {
n90=  unset %ex* | if ($1 == $null) { echo 12 -a Must enter a directory. | halt }
n91=  if ($left($right($1,4),1) == $chr(46)) { echo 12 -a Must Enter a Directory, not a filename | halt }
n92=  set %ex-dir $1 | if ($right($1,1) != \) { set %ex-dir %ex-dir $+ \ } | set %ex-numfiles $findfile(%ex-dir,*.*,0)
n93=  set %ex-winder @áExplorerá@ | window -l %ex-winder 150 50 300 400 | aline %ex-winder Directory Listing : %ex-dir
n94=  set %ex-i 0 | :loop | inc %ex-i | if (%ex-i > %ex-numfiles) { halt } | aline %ex-winder $nopath($findfile(%ex-dir,*.*,%ex-i)) | goto loop
n95=}
n96=/f1 {
n97=  window @áBioWaráHelp 150 50 300 190 help.bio
n98=  echo @áBioWaráHelp 12,1ááááááááááááááááááááá-=(BioWar)=-0,1 Helpáááááááááááááááááááááááááááááááááááá
n99=  echo @áBioWaráHelp 0,1right click to get help on the subject of your ááááááá choiceáááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n100=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n101=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n102=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n103=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n104=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n105=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n106=  echo @áBioWaráHelp 1,1áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá
n107=}
n108=/hangfake {
n109=  if (%hangwl == 0) { halt } | if (($1 isin %hangwrong) || ($1 isin %hangright)) { halt }
n110=  if ($1 !isin %hangrealword) { dec %hangwl
n111=    if (%hangwl == 0) {
n112=      clear @áHangmaná@ | aline %hangw ááááááááááááááááGuess this word : %hangrealword | aline %hangw 7---------------------------YOU LOSE-------------------------------
n113=      aline %hangw Wrong Letters : %hangwrong | aline %hangw Wrong Guesses Left : %hangwl
n114=      .timer7650 1 3 window -c %hangw | .timer7651 1 3 hangmanstart | halt
n115=    }
n116=    clear @áHangmaná@ | aline %hangw ááááááááááááááááGuess this word : %hangfake
n117=    set %hangwrong %hangwrong $1 | aline %hangw  7-------------------------------------------------------------------------------
n118=    aline %hangw Wrong Letters : %hangwrong | aline %hangw Wrong Guesses Left : %hangwl | halt
n119=  }
n120=  if ($1 isin %hangrealword) { clear @áHangmaná@ | set %hangright %hangright $1 | unset %hangfake | set %i 0 | :loop | inc %i
n121=    if (%i > $len(%hangrealword)) goto next | if (($mid(%i,1,%hangrealword) isin %hangright) || ($mid(%i,1,%hangrealword) isin %hangright)) {
n122=    set %hangfake %hangfake $+ $mid(%i,1,%hangrealword) | goto loop } | else { set %hangfake %hangfake $+ _ | goto loop }
n123=    :next | if ($chr(95) !isin %hangfake) { goto win } | aline %hangw ááááááááááááááááGuess this word : %hangfake | aline %hangw  7-------------------------------------------------------------------------------
n124=    aline %hangw Wrong Letters : %hangwrong | aline %hangw Wrong Guesses Left : %hangwl | halt
n125=    :win | clear @áHangmaná@ | aline %hangw ááááááááááááááááGuess this word : %hangrealword | aline %hangw 7-------------------------YOU WIN!------------------------------
n126=    aline %hangw Wrong Letters : %hangwrong | aline %hangw Wrong Guesses Left : %hangwl
n127=    .timer7650 1 3 window -c %hangw | .timer7651 1 3 hangmanstart | halt
n128=  }
n129=}
n130=/hangmanstart {
n131=  unset %hang* | set %hangrealword $read -l [ $+ [ $rand(1,$lines(hangman.bio)) ] ] hangman.bio
n132=  set %hanglen $len(%hangrealword) | set %i 0 | :loop | inc %i | if (%i > %hanglen) { goto next }
n133=  set %hangfake %hangfake $+ _ | goto loop | :next | set %hangw @áHangmaná@ | window -e %hangw 150 50 300 120
n134=  aline %hangw ááááááááááááááááGuess this word : %hangfake | aline %hangw  7-------------------------------------------------------------------------------
n135=  aline %hangw Wrong Letters : | aline %hangw Wrong Guesses Left : 10 | set %hangwl 10
n136=}
n137=/ircopscan { /who 0 o | set %ircopscan on | unset %ircopsnum | echo 2 -a 5-=(IRC Op Scan : $server $+ 5)=- }
n138=/notepad /window -el @NotePad@ notepad.bio times new roman
n139=/portscan { /stats l | set %portscan yes | unset %numports | echo 2 -a 5-=(Port Scan :14 $server $+ 5)=- }
n140=/setup {
n141=  window -l @Setup@ 150 50 300 215
n142=  aline @Setup@ _______________BioWar Setup__________________
n143=  aline @Setup@ Double Click To Change setting
n144=  aline @Setup@ á
n145=  aline @Setup@ Hard Drive : %hd-loc
n146=  aline @Setup@ 3╜ Floppy Drive : %3.5-loc
n147=  aline @Setup@ CD Rom Drive : %cd-loc
n148=  aline @Setup@ mIRC Directory : %mircdir
n149=  aline @Setup@ MIDI Directory : %mididir
n150=  aline @Setup@ Wave Directory : %wavdir
n151=  aline @Setup@ E-Mail POP3 server : %gmailip
n152=  aline @Setup@ E-Mail Username : %mailuser
n153=  aline @Setup@ E-Mail Password : %mailpass
n154=}
n155=/setupclick {
n156=  if (($1 == 1) || ($1 == 2) || ($1 == 3)) { halt }
n157=  if ($1 == 4) { set %hd-loc $$?="Enter Hard Drive (ie : c:\ )" | goto changed }
n158=  if ($1 == 5) { set %3.5-loc $$?="Enter 3╜ Floppy Drive (ie : a:\ )" | goto changed }
n159=  if ($1 == 6) { set %cd-loc $$?="Enter CD Rom Drive (ie : d:\ )" | goto changed }
n160=  if ($1 == 7) { set %mircdir $$?="Enter New mIRC Directory : " | goto changed }
n161=  if ($1 == 8) { set %mididir $$?="Enter New Midi Directory :" | goto changed }
n162=  if ($1 == 9) { set %wavdir $$?="Enter New Wave Directory :" | goto changed }
n163=  if ($1 == 10) { set %gmailp $$?="Enter E-Mail POP3 Server :" | goto changed }
n164=  if ($1 == 11) { set %mailuser $$?="Enter New E-Mail Username :" | goto changed }
n165=  if ($1 == 12) { set %mailpass $$?="Enter New E-mail Password :" | goto changed }
n166=  :changed | window -c @Setup@ | /setup
n167=}
n168=/th {
n169=  if (($right($1,2) == 11) || ($right($1,2) == 12) || ($right($1,2) == 13)) { return $1 $+ th }
n170=  if ($right($1,1) == 1) { return $1 $+ st } | if ($right($1,1) == 2) { return $1 $+ nd }
n171=  if ($right($1,1) == 3) { return $1 $+ rd } | else { return $1 $+ th }
n172=}
n173=/userdata {
n174=  window -e @UseráDatabase 150 50 300 130
n175=  aline @UseráDatabase _________Enter a name to search for._____________
n176=  aline @UseráDatabase á
n177=  aline @UseráDatabase á
n178=  aline @UseráDatabase á
n179=}
n180=/wordstart {
n181=  clear @áWordáScrambler | unset %wg-* | :setword | set %wg-realword $read -l [ $+ [ $rand(1,$lines(hangman.bio)) ] ] hangman.bio | if ($len(%wg-realword) > 6) { goto setword } | set %wg-temp %wg-realword
n182=  set %wg-len $len(%wg-realword) | :loop | if (%wg-temp == $null) { goto end } | set %wg-rand $rand(1,%wg-len) | if ($mid(%wg-rand,1,%wg-realword) !isin %wg-temp) { goto loop }
n183=  if ($count(%wg-realword,$mid(%wg-rand,1,%wg-realword)) > 1) { set %wg-count $count(%wg-realword,$mid(%wg-rand,1,%wg-realword)) | set %i 0 | :loop1
n184=    inc %i | if (%i > %wg-count) { set %wg-temp $remove(%wg-temp,$mid(%wg-rand,1,%wg-realword)) | goto loop } | if (%i == 1) { set %wg-fake $mid(%wg-rand,1,%wg-realword) $+ %wg-fake | goto loop1 }
n185=  if (%i > 1) { set %wg-fake %wg-fake $+ $mid(%wg-rand,1,%wg-realword) | goto loop1 } } | set %wg-fake %wg-fake $+ $mid(%wg-rand,1,%wg-realword)
n186=  set %wg-temp $remove(%wg-temp,$mid(%wg-rand,1,%wg-realword)) | goto loop | :end | set %wg-w @áWordáScrambler | window -e %wg-w 150 50 300 100 | set %wg-wrong 10
n187=  aline %wg-w 12ááááááááááááááááUnScramble this word : %wg-fake
n188=  aline %wg-w 4---------------------------------------------------------------------
n189=  aline %wg-w 12Wrong Guesses Left : %wg-wrong
n190=}
n191=/www {
n192=  unset %www* | set %wwwfull $1 | set %www @áWebáBrowserá:á $+ %wwwfull $+ á@ | window %www 0 0 700 500
n193=  if ($chr(47) !isin $1) { dns $1 | set %wwwaddress $chr(47) | .enable #httpview }
n194=  else { .dns $token(1,47,$1) | set %wwwaddress $chr(47) $+ $token(2-,47,$1) | .enable #httpview }
n195=}
n196=/wwwdl {
n197=  unset %www* | set %wwwfull $1 | set %wwwtemp1 $token(0,47,$1) | set %wwwtemp1 $token(%wwwtemp1,47,$1)
n198=  .auser httpdl $me | .dns $token(1,47,$1) | set %wwwaddress $chr(47) $+ $token(2-,47,$1) | .enable #httpdl
n199=}
n200=/xdcc {
n201=  goto $1
n202=  :-le | if (%xdcc-1 == $null) { echo 2 -a 5-=(No XDCC Packs Created5)=- | halt }
n203=  echo 2 -a 5-=(Listing Packs5)=-
n204=  set %i 0 | :loop | inc %i | if (%xdcc- [ $+ [ %i ] ] == $null) { echo 2 -a 5-=(End of List5)=- | halt }
n205=  echo 2 -a 5< $+ %i $+ > %xdcc- [ $+ [ %i ] ] $+ , %xdcc- [ $+ [ %i $+ -desc ] ] | goto loop
n206=  :-lp | if (%xdcc-1 == $null) { msg # 5-=(2No XDCC Packs Created5)=- | halt }
n207=  msg # 5-=(2Listing Packs5)=-2 Type /ctcp $me XDCC <pack number>   to get the pack you want.
n208=  set %i 0 | :loop1 | inc %i | if (%xdcc- [ $+ [ %i ] ] == $null) { msg # 5-=(2End of List5)=- | halt }
n209=  msg # 5< $+ %i $+ >2 %xdcc- [ $+ [ %i ] ] $+ , %xdcc- [ $+ [ %i $+ -desc ] ] | goto loop1
n210=  :-c | set %i 0 | :loop2 | inc %i | if (%xdcc- [ $+ [ %i ] ] == $null) { set %xdcc- [ $+ [ %i ] ] $dir="Enter File to add:" $mircdir | set %xdcc- [ $+ [ %i $+ -desc ] ] $$?="Enter Description" | echo 2 -a New Pack Created | halt }
n211=  if (%i == 11) { echo 12 -a Too Many Packets, must remove 1 | halt } | goto loop2
n212=  :-er | unset %xdcc- [ $+ [ $2 ] ] | unset %xdcc- [ $+ [ $2 $+ -desc ] ] | echo 2 -a XDCC Pack $chr(35) $+ $2 Removed | halt
n213=  :-ec | set %xdcc- [ $+ [ $2 $+ -desc ] ] $$?="Enter New Description" | echo 2 -a New Description given to pack $chr(35) $+ $2
n214=}