Simple Timer Creator · Montag Januar 25, 2010

Murat

Ob jemand zufaul ist, jedesmal für Etwas ein Timer zu tippen, oder keine Ahnung hat, wie man ein Timer erstelt, wird dieses Script für mIRC sehr gerne nutzen.

Das Script hat eine GUI, wo man den Grund, die Wiederholungen, die Verzögerung, die Uhrzeit (optional) und ein Sound auswählen kann (optional), was in mIRC angegebenen sound-Ordner sich befindet.

Mit dem Script kann man nach belieben mehrere Timer starten, wobei man keine gleichnamigen Timer starten kann. Die Namen von den Timer werden vom Grund aus dem ersten Wort erstellt.
Falls man mal einen gleichnamigen Timer erstellen will, gibt das Script unten in der Liste, wo die laufenden Timer stehen, eine Meldung, dass man einen anderen Namen wählen soll.

In der gleichen Liste sind wie gesagt die aktiven Timer, die man mit dem ‘Stop Timer’ button durch Markieren des Timers ausschalten kann.

Mit dem Button ‘Sound’ kann man sich den markierten Sound anhören.
Mit dem Button ‘Refresh List’ aktualisiert man die Soundliste.

Da mehr als eine Datei für die einwandfreie Funktionalität benötigt wird, braucht man dieses ZIP-Archiv, was man einfach im mIRC ordner entpacken kann:
Yama-Timer.zip

Die Erklärungen der einzelnen Textfelder, für die, die keine Ahnung haben, wie man ein Timer benutzt.

Reason: Das erste Wort wird der Timername. Beim Erinnern wird das komplette angezeigt.
Time (optional): Die Uhrzeit, um die der Timer anschlagen soll. (Delay fängt um die Uhrzeit an zu laufen)
Replay: Wiederholungen, wie oft mit der Verzögerung der Timer laufen soll. (0 für unendlich)
Delay: Die verzögerung, was in Sekunden eingegeben wird.


(02.02.10) Version 0.2.1:

-In der Soundliste wurden alle Dateien gelistet. Nun werden .txt, .jpg, .gif, .exe, .bat und .dll ignoriert!


(25.01.10) Version 0.2:

-Reason bug behoben (ein Wort).
-Timernamenabfrage wurde eingebaut. Damit sich 2 Timer nicht beissen.
-Multitimerfunktion eingebaut, wobei man einzelne Timer auch stoppen kann.


NICHT DIESEN DL-LINK BENUTZEN!!!
Nur den oberen Link zum ZIP-Archiv.

