void ProcessDialogEvent()
{
ref NPChar, sld;
aref Link, NextDiag;
DeleteAttribute(&Dialog,"Links");
makeref(NPChar,CharacterRef);
makearef(Link, Dialog.Links);
makearef(NextDiag, NPChar.Dialog);

switch(Dialog.CurrentNode)

{ case "First time":
dialog.text = "Эй! Кэп, у меня есть вещица, я ее нашёл, мне она не нужна , а вот вам может понадобится!";
link.l1 = "Хех, ну давай суда ,посмотрим что у тебя там!";
GiveItem2Character(pchar, "spyglass10")
link.l1.go = "Vasya_1";
link.l2 = "Нет, спасибо, я тороплюсь.";
link.l2.go = "Vasya_2";
break// Кейсы

case "Vasya_1"
dialog.text = "Вот держите, рад помоч!"
link.l1 = "Спасибо!"
link.l1.go = "Exit"
break

case "Vasya_2"
dialog.text = "Ладно."
link.l1 = "..."
link.l1.go = "Exit"
break

case "Exit":
NextDiag.CurrentNode = NextDiag.TempNode;
DialogExit();
break;
}
}

makeref(ch,Characters[n]); // Васька Пупкин
ch.name = "Васька";
ch.lastname = "Пупкин";
ch.id = "Vasya_Pupok";
ch.model = "Youngman";
ch.model.animation = "man";
ch.sex = "man";
ch.location = "Tortuga_Town";
ch.location.group = "goto";
ch.location.locator = "goto22";
ch.Dialog.Filename = "PROGRAM\dialogs\russian\Citizen\Tortuga_Citizen.c";
ch.Dialog.CurrentNode = "Vasya_1"
GiveItem2Character(ch, "spyglass10");
ch.nation = FRANCE;
ch.rank = 5;
ch.reputation = "15";
SetSelfSkill(ch, 10, 10, 10, 20, 20);
SetShipSkill(ch, 20, 90, 10, 10, 10, 20, 10, 10, 50);
LAi_NoRebirthDisable(ch); // воскресть при убиении
LAi_SetCitizenType(ch);
LAi_SetLoginTime(ch, 0.0, 24.0);
LAi_SetHP(ch, 200.0, 200.0);
LAi_SetImmortal(ch, false);
ch.greeting = "Gr_YoungMan";
LAi_group_MoveCharacter(ch, "FRANCE_CITIZENS");

n = n + 1;