Teşekkür Dialog

[Sharingan]

Bir çok script'te gördüklerim sürekli olarak coder'in kendisi tarafından hazırladığı

kullanıcılar için seceneği olmayan event'lerdi bir iki arkadasım bunu yapmami rica ettiler ve bir arkadas 'ta baska forum sormustu bende kıramadım , dialog üzerinden istediğiniz kadar tesekkür mesajı ekleyip silebilirsiniz , otomatik olarak karısık okur txt'i uygulamalarda karısık olarka atar , kısacası sürekli değişken mesaj atar örneğin



a kanalında op aldı ise xxxxx mesajını gönderir

b kanalında op alınca ccccc mesajını gönderir..

alias tesekkur { dialog -m tsk tsk }

dialog tsk {

  title "Op-Voice-Hop ( Tesekkür Dialog ) | www.mircturk.com ( Coded : LeadeR )"

  size -1 -1 243 170

  option dbu

  tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160

  button "Ekle", 8, 30 21 17 10, tab 1

  edit "", 4, 55 20 178 13, tab 1 return autohs autovs

  button "Sil", 9, 30 34 17 10, tab 1

  button "Ekle", 10, 31 88 17 10, tab 1

  edit "", 6, 55 87 178 13, tab 1 return autohs autovs

  button "Sil", 11, 31 101 17 10, tab 1

  list 5, 55 34 178 50, tab 1 size

  list 7, 55 101 178 50, tab 1 size

  check "Check Box", 31, 9 53 7 10, tab 1

  edit "+(@) , -(@)", 32, 18 52 36 11, tab 1

  tab "Voice - Devoice ( Tesekkür )", 2

  button "Ekle", 15, 30 21 17 10, tab 2

  edit "", 16, 55 20 178 13, tab 2 return autohs autovs

  button "Sil", 17, 30 34 17 10, tab 2

  button "Ekle", 19, 31 88 17 10, tab 2

  edit "", 20, 55 87 178 13, tab 2 return autohs autovs

  button "Sil", 21, 31 101 17 10, tab 2

  list 18, 55 34 178 50, tab 2 size

  list 22, 55 101 178 50, tab 2 size

  check "Check Box", 33, 9 53 7 10, tab 2

  edit "+(v) , -(v)", 34, 18 52 36 11, tab 2

  tab "Hop-Dehop ( Tesekkür )", 3

  button "Ekle", 23, 30 21 17 10, tab 3

  edit "", 24, 55 20 178 13, tab 3 return autohs autovs

  button "Sil", 25, 30 34 17 10, tab 3

  button "Ekle", 27, 31 88 17 10, tab 3

  edit "", 28, 55 87 178 13, tab 3 return autohs autovs

  button "Sil", 29, 31 101 17 10, tab 3

  list 26, 55 34 178 50, tab 3 size

  list 30, 55 101 178 50, tab 3 size

  check "Check Box", 35, 9 53 7 10, tab 3

  edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3

  button "Kapat", 14, 217 159 25 11, ok

  box "", 13, 2 10 238 147

  box "", 12, 7 14 228 139

}







on *:dialog:tsk:*:*: {

  if ($devent == sclick) {

    if ($did == 5) { did -ra $dname 4 $did(5).seltext }

    if ($did == 8) {

      if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }

      did -r $dname 4

    }

    if ($did == 9) {

      if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }

      did -r $dname 4

    }

    if ($did == 7) { did -ra $dname 6 $did(7).seltext }

    if ($did == 10) {

      if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }

      did -r $dname 6

    }

    if ($did == 11) {

      if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }

      did -r $dname 6

    }

    if ($did == 18) { did -ra $dname 16 $did(18).seltext }

    if ($did == 15) {

      if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }

      did -r $dname 16

    }

    if ($did == 17) {

      if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }

      did -r $dname 16

    }

    if ($did == 22) { did -ra $dname 20 $did(22).seltext }

    if ($did == 19) {

      if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }

      did -r $dname 20

    }

    if ($did == 21) {

      if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }

      did -r $dname 20

    }

    if ($did == 26) { did -ra $dname 24 $did(26).seltext }

    if ($did == 23) {

      if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }

      did -r $dname 24

    }

    if ($did == 25) {

      if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }

      did -r $dname 24

    }

    if ($did == 30) { did -ra $dname 28 $did(30).seltext }

    if ($did == 27) {

      if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }

      did -r $dname 28

    }

    if ($did == 29) {

      if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }

      did -r $dname 28

    }

    if ($did == 14) {

      if ($did(31).state == 1) { .enable #op }

      if ($did(31).state == 0) { .disable #op }

      if ($did(33).state == 1) { .enable #vop }

      if ($did(33).state == 0) { .disable #vop }

      if ($did(35).state == 1) { .enable #hop }

      if ($did(35).state == 0) { .disable #hop }    

    }

  }

  if ($devent == init) {

    var %bd.s = 1

    var %bd.t = $lines(op.txt)

    while (%bd.s <= %bd.t) { did -a $dname 5 $read(op.txt,%bd.s) | inc %bd.s }

    var %ad.s = 1

    var %ad.t = $lines(deop.txt)

    while (%ad.s <= %ad.t) { did -a $dname 7 $read(deop.txt,%ad.s) | inc %ad.s }

    var %vd.s = 1

    var %vd.t = $lines(v.txt)

    while (%vd.s <= %vd.t) { did -a $dname 18 $read(v.txt,%vd.s) | inc %vd.s }

    var %dvd.s = 1

    var %dvd.t = $lines(dv.txt)

    while (%dvd.s <= %dvd.t) { did -a $dname 22 $read(dv.txt,%dvd.s) | inc %dvd.s }

    var %h.s = 1

    var %h.t = $lines(h.txt)

    while (%h.s <= %h.t) { did -a $dname 26 $read(h.txt,%h.s) | inc %h.s }

    var %dh.s = 1

    var %dh.t = $lines(dh.txt)

    while (%dh.s <= %dh.t) { did -a $dname 30 $read(dh.txt,%dh.s) | inc %dh.s }

    if ($group(#op) == on) { did -c $dname 31 } | if ($group(#op) == off) { did -u $dname 31 }

    if ($group(#vop) == on) { did -c $dname 33 } | if ($group(#vop) == off) { did -u $dname 33 }

    if ($group(#hop) == on) { did -c $dname 35 } | if ($group(#hop) == off) { did -u $dname 35 }

  }

}



#op on

on *:op:#: {

  if $opnick == $me {

    msg $chan $nick $read(op.txt)

  }

}



on *:deop:#: {

  if $opnick == $me {

    msg $chan $nick $read(deop.txt)

  }

}

#op end



#vop on 

on *:voice:#: {

  if $vnick == $me {

    msg $chan $nick $read(v.txt)

  }

}



on *:devoice:#: {

  if $vnick == $me {

    msg $chan $nick $read(dv.txt)

  }

}

#vop end



#hop on

on *:help:#: {

  if $hnick == $me {

    msg $chan $nick $read(h.txt)

  }

}



on *:dehelp:#: {

  if $hnick == $me {

    msg $chan $nick $read(dh.txt)

  }

}

#hop end



menu channel,status,menubar {

  Tesekkurler:/tesekkur

}