Away Addonu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Watchmaker · 24 Eylül 2007, 19:04

Arkadaşlar Bende Bir Süredir Mirc Addonlarınla Uğraşıyorum Fakat Henüz Bi Kod Yazabilmiş Değilim.. Sadece Araştırıp Bulduğum Kodları İnceliyorum Üzerlerinde Değişiklik Yapabiliyorum.. Fakat Buradan Almış Olduğum Bir Away addon unu istediğim gibi yapamadım..

mesela şöyle bir away addonu yapabilirseniz cok sevinirim..
Away Olduğunda /ame Atıcak Özelde Veya kanalda Nickim Yazıldığında Notice Olarak Su Anda Awayım Özelime !not Şeklinde MEsajınızı yazabilirsiniz diycek Vede Örneğin 30 veya 60 dakikada bir /ame olarak away mesajımı atıcak Şimdiden Teşekkürler..

L4roXyL · 24 Eylül 2007, 21:22

Hey maşallah.
Dialog'u kendin yaz, ben sana mantığı anlatayım.

on *:text:$($+(*,$me,*)):#: { if $away == $true { notice $nick Şuanda away konumundayım. $+($chr(40),$time,$chr(41)) } }
on *:text:$($+(*,$me,*)):?: { if $away == $true { msg $nick Şuanda away konumundayım, not bırakın gelince bakarım. vs $+($chr(40),$time,$chr(41)) } }
Away olduğun zaman kanal'da ve/ya özel'de nick'ini yazana bilgi mesajı atar.

alias away { if !$1 { away | .timerok off } | else { away $1- | var %_ = $1- | ame şuanda away konumundayım. Sebeb: %_ | timerok 0 $calc(30*60) /ame $+(Meşgulum:,$chr(32),%_) } }
Bu kod'da, away olduktan sonra, her 30 dakikada bir away mesajını kanallara yansıtır.
Verdiklerime bakarak birşey yapabilirsin.

Watchmaker · 25 Eylül 2007, 14:07

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


