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

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,:B,:-B,;D,;-D,:F,:-F,:G,:=G,:M,:=M,:O,:=O,:P,:-P,:R,:=R,:S,:=S,:U,:=U,kalp,(F),kooop,(YYYY),hıhh, &//,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 }