Скрипт для поиска PK игрока: Если
PK поблизости, то можно автоматически взять его в цель и/или вывести
сообщение в чат. Команды для управления скриптом (все они вводятся в
чат): Включить автоматическое взятие PK в цель - %pk_target 1 Выключить автоматическое взятие PK в цель - %pk_target 0 Включить уведомление в чат при обнаружении поблизости PK - %pk_msg 1 Выключить уведомление в чат при обнаружении поблизости PK - %pk_msg 0
// Автоматический поиск PK поблизости. Если PK игрок находится рядом с вами, то можно: // Автоматически взять его в цель и/или вывести сообщение в чат // Команды для управления скриптом (все они вводятся в чат): // Включить автоматическое взятие PK в цель - %pk_target 1 // Выключить автоматическое взятие PK в цель - %pk_target 0 // Включить уведомление в чат при обнаружении поблизости PK - %pk_msg 1 // Выключить уведомление в чат при обнаружении поблизости PK - %pk_msg 0 // Автор: Furious // Версия: 0.1
var ObjectID, Karma, Target, Message, i: Integer; Name, Cvar: String;
procedure SendMsg(Msg:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(Msg); SendToClient; end;
procedure TargetPK(ObjectID: Integer); begin buf:=#$04; WriteD(ObjectID); SendToServer; end;
begin if FromServer and (pck[1]=#$03) then begin i:=18; ObjectID:=ReadD(i); Name:=ReadS(i); Karma:=ReadD(i+60); if (Karma>0) then begin if Message=1 then SendMsg('PK с ником '+Name+' находится поблизости!'); if Target=1 then TargetPK(ObjectID); end; end; if FromClient and (pck[1]=#$38) then begin Cvar:=ReadS(2); case Cvar of 'pk_target 1': begin Target:=1; SendMsg('Автоматическое взятие PK в цель включено!'); end; 'pk_target 0': begin Target:=0; SendMsg('Автоматическое взятие PK в цель выключено!'); end; 'pk_msg 1': begin Message:=1; SendMsg('Вывод сообщения в чат при обнаружении PK включено!'); end; 'pk_msg 0': begin Message:=0; SendMsg('Вывод сообщения в чат при обнаружении PK выключено!'); end; end; end; end.
