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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Lütfen acil yardım !!!!!! (https://www.ircforumlari.net/mirc-scripting-sorunlari/161421-lutfen-acil-yardim.html)

AdiL 29 Kasım 2008 15:34

Lütfen acil yardım !!!!!!
 
arkadaşlar benim kendi scpritime yazı tipleri addonunu remotesini buluyorum siliyorum nette buldugum yazı tipi addonunu kendi scpritime yüklüyorum ama eski yazı tipiaddonu halan kalkmamıs oluyor bunu surdan anlıyorum her yazdıgım iki kere cıkıyor bana elinde şekilli yazı tipi addonu olan bide bu eski yazı tipini nasıl kaldıracagım onu söyleyebilecke bi arkadaş varmı lütfen yardım edin kaç gündür ugraşıyorum canım cıktı

Regex 29 Kasım 2008 16:19

Cevap: Lütfen acil yardım !!!!!!
 
Yeni eklediğin addondaki /say komutlarının sonunda, bracketi kapatmadan önce /halt komutunu eklersen iki defa gitme sorunu ortadan kalkar.

Yapamazsan, kodları buraya kopyalarsın; ben düzenlerim.

AdiL 29 Kasım 2008 17:11

Cevap: Lütfen acil yardım !!!!!!
 
on 1:load: {
if ( $version < 5.6 ) { unload -rs yazitipi.mrc | echo 4 -a Bu add-on mIRC 5.6 ve üzeri için hazırlanmıştır. En son mIRC için [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresine bakınız. }
else { echo 4 -a 12,4|| BQRA || tarafından yapılan 12YAZITİPLERİ add-onu yüklendi. }
}
#yazirenkli off
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g, Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı ,O,o,p,P,ğ,Ğ,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,ş,Ş,İ,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
say %seskuc
unset %seskuc
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o ,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,? ,¿)
set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O ,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yazıtipi"
size -1 -1 110 190
radio "Tûrk¢e",1,10 10 90 20
radio "ë£î±",2,10 30 90 20
radio "sreT",3,10 50 90 20
radio "BüYüK-kÜçÜk",4,10 70 90 20
radio "SeSSiZ BüYüK",5,10 90 90 20
radio "Renkli",6,10 110 90 20
radio "Normal",19,10 130 90 20
box "",20,5 0 100 155
button "TAMAM",21,5 165 100 20,ok
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
Yazıtipi...:/yazitip
}


Arkadasım bu scpiritin kendi yazı remotesi ve ben şimdi vrecegim kodu remoteme ekliyorum yazdıgım iki kere çıkıyor

AdiL 29 Kasım 2008 17:13

Cevap: Lütfen acil yardım !!!!!!
 
