Подскажите как написать скрипт

[NLObP]

semiromid, у тебя неправильно оформлен оператор IF.
Надо так:

if    (ReadD(18) = mana1)  then
begin
       buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
       SendToServer;                              
end;

или так

if    (ReadD(18) = mana1)  then
begin
       buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
       SendToServer;                              
end
else
begin
       buf:=hstr('');                                         
       SendToServer;                              
end;