Stealth Client Forum

Code: Select all

Program NameOfProgram;

begin

end.

Code: Select all

Program Name_of_Program;

Code: Select all

;

Code: Select all

End.

Code: Select all

Program Hello_World;
Begin
addtosystemjournal('Hello World!!! =-)');
end.

Code: Select all

addtosystemjournal('Text');

Code: Select all

Var i : integer;

Code: Select all

Var a, b : Byte;
mas : String;

Code: Select all

Var i : integer;
Mes, mes2 : String;
Bag, lopata, runka, syndyk : Cardinal;

Code: Select all

Var i, gy : integer;

Code: Select all

Var Kolichestvo_irona_v_syndyke, Kol_logov_v_syndyke : integer;

Code: Select all

Program Hello_World;
Var hello : String;
gyka : Integer;
Lopata : Cardinal;
Begin
Hello := 'Привет мир! =-)';
Gyka := 3545;
Lopata := $0045CC44;
addtosystemjournal(Hello);
end. 

Code: Select all

addtosystemjournal('Hello');

Code: Select all

Program Hello_World;
Var hello : String;
gyka : Integer;
Lopata : Cardinal;
Begin
Hello := 'Привет мир! =-)';
Gyka := 3545;
Lopata := $0045CC44;
addtosystemjournal('Hello = '+Hello);
end. 

Code: Select all

Program Hello_World;
Var hello : String;
gyka : Integer;
Lopata : Cardinal;
Begin
Hello := 'Привет мир! =-)';
Gyka := 3545;
Lopata := $0045CC44;
addtosystemjournal('Hello = '+Hello+' - не правильный смайл, правильно :-)');
end. 

Code: Select all

Program Hello_World;
Var hello : String;
gyka : Integer;
Lopata : Cardinal;
Begin
Hello := 'Привет мир! =-)';
Gyka := 3545;
Lopata := $0045CC44;
addtosystemjournal('Hello = '+Hello+', Gyka = '+IntToStr(Gyka)+'ID Лопаты = '+ IntToStr(Lopata));
end. 

Code: Select all

IntToStr()

Code: Select all

Program about_intToStr;
Var  a_plus_b_with : string;
a, b, a_plus_b_without  : integer;
Begin
a:= 123;
b:= 456; 
a_plus_b_without := a + b;
a_plus_b_with := IntToStr(a) + IntToStr(b)
addtosystemjournal('a_plus_b_without = '+IntToStr(a_plus_b_without));
addtosystemjournal('a_plus_b_with = '+a_plus_b_with);
end.

Code: Select all

Program Hello_World;
Const hello = 'Привет мир';
Begin
addtosystemjournal(Hello);
end. 

Code: Select all

Program Hello_World;
Const Hello = 'Привет мир! =-)';
Gyka = 3545;
Lopata = $0045CC44;
Begin
addtosystemjournal('Hello = '+Hello+', Gyka = '+IntToStr(Gyka)+'ID Лопаты = '+ IntToStr(Lopata));
end.

Code: Select all

Program Love;
Const Message = 'Цемаю тебя ';
a = 300;
var b,c : Integer;
kolichestvo_pocelyev :  word;
Begin
b:= 123;
c:= 321;
kolichestvo_pocelyev := a+(b + c);
addtosystemjournal(Message + IntToStr(kolichestvo_pocelyev) + ' рас.');
end.

Code: Select all

If then else

Code: Select all

case of

Code: Select all

Program what_is_i;
Const i = 7;
var mes : String;
begin
if i > 0 then
mes := 'Переменная i - натуральное число' else mes := 'Переменная i - не натуральное число' ;
addtosystemjournal(Mes);
end.

Code: Select all

Программа what_is_i;
Константа i равна 7;
Переменная mes - Строчка;
Начали
Если i больше 0 тогда переменной mes присваивается значение 'Переменная i - натуральное число' в других случаях mes присваивается значение 'Переменная i - не натуральное число';
Конец.

Code: Select all

Program what_is_if;
Const mes = 'Чар абсолютно здоров!';
begin
if (HP = MaxHP) then
addtosystemjournal(Mes);
end.

Code: Select all

Program what_is_if;
Const mes_norm = 'Шас я их роздрозню.';
mes_bad = 'Меня атакуют!';
begin
if (HP < MaxHP) then
   begin
   AddToSystemJournal(mes_bad);
   uosay('Guards');
   end
else
   Begin
   AddToSystemJournal(mes_norm);
   uosay('Ну же, нападите на меня! Я вас не боюсь.');
   end;
 end.

Code: Select all

Program what_is_if;
Const mes_bad = 'Меня атакуют!';
begin
if (HP < MaxHP) then
   begin
   AddToSystemJournal(mes_bad);
   uosay('Guards');
   end;
 end.