menu status,menubar,channel {
.-
.» Şekilli Yazı
..Açık:.enable #Yazi | .echo -a 4*** 1Şekilli yazı açıldı
..Kapalı:.disable #Yazi | .echo -a 4*** 1Şekilli yazı kapatıldı
.-
}
#Yazi off
on *:input:*:{ if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 && !$istok(#Arkadas xXx,$active,32) { say $replacecs($1-,a,å,b,ß,c,¢,ç,¢,e,ë,i,î,n,ñ,o,ø,s,§,u,µ,y,¥,ş,$,? ,¿,<,«,>,»,:,¦) | halt } }
#Yazi end
bu kodu ekledigim zaman remote kısmına iki kere çıkıyor iki kere çıkmaması için bana bi ayarlarmısın bu kod urica etsem lütfen

XcLusive 29 Kasım 2008 17:22

Cevap: Lütfen acil yardım !!!!!!
 
bak diğer input eventlerinin gruplarını kapatmalısın eğer script içersinde 2 tane input eventi açık olursa çakışacak ve 2 kere yazacaksın diğer bir sorun ise input eventinde değiştirilecek kelime geçmişse ve sonuna halt komutu koyulmamışsa 2 kere yazacaksın
örnek son verdiğin kodun grup eventi #yazi kapatmak için /disable #yazi komutunu kullanabilirsin.

AdiL 29 Kasım 2008 17:31

Cevap: Lütfen acil yardım !!!!!!
 
arkadaşım ben bu dediginizden bişey anlamadım ama siz bana olacak bi şekilde ayarlayamazmısınız ben o ayarladıgınız kodları remotelerime eklesem acaba

AdiL 29 Kasım 2008 17:33

Cevap: Lütfen acil yardım !!!!!!
 
birde forumumuzda gezer iken
on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } } kalınlı inceli yazma die bi kod buldum bunu cok sevdim ama ....bakın şimdi arkadaşlar ben yazı tipi die bi penrece actıgımda ordan kalınlı inceli secenegi sonra bu normal yazı şekilleri gibi şekilli bi yazı tipi addonum olsun istiyorum.hepsini kullanırım sırası geldiginde hangisini seversem seciyim yazdıgım bi kere gitsin lütfen bana ayarlayın gözünüzü seviyim deli edecek bu beni :(:(:(

AdiL 29 Kasım 2008 17:35

Cevap: Lütfen acil yardım !!!!!!
 
hepsini bir araya toplaaymazmıyız mesela bu kalınlı inceli yazma secenegi sonra bas harfi büyük yazma L harflerini büyük yazma secenegi gibi addonlar ekleyemezmiyiz..biraz emek harcarsanız coder arkadaşlar suna eminim bi çok arakdasın işine yarayacagından eminim.

AdiL 29 Kasım 2008 18:23

Cevap: Lütfen acil yardım !!!!!!
 
yokmu bna yardım edecke kimse arkadaşlarrrrrrrr

Difuzyon 29 Kasım 2008 19:23

Cevap: Lütfen acil yardım !!!!!!
 
Kod:

#yazirenkli off
on 1:INPUT:*:{
  unset %ahenk*
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
  :ilk
  inc %ahenks
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
  %ahenkh = $mid($1-,%ahenks,1)
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
  unset %ters*
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
  :ilk
  inc %terss
  if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
  set %tersh $mid($1-,%terss,1)
  %terst = %tersh $+ %terst
  goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)
  say %turkce
  unset %turkce
  halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
  unset %elit
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
  %elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g, Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
  say %elit
  unset %elit
  halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
  unset %seskuc
  set %seskuc $1-
  if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
  %seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ı ,O,o,p,P,ğ,Ğ,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,ş,Ş,İ,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
  say %seskuc
  unset %seskuc
  halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
  unset %buy*
  set %buyk $1-
  if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
  set %buys 1
  set %buyu $len(%buyk)
  :ilk
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o ,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,? ,¿)
  set %buyb %buyb $+ %buyh
  inc %buys
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O ,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿ ,?)
  inc %buys
  set %buyb %buyb $+ %buyh
  goto ilk
  :son
  say %buyb
  unset %buy*
  halt
}
#yazibuykuc end
#yaziozel off
on *:input:*:{ if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 && !$istok(#Arkadas xXx,$active,32) { say $replacecs($1-,a,å,b,ß,c,¢,ç,¢,e,ë,i,î,n,ñ,o,ø,s,§,u,µ,y,¥,ş,$,? ,¿,<,«,>,»,:,¦) | halt } }
#yaziozel end
#yazikalin off
on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } }
#yazikalin end
dialog yazitip {
  title "Yazıtipi"
  size -1 -1 110 215
  radio "Tûrk¢e",1,10 10 90 20
  radio "ë£î±",2,10 30 90 20
  radio "sreT",3,10 50 90 20
  radio "BüYüK-kÜçÜk",4,10 70 90 20
  radio "SeSSiZ BüYüK",5,10 90 90 20
  radio "Renkli",6,10 110 90 20
  radio "İnce-Kalın",7,10 130 90 20
  radio "Özël",8,10 150 90 20
  radio "Normal",19,10 170 90 20
  box "",20,5 0 100 190
  button "TAMAM",21,5 195 100 20,ok
}
on 1:dialog:yazitip:*:*: {
  if ( $devent == init ) {
    if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
    elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
    elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
    elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
    elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
    elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
    elseif ($group(#yazikalin).status == on ) { did -c yazitip 7 }
    elseif ($group(#yaziozel).status == on ) { did -c yazitip 8 }
    else { did -c yazitip 19 }
  }
  if ( $devent == sclick ) {
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
    if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
    if ( $did == 7 ) { .disable #yazi* | .enable #yazikalin }
    if ( $did == 8 ) { .disable #yazi* | .enable #yaziozel }
    if ( $did == 19) { .disable #yazi* }
  }
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
  Yazıtipi...:/yazitip
}

Güle güle kullanın... :)
İyi paylaşımlar.

AdiL 29 Kasım 2008 20:11

Cevap: Lütfen acil yardım !!!!!!
 
difuzyon abi süpersin ellerine saglık ama abi ben scpritin kendisindeki remoteyi kodu siliyorum ekliyorum bunu oluyor ama yazdıklarım gine iki kere cıkıyor ne yapacam abi ben bunu kesmek için
[19:59] <adil> merhaba
[19:59] <adil> mërhåßå

Difuzyon 29 Kasım 2008 20:22

Cevap: Lütfen acil yardım !!!!!!
 
Bende sağlıklı bi şekilde çalışıyor.Başka bir on *:INPUT:.... event'ı olmalı.Onu bulmalısın,çakışıyordur.

AdiL 29 Kasım 2008 20:49

Cevap: Lütfen acil yardım !!!!!!
 
buldum arkadaşım ellerine saglık çok içok tşk ederim sagolasın sana acaba burada bieşy daha sorsma olurmu bende tamamlayıcı die bi dosya actımicine if ($1- == :P) { say :Pp :Pp :Pp | halt }
if ($1- == : ) { say 1:4-1) | halt }
if ($1- == hö) { say H7öÖ1öÖ7öÖ1öÖ | halt }
if ($1- == g) { say gidiyorum acil cikis iyi bakın kendinize gittim.. | halt }
if ($1- == mihi) { say MiHihiHiiHiii | halt }
bunları koydum kelime tamamlama yani anlıcan ben şimdi ne istiyorum biliyormusun sag tus yaptıgımda kelime tamamlayıcı ac dedigimde calısacak kapa dedigimde kapatacak addon hazırlamam gerke buna onuda bi ayarlarsan çok makbule geçer valla

Difuzyon 29 Kasım 2008 22:18

Cevap: Lütfen acil yardım !!!!!!
 
Kod:

#smiles off
on *:INPUT:*:{
  if ($1- == :P) { say :Pp :Pp :Pp | halt }
  if ($1- == : ) { say 1:4-1) | halt }
  if ($1- == hö) { say H7öÖ1öÖ7öÖ1öÖ | halt }
  if ($1- == g) { say gidiyorum acil cikis iyi bakın kendinize gittim.. | halt }
  if ($1- == mihi) { say MiHihiHiiHiii | halt }
}
#smiles end
menu channel,nicklist,menubar {
  Smile
  .Aç: /.enable #smiles | echo 6 -a Smiles açıldı.
  .Kapat: /.disable #smiles | echo 5 -a Smiles kapatıldı.
}


Bunu çalıştırmak istediğinde diğer INPUT'ların çakışması ihtimaline tekrar dikkat çekeyim.
İyi paylaşımlar...

AdiL 29 Kasım 2008 22:27

Cevap: Lütfen acil yardım !!!!!!
 
tmm abim cok sagolasın acaba kızmazsan bi son ricam daha olcak senden ben op voice tşkü şu şekil ayarladım
#tesekkür on
On *:Op:#: if ($opnick == $me) && ($nick != $me) { msg #
On *:Voice:#: if ($vnick == $me) && ($nick != $me) { msg # tşk
şeklinde bunuda kapama açma addonu yazarmısın abi bana bi lütfen

Difuzyon 29 Kasım 2008 22:39

Cevap: Lütfen acil yardım !!!!!!
 
#tesekkür on
On *:Op:#: if ($opnick == $me) && ($nick != $me) { msg # ........ }
On *:Voice:#: if ($vnick == $me) && ($nick != $me) { msg # tşk ........ }
#tesekkür end


menu channel,nicklist,menubar {
Teşekkür
.Aç: /.enable #tesekkür | echo 6 -a Teşekkür açıldı.
.Kapat: /.disable #tesekkür | echo 5 -a Teşekkür kapatıldı.
}


Bir önceki verdiğim koddan örnek alabilirdin.

AdiL 29 Kasım 2008 22:41

Cevap: Lütfen acil yardım !!!!!!
 
abim sen birtenesin :) sanada çok zahmet verdik kusura bakma sayende süper şeyler yaptım ellerin dert görmesin inş..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk