######################
# Bighorn's AliasPak #
######################
^assign ap.version Version 1.3 (1.8.5quasar)
^assign ap.ver_num 1.3 (1.8.5quasar)
#############################################################
# IRCdough vms client version 1.5 (3.0.7r bighorn) or greater
# required for this version of Aliaspak.
#############################################################
############################################################
# You can get the latest version of Bighorn's AliasPak from:
#
# FTP
# site: ftp.undernet.org
# directory: /irc/scripts/vms
# login: anonymous
# password: your email address
#
# site: ubvmsa.cc.buffalo.edu
# directory: [.maslib.utilities.irc]
# login: anonymous
# password: your email address
#
# Undernet IRC
# Bot: VmsServ
# Server: us.undernet.org
# commands: /server us.undernet.org
# /msg vmsserv !get aliaspak.irc
# /dcc get vmsserv
#
# You can also /msg Bighorn or Remainz on Undernet.
#
############################################################
############################################################################
# If you would like this aliaspak to load automatically when you logon to #
# irc, put the following line into your global.ircrc file: #
# #
# /load aliaspak.irc #
############################################################################
alias apak {
echo **************************************************************************
echo *** ***Bighorn's AliasPak*** ***
echo *** $ap.version ***
echo *** ***
echo *** type /aliashelp (or /ahelp) for help on special commands. Email ***
echo *** Bighorn (Anthony) at arsebestyen@CSUPomona.Edu if you have any ***
echo *** suggestions or questions about this alias package. ***
echo **************************************************************************
}
on -376 * apak;/^on 376 -*
# Some /on statements provided by Ensor to take advantage of the new
# features of the latest version of the undernet IRC servers.
on ^367 * if ([$4] != []) {echo *** $1 \($3 - $stime($4)) $2} {echo *** $1-}
on ^333 * echo *** Topic for $1 set by $2 on $stime($3)
on ^317 * if (index(012345679 $3) != -1) {echo *** $1 has been idle for $tdiff($2). Signon at $stime($3)}
{echo *** $1 has been idle for $tdiff($2).}
on ^329 "*" echo *** $1 : created $stime($2)
on ^raw_irc "% SILENCE %" echo *** $*
# To be displayed with ctcp version, ctcp finger, and ctcp clientinfo
on -ctcp "% % VERSION" /ap.versioninfo $0-
on -ctcp "% % FINGER" /ap.versioninfo $0-
on -ctcp "% % CLIENTINFO" /ap.ctcpnotice $0-
on -ctcp "% % DCC" /ap.ctcpnotice $0-
on -ctcp "% % PING" /ap.ctcpnotice $0-
alias ap.versioninfo {
^Notice $0 $N is using Bighorn's Aliaspak $ap.version
ap.ctcpnotice $0-
}
alias ap.ctcpnotice {
if (ischannel($1)) {
echo *** $0 is using CTCP $2 on channel $1}
{echo *** $0 is using CTCP $2 on you}
}
#################
alias ap.help.general {
clr
echo ****************************************************************************
echo ***Bighorn's AliasPak***
echo $ap.version
echo Written by Bighorn and Remainz
echo ****************************************************************************
echo Aliashelp Options
echo
echo intro what is Bighorn's AliasPak? win window commands
echo new list of new stuff msg message commands
echo server server commands answer answering machine
echo smenu server selection dcc dcc commands
echo join channel selection log log and lastlog commands
echo chan channel mode commands vms vms commands executed from irc
echo op operator commands utils utilities
echo who who, name, and list commands misc miscellaneous stuff
echo finger finger and ctcp commands fun some fun actions, etc...
echo notify notify commands credit who deserves some credit?
echo kick kick and ban commands
echo
echo type /ahelp (or /ah ) example: /ahelp intro
echo ****************************************************************************
}
alias ahelp aliashelp
alias ah ahelp
alias help {
//echo Type /ahelp for information on Bighorn's AliasPak
//help
}
alias ap.help.options {
echo ** /ahelp options: intro smenu op notify msg log misc
echo new join who kick answer vms fun
echo server chan finger win dcc utils credit
echo
echo ** For a description of help menus, type /ahelp (or /ah)
}
#################
alias ap.help.intro {
clr
echo ****************************************************************************
echo Bighorn's AliasPak was mainly developed because of the lack of unix scripts
echo that would run on Dough's vms client (ircII client for vms). My goal has
echo been to provide a simple pak with an assortment of useful aliases. I've
echo received a lot of help along the way, and Remainz, along with a few others,
echo has been instrumental in the development of Aliaspak. Type /credit for
echo a list of people that have contributed to Bighorn's AliasPak. Although this
echo aliaspak was specifically designed to run on vms ircII clients, most of it
echo will also run on unix ircII clients. If you have any suggestions regarding
echo aliaspak, please feel free to email me at arsebestyen@CSUPomona.Edu
echo LOAD AT YOUR OWN RISK. Beware that there may be modified copies out there.
echo Hope you enjoy Bighorn's AliasPak. I've enjoyed putting it together :).
echo
echo Anthony
echo Bighorn@irc
echo
ap.help.options
echo ****************************************************************************
}
#################
###############################################
# no_nick thought up the /ahelp format
###############################################
alias aliashelp {
if ([$0]==[]) {ap.help.general}
if (match(intro* $0)) {ap.help.intro}
if (match(new* $0)) {ap.help.new}
if (match(serv* $0)) {ap.help.server}
if (match(sme* $0)) {ap.help.smenu}
if (match(j* $0)) {ap.help.join}
if (match(ch* $0)) {ap.help.channel}
if (match(o* $0)) {ap.help.op}
if (match(who* $0)) {ap.help.who}
if (match(fing* $0)) {ap.help.finger}
if (match(no* $0)) {ap.help.notify}
if (match(k* $0)) {ap.help.kick}
if (match(ban* $0)) {ap.help.kick}
if (match(win* $0)) {ap.help.win}
if (match(ms* $0)) {ap.help.msg}
if (match(ans* $0)) {
if (match(*2* $0)) {ap.help.answer.2} {ap.help.answer}
}
if (match(dcc* $0)) {ap.help.dcc}
if (match(log* $0)) {ap.help.log}
if (match(vms* $0)) {ap.help.vms}
if (match(ut* $0)) {ap.help.utilities}
if (match(mi* $0)) {ap.help.misc}
if (match(fun* $0)) {ap.help.fun}
if (match(cr* $0)) {ap.help.credit}
}
alias ap.help.new {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo What's New in Bighorn's AliasPak
echo
echo In Version 1.3 (1.8.5quasar) 5-25-95 12:06am pacific
echo New Answering Machine Script. Type /ah ans for more details.
echo /logmsgs actually saves messages to a file now.
echo /cd script that eliminates the need for brackets when using the /cd command
echo Rot13 script added. Type /ah utils for more details
echo Undernet Servers updated in the Server Selection script and /wundernet fixed
echo Fun help menu rewritten and a couple fun aliases added.
echo Some fun stuff written by Sunil and converted by Remainz added.
echo /t1, /t2, /t3, /t4 were added. Changes topic using sunil's functions
echo /dc alias is now /dchat. Complaints of command being too close to "dcc"
echo /jbible, a bible discussion channel and /jcha, an irc game added
echo /l means /leave rather then /list now on the request of aliaspak users
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
#################
alias ap.help.smenu {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Server Selection Menu
echo
echo /unet US a selection of United States Undernet Servers
echo /unet CA a selection of Canadian Undernet Servers
echo /unet EU a selection of European Undernet Servers
echo /unet AU a selection of Australian Undernet Servers
echo /unet NZ a selection of New Zealand Undernet Servers
echo /fnet a selection of Efnet Servers
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.help.server2 {
echo /server type full server name or choose from server
echo abbreviations above. example: /s dav
echo
echo ** server abbreviations are also supported by /wns /wnet /ws /stats and /motd
echo ** for a list of server commands, type /ahelp shelp
}
alias ap.help.server {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Server Commands
echo
echo /ah smenu server selection menus
echo /s server command
echo /wns create a window in a different server
echo /ws change servers of a window
echo /wnet make server your only visible window
echo /stats [] find out some stats on a server
echo /motd look at the motd of a server
echo
echo /undernet connect to an undernet server
echo /wundernet create a window to undernet
echo /efnet connect to an efnet server
echo /wefnet create a window to efnet
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias s server $0-
alias undernet //server davis.ca.us.undernet.org
alias wundernet //window new server davis.ca.us.undernet.org
alias efnet //server irc.colorado.edu
alias wefnet //window new server irc.colorado.edu
alias dalnet //server uncc.dal.net
alias wdalnet //window new server uunc.dal.net
alias unet {
if ([$0] == [US]) {ap.unet.us}
if ([$0] == [CA]) {ap.unet.ca}
if ([$0] == [EU]) {ap.unet.eu}
if ([$0] == [AU]) {ap.unet.au}
if ([$0] == [NZ]) {ap.unet.nz}
if ([$0] == []) {echo *** Available options: US CA EU AU NZ}
}
alias ap.unet.US {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo United States Undernet Server Selection
echo
echo Davis.......California Boston.....Massachusetts Pittsburgh.......Pennsylvania
echo Sanjose.....California Rochester..Michigan Charlottesville..Virginia
echo Washington..DC Norman.....Oklahoma Milwaukee........Wisconsin
echo Manhattan...Kansas Austin.....Texas
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.unet.CA {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Canadian Undernet Server Selection
echo
echo Montreal..Quebec
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.unet.EU {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo European Undernet Server Selection
echo
echo Vienna..Austria Amsterdam..Netherlands Ljubljana...Slovania
echo Oxford..England Delft......Netherlands Gothenburg..Sweden
echo Caen....France Oslo.......Norway Lausanne....Switzerland
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.unet.AU {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Australian Undernet Server Selection
echo
echo Brisbane....Australia
echo Wollongong..Australia
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.unet.NZ {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo New Zealand Undernet Server Selection
echo
echo Auckland....New Zealand
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
##############################################################
#
# the following routine returns the full address of an
# undernet server from a shortened (3 letter +) version of
# the city name.
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
##############################################################
# Server Script last maintenanced by Bighorn 5-12-95
##############################################################
alias ap.unlu {
^assign ap.unet.serv.1 davis.ca.us
^assign ap.unet.serv.2 sanjose.ca.us
^assign ap.unet.serv.3 washington.dc.us
^assign ap.unet.serv.4 manhattan.ks.us
^assign ap.unet.serv.5 boston.ma.us
^assign ap.unet.serv.6 rochester.mi.us
^assign ap.unet.serv.7 norman.ok.us
^assign ap.unet.serv.8 pittsburgh.pa.us
^assign ap.unet.serv.9 austin.tx.us
^assign ap.unet.serv.10 charlottesville.va.us
^assign ap.unet.serv.11 milwaukee.wi.us
^assign ap.unet.serv.12 montreal.qu.ca
^assign ap.unet.serv.13 delft.nl.eu
^assign ap.unet.serv.14 caen.fr.eu
^assign ap.unet.serv.15 oslo.no.eu
^assign ap.unet.serv.16 vienna.at.eu
^assign ap.unet.serv.17 amsterdam.nl.eu
^assign ap.unet.serv.18 ljubljana.si.eu
^assign ap.unet.serv.19 oxford.uk.eu
^assign ap.unet.serv.20 lausanne.ch.eu
^assign ap.unet.serv.21 gothenburg.se.eu
^assign ap.unet.serv.22 brisbane.qld.au
^assign ap.unet.serv.23 wollongong.nsw.au
^assign ap.unet.serv.24 auckland.nz
^assign serv_match 0
^assign req_ser $tolower($left(3 $0))
@ii = 1
while ((ii<=24)&&(serv_match == 0)) {
if ([$left(3 $ap.unet.serv[$ii])] == [$req_ser])
{
^assign serv_match ${ap.unet.serv[$ii]}
^assign -dummy
}{}
@ii = ii+1
}
if (serv_match != 0) {
^assign yer_server ${serv_match}.undernet.org
^assign -dummy
}
{@yer_server = -1}
@function_return = yer_server
}
alias fnet {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Selection of Efnet Servers
echo
echo harp.aix.calpoly.edu......California
echo irc.colorado.edu..........Colorado
echo csz.bu.edu................Massachusetts
echo sluaxa.slu.edu............Missouri
echo alfred1.u.washington.edu..Washington
echo
echo
ap.help.server2
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
###########################################################
#
# this routine looks up the address of an efnet server
# (from a very short list) given the first three letters
# of its site name.
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
###########################################################
alias ap.eflu {
^assign ap.efserv.1 irc.colorado.edu
^assign ap.efserv.2 sluaxa.slu.edu
^assign ap.efserv.3 alfred1.u.washington.edu
^assign ap.efserv.4 csz.bu.edu
^assign ap.efserv.5 harp.aix.calpoly.edu
^assign serv_match 0
^assign req_ser $tolower($left(3 $0))
@ii = 1
while ((ii <= 5)&&(serv_match == 0))
{
if ([$left(3 $ap.efserv[$ii])] == [$req_ser])
{
^assign serv_match ${ap.efserv[$ii]}
^assign -dummy
}{}
@ii = ii+1
}
if (serv_match != 0) {
@yer_server = serv_match
}
{@yer_server = -1}
@function_return = yer_server
}
alias ap.servpr {
@sverflg = 0
if ([$index("." $0)] == -1) {
^assign newsrv $ap.unlu($0)
if ([$newsrv] == -1) {^assign newsrv $ap.eflu($0)}
{@function_return = [$newsrv]}
if ([$newsrv] == -1) {
echo *** ERROR: the requested server is not available: $0
@sverflg = 1
@function_return = -1
}
{@function_return = [$newsrv]}
}
{@function_return = [$0]}
}
alias ap.servx {
^assign -svrnik
^assign -svtail
if ([$1]) {
@svtail = [:]
@svtail = svtail ## [$1-]
} {}
if ([$0]) {
^assign stmpw $0
@sz = [$@stmpw]
if ([$index(":" $stmpw)] != -1) {
@svidx = [$index(":" $stmpw)]
@szr = sz - svidx
@svrvv = [$left($svidx $stmpw)]
@svrnik = [$right($szr $stmpw)]
}
{^assign svrvv $0;^assign svrnik :$N}
@function_return = [$ap.servpr($svrvv)$svrnik$svtail]
}
{
@sverflg = 1
echo *** please specify a server.
# //server
}
}
alias wns {
@svrfinal = [$ap.servx($0-)]
if (sverflg == 0) {
window new server $svrfinal
^assign -dummy
} {}
}
alias ws {
@svrfinal = [$ap.servx($0-)]
if (sverflg == 0) {
window server $svrfinal
^assign -dummy
} {}
}
alias wnet {
wns $0-
window hide_other
}
alias motd if ([$0]) {//motd $ap.servpr($0)} {//motd}
########################################################
alias server {
@svrfinal = [$ap.servx($0-)]
if (sverflg == 0) {
//server $svrfinal
^assign -dummy
} {}
}
alias stats {
if ([$1]) {//stats $0 $ap.servpr($1)} {//stats $0}
}
#################
alias ap.help.join {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Join Channel Commands
echo
echo /j join a channel /jf join #friendly
echo /l part a channel /jh join #help
echo /part part current channel /ji join #Ireland
echo /ja join #ark /jl join #linux
echo /jbible join #bible /jp join #popcorn
echo /jc join #chat /jr join #riskybus
echo /jcha join #chaos /js join #startrek
echo /jch join #chatzone /jt join #talk
echo /chit join #chitchat /j30 join #30plus
echo /jchrist join #Christian /j41 join #41plus
echo /jchr join #Christians /jvms join #vmshelp
echo /jes join #Espanol /jw join #wasteland
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias j {
if ([$0]) {
if (ischannel($0))
{//join $0}
{//join #$0}
}
}
alias join j
alias l {
if ([$0]) {
if (ischannel($0) || ([$0]==[*]))
{//part $0}
{//part #$0}
}
}
##################################
# part script written by no_nick #
##################################
alias part {
if ([$0]) {
if (ischannel($0) || ([$0]==[*]))
{//part $0}
{//part #$0}
}
{/part $C}
}
alias ja //join #ark
alias jbible //join #bible
alias jc //join #chat
alias jcha //join #chaos
alias jch //join #chatzone
alias jchit //join #chitchat
alias jChrist //join #Christian
alias jChr //join #Christians
alias jes //join #Espanol
alias jf //join #friendly
alias jh //join #help
alias ji //join #ireland
alias jl //join #linux
alias jp //join #popcorn
alias jr //join #riskybus
alias js //join #startrek
alias jt //join #talk
alias j30 //join #30plus
alias j41 //join #41plus
alias jvms //join #vmshelp
alias jw //join #wasteland
#################
alias ap.help.channel {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Channel Mode Commands
echo
echo /mod [spec] short for /mode #channelname
echo /t set channel topic
echo /t1 set channel topic with fun. /t2 /t3 /t4 also available.
echo
echo /nt no outside msging /dent open channel for outside msging
echo /i invite only /dei remove invite only
echo /si secret and invite only /desi remove secret and invite only
echo /p private /dep remove private
echo /moder moderate /demoder unmoderate
echo /lim user limit on channel /delim remove limit
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias mod //mode $C $0 $1-
alias t //topic $C $0-
alias nt //mode $C +nt
alias dent //mode $C -nt
alias i //mode $C +i
alias dei //mode $C -i
alias si //mode $C +si
alias desi //mode $C -si
alias p //mode $C +p
alias dep //mode $C -p
alias moder //mode $C +m
alias demoder //mode $C -m
alias lim //mode $C +l $0
alias delim //mode $C -l $0
#################
alias ap.help.op {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Channel Operator Commands
echo
echo /op give up to 3 people ops.
echo /deop deop up to 3 people.
echo /v voice up to 3 people.
echo /dev devoice up to 3 people.
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias op //mode $C +ooo $0 $1 $2
alias deop //mode $C -ooo $0 $1 $2
alias v //mode $C +vvv $0 $1 $2
alias dev //mode $C -vvv $0 $1 $2
#################
alias ap.help.kick {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Kick and Ban Commands
echo
echo /k [comment] to kick someone
echo /ban ban nick by user@host
echo /kb [comment] deop, kick and ban someone by user@host
echo /siteban bans the site someone is on
echo /unban unban nick by user@host
echo /ban list of users banned on a channel.
echo /clearban clears all bans on a current channel
echo /undo <*pattern*> unbans according to a certain pattern
echo /shh ignore private msgs from a nick
echo /shutup ignore private and public msgs from a nick
echo /silence Undernet silence command
echo /unsilence remove /shh, /shutup, or /silence from nick
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
##############################################################
#
# ban script -- this script will do a traditional
# *!*user@host ban. It will handle IP #
# addresses correctly.
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
alias ban {
if ([$0]) {
^assign him $0
userhost $him -cmd ap.ban2 $$0 $$3 $$4
} {//mode $C +b}
}
alias ap.ban2 {
if ([$1]) {ap.ban3 $0 $1 $2} {echo *** no such nickname}
}
alias ap.ban3 {
^assign usr $strip(#~ $1)
^alias enleve @ FUNCTION_RETURN = [$MID($INDEX("." [$2]) 99 $2)]
^alias tenleve @ FUNCTION_RETURN = [$MID(0 $RINDEX("." [$2]) $2)]
if ([$RIGHT(1 $2)] <= 9) {^assign machine $tenleve($2)*} {^assign machine *.$enleve($2)}
//mode $C +b *!*$mid(0 8 $usr)*@$machine
}
##############################################################
#
# Deop, Ban by user@host, and Kick.
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
alias kb {
^assign him $0
^assign -chk_cmt
^assign chk_cmt $1-
userhost $him -cmd ap.kb2 $$0 $$3 $$4
}
alias ap.kb2 {
if ([$1]) {ap.kb3 $0 $1 $2} {echo *** no such nickname}
}
alias ap.kb3 {
^assign usr $strip(#~ $1)
^alias enleve @ FUNCTION_RETURN = [$MID($INDEX("." [$2]) 99 $2)]
^alias tenleve @ FUNCTION_RETURN = [$MID(0 $RINDEX("." [$2]) $2)]
if ([$RIGHT(1 $2)] <= 9) {^assign machine $tenleve($2)*} {^assign machine *.$enleve($2)}
//mode $C -o+b $him *!*$mid(0 8 $usr)*@$machine
//kick $C $him ${chk_cmt}
}
##############################################################
#
# Unban script -- this script will attempt to remove all
# occurrences of bans on a nick.
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
alias unban {
if ([$0]) {ap.uban2 $0}
}
alias ap.uban2 {
userhost $0 -cmd ^assign wrkban $$0!$$3@$$4
^on ^367 * if (rmatch($wrkban $2)) {@ bl = [$bl $2]}
^assign cnt 0
^mode $C +b
wait
while (word($cnt $bl)) {
ap.unbanloop $word($cnt $bl) $word(${cnt+1} $bl) $word(${cnt+2} $bl)
@ cnt = cnt + 3
}
^assign -bl
^assign -cnt
^on ^367 -*
resTS
}
alias clearban {
echo *** Clearing bans.
^set display off
^assign -clsban
^on -367 * {^assign clsban $2 ${clsban}}
//mode $C +b
wait
^ap.unbanloop $clsban
^set display on
^on 367 -*
resTS
}
alias ap.unbanloop {
if ([$3]) {
//mode $C -bbb $0 $1 $2
ap.unbanloop $3-
}
{if ([$2]) {//mode $C -bbb $0 $1 $2}
{if ([$1]) {//mode $C -bb $0 $1}
{if ([$0]) {//mode $C -b $0}
}
}
}
}
alias resTS ^on ^367 * if ([$4] != []) {echo *** $1 \($3 - $stime($4)) $2} {echo *** $1-}
##############################################################
#
# the following code unbans a pattern. not terribly useful,
# but used by the /siteban code.
#
# USAGE: /undo *pattern*
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
alias undo {
^assign -toundo
@toundo = [$0]
^on ^367 * if (rmatch($2 $toundo)) {@ bl = [$bl $2]}
^assign cnt 0
^mode $C +b
wait
while (word($cnt $bl)) {
ap.unbanloop $word($cnt $bl) $word(${cnt+1} $bl) $word(${cnt+2} $bl)
@ cnt = cnt + 3
}
^assign -bl
^assign -cnt
^on ^367 -*
resTS
}
##############################################################
#
# the following bans the site of nick by removing all account
# bans from the site and then banning *!*@*.host
#
# -- Written by Remainz (chedean@ACS.EKU.EDU)
#
##############################################################
alias siteban {
userhost $0 -cmd ^assign mach $$4
wait
@ mach = [$MID($INDEX("." [$mach]) 99 $mach)]
^assign machine *!*@*.$mach
undo $machine
^mode $C +b $machine
}
alias k //kick $C $0 $1-
alias b /ban
alias unb /unban $C $0
alias blist //mode $C b
alias shh userhost $0 -cmd //ignore $$3@$$4 all -public
alias shutup userhost $0 -cmd //ignore $$3@$$4 all
alias silence userhost $0 -cmd //quote silence +$$3@$$4
alias sile silence
alias unsilence {
//userhost $0 -cmd //ignore $$3@$$4 none
//userhost $0 -cmd //quote silence -$$3@$$4
}
alias unsile unsilence
#################
alias ap.help.who {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Who Commands
echo
echo /w who is on a channel
echo /wa does a /who on everyone currently on irc
echo /wi find out who someone is
echo /ww find out who someone was
echo /li list of channels
echo /na names on irc
echo /na names on a specified channel
echo /nc names on current channel
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias w {
if ([$0]) {
if (ischannel($0) || ([$0]==[*]))
{//who $0-}
{//who #$0-}
}
{//who $C}
}
alias wa //who
alias wi //quote whois $0 $0
alias ww //whowas $0
alias li {
if ([$0]) {
if (ischannel($0) || ([$0]==[*]))
{//list $0-}
{//list #$0-}
}
{//list $C}
}
alias na {
if ([$0]) {
if (ischannel($0) || ([$0]==[*]))
{//names $0-}
{//names #$0-}
}
{//names}
}
alias nc {
if ([$0]) {
if (ischannel($0))
{//names $0-}
{//names #$0-}
}
{//names $C}
}
alias ap.help.finger {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Finger Commands
echo
echo /version [*|nick] find out the client version someone is using
echo /finger find out information about person with finger
echo /netfinger finger someone's email address
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
########### This is Bugged
alias finger //ctcp $0 finger
alias netfinger {
if ([$0]) {
if ([$index(*@ $0)]==[-1])
{//userhost $0 -cmd //exec finger $$strip(~ $3@$4)} {//exec finger $0}
}
}
alias ver {
if ([$0]) {
if ([$0] == [*]) {//ctcp $C version} {//ctcp $0 version}
}{//ver;echo *** You are using Bighorn's AliasPak $ap.version}
}
alias version ver
alias nf netfinger
alias version ver
################
alias ap.help.notify {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Notify Commands
echo
echo /notify lists all the names on the notify list
echo /notify + lists the nicks present only
echo /notify adds nicks to this sessions notify list
echo /notify + adds nicks to this sessions notify list
echo /notify - removes nicks from this sessions notify list
echo /notify ++ adds nicks to the permanent list
echo /notify -- deletes a nick from the permanant list
echo /vnotify views the notify.list file
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias no notify $0-
#########################################################################
#
# notify.irc -- manages a permanent notify list between irc sessions.
# this script written by RemAinz (chedean@acs.eku.edu) 8 Feb 95
#
# superpak /snotify, /lnotify, and /znotify are also supported,
# for those people who are more comfortable with them.
#
# NOTE: VMS IRCII 1.4 (2.7.1) or better ONLY.
#
##########################################################################
on ^notify_signon * {
if (([$0]!=[bh123]) && ([$0]!=[aliaspak]) && ([$0]!=[remainz5])) {
userhost $* -cmd echo *** Signon by $$0 [$strip(~# $$3@$$4)] detected at $Z
}
}
on ^notify_signoff * {
if (([$0]!=[bh123]) && ([$0]!=[aliaspak]) && ([$0]!=[remainz5])) {
echo *** Signoff by $0 detected at $Z
}
}
##########################################################################
#
# some list functions courtesy of hop (jnelson@iastate.edu)
#
##########################################################################
alias ap.leftw {
@function_return=[$(1-$0)]
}
alias ap.notw {
if ([$0])
{@ _pad = [ ]}
{@ _pad = []}
@ _words = [$1-]
@ function_return = [$ap.leftw($0 $1-)]##[$_pad]##[$ap.restw(${[$0]+1} $1-)]
}
alias ap.restw {
@ function_return = [$(${[$0]+1}-)]
}
alias ap.remw {
@ _pattern = rmatch($0 $1-)-1
if (_pattern != -1)
{@function_return = ap.notw($_pattern $1-)}
{@function_return = [$1-]}
}
########################################################################
alias notify {
if ([$0])
{
if ([$left(1 $0)] == [-])
{
//notify -$strip(- $0-)
^assign ny_lst $ap.remw($mid(1 1000 -$strip(- $0-)) $ny_lst)
if ([$left(2 $0)] == [--]) {snotify} {}
}{
if ([$0] == [+])
{
//notify +
}{
^assign ny_lst $ny_lst $strip(+ $0-)
//notify $strip(+ $0-)
if ([$left(2 $0)] == [++]) {snotify} {}
}
}
}{
//notify
}
}
alias znotify {
echo *** Now clearing notify list.
@ind = 0
while (word($ind $ny_lst)) {
//notify -$word($ind $ny_lst)
@ind = ind + 1
}
^assign -ny_lst
echo *** Notify list cleared.
}
alias snotify {
@ny_fil = [sys$$login:notify.list]
exec del $ny_fil\;*
wait
@ny_fd = [$fopen_write($ny_fil)
echo *** Saving notify list.
@ny_siz = [$#ny_lst]
@ny_cnt = 0
while (ny_cnt <= ny_siz) {
@ind = 0
^assign -ny_wrt
while (ind < 6) {
^assign ny_wrt $ny_wrt $word($ny_cnt $ny_lst)
@ind = ind + 1
@ny_cnt = ny_cnt + 1
}
^assign ny_out notify$ny_wrt
@ny_err = [$fwrite($ny_fd 1 $ny_out)]
}
@ny_err = [$fclose($ny_fd)]
exec set protection=owner:rwd $ny_fil
echo *** Notify list saved.
}
alias lnotify {
^assign -ny_lst
load sys$$login:notify.list
}
/lnotify
alias vnotify view sys$$login:notify.list
##############################################################################
# Aliaspak Indicator Script 5-7-95
# --Written by Bighorn (arsebestyen@CSUPomona.Edu)
#
# This script will tell the aliaspak user if I have logged on if I choose
# to indicate that. It also allows me to see who is using aliaspak. I
# wrote this because some people find /ctcp #channel version a little annoying
# but I still like to keep in touch with aliaspak users.
#
# This script can be deleted, but I would appreciate it being left in aliaspak.
###############################################################################
notify bh123
notify aliaspak
notify remainz5
alias ap.inform.id userhost $ap.inform.nick -cmd ^assign ap.inform.address $$3@$$4;^wait
^on ^notify_signon bh123 {
^assign ap.inform.nick bh123
^assign ap.co_author Bighorn
ap.inform.id
if (match(*arsebest* $ap.inform.address)) {/ap.author.notify}
}
^on ^notify_signon remainz5 {
^assign ap.inform.nick remainz5
^assign ap.co_author Remainz
ap.inform.id
if (match(*chedean* $ap.inform.address)) {/ap.author.notify}
}
^on ^notify_signon aliaspak {
^assign ap.inform.nick aliaspak
ap.inform.id
userhost $N -cmd ^assign ap.inform.user $$3@$$4;^wait
if (match(*arsebest* $ap.inform.address) || match(*chedean* $ap.inform.address)) {/ap.inform.me}
}
alias ap.inform.me /notice aliaspak [$ap.inform.user] is running Aliaspak ver $ap.ver_num
alias ap.author.notify {
echo *** $ap.co_author, co-author of Bighorn's Aliaspak ver $ap.ver_num, is here!
echo *** /msg $ap.co_author if you have any comments or suggestions regarding Aliaspak.
}
on ^ctcp "% % aliaspak" notice $0 $N is running Bighorn's Aliaspak $ap.ver_num
#################
alias ap.help.win {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Window Commands
echo
echo /wns open new window with a specific server
echo /wnet make your only visible window
echo /wn [channel] open up a new window and join a specified channel
echo /wk kill a window
echo /wf move forward one window
echo /wb move back one window
echo /wnx go to the next window
echo /wh hide other window
echo /wgoto go to a specific window
echo /wg make current window size grow by x lines
echo /wsh make current window size shrink by x lines
echo /wl list of open windows
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias wn {
if ([$0]) {//window new;j $0} {//window new}
}
alias wk //window kill $0
alias wf //window forward
alias wb //window back
alias wnx //window next
alias wh //window hide_other
alias wgoto //window goto $0
alias wg //window grow $0
alias wsh //window shrink $0
alias wl //window list
alias wshow //window show
##########
alias ap.help.msg {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Message Commands
echo
echo /m /msg someone
echo /m1 /msg in fun script. /m2, /m3, /m4 also available
echo /n send a notice to a person or channel
echo /q query a nick or a channel.
echo /msgs shows the current format of incoming msgs
echo /msgs select addressing format of incoming msgs
echo /msgs select color of incoming msgs
echo /msgs [s|e] [b|r|p] select format and color of incoming msgs
echo /pa send a private action to someone
echo /ns leave someone a note to read when they logon
echo /notebh leave comments or bug reports for Bighorn
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias m //msg $0 $1-
#########################################################
#
# msgs.irc -- incoming /msg formatting
# by RemAinz (remainz@alias.undernet.org) 13 FEB 95
#
#########################################################
alias userdomain @ function_return = [$LEFT($INDEX(\@ $0) $0)@$MID(${1+INDEX(. $0)} 32 $0)]
################
# some defaults
#################
^on ^msg * echo [$0:$strip(#~^ $userdomain($userhost()))] $1-
^assign ap.ms_exd extended
^assign ap.ms_clr bold
^assign ap.ms_c
alias msgs {
^assign ap.msclr.1 plain
^assign ap.msclr.2 bold
^assign ap.msclr.3 reverse
^assign ap.msex.1 standard
^assign ap.msex.2 extended
@ap.msval.1 = []
@ap.msval.2 = []
@ap.msval.3 = []
if ([$0]) {
@ap.ms_tmp = [$tolower($left(1 $0))]
foreach ap.msclr ii {
if ([$match($ap.ms_tmp* $ap.msclr[$ii])] != 0) {
@ap.ms_clr = ap.msclr[$ii]
@ap.ms_c = ap.msval[$ii]
}
}
foreach ap.msex ii {
if ([$match($ap.ms_tmp* $ap.msex[$ii])] != 0) {@ap.ms_exd = ap.msex[$ii]}
}
if ([$1]) {
@ap.ms_tmp = [$tolower($left(1 $1))]
foreach ap.msclr ii {
if ([$match($ap.ms_tmp* $ap.msclr[$ii])] != 0) {
@ap.ms_clr = ap.msclr[$ii]
@ap.ms_c = ap.msval[$ii]
}
}
foreach ap.msex ii {
if ([$match($ap.ms_tmp* $ap.msex[$ii])] != 0) {@ap.ms_exd = ap.msex[$ii]}
}
}
if ([$ap.ms_exd] == [standard]) {
^on ^msg -"*"
if ([$ap.ms_clr]!=[plain]) {^on ^msg * msgstd $$0 $$1-} {}
}{
^on ^msg -"*"
if ([$ap.ms_clr]!=[plain]) {^on ^msg * msgexd $$0 $$1-} {^on ^msg * msgexn $$0 $$1-}
}
}
echo *** messages in $ap.ms_clr $ap.ms_exd format
}
alias msgstd {
echo $ap.ms_c\*$0\*$ap.ms_c $1-
}
alias msgexd {
@ms.adr = [$ap.ms_c]##[\[$0:$strip(#~^ $userdomain($userhost()))\]]##[$ap.ms_c]
echo $ms.adr $1-
}
alias msgexn {
echo [$0:$strip(#~^ $userdomain($userhost()))] $1-
}
alias n //notice $0 $1-
alias q //query $0
alias pa //desc $0 $1-
alias ns //quote note send $0-
alias notebh {
//quote note send bighorn $0-
echo Thank you for leaving me a note. You can also email me with any comments,
echo suggestions, or bug reports at arsebestyen@CSUPomona.Edu
}
alias ap.help.answer {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Answering Machine Commands
echo
echo /answer turns recording incoming msgs on or off
echo /convo records incoming/outgoing msgs or toggles off
echo /record records msgs to a file or toggles /record off
echo /setmsg [] customize your answering machine msg.
echo /listmsgs gives a list of all saved msgs.
echo /listmsgs [| to ] lists msgs by specified number or range
echo /listmsgs [] lists msgs according to nick or word(s)
echo /playback plays back all saved msgs
echo /playback [| to ] plays back a msg by number or range of numbers
echo /playback [] plays back msgs according to nick or word(s)
echo /delmsg deletes all msgs.
echo /ah answer2 help on additional Answering Machine Commands
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias ap.help.answer.2 {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Answering Machine Commands
echo
echo /preview plays back a small preview of all msgs
echo /preview [| to ] preview msgs by a number or range of numbers
echo /preview [] previews msgs according to nick or word(s)
echo /viewmsgs views the msg file created by /record
echo /sendmsg [] sends /playback to nick or #channel
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
###################################################################
# Answering Machine Script 5-24-95
#
# -- written by Bighorn (arsebestyen@csupomona.edu)
#
# /delmsg written by Quasar (stdrjn@niord.shsu.edu)
#
# Thanks to no_nick and Quasar or all their help and suggestions.
#
###################################################################
# defaults
@ap.ans.switch = [off]
@ap.ans.convo.switch = [off]
@ap.ans.rec.switch = [off]
@ap.ans.num = [1]
@ap.ans.counter = [1]
@ap.ans.marker = [stop]
alias answer {
if ([$ap.ans.switch]==[off]) {
@ ap.ans.switch = [on]
@ ap.ans.convo.switch = [off]
@ ap.ans.status = [AnsON]
}{
@ ap.ans.switch = [off]
@ ap.ans.convo.switch = [off]
@ ap.ans.status = [AnsOFF]
}
/ap.ans.display_status
}
alias convo {
if ([$ap.ans.convo.switch]==[off]) {
@ ap.ans.switch = [on]
@ ap.ans.convo.switch = [on]
@ ap.ans.status = [ConvoON]
}{
@ ap.ans.switch = [off]
@ ap.ans.convo.switch = [off]
@ ap.ans.status = [ConvoOFF]
}
if (([$ap.ans.convo.switch]==[on]) && ([$ap.ans.rec.switch]==[on])) {
@ ap.ans.status = [RecConvoON]
}
/ap.ans.display_status
}
alias record {
if ([$0]) {
if ([$0]==[$ap.ans.file]) {
if ([$ap.ans.rec.switch]==[on]) {
@ ap.ans.rec.switch = [off]
}{
@ ap.ans.rec.switch = [on]
@ ap.ans.switch = [on]
}
}{
@ ap.ans.rec.file = [$0]
@ ap.ans.rec.switch = [on]
@ ap.ans.switch = [on]
}
}{
if ([$ap.ans.rec.switch]==[on]) {
@ ap.ans.rec.switch = [off]
}{
@ ap.ans.rec.switch = [on]
@ ap.ans.switch = [on]
}
}
if ([$ap.ans.rec.switch]==[on]) {
@ ap.ans.status = [RecON]
}{
@ ap.ans.status = [RecOFF]
}
if (([$ap.ans.rec.switch]==[on]) && ([$ap.ans.convo.switch]==[on])) {
@ ap.ans.status = [RecConvoON]
}
/ap.ans.display_status
}
alias ap.ans.display_status {
if ([$ap.ans.status]==[AnsON]) {//echo $ap.ans.info.1 msgs}
if ([$ap.ans.status]==[AnsOFF]) {//echo $ap.ans.info.2}
if ([$ap.ans.status]==[ConvoON]) {//echo $ap.ans.info.1 and outgoing msgs}
if ([$ap.ans.status]==[ConvoOFF]) {//echo $ap.ans.info.2}
if ([$ap.ans.status]==[RecON]) {//echo $ap.ans.info.1 msgs to [$ap.ans.rec.file]}
if ([$ap.ans.status]==[RecOFF]) {//echo $ap.ans.info.2 to [$ap.ans.rec.file]}
if ([$ap.ans.status]==[RecConvoON]) {//echo $ap.ans.info.1 and outgoing msgs to [$ap.ans.rec.file]}
}
@ ap.ans.info.1 = [*** Now recording incoming]
@ ap.ans.info.2 = [*** No longer recording msgs]
^on #^msg 111 * if ([$ap.ans.switch] == [on]) {
@ap.ans.counter = [1]
@ap.ans.nick = [$0]
/ap.time
userhost $ap.ans.nick -cmd ^assign ap.ans.ref.$ap.ans.num *** Message [$ap.ans.num$()] from $0
[$strip(~# $$3@$$4)] at $ap.time
^assign ap.ans.$ap.ans.num *$0* $1-
eval @ap.ans.temp_var = [$$ap.ans.$ap.ans.nick.$encode($ap.ans.msg)]
if (([$ap.ans.temp_var]!=[1]) && ([$ap.ans.msg.tog]==[y]))
{^notice $0 $ap.ans.msg
@ap.ans.$ap.ans.nick.$encode($ap.ans.msg) = [1]} {}
if ([$ap.ans.rec.switch]==[on]) {/ap.ans.record}
@ap.ans.num = [$ap.ans.num] + 1
@ap.ans.marker = [go] }
^on #^send_msg 111 * if ([$ap.ans.convo.switch] == [on]) {
@ap.ans.counter = [1]
/ap.time
^assign ap.ans.ref.$ap.ans.num *** Message [$ap.ans.num$()] to $0 at $ap.time
^assign ap.ans.$ap.ans.num -> *$0* $1-
if ([$ap.ans.rec.switch]==[on]) {/ap.ans.record}
@ap.ans.num = [$ap.ans.num] + 1
@ ap.ans.marker = [go]}
alias setmsg {
if ([$0])
{^assign ap.ans.msg $0-
^assign ap.ans.nick reset
echo *** Answering Machine message [$ap.ans.msg] has been set.}
{if ([$ap.ans.msg.tog]==[y])
{@ ap.ans.msg.tog = [n]
echo *** Answering Machine message deactivated.}
{@ ap.ans.msg.tog = [y]
echo *** Answering Machine message activated.}}
}
@ap.ans.msg.tog = [y]
^assign ap.ans.msg I have my Answering Machine on now. All your messages are being recorded.
alias ap.ans.num.check {
@ ap.ans.msg.num = [$ap.ans.num] - 1
echo *** There are only [$ap.ans.msg.num] messages to view
}
alias listmsgs {
if ([$index(1234567890 $0)]==[0])
{if (([$0] > [$ap.ans.num]) || ([$2] > [$ap.ans.num]))
{/ap.ans.num.check}
{@ ap.ans.search = [listmsgs]
/ap.ans.numbers $0-}}
{if ([$0])
{@ ap.ans.search = [listmsgs]
/ap.ans.nick $0}
{/ap.ans.listmsgs}}
}
alias ap.ans.listmsgs {
if ([$ap.ans.num]==[1])
{echo *** There are no messages to view}
{while ([$ap.ans.counter] < [$ap.ans.num])
{echo $ap.ans.ref[$ap.ans.counter$()]
@ ap.ans.counter = [$ap.ans.counter] + 1}}
if (([$ap.ans.num]!=[1]) && ([$ap.ans.bypass]!=[yes]))
{echo *** End of message list.
echo *** To view messages, type /playback
@ ap.ans.counter = [1]}
}
alias preview {
if ([$index(1234567890 $0)]==[0])
{if (([$0] > [$ap.ans.num]) || ([$2] > [$ap.ans.num]))
{/ap.ans.num.check}
{@ ap.ans.search = [preview]
/ap.ans.numbers $0-}}
{if ([$0])
{@ ap.ans.search = [preview]
/ap.ans.nick $0}
{/ap.ans.preview}}
}
alias ap.ans.preview {
if ([$ap.ans.num]==[1])
{echo *** There are no messages to view}
{while ([$ap.ans.counter] < [$ap.ans.num])
{eval @ ap.size = [$$@ap.ans.$ap.ans.counter]
if ([$ap.size] > [50])
{ ^assign ap.ans.continued [continued...] }
{ ^assign -ap.ans.continued }
echo [msg $ap.ans.counter$()] >>> $left(50 $ap.ans[$ap.ans.counter$()]) $ap.ans.continued
@ ap.ans.counter = [$ap.ans.counter] + 1}}
if (([$ap.ans.bypass]!=[yes]) && ([$ap.ans.num]!=[1]))
{echo *** End of message preview.
echo *** To view messages, type /playback
@ ap.ans.counter = [1]}
}
alias ap.ans.numbers {
@ ap.ans.counter = [$0]
@ ap.ans.hold_num = [$ap.ans.num]
if ([$2])
{@ ap.ans.num = [$2] + 1}
{@ ap.ans.num = [$0] + 1}
if ([$ap.ans.search]==[listmsgs]) {/ap.ans.listmsgs}
if ([$ap.ans.search]==[preview]) {/ap.ans.preview}
if ([$ap.ans.search]==[playback]) {/ap.ans.playback}
@ ap.ans.counter = [1]
@ ap.ans.num = [$ap.ans.hold_num]
}
alias playback {
if ([$ap.ans.num]==[1]) {
echo *** There are no messages to playback
}{
if ([$index(1234567890 $0)]==[0]) {
if (([$0] > [$ap.ans.num]) || ([$2] > [$ap.ans.num])) {
/ap.ans.num.check
}{
@ ap.ans.search = [playback]
/ap.ans.numbers $0-
}
}{
if ([$0]) {
@ ap.ans.search = [playback]
/ap.ans.nick $0
}{
/ap.ans.playback
}
}
}
}
alias ap.ans.playback {
while ([$ap.ans.counter] < [$ap.ans.num]) {
echo $ap.ans[$ap.ans.counter]
@ ap.ans.counter = [$ap.ans.counter] + 1
}
if ([$ap.ans.bypass]!=[yes])
{echo *** No more messages
@ ap.ans.counter = [1]}
}
alias ap.ans.nick {
@ ap.ans.hold_num = [$ap.ans.num]
@ ap.ans.num = [2]
@ ap.ans.bypass = [yes]
while ([$ap.ans.counter] < [$ap.ans.hold_num])
{if (match(*$0* $ap.ans[$ap.ans.counter]))
{@ ap.ans.num = [$ap.ans.num] + 1
if ([$ap.ans.search]==[listmsgs]) {/ap.ans.listmsgs}
if ([$ap.ans.search]==[preview]) {/ap.ans.preview}
if ([$ap.ans.search]==[playback]) {/ap.ans.playback}}
{@ ap.ans.counter = [$ap.ans.counter] + 1
@ ap.ans.num = [$ap.ans.counter]}}
if ([$ap.ans.search]==[playback])
{echo *** No more messages}
if ([$ap.ans.search]==[preview])
{echo *** End of message preview
echo *** To view messages, type /playback}
{echo *** End of message list
echo *** To view, messages type /playback}
@ ap.ans.counter = [1]
@ ap.ans.bypass = [no]
}
#################################################################
#
# Record Script to accompany the Answering Machine Script 4-13-95
# -- Written by Bighorn
#
#################################################################
# leftw and restw functions provided by hop (jnelson@iastate.edu
alias ap.leftw {
@function_return = [$(1-$0)]
}
alias ap.restw {
@ function_return = [$(${[$0]+1}-)]
}
@ ap.ans.line.length = [78]
@ ap.ans.spaces = [ ]
@ ap.ans.rec.file = [msgs.saved]
alias ap.ans.record {
eval @ap.ans.temp_msg = [$$ap.ans.$ap.ans.num]
@ ap.ans.temp.nick = [$ap.leftw(1 $ap.ans.temp_msg)]
@ ap.ans.nick.length = [$@ap.ans.temp.nick]
@ ap.ans.msg_segment = [$ap.leftw(1 $ap.ans.temp_msg)]
@ ap.ans.line.length.2 = [78] - [$ap.ans.nick.length]
@ ap.ans.file.id = [$fopen_write($ap.ans.rec.file 1)]
while ([$@ap.ans.temp_msg] > [$ap.ans.line.length]) {
while ([$@ap.ans.msg_segment] <= [$ap.ans.line.length]) {
@ ap.ans.counter = [$ap.ans.counter] + 1
@ ap.ans.msg_segment = [$ap.leftw($ap.ans.counter $ap.ans.temp_msg)]
}
@ first.word = [$ap.leftw(1 $ap.ans.msg_segment)]
if ([$@first.word] >= [$ap.ans.line.length]) {
$fwrite($ap.ans.file.id 1 $ap.ans.indent.spaces$left($ap.ans.line.length $ap.ans.temp_msg))
@ ap.ans.adjust = [$@ap.ans.temp_msg] - [$ap.ans.line.length]
@ ap.ans.temp_msg = [$right($ap.ans.adjust $ap.ans.temp_msg)]
}{
@ ap.ans.counter = [$ap.ans.counter] - 1
@ ap.ans.msg_segment = [$ap.leftw($ap.ans.counter $ap.ans.temp_msg)]
$fwrite($ap.ans.file.id 1 $ap.ans.indent.spaces$ap.ans.msg_segment)
@ ap.ans.temp_msg = [$ap.restw($ap.ans.counter $ap.ans.temp_msg)]
}
@ ap.ans.indent.spaces = [$left($ap.ans.nick.length $ap.ans.spaces)] ## [ ]
@ap.ans.line.length = [$ap.ans.line.length.2]
@ ap.ans.counter = [1]
@ ap.ans.msg_segment = [0]
}
$fwrite($ap.ans.file.id 1 $ap.ans.indent.spaces$ap.ans.temp_msg)
$fclose($ap.ans.file.id)
@ ap.ans.line.length = [78]
@ ap.ans.indent.spaces = []
@ ap.ans.counter = [1]
}
alias sendmsg //redirect $0 /playback $1
alias viewmsgs //exec type $ap.ans.rec.file
# aliases for answering machine aliases
alias ans answer
alias con convo
alias rec record
alias pre preview
alias listmsg listmsgs
alias listm listmsgs
alias play playback
alias delm delmsg
alias vmsg viewmsgs
##########################################
# Time Script 3-15-95
# --written by Bighorn
#
# Converts Military time to Standard time
##########################################
alias ap.time {
@ap.hour = [$left(2 $currtime())]
if ([$ap.hour]==[00])
{^assign ap.time 12$right(3 $left(5 $currtime())) am}
if ([$ap.hour]==[12])
{^assign ap.time $left(5 $currtime()) pm}
if (([$ap.hour] < [12]) && ([$ap.hour]!=[00]))
{^assign ap.time $left(5 $currtime()) am}
if ([$ap.hour] > [12])
{@ap.hour = [$ap.hour] - 12
^assign ap.time $ap.hour$right(3 $left(5 $currtime())) pm}
}
########################################################
#
# /delmsg written by Quasar (stdrjn@niord.shsu.edu)
#
########################################################
alias delmsg
{if ([$ap.ans.marker] == [stop]){echo *** There are no messages to delete.}{
echo *** [${ap.ans.num-1}] message(s) deleted
@ ap.ans.num = [1]
@ ap.ans.marker = [stop]}}
#################
alias ap.help.dcc {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo DCC Commands
echo
echo /dchat dcc chat between two people.
echo /dmsg send a msg through your dcc chat session
echo /dquery start a query through your dcc chat session
echo /dsend dcc someone a file
echo /dget dcc get a file
echo /dl list dcc's in process.
echo /dcl close a dcc
echo /dpak send Bighorn's AliasPak to someone.
echo /dccmsg A message to send to newbie dcc users
echo /dir get a list of your files
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias dchat //dcc chat $0
alias dmsg //msg =$0-
alias dm dmsg $0-
alias dquery //query =$0
alias dq dquery $0
alias ds //dcc send $0-
alias dsend ds $0-
alias dg //dcc get $0-
alias dget dg $0-
alias dl //dcc list
alias dcl //dcc close
alias dpak //dcc send $0 aliaspak.irc
alias dccmsg {
notice $0 To start a DCC Chat, type /dcc chat
notice $0 To get my file, type /dcc get
notice $0 to send your file, type /dcc send
}
##################
alias ap.help.log {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Log Commands
echo
echo /ll lastlog command.
echo /ll lastlog limited to nick
echo /lmsg last twenty msgs
echo /log saves conversation to a file.
echo /log turns off the log file.
echo /logll saves the lastlog to a file
echo /logmsgs [filename] activates away msg and logs all msgs
echo /cls clears the screen
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
@logfile = log.irc
alias log {
if ([$0]) {
if ([$0]==[$logfile])
{//window log toggle}
{//window log off
//window logfile $0
@logfile = $0
//window log on}
}{//window log toggle}
}
alias logll {
//window logfile $0
//window log on
//lastlog
//window log off
}
alias logmsgs /record $0-
alias ll //lastlog
alias lmsg lastlog -msg 20
#################
alias ap.help.vms {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo VMS Commands
echo
echo /cd [] change directories
echo /cd.. move up one directory
echo /dir [filename] list your file(s) only
echo /size [filename] list your file(s) and file size
echo /prot [filename] list file(s) and their file protection
echo /quota show your quota
echo /users who is on your system
echo /clock show time and date
echo /view view a file
echo /sp temporarily leave the client with spawn
echo /killghost kills a vms ghost
echo /logout logs you out of irc and your account
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias cd {
if (match([* $0)) {//cd $0} {//cd [.$0]}
}
alias cd.. //cd [-]
alias dir //exec directory
alias size //exec directory/size
alias prot //exec directory/size/protection
alias quota //exec show quota
alias users //exec show users
alias clock //exec show time
alias view //exec type
alias sp //spawn
#######################################
# killghost script written by no_nick #
#######################################
alias killghost if ([$0]) {
^on #-ctcp_reply 45 "$0 PID %"{
@ killit = [$2]
ap.killghost.real}
^ctcp $0 PID
}
alias ap.killghost.real {
^set exec_prot off
^on #ctcp_reply 45 -"$0 PID %"
echo *** Killing Process $killit
^exec stop/id=$killit
^set exec_prot on
}
alias kg killghost
alias logout killghost $N
alias logoff killghost $N
################
alias ap.help.utilities {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Utilities
echo
# echo /define Returns definition of a word using Webster's Dictionary
# echo /spell A Webster Thesaurus that gives a list of possible words
echo /verse Returns up to five random bible verses
echo /rot Sends an encrypted message over irc.
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
# Unable to find a dictionary.. if anyone finds one, email me. 5-21-95
####################################
# Telnet Webster Dictionary Script
# -- written by No_Nick
####################################
@ webster.host = [grouchy.cs.indiana.edu]
@ webster.port = [2627]
alias webster.inter {
if ([$1] == [])
{ echo *** Usage: /$0 word }
{ @ webster.connect = [$connect($webster.host $webster.port)]
if ([$webster.connect] == [-1])
{echo *** Failed to connect to the webster server}
{dcc raw $webster.connect 1 $0 $1}
}
}
alias define webster.inter DEFINE $0-
alias spell webster.inter SPELL $0-
########################################
# Gabriel's Horn Verse Script 1.1
# 1/28/95
# -- Written by Bighorn
########################################
@ verse.counter = [0]
alias verse {
if ([$verse.counter] < [5])
{dcc raw $connect(138.26.65.78 7777)}
{echo *** There is a five verse limit for each IRC session.}
@ verse.counter = [$verse.counter] + 1
if ([$verse.counter] == [4]) {^on -dcc_raw "* host c" /verse.msg}
}
alias verse.msg {
echo
echo *** You may view one more verse.
^on dcc_raw -"* host c"
}
#############################################
# Rot13 Script @1994
# written by Remainz (chedean@ACS.EKU.EDU)
#############################################
# slightly modified by Quasar 5-19-95
alias rot say (rot13) $rotth($0-)
@ anorm = [abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]
@ arot = [nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM]
alias rotth {
@ rline = [$0-]
@ rlen = [$@rline]
@ rnew = []
@ rcnt = 0
while (rcnt < rlen)
{
@ rind = index($mid($rcnt 1 $rline) $anorm)
if (rind > -1)
{
@rnew = rnew ## mid($rind 1 $arot)
}
{
@rnew = rnew ## mid($rcnt 1 $rline)
}
@rcnt = rcnt + 1
}
@ function_return = rnew
^assign -rcnt ;^assign -rnew ;^assign -rind ;^assign -rline
^assign -rlen
}
on ^public "*(rot13)*" echo [$0:$1] $rotth($3-) (rot13)
#################
alias ap.help.misc {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Miscellaneous Commands
echo
echo /in make yourself invisible
echo /dein make yourself visible
echo /cls clear screen
echo /a make your own aliases
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias in //mode $0 +i
alias dein //mode $0 -i
alias clr //clear
alias cls //clear
alias a //alias $0-
#################
alias ap.help.fun {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Some Fun Stuff...
echo
echo /greet /Jesus /isme
echo /smile /story /box
echo /laugh /teary /bw
echo /hug /cry /say1
echo /kiss /cry2 /say2
echo /rose /crybaby /say3
echo /massage /complain /say4
echo /dance /relief /me1
echo /birthday /bounce /me2
echo /java /sleepy /me3
echo /evil /sleep /me4
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
alias laugh say hahahahahahahahahahahahah
alias cry me cries 8..(...
alias cry2 say 8..(...
alias teary say 8~(
alias hug me hugs $0-
alias kiss me gives $0 a kiss :*
alias massage me gives $0 a shoulder massage... Relax...
alias evil say buahahahahaha >:)
alias Jesus say Remember, Jesus loves you
alias smile me smiles warmly :)
alias sleepy me is sooooo sleepy
alias sleep say |) zzzzZZZzzzzzz
alias crybaby me cries like a baby. WAAAAAAAAHHHH!!!!
alias dance me does the cranberry dance
alias java me offers you another cup of JAVA
alias story me gets out the story book
alias complain say I need to stop my sniveling
alias greet say $0!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
alias bounce me bounces around the room
alias birthday say2 Happy Birthday!!!!!!!!!!!!!!!!!!!!!
alias relief say How do YOU spell relief?
alias rose me gives $0 a rose @-'-,----
alias isme me is $0- is $0- is $0- is $0- is $0- is $0-
alias box {
say $0-$0-$0-
say $0-$0-$0-
say $0-$0-$0-
}
alias box2 {
say $0$0$0$0$0$0
say $0$0$0$0$0$0
}
alias bw say $reverse($0-)
alias ul say $upndown($0-)
alias say1 say $coolt($0-)
alias say2 say $coolta($0-)
alias say3 say $cooltal($0-)
alias say4 say $cooltalk($0-)
alias me1 me $coolt($0-)
alias me2 me $coolta($0-)
alias me3 me $cooltal($0-)
alias me4 me $cooltalk($0-)
alias m1 m $0 $coolt($1-)
alias m2 m $0 $coolta($1-)
alias m3 m $0 $cooltal($1-)
alias m4 m $0 $cooltalk($1-)
alias t1 //topic $C $coolt($0-)
alias t2 //topic $C $coolta($0-)
alias t3 //topic $C $cooltal($0-)
alias t4 //topic $C $cooltalk($0-)
##################################################
# Reverse Script
# -written by Remainz (remainz@alias.undernet.org)
##################################################
alias reverse {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
@tstr = out
@tchr = [$mid($pt 1 $in)]
^assign out $tchr$tstr
@pt = pt+1
}
@function_return = out
}
alias upndown {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
@out = out ## [$toupper($mid($pt 1 $in))]
@pt = pt + 1
@out = out ## [$tolower($mid($pt 1 $in))]
@pt = pt + 1
}
@function_return = out
}
###############################################################
# Cool Talk Scripts written by Sunil (sunil@alias.undernet.org)
# Converted for VMS by Remainz (chedean@ACS.EKU.EDU)
###############################################################
alias coolt {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
@out = out ## [$toupper($mid($pt 1 $in))]
@pt = pt + 1
@out = out ## [$tolower($mid($pt 1 $in))]
@pt = pt + 1
}
@function_return = out
}
alias coolta {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
@out = out ## [$mid($pt 1 $in)]
@pt = pt + 1
@out = out ## [$mid($pt 1 $in)]
@pt = pt + 1
}
@function_return = out
}
alias cooltal {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
@out = out ## [$toupper($mid($pt 1 $in))]
@pt = pt + 1
@out = out ## [$tolower($mid($pt 1 $in))]
@pt = pt + 1
}
@function_return = out
}
alias cooltalk {
^assign -out
@in = [$0-]
@out = []
@sz = [$@in]
@pt = 0
while ([$pt] < [$sz]) {
if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt = pt+1} {
@out = out ## [$toupper($mid($pt 1 $in))]
@pt = pt+1 }
if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt = pt+1} {
@out = out ## [$tolower($mid($pt 1 $in))]
@pt = pt+1 }
if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt = pt+1} {
@out = out ## [$toupper($mid($pt 1 $in))]
@pt = pt+1 }
if ([$mid($pt 1 $in)] == [ ]) {@out = out ## [ ];@pt = pt+1} {
@out = out ## [$tolower($mid($pt 1 $in))]
@pt = pt+1 }
}
@function_return = out
}
#Extras
#################
alias ap.help.credit {
clr
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Credit Due
echo
echo Written by: Bighorn (arsebestyen@CSUPomona.Edu)
echo Remainz (chedean@ACS.EKU.EDU)
echo
echo A couple scripts contributed from no_nick and quasar
echo
echo Special thanks to Macro who was one of the first to teach me how to make
echo an alias and those who have beta tested the earlier versions.
echo
echo Additional people who deserve thanks are:
echo
echo Beta Testers Quasar, Mozart and Heap.
echo No_nick who has provided the most functional client vms has ever known.
echo
ap.help.options
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
# Thanks also to Quasar who did some debugging when I didn't feel like it ;)
# aliaspak config file wasn't written at time of release of 1.8.5quasar.
# email me if you're interested in the config file.
load sys$login:aliaspak.config
##################################
echo *** aliaspak.irc loaded
##################################