Advertisement
Konradito

Untitled

Jun 25th, 2022
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.60 KB | None | 0 0
  1. ##########################################################################
  2. #
  3. # BlackGline 1.0
  4. #
  5. #This TCL shows information about IPS who have gline on undernet.
  6. #-The creation date , the reason of the Gline , the date when the Gline will
  7. #expire.
  8. #
  9. #To activate type .chanset #canal +blackgline
  10. #
  11. #The command is - !gline <ip>
  12. #
  13. # BLaCkShaDoW ProductionS
  14. ##########################################################################
  15.  
  16. #Seteaza aici flagurile care pot folosii comanda !gline <ip>
  17.  
  18. set flags "-|-"
  19.  
  20. ##########################################################################
  21.  
  22. bind pub $flags !gline getgline
  23. setudef flag blackgline
  24.  
  25. proc getgline {nick host hand chan arg} {
  26. global botnick
  27. set ip [lindex [split $arg] 0]
  28. set ::gchan $chan
  29. if {[channel get $chan blackgline]} {
  30. if {$ip == ""} { puthelp "NOTICE $nick :Use: !gline <ip>"
  31. return 0
  32. }
  33. putquick "GLINE $ip"
  34. bind raw - 280 isgline
  35. bind raw - 512 nogline
  36. }
  37. }
  38.  
  39. proc isgline { from keyword arguments } {
  40. set chan $::gchan
  41. set ip [lindex [split $arguments] 1]
  42. set fgline [lindex [split $arguments] 4]
  43. set egline [lindex [split $arguments] 3]
  44. set reason [join [lrange [split $arguments] 7 end]]
  45. puthelp "PRIVMSG $chan :This g-line was created on :[ctime $egline] , with the reason $reason"
  46. puthelp "PRIVMSG $chan :It will expire on :[ctime $fgline]"
  47. unbind raw - 280 isgline
  48. }
  49.  
  50. proc nogline { from keyword arguments } {
  51. set chan $::gchan
  52. puthelp "PRIVMSG $chan :There is no gline for this IP."
  53. unbind raw - 512 nogline
  54. }
  55.  
  56. putlog "BlackGline Tcl 1.0 by BLaCkShaDoW Loaded"
  57.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement