isnet Internet/Isnet Internet CD.iso/prog/chat/12/12.exe/SYSTEM/CPOPUP.POP

Text File | 2000-02-14 | 6.7 KB | 243 lines

join
.-
.add {
  write -il2 cpopup.pop . $+ # $chr(123) j # $chr(125)
  if ($?!="Add [ # ] to autojoin?") aj #
  iecho Added $hc(#) to channel popups.
  .timer 1 0 .load -pc cpopup.pop
}
.remove {
  set %tmp.c . $+ #
  write -ds $+ %tmp.c cpopup.pop
  iecho Removed $hc(#) from channel popups
  if ($?!="Remove [ # ] from autojoin?") rj #
  unset %tmp.c
  .timer 1 0 .load -pc cpopup.pop
}
.edit { ajoin }
.-
.cycle { cycle }
-
dcc
.$toggled2(%dccrelay) relay { dccrelay $iif(%dccrelay == off,$$?="Enter nickname to forward to.",off) }
.$toggled(%pdcc) pump { pdcc $toggler(%pdcc) }
.$toggled(%dccstatus) status { dccstatus $toggler(%dccstatus) }
ctcp
.ping { ctcp # ping }
.time { ctcp # time }
.xdcc list { ctcp # xdcc list }
.finger { ctcp # finger }
.addon { ctcp # addon }
.version { ctcp # version }
.other { ctcp # $$?="Enter ctcp request." }
-
$iif(($me isop #) || (t !isin $chan(#).mode),topic)
.new { topic # $$?="Enter new topic" }
.-
.add { at $$?="Enter text to add to topic" }
.clear { ct }
.-
.+hold { ht }
.-hold { ut }
.-
.random { rt }
$iif($me isop #,mode)
.mass
..op
...+o room { mop }
...-
...-o room { mdop }
..voice
...+v room { mv }
...-
...-v room { mdv }
..invite { mi $$?="Mass Inviting to channel" }
.secret
..+s { mode # +s }
..-
..-s { mode # -s }
.private
..+p { mode # +p }
..-
..-p { mode # -p }
.limit users
..+l { mode # +l $$?="Enter number of users allowed" }
..-
..-l { mode # -l }
.invite only
..+i { mode # +i }
..-
..-i { mode # -i }
.moderated
..+m { mode # +m }
..-
..-m { mode # -m  }
.channel key
..+k { mode # +k $$?="Enter channel key" }
..-
..-k { mode # -k $chan(#).key }
.protect topic
..+t { mode # +t }
..-
..-t { mode # -t }
.external msg
..+n { mode # +n }
..-
..-n { mode # -n }
stats
.bans { rban }
.totals { cstats }
.ircops { ircops }
.names { names # }
.clones { clones }
.friends { ufind }
-
extras
.raw
..irc2
...efnet { irc2 irc.chat.org 6667 }
...under { irc2 us.undernet.org 6667 }
...dalnet { irc2 irc.dal.net 7000 }
...-
...other { irc2 $$?="Enter server name" }
..email
...$iif(%smailip,send) { sendmail $$?="Enter mail recipient" }
...check { mail }
..www { www $$?="Enter URL" }
..telnet
...port 23 { telnet $$?="Enter server to connect to" 23 }
...port 21 { telnet $$?="Enter server to connect to" 21 }
...port 80 { telnet $$?="Enter server to connect to" 80 }
...-
...other { telnet $$?="Enter server to connect to" $$?="Enter port to connect on" }
..partyline { telnet $ip %telnetport }
..idraw { idraw }
.utils
..userlist { ucentral }
..scriptinfo { scriptinfo }
..help { help }
.offer
..$toggled(%xdccs) xdcc { xdcc $toggler(%xdccs) }
.scan
..icmp { icmp }
..links { ll }
.close
..$iif($get(0),gets) { close -g }
..$iif($chat(0),chats) { close -c }
..$iif($send(0),sends) { close -s }
..$iif($query(0),queries) { close -m }
away
.set away
..silent { .away $$?="Away message" }
..default { away %defaulta }
..verbose { away $$?="Away message" }
.$iif($away,return)
..silent { away }
..default { back %dback }
..verbose { back $$?="Return message" }
.msgs
..read { F7 }
..erase { F8 }
$iif(%irc.network == dalnet,NickServ)
.set
..kill
...on { nickserv set kill on }
...off { nickserv set kill off }
..nomemo
...on { nickserv set nomemo on }
...off { nickserv set nomemo off }
..noop
...on { nickserv set noop on }
...off { nickserv set noop off }
..showemail
...on { nickserv set showemail on }
...off { nickserv set showemail off }
..url { nickserv set url $$?="Enter a URL" }
..email { nickserv set email $$?="Enter your email address" }
.access
..list { nickserv access list }
..add { nickserv access add $$?="Enter hostmask to add" }
..del { nickserv access del $$?="Enter hostmask to remove" }
.identify { nickserv identify $$?*="Enter password" }
.recover { nickserv recover $$?="Enter nick to recover" $$?*="Enter password" }
.ghost { nickserv ghost $$?="Enter nick to ghost kill" $$?*="Enter password" }
.register { nickserv register $$?*="Enter a password" }
.drop { nickserv drop $$?*="Enter password" }
.release { nickserv release $$?="Enter nick to release" $$?*="Enter password" }
.info { nickserv info $$?="Enter nickname" }
.acc { nickserv acc $$?="Enter nickname" }
.identify { nickserv identify $$?*="Enter password" }
$iif(%irc.network == dalnet,ChanServ)
.register { chanserv register # $$?*="Enter password" $$?="Enter description of channel" }
.set
..opguard
...on { chanserv set # opguard on }
...off { chanserv set # opguard off }
..keeptopic
...on { chanserv set # keeptopic on }
...off { chanserv set # keeptopic off }
..ident
...on { chanserv set # ident on }
...off { chanserv set # ident off }
..restrict
...on { chanserv set # restrict on }
...off { chanserv set # restrict off }
..topiclock
...on { chanserv set # topiclock on }
...off { chanserv set # topiclock off }
..leaveops
...on { chanserv set # leaveops on }
...off { chanserv set # leaveops off }
..unsecure
...on { chanserv set # unsecure on }
...off { chanserv set # unsecure off }
..private
...on { chanserv set # private on }
...off { chanserv set # private off }
..memo
...on { chanserv set # memo on }
...off { chanserv set # memo off }
..url { chanserv set # url $$?="Enter a URL" }
..founder { chanserv set # founder $$?="Enter new founder nick" }
..passwd { chanserv set # passwd $$?*="Enter new password" }
..desc { chanserv set # desc $$?="Enter new channel description" }
..mlock { chanserv set # mlock $$?="Enter modes to lock" }
.sop
..add { chanserv sop # add $$?="Enter nickname" }
..del { chanserv sop # del $$?="Enter hostmask" }
..list { chanserv sop # list $$?="Enter search pattern" }
..wipe { chanserv sop # wipe }
..clean { chanserv sop # clean }
.aop
..add { chanserv aop # add $$?="Enter nickname" }
..del { chanserv aop # del $$?="Enter hostmask" }
..list { chanserv aop # list $$?="Enter search pattern" }
..wipe { chanserv aop # wipe }
..clean { chanserv aop # clean }
.akick
..add { chanserv # add $$?="Enter nickname or hostmask" }
..del { chanserv # del $$?="Enter hostmask" }
..list { chanserv # list $$?="Enter search pattern" }
..wipe { chanserv # wipe }
.drop { chanserv drop # }
.identify { chanserv identify # $$?*="Enter password" }
.access { chanserv access # $$?="Enter nickname" }
.op { chanserv op # $$?="Enter nickname" }
.deop { chanserv deop # $$?="Enter nickname" }
.info { chanserv info # }
.invite { chanserv invite # }
.mkick { chanserv mkick # }
.mdeop { chanserv mdeop # }
.unban { chanserv unban # }
.count { chanserv count # }
.why { chanserv why # }
-
;
; adding popups under this point is not recommend
; use a remote script to add things below this.
;
menu
.&add to list { af }
.-
.&1 other file { run $$dir="Select a file to run" \ }