[Информация] Исходник скрипта "майки с настройками" + пояснения. (WP)

[The_Cruiser]

Предисловие
Я вижу, что многие игроки и пользователи форума пытаются научиться писать скрипты. У кого-то получается, у кого-то нет. Кому-то нужны "живые примеры", кому-то привычнее пытаться писать самому. В данной теме я решил выложить исходник самого лёгкого из моих скриптов.

Исходник

// Назовём наш скрипт
const Title = 'Title: Настраиваемый титул! [The_Cruiser]';
// Настраиваемый скрипт для присвоения титула by The_Cruiser
var // Присвоим значение переменным
        SettingList : TStringList;
     ps : integer;
     a : integer;
     b : integer;
     c : integer;
  UserID : string;
  TituleType : string;
  TituleNumber : string;
  PacketEnd : string;

// При включении скрипта
procedure OnCreate;
begin
   gSys.ALstart := TRUE;   // Запуск логгера
     SettingList := TStringList.Create; // Создание TStringlist
if FileExists(_gCustomDir + 'Titule_Settings.ini') then // Если вообще есть файл "Titule_Settings.ini"
SettingList.LoadFromFile(_gCustomDir + 'Titule_Settings.ini');  // Подгружаем список
 a:=SettingList.IndexOfName('UserID');
 b:=SettingList.IndexOfName('TituleType');
 c:=SettingList.IndexOfName('TituleNumber');
end;

// При отключении скрипта
procedure OnDestroy;
begin
  SettingList.free; // Освободим TStringlist
end;

// Изменяем кораблик (повесим майку)
begin
if (a>-1) then // Проверка на наличие значения "UserID"
begin
UserID:=SettingList.ValueFromIndex[a]; // Вытаскиваем значение UserID из списка настроек
end;
if (b>-1) then // Проверка на наличие значения "TituleType"
begin
TituleType:=SettingList.ValueFromIndex[b]; // Вытаскиваем значение TituleType из списка настроек
end;
if (c>-1) then // Проверка на наличие значения "TituleNumber"
begin
TituleNumber:=SettingList.ValueFromIndex[c]; // Вытаскиваем значение TituleNumber из списка настроек
end;
ps:=Pos('ps|grp',_gBuff); // Ищем пакет инита группы в буфере
if (ps > 0) then
 begin
   PacketEnd:=#$00#$0D#$0A; // Стандартный конец "00 0D 0A" в пакете
gSys.SendC('0|n|'+TituleType+'|'+UserID+'|title_'+TituleNumber+''+PacketEnd+''); // Повесим майку на кораблик
  end;
end.

Напоследок
Спасибо за внимание Может быть кому и помог, статья ориентирована на новичков.
Сидите, "курите мануалы", придумывайте, воплощайте в реальность

[Aidyn]

Вот это полезная тема.

[WreckeR/9/]

Выложи посложнее.