А еще был у нас в сети вот такой случай...

Завалился ко мне в приват кто-то и попросил скриптец который бы ему одни буквы
на другие менял (например: ш на w).
А у меня видать настроение было хорошее
и я ломался не долго и скриптец тот написал. Вот что у меня получилось:

on *:INPUT:*: {
if (!$ctrlenter) {
var %action, %result = $1-
if ($left(%result,1) != /) {
%action = say
%result = $replacecs(%result, ш, w, Ш, W)
}
else {
%action = $gettok(%result,1,32)
%result = $replacecs($deltok(%result,1,32), ш, w, Ш, W)
}
%action %result
halt
}
}

Думаю понятно что надо делать чтобы этот скрипт другие буквы подменял?

А потом смотрю, так ведь эту лабуду я для ^MAD-MAKC^'а когда-то делал.
Мы тогда пытались облечить /me и /ame. И вот до чего дооблегчались:

on *:INPUT:*: {
if ($ctrlenter == $false) {
var %result = $1-
if ($left(%result,1) == -) { me $right(%result,-1) | halt }
if ($left(%result,1) == =) { ame $right(%result,-1) | halt }
}
}

Все строки начинающиеся с "-" скрипт интерпретирует как /me,
а все строки начинающиеся с "=" -- как /ame.
Потом я еще не раз этот самый скрипт под разными соусами распространял.
Вот совсем недавно я его для ice переделывал. Ему смайлики хотелось подменять:
допустим пишет он "=)", а на экране отображается "ж)".
Уже и не помню что именно я ему слил, но что-то типа этого:

on *:INPUT:*: {
if (!$ctrlenter) {
var %say = $iif($left($1-,1) != /, say)
%say $replacecs($1-, = $+ $chr(41),  $+ $rand(1,15) $+ ж $+ $chr(41))
halt
}
}

Этот скрипт самый продвинутый из всех трёх:
он случайным образом определяет цвет буквы "ж" в смайлике
После всего этого я понял, что статью надо про это написать и закончить с этой темой,
дабы к ней больше не возвращаться.
Очень неинтересно всё время одно и то же писать. Ну а статья перед вами

PS Каждый скрипт содержит условие "if (!$ctrlenter)" (или "if ($ctrlenter == $false)",
что одно и то же), которое блокирует выполнение скрипта,
если при нажатии клавиши энтер (Enter) нажата клавиша контрол (Ctrl).

©Zmey