Thumbbot

[Pilzbauer]

Hallo Macler,

Ich bin gerade dabei einen Thumbbot in IRC mit AppleScript zu schreiben und erläuft bis jetzt auch so, wie ich es möchte.

Doch finde ich ihn noch zu.....hmmm wie soll man sagen, verbugt?

Was der Bot machen soll:
Er soll alle 20min 3 Thumbnummern aus der Thumbliste auswählen und diese dann im Channel posten.

Ich habe für alles eine Lösung gefunden, doch zufrieden bin ich nicht.

Meine Probleme:
1. Wenn er die 3 Thumbs aus der Liste ausliest, soll es nicht passieren, dass er ein Thumb 2mal auswählt.

2. Dass das Script alle 20min ausgeführt wird habe ich bin jetzt mit Quicksilver gemacht aber gibt es da nicht aus eine Möglichkeit, dass sich das Script von haus aus alle 20min wiederholt?

Und vllt weiß ja auch jemand eine einfacherer Lösung für das ganze.

Der Code:

set user to "Pilzbauer"
set thumb_list to {":thumb36609081:", ":thumb36926054:", ":thumb36505827:", ":thumb39346813:", ":thumb35414389:", ":thumb33838309:", ":thumb33763663:", ":thumb33700698:", ":thumb32895573:", ":thumb32895398:", ":thumb27043499:", ":thumb25176257:", ":thumb25175785:", ":thumb23826792:", ":thumb21240454:", ":thumb21004243:", ":thumb20740270:"}
set the list_count to the count of thumb_list
set pick1 to random number from 1 to list_count
set pick2 to random number from 1 to list_count
set pick3 to random number from 1 to list_count
set thumb1 to item pick1 of thumb_list as string
set thumb2 to item pick2 of thumb_list as string
set thumb3 to item pick3 of thumb_list as string

set thumbMSG to thumb1 & " " & thumb2 & " " & thumb3 & "   by :dev" & user & ":"

tell application "Colloquy"
    tell every chat room of connection 3 to send message thumbMSG
end tell

 

[Pilzbauer]

ok, habe eine lösung gefunden.

set user to "Pilzbauer"
set thumb_list to {":thumb36609081:", ":thumb36926054:", ":thumb36505827:", ":thumb39346813:", ":thumb35414389:", ":thumb33838309:", ":thumb33763663:", ":thumb33700698:", ":thumb32895573:", ":thumb32895398:", ":thumb27043499:", ":thumb25176257:", ":thumb25175785:", ":thumb23826792:", ":thumb21240454:", ":thumb20740270:", ":thumb32160409:", ":thumb20637488:"}
set thumb_temp to {}
repeat until length of thumb_temp = 3
    set some_thumb to some item of thumb_list
    if some_thumb is not in thumb_temp then
        set the end of thumb_temp to some_thumb
    end if
end repeat
set thumbMSG to item 1 of thumb_temp & " " & item 2 of thumb_temp & " " & item 3 of thumb_temp & "   by :dev" & user & ":"

tell application "Colloquy"
    tell every chat room of connection 3 to send message thumbMSG
end tell