home *** CD-ROM | disk | FTP | other *** search
/ InterCD 1999 September / september_1999.iso / Chat / TurboIRC / data1.cab / TurboIRC_Scripts / ACHANNELSTATUS.txt < prev    next >
Encoding:
Text File  |  1999-07-07  |  1.1 KB  |  36 lines
  1. // Channel Status TurboIRC Script
  2. // Category : Utilities
  3. // Copyright ⌐ Chourdakis Michael , 1998
  4.  
  5. // This script shows a channel status in a channel
  6. // Call it as an alias /CHANNELSTATUS
  7. // or load it automatically : /_alias /CHANNELSTATUS 0 0 ?.\demos\status.txt
  8.  
  9. if (GetWindowType(GetCurrentWindowName())!=2)
  10.  /AddText ! 12***You must be in a channel to enter /CHANNELSTATUS !
  11.  return
  12. endif
  13.  
  14. string Modes = GetChannelMode($channel)
  15. string Topic = GetChannelTopic($channel)
  16. int Members = GetChannelMpCount($channel)
  17. int qq = GetChannelQpCount($channel)
  18. int oo = GetChannelOpCount($channel)
  19. int vv = GetChannelVpCount($channel)
  20.  
  21.  
  22. /display ! 12**** CHANNEL STATUS ( $day/$month/$year , $_hour:$minute:$second )****
  23. /display ! 12Name          : 4 $channel
  24. /display ! 12Modes         : 4 %Modes%
  25. /display ! 12Topic         : 4 %Topic%
  26. /display ! 12Total members : 4 %Members%
  27. if (qq>=1)
  28.  /display ! 12Total owners : %qq%
  29. endif
  30. if (oo>=1)
  31.  /display ! 12Total hosts  : %oo%
  32. endif
  33. if (vv>=1)
  34.  /display ! 12Total voices : %vv%
  35. endif
  36.