API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
47
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 14.65 KB | None | 0 0
raw download clone embed print report
  1. on *:CONNECT:  {
  2.   unset %Flood-protectie
  3.   if ($readini($aname $+ .ini,Away-System,afwezig) == weg) {
  4.     var %Away-system-away $input(Je bent nog weg! Klik op yes om terug te komen $+ $chr(44) of no om dit te annuleren!,yb,Maak een keuze!)
  5.     if (%Away-system-away == $false) { halt }
  6.     if (9 isin $readini($aname $+ .ini,Away-System,dialogcheck) && $readini($dname $+ .ini,Name-caller,on/off) == off && $did(26).state == 1) { writeini $dname $+ .ini Name-caller on/off on }
  7.     if (10 isin $readini($aname $+ .ini,Away-System,dialogcheck)) { vol -vu2 }
  8.     if (11 isin $readini($aname $+ .ini,Away-System,dialogcheck)) { writeini $dname $+ .ini Away-system Away-msg off }
  9.     if (11 !isin $readini($aname $+ .ini,Away-System,dialogcheck)) { writeini $dname $+ .ini Away-System Away-msg on }
  10.     if (12 isin $readini($aname $+ .ini,Away-System,dialogcheck)) { writeini $dname $+ .ini Name-caller Tip-message off }
  11.     nick $readini($aname $+ .ini,Away-System,Oldnick)
  12.     ame is weer terug! $chr($asc([)) $+ $readini($aname $+ .ini,Away-System,Reden) $+ $chr($asc(])) - en ik ben $chr($asc([)) $+ $remove($duratie($calc($ctime($readini($aname $+ .ini,Away-System,Away-date)) - $ctime)),-) $+ $chr($asc(])) weg geweest
  13.     writeini $aname $+ .ini Away-System afwezig niet-weg
  14.   }
  15.   if (40 isin $readini($aname $+ .ini,Away-System,dialogcheck)) {
  16.     window -k0 @Name-Caller        
  17.   }
  18. }
  19.  
  20. menu * {
  21.   -
  22.   $iif($dialog(Away-system-Name-caller),$style(2)) Away-system/Name-caller: dialog -m Away-system-Name-caller Away-system-Name-caller
  23. }
  24.  
  25. dialog Away-system-Name-caller {
  26.   title "Away System & Name caller"
  27.   size -1 -1 141 186
  28.   option dbu
  29.   text "Naam waarbij bij terugkomst naar terug moet worden veranderd:", 1, 7 7 65 21
  30.   edit "", 2, 78 12 50 10, autohs
  31.   text "Nieuwe naam (alleen het achtervoegsel)", 3, 7 35 65 16
  32.   edit "", 4, 78 38 50 10,
  33.   text "Scheidingsteken:", 5, 7 59 43 8
  34.   combo 6, 78 58 60 50, size drop
  35.   text "Reden:", 7, 8 83 24 8
  36.   edit "", 8, 78 82 50 10, autohs
  37.   check "Name caller uit bij afwezigheid", 9, 8 115 91 10
  38.   check "Alle mIRC sounds uit tijdens afwezigheid", 10, 8 128 117 10
  39.   check "Away Message uit", 11, 8 142 78 10
  40.   check "Highlight (tip message) uit", 12, 8 155 73 10
  41.   button "Ga weg!", 16, 8 171 124 12
  42.   text "Namen waar Name caller op moet reageren: (gescheiden door een spatie)", 17, 8 9 64 27
  43.   edit "", 18, 75 17 50 10, autohs
  44.   check "Flood protectie voor ", 21, 8 60 60 10
  45.   edit "", 22, 69 60 18 10
  46.   text "seconden", 23, 92 61 45 8
  47.   check "Beep (piepje) aan", 25, 8 91 59 10
  48.   check "Name caller aan", 26, 8 107 50 10
  49.   text "De Name caller zorgt ervoor dat jij gewaarschuwd word als iemand jou naam roept, zodat jij daar snel op kunt reageren. De highlight laat een tip message zien als mIRC NIET jou actieve programma is. ", 27, 9 126 128 58
  50.   check "Automatisch AFK na", 24, 8 102 60 10
  51.   edit "", 28, 68 103 19 10
  52.   text "seconden", 29, 88 104 51 8
  53.   menu "Away-System/Name caller", 13
  54.   item "Open Away-System", 14, 13
  55.   item "Open Name caller", 15, 13
  56.   button "Verander reden en/of naam",30, 8 92 130 10,
  57.   check "Highlight (tip message) aan",31, 8 75.5 130 10
  58.   check "Name Caller logger aan",40,8 42.5 63 10,
  59. }
  60.  
  61.  
  62. on *:DIALOG:Away-system-Name-caller:*:*: {
  63.   if ($devent == menu) {
  64.     if ($did == 15) { Name-Caller | did -e $dname 14 | did -b $dname 15 }
  65.     if ($did == 14) { Away-System | did -e $dname 15 | did -b $dname 14 }
  66.   }
  67.   if ($devent == close) { .timerAway-System* off }
  68.   if ($devent == init) {
  69.     var %i 17
  70.     while (%i <= 27) {
  71.       if (%i == 19) inc %i 2
  72.       did -h $dname %i
  73.       inc %i
  74.     }
  75.     did -h $dname 40
  76.     did -h $dname 31
  77.     did -v $dname 30
  78.     did -i $dname 18 1 $iif(!$readini($dname $+ .ini,Name-caller,names),$me,$readini($dname $+ .ini,Name-caller,names))
  79.     if (!$readini($dname $+ .ini,Name-caller,names)) { writeini $dname $+ .ini Name-caller names $me }
  80.     if (!$readini($dname $+ .ini,Name-caller,names)) { writeini $dname $+ .ini Name-caller names $me }
  81.     if (!$readini($dname $+ .ini,Away-System,autoAFK)) { writeini $dname $+ .ini Away-System autoAFK 600 off }
  82.     if (!$readini($dname $+ .ini,Name-caller,Flood-protectie)) { writeini $dname $+ .ini Name-caller Flood-protectie 5 off }
  83.     if ($gettok($readini($dname $+ .ini,Name-caller,Flood-protectie),2,32) == on) { did -i $dname 22 1 $Gettok($readini($dname $+ .ini,Name-caller,Flood-protectie),1,32) | did -c $dname 21 }
  84.     Else { did -i $dname 22 1 $gettok($readini($dname $+ .ini,Name-Caller,Flood-protectie),1,32) }
  85.     if ($gettok($readini($dname $+ .ini,Away-System,autoAFK),2,32) == on) { did -e $dname 28 | did -i $dname 28 1 $gettok($readini($dname $+ .ini,Away-System,autoAFK),1,32) | did -c $dname 24 }
  86.     Else { did -i $dname 28 1 $gettok($readini($dname $+ .ini,Away-System,autoAFK),1,32) }
  87.     did -v $dname 24
  88.     did -i $dname 2 1 $iif(!$readini($dname $+ .ini,Away-System,Oldnick),$me,$readini($dname $+ .ini,Away-System,Oldnick))
  89.     if (!$readini($dname $+ .ini,Away-System,oldnick)) { writeini $dname $+ .ini Away-System Oldnick $me }
  90.     did -b $dname 14
  91.     did -a $dname 6 ^
  92.     did -a $dname 6 |
  93.     did -a $dname 6 \
  94.     did -a $dname 6 `
  95.     did -a $dname 6 -
  96.     did -c $dname 6 $iif(!$readini($dname $+ .ini,Away-System,Scheidingsteken),1,$readini($dname $+ .ini,Away-System,Scheidingsteken))
  97.     did -i $dname 16 1 $iif(!$readini($dname $+ .ini,Away-System,afwezig) || $readini($dname $+ .ini,Away-System,afwezig) == niet-weg,Ga weg!,Kom terug!)
  98.     if ($did(16) == Ga weg!) did -b $dname 16
  99.     var %i 1
  100.     while (%i <= $numtok($readini($dname $+ .ini,Away-system,Dialogcheck),32)) {
  101.       did -c $dname $gettok($readini($dname $+ .ini,Away-System,Dialogcheck),%i,32)
  102.       inc %i
  103.     }
  104.     if ($did(24).state != 1) did -b $dname 28
  105.     if ($did(16) != Kom terug!) did -b $dname 30
  106.   }
  107.   if ($devent == edit) {
  108.     if ($did == 18) { writeini $dname $+ .ini Name-caller names $did(18) }
  109.     if ($did(4) != $null) { did -e $dname 16 }
  110.     if ($did(4) == $null) && $readini($dname $+ .ini,Away-System,afwezig) == niet-weg) { did -b $dname 16 }
  111.     if ($did == 2) writeini $dname $+ .ini Away-System Oldnick $did(2)
  112.     if ($did == 28) { writeini $dname $+ .ini Away-System autoAFK $did(28) on }
  113.   }
  114.   if ($devent == sclick) {
  115.     if ($did(31).state == 1) { writeini $aname $+ .ini Name-caller Tip-message on }
  116.     else { writeini $aname $+ .ini Name-caller Tip-message off }
  117.     if ($did(24).state == 1 && $did == 24) { did -e $dname 28 | did -i $dname 28 1 $gettok($readini($dname $+ .ini,Away-System,autoAFK),1,32) }
  118.     if ($did(24).state != 1) { did -b $dname 28 | writeini $dname $+ .ini Away-System autoAFK $gettok($readini($dname $+ .ini,Away-System,autoAFK),1,32) off }
  119.     if ($did(21).state == 1 && $did == 21) { did -e $dname 22 | did -i $dname 22 1 $gettok($readini($dname $+ .ini,Name-caller,Flood-protectie),1,32) }
  120.     if ($did(21).state != 1) { did -b $dname 22 | writeini $dname $+ .ini Name-Caller Flood-protectie $gettok($readini($dname $+ .ini,Name-caller,Flood-protectie),1,32) off }
  121.     if ($did(16) != Kom terug!) did -b $dname 30
  122.     Else did -e $dname 30
  123.     if ($did(24).state == 1) did -e $dname 28
  124.     if ($did(24).state != 1) did -b $dname 28
  125.     if ($did == 24 || $did == 9 || $did == 10 || $did == 11 || $did == 12 || $did == 26 || $did == 25 || $did == 21 || $did == 31 || $did == 40) { writeini $dname $+ .ini Away-System Dialogcheck $iif($did(31).state == 1,31) $iif($did(25).state == 1,25) $iif($did(26).state == 1,26) $iif($did(21).state == 1,21) $iif($did(24).state == 1,24) $iif($did(11).state == 1,11) $iif($did(12).state == 1,12) $iif($did(10).state == 1,10) $iif($did(9).state == 1,9) $iif($did(40).state == 1,40) }
  126.     if ($did == 6) { writeini $dname $+ .ini Away-System Scheidingsteken $did(6).sel }
  127.     if ($did == 16) {
  128.       if (!$readini($dname $+ .ini,Away-System,afwezig) || $readini($dname $+ .ini,Away-System,afwezig) == niet-weg) {
  129.         if ($did(9).state == 1) { writeini $dname $+ .ini Name-caller on/off off }
  130.         if ($did(10).state == 1) { vol -vu1 }
  131.         if ($did(11).state == 1) { writeini $dname $+ .ini Away-system Away-msg off }
  132.         if ($did(12).state == 1) { writeini $dname $+ .ini Name-caller Tip-message off }
  133.         nick $did(2) $+ $did(6).seltext $+ $did(4)
  134.         ame is nu weg! $chr($asc([)) $+ $iif($did(8) == $null,»»GEEN REDEN OPGEGEVEN««,$did(8)) $+ $chr($asc(])) [Sound/Tip message/Away message: $iif($did(10).state == 1,off,on) $+ / $+ $iif($did(12).state == 1,off,on) $+ / $+ $iif($did(11).state == 1,off,on) $+ ] $iif($did(10).state == 1,Ik hoor niets $+ $chr(44) mijn mIRC sound staat uit!)
  135.         writeini $dname $+ .ini Away-System afwezig WEG
  136.         writeini $dname $+ .ini Away-System Reden $iif($did(8) == $null,»»GEEN REDEN OPGEGEVEN««,$did(8))
  137.         writeini $dname $+ .ini Away-System Away-date $date $time(HH:nn)
  138.         .timerAway-System 1 1 did -e $dname 16,30
  139.         did -b $dname 16
  140.         did -i $dname 16 1 Kom terug!
  141.         halt
  142.       }
  143.       if ($readini($dname $+ .ini,Away-System,afwezig) == WEG) {
  144.         if ($did(9).state == 1 && $readini($dname $+ .ini,Name-caller,on/off) == off && $did(26).state == 1) { writeini $dname $+ .ini Name-caller on/off on }
  145.         if ($did(10).state == 1) { vol -vu2 }
  146.         if ($did(11).state == 1) { writeini $dname $+ .ini Away-system Away-msg off }
  147.         if ($did(11).state == 0) { writeini $dname $+ .ini Away-System Away-msg on }
  148.         if ($did(12).state == 1 && $did(26).state != 1) { writeini $dname $+ .ini Name-caller Tip-message off }
  149.         nick $readini($dname $+ .ini,Away-System,Oldnick)
  150.         ame is weer terug! $chr($asc([)) $+ $readini($dname $+ .ini,Away-System,Reden) $+ $chr($asc(])) - en ik ben $chr($asc([)) $+ $remove($duratie($calc($ctime($readini($dname $+ .ini,Away-System,Away-date)) - $ctime)),-) $+ $chr($asc(])) weg geweest
  151.         writeini $dname $+ .ini Away-System afwezig niet-weg
  152.         .timerAway-System 1 1 did -e $dname 16
  153.         did -b $dname 16,30
  154.         did -i $dname 16 1 Ga weg!
  155.         halt
  156.       }
  157.     }
  158.     if ($did == 30) {
  159.       if ($did(4) != $null && $did(4) != $gettok($me,2,$asc($did(6).seltext))) { nick $readini($dname $+ .ini,Away-System,Oldnick) $+ $did(6).seltext $+ $did(4) }
  160.       if ($did(8) != $null && $did(8) != $readini($dname $+ .ini,Away-System,Reden)) { writeini $dname $+ .ini Away-System Reden $did(8) }
  161.       ame heeft zijn status veranderd! $chr($asc([)) $+ $readini($dname $+ .ini,Away-System,Reden) $+ $chr($asc(])) - en ben al $chr($asc([)) $+ $remove($duratie($calc($ctime($readini($dname $+ .ini,Away-System,Away-date)) - $ctime)),-) $+ $chr($asc(])) weg
  162.       halt
  163.     }
  164.   }
  165. }
  166.  
  167. alias aname { return Away-system-Name-caller }
  168. alias -l Away-System {
  169.   var %i 1
  170.   while (%i <= 31) {
  171.     if (%i == 19) inc %i 2
  172.     did -h $aname %i
  173.     inc %i
  174.   }
  175.   var %i 1
  176.   while (%i <= 16) {
  177.     if (%i == 19) inc %i 2
  178.     did -v $aname %i
  179.     inc %i
  180.   }
  181.   did -v $aname 24,30,29,28
  182.   did -h $aname 40
  183. }
  184.  
  185. alias -l Name-caller {
  186.   var %i 17
  187.   while (%i <= 27) {
  188.     if (%i == 19) inc %i 2
  189.     did -v $aname %i
  190.     inc %i
  191.   }
  192.   did -v $aname 31,40
  193.   var %i 1
  194.   while (%i <= 16) {
  195.     if (%i == 19) inc %i 2
  196.     did -h $aname %i
  197.     inc %i
  198.   }
  199.   did -h $aname 24,30,29,28
  200. }
  201.  
  202. on *:TEXT:*:*: {
  203.   tokenize 32 $strip($1-)
  204.   if ($readini($aname $+ .ini,Name-caller,on/off) == on) {
  205.     if (*bot* iswm $nick || *R2-D2* iswm $nick || *Banlist* iswm $nick) { halt }
  206.     if ($gettok($readini($aname $+ .ini,Name-Caller,Flood-protectie),2,32) == on) {
  207.       if (%Flood-protectie isnum) { halt }
  208.       set %Flood-protectie $gettok($readini($aname $+ .ini,Name-Caller,Flood-protectie),1,32)
  209.       .timerfloodprotectie 1 %flood-protectie unset %Flood-Protectie
  210.     }
  211.     var %i 1
  212.     while (%i <= $numtok($1-,32)) {
  213.       var %x 1
  214.       while (%x <= $numtok($readini($aname $+ .ini,Name-Caller,Names),32)) {
  215.         if ($+(*,$gettok($readini($aname $+ .ini,Name-Caller,names),%x,32),*) iswm $remove($gettok($1-,%i,32),.,$chr(44),!,@,#,%,^,&,*,[,],',",~,/,\,?,-,_)) || ($+(*,$me,*) iswm $1-) {
  216.           if ($readini($aname $+ .ini,Away-System,Away-msg) == on) && ($readini($aname $+ .ini,Away-System,afwezig) == WEG) {
  217.             .notice $nick $me is weg! $chr($asc([)) $+ $readini($aname $+ .ini,Away-System,reden) $+ $chr($asc(])) en ben al $chr($asc([)) $+ $remove($duratie($calc($ctime($readini($aname $+ .ini,Away-System,Away-date)) - $ctime)),-) $+ $chr($asc(])) weg - [Sound/Tip message/Away message: $iif(10 isin $readini($aname $+ .ini,Away-System,dialogcheck),off,on) $+ / $+ $iif(12 isin $readini($aname $+ .ini,Away-System,dialogcheck),off,on) $+ / $+ $iif(11 isin $readini($aname $+ .ini,Away-System,dialogcheck),off,on) $+ ] $iif(10 isin $readini($aname $+ .ini,Away-System,Dialogcheck),Ik hoor niets $+ $chr(44) mijn mIRC sound staat uit!)
  218.           }
  219.           if (31 isin $readini($aname $+ .ini,Away-System,Dialogcheck)) { var %tip $tip(Highlight,OPLETTEN!,4 $+ $nick $+  heeft je zojuist geroepen: 4 $+ $chr(44) $+ 1'7 $+ $strip($1-) $+ 4' in7 $iif(#* iswm $target,$chan,Privé) $+  $+($chr(40),$time(HH:nn:ss),$chr(41))) }
  220.           if (25 isin $readini($aname $+ .ini,Away-System,Dialogcheck)) { beep 5 }
  221.           echo -at 11,1-7=9Name Caller7=11- 8Je word door9 $nick 8geroepen: 7" $+ $1- $+ "8 in9 $iif(#* iswm $target,$chan,Privé)
  222.           if (#* !iswm $target) { window -g2 $active }
  223.           if ($active != $target && #* iswm $target) { window -g2 $target }
  224.           if (40 isin $readini($aname $+ .ini,Away-System,dialogcheck)) {
  225.             window -k0 @Name-Caller
  226.             echo @Name-Caller $timestamp 11,1-7=9Name Caller7=11-9 $nick 8heeft je geroepen: 7" $+ $1- $+ "8 in9 $iif(#* iswm $target,$chan,Privé)
  227.           }
  228.           halt
  229.         }
  230.         inc %x
  231.       }
  232.       inc %i
  233.     }
  234.   }
  235. }
  236.  
  237. alias duratie {
  238.   var %duratie $strip($1)
  239.   var %jaren $gettok($calc(%duratie / 31536000),1,46) | dec %duratie $calc(%jaren * 31536000)
  240.   var %weken $gettok($calc(%duratie / 604800),1,46) | dec %duratie $calc(%weken * 604800)
  241.   var %dagen $gettok($calc(%duratie / 86400),1,46) | dec %duratie $calc(%dagen * 86400)
  242.   var %uren $gettok($calc(%duratie / 3600),1,46) | dec %duratie $calc(%uren * 3600)
  243.   var %minuten $gettok($calc(%duratie / 60),1,46) | dec %duratie $calc(%minuten * 60)
  244.   var %seconden %duratie
  245.   Return $iif(%jaren != 0,%jaren $iif(%jaren == 1,jaar,jaren) $+ $chr(44)) $iif(%weken != 0,%weken $iif(%weken == 1,week,weken) $+ $chr(44)) $iif(%dagen != 0,%dagen $iif(%dagen == 1,dag,dagen) $+ $chr(44)) $iif(%uren != 0,%uren $iif(%uren == 1,uur,uren) $+ $chr(44)) $iif(%minuten != 0,%minuten $iif(%minuten == 1,minuut,minuten) $iif(%seconden != 0,en)) $iif(%seconden != 0,%seconden $iif(%seconden == 1,seconde,seconden))
  246. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!