Ok, You copy the code press alt r and then goto file new click that, Then paste the code in the big white empty box and press ok click any where in a mian channel not on a nick or a klink in a blank space. And yes i made it for Sammie_Do|| :)
on *:CONNECT:{ echo -s 4,1 Shanker's VeRSioN 1,4 Text Replacer Running }
on *:LOAD:{ echo -s 4,1 Shanker's VeRSioN 1,4 Text Replacer Running }
on *:UNLOAD:{ echo -s 4,1 Shanker's VeRSioN 1,4 Text Replacer UnLoaded }
menu status,channel {
Word Replacer
.on : set %wrep on
.off : set %wrep off
}
on 1:input:*: {
if (%wrep == on) {
if ($left($1,1) == /) {
return
}
else {
haltdef
say $wordreplace($1-)
}
}
}
alias me {
if (%wrep == on) {
describe $chan $wordreplace($1-)
}
else {
describe $chan $1-
}
}
alias WordReplace {
var %rep = $1-
%rep = $replacecs(%rep,fuck,13fúck1)
%rep = $replacecs(%rep,shit,13shít1)
%rep = $replacecs(%rep,dick,13díck1)
%rep = $replacecs(%rep,pussy,13pússy1)
%rep = $replacecs(%rep,whore,13whóre1)
%rep = $replacecs(%rep,slut,13slút1)
%rep = $replacecs(%rep,cock,13cóck1)
%rep = $replacecs(%rep,cunt,13cúnt1)
%rep = $replacecs(%rep,cum,13cúm1)
%rep = $replacecs(%rep,fag,13fág1)
%rep = $replacecs(%rep,incest,13incëst1)
%rep = $replacecs(%rep,hitler,13hítler1)
%rep = $replacecs(%rep,nigger,13nígger1)
%rep = $replacecs(%rep,vagina,13vágina1)
%rep = $replacecs(%rep,penis,13penís1)
%rep = $replacecs(%rep,asshole,13asshóle1)
%rep = $replacecs(%rep,bitch,13bítch1)
%rep = $replacecs(%rep,blowjob,13blowjób1)
%rep = $replacecs(%rep,sik,13sík1)
%rep = $replacecs(%rep,FUCK,13FÚCK1)
%rep = $replacecs(%rep,SHIT,13SHÌT1)
%rep = $replacecs(%rep,DICK,13DÌCK1)
%rep = $replacecs(%rep,PUSSY,13PÚSSY1)
%rep = $replacecs(%rep,WHORE,13WHÒRE1)
%rep = $replacecs(%rep,SLUT,13SLÚT1)
%rep = $replacecs(%rep,COCK,13CÒCK1)
%rep = $replacecs(%rep,CUNT,13CÚNT1)
%rep = $replacecs(%rep,CUM,13CÚM1)
%rep = $replacecs(%rep,FAG,13FÀG1)
%rep = $replacecs(%rep,INCEST,13INCÈST1)
%rep = $replacecs(%rep,HITLER,13HÌTLER1)
%rep = $replacecs(%rep,NIGGER,13NÌGGER1)
%rep = $replacecs(%rep,VAGINA,13VÀGINA1)
%rep = $replacecs(%rep,PENIS,13PENÌS1)
%rep = $replacecs(%rep,ASSHOLE,13ASSHÒLE1)
%rep = $replacecs(%rep,BITCH,13BÌTCH1)
%rep = $replacecs(%rep,BLOWJOB,13BLOWJÒB1)
%rep = $replacecs(%rep,SIK,13SÌK1)
return %rep
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
; Coded By shanker.... :D
; :) Please do enjoy and feel free to edit but do not Fúcking rip ásshólés :D
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Lol... It's ok i don't care :) and on the day i made this for sammie_Do|| i was pissed off is why the
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
; Coded By shanker.... :D
; :) Please do enjoy and feel free to edit but do not Fúcking rip ásshólés :D
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
is like it is lol sorry guys :)
alias me {
if (%wrep == on) {
describe $chan $wordreplace($1-)
}
else {
describe $chan $1-
}
}
Breaks /me for query window use $active instead of $chan
or maybe better restrict replace to channel and lose the
me alias and do:
on 1:input:#: {
if (%wrep == on) {
if ($1 == /me) {
haltdef
me $wordreplace($1-)
}
elseif ($left($1,1) == /) {
return
}
else {
haltdef
say $wordreplace($1-)
}
}
}
Also maybe use case sensitive replacecs followed by
plain replace to prevent kicks for Word worD etc..
%rep = $replacecs(%rep,WORD,13WÒRD1)
; group followed by
%rep = $replace(%rep,word,13wórd1)
Also maybe put all the replace into one
$replacecs(%rep,WORD1,NEWWORD1,WORD2,NEWWORD2)
