[IRC] Wer ist im IRC Script Problem?

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