Показать сообщение отдельно
Старый 27.06.2012, 18:57   #13
Новичок
 
Регистрация: 19.01.2012
Сообщений: 22
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
BerkooT пока неопределено
По умолчанию

delphi Код:
var Name : string; a, b, c, i, offset : integer; myID : integer; myX, myY, myZ : integer; n, s : string; timer1: TTimer; const summ_friend = 1403; buff_skill = 4699; off_party = false; procedure Init; //Вызывается при включении скрипта begin Name := ''; myID := 0; myX := 0; myY := 0; myZ := 0; end; procedure Free; //Вызывается при выключении скрипта begin end; //вызывается при срабатывании таймера procedure OnTimer1(Sender: TObject); begin //say('on shadow timer'); sendmsg('skill ready!'); timer1.enabled := false; end; procedure UpdateClassID(class_id : integer); begin if (Name <> '') then exit; //warlock if (class_id = 92) or (class_id = 14) then begin Name := ConnectName; Say(name, 'kot detected :'+connectname); end; end; procedure OnChatSay; var channel : integer; nick : string; msg : string; from_id : integer; begin i := 10; channel := ReadD(6); // channel nick := ReadS(i); // nick msg := ReadS(i+4); from_id := ReadD(2); // призвать кота if (channel = 3) and (msg = 'kot!') then begin MagicSkillUse(name, 1331); // <---------- end; // дать бафф с кота if (channel = 3) and (msg = 'kot') then begin SendActionUse(name, 1007); // <----------- end; // unsummon kot if (channel = 3) and (msg = 'kot-') then begin SendActionUse(name, 52); // unsummon end; // summon friend if (channel = 3) and ( (msg = 'summ me') or (msg = 'summon') or (msg = 'summ<') ) then begin SendAction(name, from_id, myX, myY, myZ); MagicSkillUse(name, summ_friend); end; end; //основная часть скрипта //вызывается при приходе каждого пакета если скрипт включен begin if FromServer then case pck[1] of // user info #$32: begin i := 22; ReadS(i); // name ReadD(i); // race ReadD(i); // sex // class id UpdateClassID(ReadD(i)); if (name <> '') and (myID = 0) then begin myID := ReadD(18); myX := ReadD(2); myY := ReadD(6); myZ := ReadD(10); Say(name, 'my id='+inttostr(myid)); end; end; // sys msg #$62: if off_party then begin offset := 2; // msg id a := ReadD(offset); // получили эффект скилла на себя if (a = 110) then begin //sendmsg('sys effect'); c := ReadD(offset); // count for i := 1 to c do begin // type if (ReadD(offset) = 4) then begin i := ReadD(offset); // skill id if i = buff_skill then SendLeave(name); end; end; end; end; end; if FromServer and (ConnectName = Name) then case pck[1] of // validate position #$59: begin myX := ReadD(2); myY := ReadD(6); myZ := ReadD(10); end; // creature say #$4A: begin i := 10; OnChatSay; end; end; end.


Почему не компилится скрипт ?
вот тут вот скрипт не компилится
Say(name, 'kot detected :'+connectname);

Последний раз редактировалось NLObP, 06.07.2012 в 00:05. Причина: вставил тег DELPHI
BerkooT вне форума   Ответить с цитированием