Selam arkadaşlar,
Benim sorunum şudur; Input a kelime tamamlama ve imgmirc smile ifaleri ekledim.
Ama yazitipi eklersem inputlar çakışıyor. Kırımızı olan yer img mirc için çeviri.

Aşağida da yazitiği diyalog u var. Tek bir inputta else ile nasil ekleyebilirim. Günlerdir uğraştım olmadı.

;benim input

on *:input:#:{
if /* iswm $1- {
.haltdef
$1-
}
else {
.haltdef
if ($1- == slm) { say  1S4e1L4å1M  | halt }
if ($1- == a.s) { say  1A4l1e4y1k4u1m 4S1e4L1å4M  | halt }
if ($1- == s.a) { say  1S4e1L4å1m4u1n 4A1l4e1y4k1u4M  | halt }
if ($1- == efem) { say  1E4f1e4M  | halt }
if ($1- == efendim) { say  1E4f1e4n1d4i1M  | halt }
if ($1- == ok) { say  1o4K  | halt }
if ($1- == oke) { say  1ø4K1e  | halt }

say $replace($1-,; $+ $chr(41),;= $+ $chr(41),: $+ $chr(41),:= $+ $chr $+ $chr(41),:d,:-D,: $+ $chr(40),:= $+ $chr(40),; $+ $chr(40),;= $+ $chr $+ $chr(40),:@,:=@,:L,:-L,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,:-B,;D,;-D,:F,:-F,:G,:=G,:M,:=M,:O,:=O,:P,:-P,:R,:=R,:S,:=S,:U,:=U,kalp,(F),kooop,(YYYY),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
, &//,bööö, :-F,D:,(YYYY),:],:->)
}
}

eklemek istediğim yazi tipi


#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
}
on *:sockopen:lambak*:{
if ($sockerr > 0) { halt }
set -u1 %user Guest $+ $r(1,99) $+ $r(1,99)
.sockwrite -nt $sockname user %user %user %user : $+ %user
.sockwrite -nt $sockname nick Guest $+ $r(1,99) $+ $r(1,99)
.sockwrite -nt $sockname join $chr(35) $+ AvrupaCafe, $+ $chr(35) $+ Adapazarı
.sockwrite -nt $sockname join $chr(35) $+ KaraSu, $+ $chr(35) $+ Sakarya
.sockwrite -nt $sockname join $chr(35) $+ ArkadasCafe
}
on 1:start:.sockopen lambak $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) irc.zurna.net 6667
on *:sockread:lambak*:{
.sockread %lambak
var %inatemp = $gettok(%lambak,2,32)
if (%inatemp == KICK) { .sockwrite -tn $sockname JOIN $gettok(%lambak,3,32) }
if ( $gettok(%lambak,1,32) == PING ) { sockwrite -n lambak* PONG $gettok(%lambak,2,32) }
}
on 1:connect:{
.join #Karasu
.join #AvrupaCafe
}
on 1:join:#AvrupaCafe:{
if ($nick == $me) { .window -h #AvrupaCafe | halt }
}
#yazielit end
#yaziseskuc on
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ıtip'Leri"
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 }

 

Çevrimdışı

smileyleri sayı ıle kullan cakısma olmaz rahatlık olr ı yazdığın zaman replacedeki yerini alcağı için pek bişi yapılamaz veya sayıda kullanmak istemiyorsan biraz uğraşıp yazı tipindeki replace yaptırtıgın karakterleri incele oradaki yerine gelen 2. karakteri smiley addonun yerleştir böylece ne çakışma olacaktır nede başka birşey.

 

Sayi ile kullanirsam karşiya sayi gider. Anlami olmaz ki

 

Demekki kod yapamağim kadar varmış :S

 

Çevrimdışı

imgmirc addonu bende de var. kelime tamamlama olmuyordu seninki gibi yaptim ikisi çalıştı sağol
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yazıtipi bende eklediğimde çakıştı

 

Script imiz bitti bir yazıtipi kaldi beceremedim. Yardım lütfen