Yama-Timer.mrc [Download #58, 3.53KB]

  1. ;--------------------------------------------------- - -  -    -
  2. ;| Yama Timer © 20.11.2009
  3. ;--------------------------------------------------- - -  -    -
  4. ;| Version: 0.2.1
  5. ;| mIRC: v6.35
  6. ;| Script-Planung: Yama
  7. ;| Script-Mod: Yama
  8. ;--------------------------------------------------- - -  -    -
  9. ;| Beschreibung: Timer ersteller
  10. ;--------------------------------------------------- - -  -    -
  11.  
  12. dialog yamatimer {
  13.   title "Yama-Timer"
  14.   size -1 -1 175 149
  15.   option dbu
  16.   button "OK", 2, 64 64 37 12, ok
  17.   button "Cancel", 3, 16 64 37 12, cancel
  18.   edit "", 4, 16 20 40 10
  19.   text "Reason (name)", 1, 16 9 21 8
  20.   text "Time (optional)", 5, 64 8 38 8
  21.   edit "", 6, 64 20 40 10
  22.   text "Replay", 7, 16 36 17 8
  23.   edit "1", 8, 16 47 40 10
  24.   text "Delay", 9, 64 36 17 8
  25.   edit "", 10, 64 47 40 10
  26.   list 11, 111 20 50 37, sort size vsbar
  27.   text "Sound (optional)", 12, 111 8 45 8
  28.   button "Refresh List", 13, 124 64 37 12
  29.   list 14, 16 83 145 50, size vsbar
  30.   button "Stop Timer", 15, 69 135 37 12
  31.   button "Sound", 16, 138 135 23 12
  32. }
  33.  
  34. menu status,channel,query {
  35.   Yama-Timer: /dialog -m yamatimer yamatimer
  36. }
  37.  
  38. on *:dialog:yamatimer:init:0: {
  39.   /soundlist
  40.   if ( $timer(0) != 0 ) {
  41.     /var %i 1
  42.     /while ( %i <= $timer(0) ) {
  43.       if ( yama isin $timer(%i) ) && ( 1 !isin $timer(%i) ) {
  44.         /did -a yamatimer 14 $mid($timer(%i),5) $timer(%i).time $timer(%i).reps $timer(%i).delay $timer(%i).secs %i
  45.       }
  46.       /inc %i
  47.     }
  48.   }
  49. }
  50.  
  51. on *:dialog:yamatimer:sclick:15: {
  52.   if ( $did(yamatimer,14).seltext != $null ) {
  53.     .timer $+ $timer($right($did(yamatimer,14).seltext,1)) off
  54.     if ( yama1 isin $timer($calc($right($did(yamatimer,14).seltext,1)-1)) ) {
  55.       .timer $+ $timer($calc($right($did(yamatimer,14).seltext,1)-1)) off
  56.       /did -d yamatimer 14 $didwm(yamatimer,14,$did(yamatimer,14).seltext)
  57.     }    
  58.   }
  59. }
  60.  
  61. on *:dialog:yamatimer:sclick:16: {
  62.   /splay $did(yamatimer,11).seltext
  63. }
  64.  
  65.  
  66. on *:dialog:yamatimer:sclick:13: {
  67.   /soundlist
  68. }
  69.  
  70. alias /soundlist {
  71.   /did -r yamatimer 11
  72.   .remove $scriptdir $+ sounds.txt
  73.   /noop $dll($scriptdir $+ listfiles.dll, setoutput,<fname>)
  74.   /noop $dllcall($scriptdir $+ listfiles.dll,.echo -q, listfiles, fhs* > $scriptdir $+ sounds.txt > $sound(mp3) > *.mp3;*.wav > *.txt;*.jpg;*.gif;*.exe;*.bat;*.dll)
  75.   .timer -m 1 100 /soundlist2
  76. }
  77.  
  78. alias /soundlist2 {
  79.   /var %i 1
  80.   /while ( %i <= $lines($scriptdir $+ sounds.txt) ) {
  81.     /did -a yamatimer 11 $read($scriptdir $+ sounds.txt,%i)
  82.     /inc %i
  83.   }
  84.   .remove $scriptdir $+ sounds.txt
  85. }
  86.  
  87. on *:dialog:yamatimer:sclick:2: {
  88.   if ( $did(yamatimer,4) != $null ) {
  89.     if ( $did(yamatimer,8) != $null ) {
  90.       if ( $did(yamatimer,10) != $null ) {
  91.         /var %i 1
  92.         /while ( %i <= $len($did(yamatimer,4)) ) {
  93.           if ( $mid($did(yamatimer,4),%i,1) == $chr(32) ) {
  94.             /var $i $calc(%i - 1)
  95.             /break
  96.           }
  97.           /inc %i
  98.         }
  99.  
  100.         /var %j 1
  101.         /while ( %j <= $timer(0) ) {
  102.           if ( $timer( $+ %j $+ ) == yama $+ $left($did(yamatimer,4),%i) ) {
  103.             /did -a yamatimer 14 Timer is active, use a different timername.
  104.             /halt
  105.           }
  106.           /inc %j
  107.         }
  108.  
  109.         .timeryama $+ $left($did(yamatimer,4),%i) $did(yamatimer,6) $did(yamatimer,8) $did(yamatimer,10) /echo -ae 4 $+ $did(yamatimer,4)
  110.         if ( $did(yamatimer,11).seltext != $null ) {
  111.           .timeryama1 $+ $left($did(yamatimer,4),%i) $did(yamatimer,6) $did(yamatimer,8) $did(yamatimer,10) /splay $did(yamatimer,11).seltext
  112.         }
  113.       }
  114.     }
  115.   }
  116. }


Murat

Kommentare
---

Erweitertes 'Text on 9 keys' für mIRC · Dienstag Juni 23, 2009

Murat

Hört sich komisch und uninteressant an, aber es gibt viele ‘Schreibfaule’ denen das Script auf jeden Fall Spaß machen wird!

Man muss beliebig viele Buchstaben in das Textfeld des mIRC’s eintippen und F2 drücken, damit ein Wort mit dem eingetippten gefunden werden kann.
Wenn man mit dem ersten Fund nicht zufrieden ist, kann man nochmal auf F2 drücken, ohne das Textfeld zu ändern, damit der Nächste Fund erscheint.

Die F-Taste kann man beliebig im Script ändern.
Durch die ‘Wort hinzufügen’ Funktion ist es möglich beliebige Wörter in die Datenbank zu setzen.

Obwohl das Script beim benutzen sehr simple scheint, war es beim programmieren nicht der Fall.
Die einzelnen Eingaben mussten manuell getrennt werden und nur der letzte ‘Wort’ wird benutzt, um in der Wort-Datenbank nach Ergebnissen zu suchen.

Das Script besteht aus über 5 Teilen, die sehr voneinander abhängig sind, da man bei der Eingabe sehr viele möglichkeiten hat. Z. B. welches Wort an welcher Stelle gesucht werden soll, macht einen sehr enormen Unterschied, wie das Script drauf reagieren soll!

Naja, ich höre mal auf, dass zu labern, was sowieso keiner versteht… hier die Anleitung:

autoword.mrc mit dem ‘Download’ button runterladen und in einen beliebigen Verzeichnis im mIRC-Ordner Einfügen.
Die awords.txt muss im Root von mIRC liegen, also da, wo die mirc.exe ist. Die Wort-Datenbank ist freiwllig. Man kann sich entweder einen selber basteln, oder meinen benutzen, wo 10000 Wörter schon drin sind. Selbstverständlich kann man die Datenbank mit der Funktion im Context-Menü ‘Wort hinzufügen’ erweitern.

Hier die Wort-Liste: awords.txt


autoword.mrc [Download #102, 3.99KB]

  1. ;--------------------------------------------------- - -  -    -
  2. ;| Autoword © 23.06.2009
  3. ;--------------------------------------------------- - -  -    -
  4. ;| Version: 0.1
  5. ;| mIRC: v6.35
  6. ;| Script-Planung: Yama
  7. ;| Script-Mod: Yama
  8. ;--------------------------------------------------- - -  -    -
  9. ;| Beschreibung: Wort-Vervollständiger im Textfeld.
  10. ;--------------------------------------------------- - -  -    -
  11.  
  12. on *:start: {
  13.   /echo -ae 10Yama's Autoword-Script loaded!
  14.   /unset %aword.*
  15. }
  16.  
  17. alias /F2 { /aword }
  18.  
  19. menu channel,status {
  20.   Autoword
  21.   .Start: /aword
  22.   .Wort hinzufügen: /aword.add
  23. }
  24.  
  25. alias /aword {
  26.   :start
  27.   if ( $editbox($active) != $null ) {
  28.     /var %i 1
  29.     /var %m -1
  30.     /while ( %i <= $len($editbox($active)) ) {
  31.       /inc %i
  32.       /dec %m
  33.       if ( $mid($right($editbox($active),%i),1,1) == $chr(32) ) {
  34.         /set %start $calc($len($editbox($active)) - %i + 1)
  35.         /var %i $len($editbox($active))
  36.         /var %count $len($mid($editbox($active), $calc(1 + %start)))
  37.       }
  38.     }
  39.     /dec %i
  40.     .timeraworddel 1 5 /unset %aword.*
  41.  
  42.     if ( %aword.last == $null ) {
  43.       if ( %i == $len($editbox($active)) ) && ( %start != $null ) {
  44.         if ( $read(awords.txt,w,$mid($editbox($active),$calc(1 + %start)) $+ *) == $null ) {
  45.           /halt
  46.         }
  47.         /set %aword.lastsearch $mid($editbox($active), $calc(1 + %start))
  48.         /editbox -a $mid($editbox($active),1,%start) $read(awords.txt,w,$mid($editbox($active),$calc(1 + %start)) $+ *)
  49.         /set %aword.last $mid($editbox($active),$calc(1 + %start)))
  50.         /set %aword.lastline $readn
  51.       }
  52.  
  53.       elseif ( %start == $null ) && ( %i == $len($editbox($active)) ) {
  54.         if ( $read(awords.txt,w,$editbox($active) $+ *) == $null ) {
  55.           /halt
  56.         }
  57.         /set %aword.lastsearch $editbox($active)
  58.         /editbox -a $read(awords.txt,w,$editbox($active) $+ *)
  59.         /set %aword.last $read(awords.txt,w,$editbox($active) $+ *)
  60.         /set %aword.lastline $readn
  61.       }
  62.     }
  63.     else {
  64.       if ( $right($editbox($active),%count) == %aword.last ) {
  65.         if ( %aword.lastsearch == $mid($read(awords.txt,$calc(1 + %aword.lastline)),1,$len(%aword.lastsearch)) ) {
  66.           /editbox -a $mid($editbox($active),1,%start) $read(awords.txt,$calc(1 + %aword.lastline))
  67.           /set %aword.last $mid($editbox($active),$calc(1 + %start)))
  68.           /set %aword.lastline $readn
  69.         }
  70.         else {
  71.           /set %aword.lastsearch $right($editbox($active),%start)
  72.           /editbox -a $mid($editbox($active),1,%start) $read(awords.txt,w,$mid($editbox($active),$calc(1 + %start)) $+ *)
  73.           /set %aword.last $mid($editbox($active),%start) $read(awords.txt,w,$mid($editbox($active),%count) $+ *)
  74.           /set %aword.lastline $readn
  75.         }
  76.       }
  77.  
  78.       elseif ( $editbox($active) == %aword.last ) {
  79.         if ( %aword.lastsearch == $mid($read(awords.txt,$calc(1 + %aword.lastline)),1,$len(%aword.lastsearch)) ) {
  80.           /editbox -a $read(awords.txt,$calc(1 + %aword.lastline))
  81.           /set %aword.last $editbox($active)
  82.           /set %aword.lastline $readn
  83.         }
  84.         else {
  85.           /set %aword.lastsearch $editbox($active)
  86.           /editbox -a $read(awords.txt,w,$editbox($active) $+ *)
  87.           /set %aword.last $read(awords.txt,w,$editbox($active) $+ *)
  88.           /set %aword.lastline $readn
  89.         }
  90.       }
  91.       else {
  92.         /unset %aword.*
  93.         /goto start
  94.       }
  95.     }
  96.   }
  97. }
  98.  
  99. ;-----------------------------------------------------------------------
  100.  
  101. alias /aword.add {
  102.   /var %newword $$?="Wort zum hinzufügen:"
  103.   /var %i 1
  104.   /while ( %i <= $len(awords.txt) ) {
  105.     if ( %newword == $read(awords.txt,%i) ) {
  106.       /echo -ae 4Wort ist schon enthalten!
  107.       /var %j false
  108.       /break
  109.     }
  110.     /inc %i
  111.   }
  112.   if ( %j != false ) {
  113.     /var %read $read(awords.txt,w,$mid(%newword,1,1) $+ *)
  114.     /write -il $+ $calc(1 + $readn) awords.txt %newword
  115.     /echo -ae 4Wort zur Datenbank hinzugefügt!
  116.   }
  117. }


Murat

Kommentare [1]
---

älter

cormorants