[IRC] Wer ist im IRC Script Problem?


  • Piti
  • 871 Aufrufe 1 Antwort

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • [IRC] Wer ist im IRC Script Problem?

    Hallo, ich habe ein Useronline Script.
    Dieses speichert mir meine User die im IRC sind in einer Datei ab.
    Klappt bestens.
    Allerdings habe ich ein Problem.
    Bei mir ist es so:

    OP = @
    Voice= +
    HalfOP = %
    Founder = * oder !

    Nur macht das Script mir jetzt aus allen ein @ obwohl das Script früher lief.
    Nun ist die Frage liegts am Bot oder am Script.

    Quellcode

    1. bind join - * ircuseronline
    2. bind time - "?? * * * *" ircuseronline
    3. proc ircuseronline { nick uhost hand chan args } {
    5. set ops 0
    6. set halfops 0
    7. set voice 0
    8. set none 0
    9. set nickames ""
    10. #####################################
    11. # Hier die Channels auf eure ändern #
    12. #####################################
    13. set nicks [chanlist #ODR]
    14. foreach nickname [chanlist #ODR] {
    15. if {[isop $nickname #ODR]} {
    16. set nicknamesops($ops) $nickname@
    17. incr ops
    18. } elseif {[ishalfop $nickname #ODR]} {
    19. set nicknameshalfops($halfops) $nickname%
    20. incr halfops
    21. } elseif {[isvoice $nickname #ODR]} {
    22. set nicknamesvoice($voice) $nickname+
    23. incr voice
    24. } else {
    25. set nicknamesnone($none) $nickname
    26. incr none
    27. }
    28. }
    30. if { [array exists nicknamesops] } {
    31. for {set x 0} {$x < $ops} {incr x} {
    32. lappend nicknames "$nicknamesops($x)"
    33. }
    34. }
    36. if { [array exists nicknameshalfops] } {
    37. for {set x 0} {$x < $halfops} {incr x} {
    38. lappend nicknames "$nicknameshalfops($x)"
    39. }
    40. }
    42. if { [array exists nicknamesvoice] } {
    43. for {set x 0} {$x < $voice} {incr x} {
    44. lappend nicknames "$nicknamesvoice($x)"
    45. }
    46. }
    48. if { [array exists nicknamesnone] } {
    49. for {set x 0} {$x < $none} {incr x} {
    50. lappend nicknames "$nicknamesnone($x)"
    51. }
    52. }
    54. if { [info exists nicknames] } {
    55. #putlog " --- saving online user ---"
    56. #putlog "$nicknames"
    57. #putlog " --- hopely saved ---"
    58. ##############################################################################
    59. # Hier den Pfad eintragen wo die Datei mit den Usern gespeichert werden soll #
    60. ##############################################################################
    61. set ircuseronlinedb "/home/Spion/eggdrop1/public_html/ircuseronline.db"
    63. if {[catch {open $ircuseronlinedb w} fd]} { return }
    64. puts $fd "$nicknames"
    65. close $fd
    66. } else {
    67. putlog "IRC-HELP: Notice --- No Userlist to save ---"
    68. putlog "IRC-HELP: Notice --- vor dem verarbeiten(sollte leer sein): $nicks ---"
    69. putlog "IRC-HELP: Notice --- nach dem verarbeiten(sollte leer sein): $nicknames ---"
    70. }
    71. }
    73. #################################################
    75. putlog "ircuseronline loaded ;-)"
    Alles anzeigen