Code: Select all

Если I = 1 тогда ...
Если I = 2 тогда ...
Если I = 3 тогда ...
Если I = 4 тогда ...
Если I = 5 тогда ...
Если I = 6 тогда ...
Если I = 7 тогда ...
Если I = 8 тогда ...
Если I = 9 тогда ...
Если I = 10 тогда ...
Если I = 11 тогда ...
Если I = 12 тогда ...
Если I = 13 тогда ...
Если I = 14 тогда ...
Если I = 15 тогда ...
Если I = 16 тогда ...
Если I = 17 тогда ...
Если I = 18 тогда ...
Если I = 19 тогда ...
Если I = 20 тогда ...

Code: Select all

Program test_case_of;
const i = 2;
begin
   case i of
   1 : AddToSystemJournal('i = 1'); // Пишим в журнал что I = 1
   2 : AddToSystemJournal('i = 2'); // Пишим в журнал что I = 2
   3 : AddToSystemJournal('i = 3'); // Пишим в журнал что I = 3
   end;
end.

Code: Select all

Program test_case_of;
//Фантазия в 4 ночи работает плохо!
//Короче скрипт.
//У вас в паке есть 3 контейнера (Сундук, пак (не бекпак персонажа), 
//и мешочек)
// один из которых он откроет
//Вписываем число 1-3
const  i = 3 ;  //Введите сюда число 1, 2 или 3
//Вписываем их ID
Syndyk = $400BB88D; // ID сундука
Pack = $400BB88D;  // ID Пака
bag = $400BB88D; // ID мешка
begin
   case i of
   1 :
begin
UseObject(Syndyk); //Открываем сундук
AddToSystemJournal('i = 1');
end;
   2 : 
begin
UseObject(Pack); //Открываем пак
AddToSystemJournal('i = 2');
end;
   3 : 
begin
UseObject(bag); //Открываем мешочек
AddToSystemJournal('i = 3');
end;
   end;
end.

Code: Select all

Program contrl_of_denger;
begin
 while Dead = false do //Пока "Мертвость" чара - ложь делать
  begin //Начало цикла
if (HP < MaxHP) then uosay('Guards');
wait(1000);// Задержка 1000мс (1 секунда)
  end; //Конец цикла
end.

Code: Select all

Program contrl_of_denger;
begin
Repeat
if (HP < MaxHP) then uosay('Guards');
wait(5000);// Задержка 1000мс (1 секунда)
Until Dead;
end.

Code: Select all

while Dead = false do

Code: Select all

Until Dead;

Code: Select all

while not Dead  do

Code: Select all

while Dead = false do

Code: Select all

Program contrl_of_denger;
begin
 while not Dead or not Poisoned do //Пока "Мертвость" чара - ложь делать или он не отравлен делать.
  begin //Начало цикла
if (HP < MaxHP) then uosay('Guards');
wait(1000);// Задержка 1000мс (1 секунда)
  end; //Конец цикла
end.

Code: Select all

Program contrl_of_denger;
begin
Repeat
if (HP < MaxHP) then uosay('Guards');
wait(5000);// Задержка 1000мс (1 секунда)
Until Dead or Poisoned;
end.

Code: Select all

Program contrl_of_denger;
begin
 while not Dead and not Poisoned do //Пока "Мертвость" чара - ложь и он не отравлен делать.
  begin //Начало цикла
if (HP < MaxHP) then uosay('Guards');
wait(1000);// Задержка 1000мс (1 секунда)
  end; //Конец цикла
end.

Code: Select all

Program contrl_of_denger;
begin
Repeat
if (HP < MaxHP) then uosay('Guards');
wait(5000);// Задержка 1000мс (1 секунда)
Until Dead and Poisoned;
end.

Code: Select all

Program contrl_of_denger;
Const mes = 'I = ';
var i : integer;
begin
For i := 1 to 10 do addtosystemjournal(mes +IntToStr(i)); 
end.

Code: Select all

Program contrl_of_denger;
var a, b : integer;
begin
for a := 1 to 10 do
 for b := 1 to 10 do
 addtosystemjournal(IntToStr(a)+' * '+IntToStr(b)+' = ' + IntToStr( a * b ));
addtosystemjournal('Ждем 10 секунд.');
Wait(10000);// Подождем 10 секунд, чтоб вы успели посмотреть как 

выполнился скрипт
for a := 1 to 10 do
 for b := 1 to 10 do
Begin
 addtosystemjournal(IntToStr(a)+' + '+IntToStr(b)+' = ' + IntToStr( a + b ));
Wait(1000);
 addtosystemjournal(IntToStr(a)+' - '+IntToStr(b)+' = ' + IntToStr( a - b ));
Wait(1000);
End;
end.