alias awayon {
  if ($readini(away.ini,settings,nickchange) == on) {
    /nick $readini(away.ini,settings,awaynick)
    set %timeaway $time
    set %timeaway2 $ctime
    /away $readini(away.ini,settings,awayreason) 
    /ame Away ` Im. Sebep :  (¤ $readini(away.ini,settings,awayreason) ¤)  Saat : (• %timeaway $+   •)    (Log:On/Page:On) 
  }
  else {
    set %timeaway $time   
    set %timeaway2 $ctime
    /away $readini(away.ini,settings,awayreason) 
    /ame    Away ` Im. Sebep :  (¤ $readini(away.ini,settings,awayreason) ¤)  Saat : (• %timeaway $+   •)    (Log:On/Page:On)
  }
}
alias awayoff {
  if ($readini(away.ini,settings,nickchange) == on) {
    /nick $readini(away.ini,settings,normalnick)
    /away
    /ame Geldim. Away Sebebim : (¤ $readini(away.ini,settings,awayreason) ¤)  Away Kalma Sürem : (• $duration($calc($ctime - %timeaway2)) •)
  }
  else {
    /away
    /ame Geldim. Away Sebebim : (¤ $readini(away.ini,settings,awayreason) ¤)  Away Kalma Sürem : (• $duration($calc($ctime - %timeaway2)) •)
  }
}
on 1:text:*:?: { 
  if ($away) { 
    .notice $nick 4Ş5u 4A5nda 4B5ilgisayar 4B5aşında 4D5eğilim 4Away 4D5urumundayım.. 15,1 [ $duration($awaytime) ] 
}
on 1:text:*:#: { 
  if ($me isin $strip($1-)) { 
    if ($away) { 
      .notice $nick 4Ş5u 4A5nda 4A5way 4D5urumundayım 4Soru/Sorunlarınız Log Tutulmaktadır 4G5eldiğimde 4O5kuyacağım1.. 4Hoş Sohbetler1.. 15,1 [ $duration($awaytime) ]  
    }   
  }
}
on 1:text:*:*: { 
  if ($me isin $strip($1-)) { 
    if ($away) { 
      .notice $nick 4Ş5u 4A5nda 4A5way 4D5urumundayım 4Soru/Sorunlarınız Log Tutulmaktadır 4G5eldiğimde 4O5kuyacağım1.. 4Hoş Sohbetler1.. 15,1 [ $duration($awaytime) ] 
    }
  }
}
dialog away {
  title "DiE MirC Away Sistemi"
  size -1 -1 242 226
  option dbu
  text "DiE", 1, 77 3 71 8
  text "Away nicki:", 2, 6 18 32 8
  edit "", 3, 36 17 73 10, read
  button "Değiştir", 4, 189 15 37 12
  edit "", 5, 112 17 74 10
  text "Normal nick:", 6, 6 31 29 8
  edit "", 7, 36 30 73 10, read
  edit "", 8, 112 30 74 10
  button "Değiştir", 9, 189 29 37 12
  box "Nickler", 10, 4 9 236 59
  button "Tamam", 11, 89 210 37 12, ok
  box "Replies", 12, 4 68 236 83
  text "Özel:", 13, 7 78 20 9
  edit "", 14, 30 76 203 10, read
  edit "", 15, 7 88 188 10
  button "Değiştir", 16, 196 87 37 12
  text "Vazgeç:", 17, 7 102 25 8
  edit "", 18, 30 100 203 10, read
  edit "", 19, 7 112 188 10
  button "Değiştir", 20, 196 111 37 12
  text "Highlight:", 21, 7 126 25 8
  edit "", 22, 30 124 203 10, read
  edit "", 23, 7 136 188 10
  button "Değiştir", 24, 196 135 37 12
  text "Sebep:", 25, 7 155 25 8
  edit "", 26, 30 153 203 10, read
  edit "", 27, 7 165 188 10
  button "Değiştir", 28, 196 164 37 12
  button "Awaya Gec", 29, 89 181 37 12
  button "Awaydan Dön", 30, 128 181 37 12
  box "Away info", 31, 4 175 235 33
  text "Away:", 32, 7 183 25 8
  edit "Kapat", 33, 38 182 17 10, read
  edit "Saat", 34, 38 194 50 10, read
  text "Away Saati:", 35, 7 195 30 8
  box "Nick Değiş", 36, 6 42 220 23
  button "Açık", 37, 106 49 25 11
  button "Kapalı", 38, 133 49 25 11
  edit "", 39, 65 49 22 11, read
  text "Nick Değiş:", 40, 10 51 54 8
}
on *:dialog:away:init:*:{
  set %awayniks $readini(away.ini,settings,awaynick)
  set %normalnick $readini(away.ini,settings,normalnick)
  set %awayreason $readini(away.ini,settings,awayreason)
  set %nickchange $readini(away.ini,settings,nickchange)
  .did -ra $dname 3 %awayniks
  .did -ra $dname 7 %normalnick
  .did -ra $dname 14 %queryreply
  .did -ra $dname 18 %chanreply
  .did -ra $dname 22 %highreply
  .did -ra $dname 26 %awayreason
  .did -ra $dname 39 %nickchange
  if ($away) {
    .did -ra $dname 33 Açık
    .did -ra $dname 34 $duration($calc($ctime - %timeaway2))
  }
  else {
    .did -ra $dname 33 Kapalı
    .did -ra $dname 34 Away Değilsin
  }
}
ON *:DIALOG:away:sclick:4:{
  .writeini away.ini settings awaynick $did($dname,5).text
  .did -ra $dname 3 $did($dname,5)
  .did -r $dname 5
}
ON *:DIALOG:away:sclick:9:{
  .writeini away.ini settings normalnick $did($dname,8).text 
  .did -ra $dname 7 $did($dname,8)
  .did -r $dname 8
}
ON *:DIALOG:away:sclick:28:{
  .writeini away.ini settings awayreason $did($dname,27).text 
  .did -ra $dname 26 $did($dname,27)
  .did -r $dname 27
}
ON *:DIALOG:away:sclick:29:{
  awayon
  .did -ra $dname 33 On
  .did -ra $dname 34 $duration($calc($ctime - %timeaway2))
}
ON *:DIALOG:away:sclick:30:{
  awayoff
  .did -ra $dname 33 Kapalı
  .did -ra $dname 34 Away Değilsin
}
ON *:DIALOG:away:sclick:16:{
  .writeini away.ini settings queryreply $did($dname,15).text 
  set %queryreply $did($dname,15).text 
  .did -ra $dname 14 $did($dname,15)
  .did -r $dname 15
}
ON *:DIALOG:away:sclick:20:{
  .writeini away.ini settings chanreply $did($dname,19).text 
  set %chanreply $did($dname,19).text 
  .did -ra $dname 18 $did($dname,19)
  .did -r $dname 19
}
ON *:DIALOG:away:sclick:24:{
  .writeini away.ini settings highreply $did($dname,23).text 
  set %highreply $did($dname,23).text 
  .did -ra $dname 22 $did($dname,23)
  .did -r $dname 23
}
ON *:DIALOG:away:sclick:37:{
  .writeini away.ini settings nickchange On
  set %nickchange On 
  .did -ra $dname 39 On
}
ON *:DIALOG:away:sclick:38:{
  .writeini away.ini settings nickchange Off
  set %nickchange Off 
  .did -ra $dname 39 Off
}
menu menubar,status,channel {
  Away system:dialog -m away away
}

Kullandığım Addon Bu Nasıl Bi Eklenti Yapabiliriz Buna?

L4roXyL · 25 Eylül 2007, 18:36

İyide zaten bu verdiğin dialog ve snippet'lar senin istediklerini karşılıyor.
/awayon
/awayoff
Diye 2 adet alias var. Zaten senin istediklerini bu alias'ler yapıyor.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Away Addonu	NeLix	mIRC Scripting Sorunları	8	15 Nisan 2017 12:55
Away Addonu...	Silencer	mIRC Scripting Hazır Kodlar	3	06 Kasım 2010 04:24
elinde baloncuk addonu ve baglantı menusu addonu olan varmı?	Leo	mIRC Scripting Sorunları	12	26 Şubat 2010 10:19
Away Addonu	TrancEnergy	mIRC Scripting Hazır Kodlar	1	20 Nisan 2006 15:01
Away Addonu	MaeLStrOm	mIRC Scripting Hazır Kodlar	4	04 Ağustos 2005 16:20

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.