Kod: Kodu kopyalamak için üzerine çift tıklayın!
#laurellyazi on
on *:input:#:{
if /* !iswm $1- {
.haltdef
if (%lausmiley == on) {
.set %laurenkli OFF
say $replace($1-,; $+ $chr(41),;= $+ $chr(41),: $+ $chr(41),:= $+ $chr(41),:D,:=D,: $+ $chr(40),:= $+ $chr(40),; $+ $chr(40),;= $+ $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,¿ğ¿) | halt
}
if (%laurenkli == on) {
.set %lausmiley OFF
.var %q 1,8 | .var %w
.var %e 1,4 | .var %r
say $replace($1-,; $+ $chr(41),%q ;- $+ $chr(41) %w ,: $+ $chr(41),%q :- $+ $chr(41)%w ,:D,%q :-D %w ,: $+ $chr(40),%q :- $+ $chr(40) %w ,; $+ $chr(40),%q ;- $+ $chr(40) %w ,:@,%e :-@ %r ,:L,%q :-L %w ,:B,%q :-B %w ,;D,%q ;-D %w ,:F,%q :-F %w ,:G,%q :-G %w ,:M,%q :-M %w ,:O,%q :-O %w ,:P,%q :-P %w ,:R,%q :-R %w ,:S,%q :-S %w ,:U,%q :-U %w ) |halt
}
}
}
on *:input:?:{
if /* !iswm $1- {
.haltdef
if (%lausmiley == on) {
.set %laurenkli OFF
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,¿ğ¿) | halt
}
if (%laurenkli == on) {
.set %lausmiley OFF
.var %q 1,8 | .var %w
say $replace($1-,; $+ $chr(41),%q ;- $+ $chr(41) %w ,: $+ $chr(41),%q :- $+ $chr(41)%w ,:D,%q :-D %w ,: $+ $chr(40),%q :- $+ $chr(40) %w ,; $+ $chr(40),%q ;- $+ $chr(40) %w ,:@,%e :-@ %r ,:L,%q :-L %w ,:B,%q :-B %w ,;D,%q ;-D %w ,:F,%q :-F %w ,:G,%q :-G %w ,:M,%q :-M %w ,:O,%q :-O %w ,:P,%q :-P %w ,:R,%q :-R %w ,:S,%q :-S %w ,:U,%q :-U %w ) | halt
}
}
}
çakıştığı kod bu mircte input yazısını arattım tek tek bulunan sayfayı kaldırıp denedim üstteki kodu kaldırınca mırcten input düzgün calıştı :S