home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / irc / AmScript.lha / Developer / AmScriptHelp.amirx < prev   
Encoding:
Text File  |  1999-08-07  |  4.4 KB  |  107 lines
  1. /* $VER: AmScript Online Help 0.9 (07/08/99) by Paul Demark & Michael Trebilcock */
  2. Options Results
  3. signal on syntax
  4. Bold='02'x
  5. Inverse='16'x
  6. Error=0
  7.  
  8. IF Exists('Libs:rexxsupport.library')|Exists('Libs/rexxsupport.library')|Exists('rexxsupport.library') THEN DO
  9. IF ~SHOW('L','rexxsupport.library') THEN Call AddLib('rexxsupport.library',0,-30,0);End
  10. ELSE DO;Call cEcho('Unable To Open RexxSupport.library  Please Install Libs:rexxsupport.library from your Workbench disk');Exit;End
  11. IF Exists('Libs:rexxdossupport.library')|Exists('Libs/rexxdossupport.library')|Exists('rexxdossupport.library') THEN DO
  12. IF ~SHOW('L','rexxdossupport.library') THEN Call AddLib('rexxdossupport.library',0,-30,2);End
  13. ELSE DO;Call cEcho('Unable To Open RexxDosSupport.library  Please Install Libs:rexxdossupport.library');Exit;End
  14.  
  15. Template='Arguements/M,Install/S,Resolve=R/S,SList=SoundList/S,Play/S,SSend=SoundSend/S,NBan=NickBan/S,Ban=IPBan/S,ZBan=ZIPBan/S,Simple/S,Complex/S,Run/S,NewNick=NNick/S,ZOp/S,ZDeOp/S,ZSuspend=ZSus/S,ZUnSuspend=ZUnSus/S,Type/S,Time/K,NoTime/S,Verbose=Verb/S,NoReason=NoR/S,ASHelp=Help/S,Helpizm/K'
  16. Parse Arg Args
  17. Call ReadArgs(Args,Template)
  18.  
  19. IF Helpizm~=69 THEN Do
  20.  cEcho('The help system is called up from the main program, not separately!')
  21.  Exit
  22. End
  23. Call cEcho("Welcome to the AmScript Online Help!")
  24. Call cEcho(" ")
  25. SELECT
  26.  WHEN Install THEN DO
  27.   Call cEcho(Bold"Install Help:")
  28.   Call cEcho("This command installs the Aliases, to use this type: /Rx AmScript Install")
  29.  End
  30.  WHEN Resolve THEN DO
  31.   Call cEcho(Bold"Resolve / R Help:")
  32.   Call cEcho("This command resolves ones hostname, and outputs the IP address to you, this command can be used by typing /Resolve <nickname>")
  33.  End
  34.  WHEN SList THEN DO
  35.   Call cEcho(Bold"SList / SoundList Help:")
  36.   Call cEcho("This command lists the sounds you have in the sound directory you have specified in the AmIRC prefs")
  37.  End
  38.  WHEN Play THEN DO
  39.   Call cEcho(Bold"Play Help:")
  40.   Call cEcho("This plays the specified numbered sound from the SouldList command or the sound file you specify")
  41.   Call cEcho(" ")
  42.   Call cEcho("EG: /AS Play 4")
  43.   Call cEcho("or")
  44.   Call cEcho("/AS Play Ping.wav")
  45.  End
  46.  WHEN SSend THEN DO
  47.   Call cEcho(Bold"SSend / SoundSend Help:")
  48.   Call cEcho("This sends the specified numbered sound from the SouldList command or the sound file you specify to the given user")
  49.   Call cEcho(" ")
  50.   Call cEcho("EG: /AS SSend 4 Mick")
  51.   Call cEcho("or")
  52.   Call cEcho("/AS SSend ping.wav Mick")
  53.  End
  54.  WHEN NBan THEN DO
  55.   Call cEcho(Bold"NBan / NickBan Help:")
  56.   Call cEcho("This command bans a person by their nickname, to use this command type /NBan <nick> [Time] [NoTime] [Reason] [NoReason] [Verbose]")
  57.  End
  58.  WHEN Ban THEN DO
  59.   Call cEcho(Bold"Ban / IPBan Help:")
  60.   Call cEcho("This command bans a person by their IP, to use this command type /IPBan <nick> [Time] [NoTime] [NoReason] [Complex] [Simple] [Verbose]")
  61.  End
  62.  WHEN ZBan THEN DO
  63.   Call cEcho(Bold"ZBan / ZIPBan Help:")
  64.   Call cEcho("This command bans a person by their IP, to use this command type /ZBan <nick> [Time] [NoTime] [NoReason] [Complex] [Simple] [Verbose]")
  65.  End
  66.  WHEN Run THEN DO
  67.   Call cEcho(Bold"Run Help:")
  68.   Call cEcho("This command can run any program from AmIRC, to use it type /Run <program> <arguments>")
  69.  End
  70.  WHEN NewNick THEN DO
  71.   Call cEcho(Bold"NewNick / Nick Help:")
  72.   Call cEcho("This command will change your nick to the nick given or open up a GUI to allow you to enter a nickname to change to")
  73.  End
  74.  WHEN Type THEN DO
  75.   Call cEcho(Bold"Type Help:")
  76.   Call cEcho("This command will display either publically(in channel) or the person you specify the defined text file")
  77.  End
  78.  WHEN Verbose THEN DO
  79.   Call cEcho(Bold"Verbose Help:")
  80.   Call cEcho("This switch will show extra information of what is going on when used in conjunction with other AmScript commands")
  81.  End
  82.  WHEN NoReason THEN DO
  83.   Call cEcho(Bold"NoReason / NoR Help:")
  84.   Call cEcho("This switch will stop AmScript asking for a Kick/(Z)Ban reason to be used")
  85.  End
  86.  OTHERWISE
  87.   Call cEcho("An internbal error has occured in the help system!  Please EMail sykoe@sub.net.au with the command "Bold||Args)
  88.   Error=1
  89. End
  90.  
  91. IF ~Error THEN DO
  92.  Call cEcho(" ")
  93.  Call cEcho("Commands in "Bold"<>"Bold" means they are required.  Commands in "Bold"[]"Bold" are optional.")
  94. End
  95.  
  96. Depart:
  97. IF Verbose THEN IF ASHelp~=1 THEN Call cEcho('Now quitting AmScript')
  98. Exit
  99.  
  100. cEcho:
  101. 'ECHO P='d2c(27)'b«AmScript» 'arg(1)
  102. Return()
  103.  
  104. Syntax:
  105. "ECHO P="d2c(27)"b«Syntax» " "Command on line" SIGL ", Returned" RC ":" errortext(rc) sourceline(SIGL)
  106. Call Depart()
  107.