home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Modules / KeyBinder (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1997-03-21  |  957 b   |  38 lines
  1.  >KeyBinder
  2. InitialiseModule
  3. StartupStatus("Initialising KeyBinder...")
  4.  file,line$,key$,command$
  5. ?file = 
  6. newFile("<IRClient$Dir>.Scripts.User.Bindings","<")
  7.  file 
  8.  line$<>eof$
  9.  line$<>"" 
  10.    key$=
  11. oneparam(line$)
  12.    command$=
  13. moveon(line$)
  14.  key$<>"" 
  15.  command$<>"" 
  16. BindKey(key$,command$)
  17. "    
  18.  key$<>"" 
  19.  command$="" 
  20. =     
  21.  "Warning - key "+key$+" has no associated binding"
  22.         
  23.   line$=
  24. file.ReadLine
  25. _InsertStr(parmlist)
  26. InputInsertStr(parmlist.data.data$)
  27. _IRCCommand(parmlist)
  28. UserLine(parmlist.data.data$)
  29. _CloseDisplay(parmlist)
  30. CloseDisplay(parmlist.data.data$)
  31. _Leave(parmlist)
  32.  channel$
  33. ( channel$=parmlist.data.data$
  34. channel$,1)="#" 
  35. channel$,2,1)<>"#" 
  36. UserLine("/LEAVE "+channel$)
  37. CloseDisplay(channel$)
  38.