?? script.pas
字號:
{NPC僀儀儞僩捛壛僐僐傑偱} i := ConvFlagValue(tc, str); end; j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱} case tn.Script[tc.ScriptStep].Data3[2] of 0: flag := boolean(i >= j); 1: flag := boolean(i <= j); 2: flag := boolean(i = j); 3: flag := boolean(i <> j); 4: flag := boolean(i > j); 5: flag := boolean(i < j); else begin DebugOut.Lines.Add(Format('s-check: invalid formula "%s"', [tn.Script[tc.ScriptStep].Data1[2]])); tc.ScriptStep := $FFFF; break; end; end; DebugOut.Lines.Add(Format('s-check: %s %s(%d) %s = %d', [tn.Script[tc.ScriptStep].Data1[0], tn.Script[tc.ScriptStep].Data1[2], tn.Script[tc.ScriptStep].Data3[2], tn.Script[tc.ScriptStep].Data1[1], byte(flag)])); if flag then begin tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[0]; end else begin tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[1]; end; end; 16: //checkadditem begin{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]); j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱} td := ItemDB.IndexOfObject(i) as TItemDB; if tc.MaxWeight >= tc.Weight + cardinal(td.Weight) * cardinal(j) then begin k := SearchCInventory(tc, i, td.IEquip); if k <> 0 then begin tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[0]; end else begin //傾僀僥儉庬椶悢僆乕僶乕 tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[1]; end; end else begin //廳検僆乕僶乕 tc.ScriptStep := tn.Script[tc.ScriptStep].Data3[1]; end; end; 17: //jobchange begin {僶僌曬崘657} //憰旛夝彍 for i := 1 to 100 do begin if tc.Item[i].Equip = 32768 then begin tc.Item[i].Equip := 0; WFIFOW(0, $013c); WFIFOW(2, 0); tc.Socket.SendBuf(buf, 4); end else if tc.Item[i].Equip <> 0 then begin WFIFOW(0, $00ac); WFIFOW(2, i); WFIFOW(4, tc.Item[i].Equip); tc.Item[i].Equip := 0; WFIFOB(6, 1); tc.Socket.SendBuf(buf, 7); end; end; //僕儑僽曄峏 tc.JID := tn.Script[tc.ScriptStep].Data3[0]; tc.JobEXP := 0; tc.ClothesColor := 0; tc.JobLV := 1; SendCStat1(tc, 0, $0037, tc.JobLV); CalcStat(tc); tc.SkillPoint := 0; //僗僥乕僞僗嵞寁嶼 CalcStat(tc); SendCStat(tc, true); SendCSkillList(tc); WFIFOW(0, $00c3); WFIFOL(2, tc.ID); WFIFOB(6, 0); WFIFOB(7, tc.JID); SendBCmd(tc.MData, tc.Point, 8); //偙偙傑偱 {僶僌曬崘 657} Inc(tc.ScriptStep); end; 18: //viewpoint begin WFIFOW( 0, $0144); WFIFOL( 2, tn.ID); WFIFOL( 6, tn.Script[tc.ScriptStep].Data3[0]); WFIFOL(10, tn.Script[tc.ScriptStep].Data3[1]); WFIFOL(14, tn.Script[tc.ScriptStep].Data3[2]); WFIFOB(18, tn.Script[tc.ScriptStep].Data3[3]); WFIFOL(19, tn.Script[tc.ScriptStep].Data3[4]); tc.Socket.SendBuf(buf, 23); Inc(tc.ScriptStep); end; 19: //input begin if value = 0 then begin WFIFOW( 0, $0142); WFIFOL( 2, tn.ID); tc.Socket.SendBuf(buf, 6); break; end else begin //僼儔僌僙僢僩{NPC僀儀儞僩捛壛} if (Copy(tn.Script[tc.ScriptStep].Data1[0], 1, 1) <> '\') then begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(value - 1); end else begin ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(value - 1); end;{NPC僀儀儞僩捛壛僐僐傑偱} Inc(tc.ScriptStep); end; end; 20: //random begin{NPC僀儀儞僩捛壛} if (Copy(tn.Script[tc.ScriptStep].Data1[0], 1, 1) <> '\') then begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(Random(tn.Script[tc.ScriptStep].Data3[0])); end else begin ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[0]] := IntToStr(Random(tn.Script[tc.ScriptStep].Data3[0])); end;{NPC僀儀儞僩捛壛僐僐傑偱} Inc(tc.ScriptStep); end; 21: //option begin if tn.Script[tc.ScriptStep].Data3[1] = 1 then begin case tn.Script[tc.ScriptStep].Data3[0] of 0: begin tc.Option := (tc.Option and $F877) or $0008; SendCart(tc); end; //僇乕僩1 1: tc.Option := tc.Option or $0010; //偨偐 2: tc.Option := tc.Option or $0020; //傌偙 3: tc.Option := (tc.Option and $F877) or $0008; //僇乕僩1 4: tc.Option := (tc.Option and $F877) or $0080; //僇乕僩2 5: tc.Option := (tc.Option and $F877) or $0100; //僇乕僩3 6: tc.Option := (tc.Option and $F877) or $0200; //僇乕僩4 7: tc.Option := (tc.Option and $F877) or $0400; //僇乕僩5 end; end else begin case tn.Script[tc.ScriptStep].Data3[0] of 0: tc.Option := tc.Option and $F877; //僇乕僩慡夝彍 F847=慡夝彍 1: tc.Option := tc.Option and $FFEF; //偨偐 2: tc.Option := tc.Option and $FFDF; //傌偙 end; end; CalcStat(tc); //尒偨栚曄峏 WFIFOW(0, $0119); WFIFOL(2, tc.ID); WFIFOW(6, 0); WFIFOW(8, 0); WFIFOW(10, tc.Option); WFIFOB(12, 0); SendBCmd(tc.MData, tc.Point, 13); Inc(tc.ScriptStep); end; 22: //speed begin //僷働憲怣{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0], true);{NPC僀儀儞僩捛壛僐僐傑偱} //僗僺乕僪曄峏 if (i >= 25) and (i <= 1000) then begin tc.Speed := i; tc.DefaultSpeed := i; CalcStat(tc); WFIFOW(0, $00b0); WFIFOW(2, $0000); WFIFOL(4, tc.Speed); tc.Socket.SendBuf(buf, 8); Inc(tc.ScriptStep); end; end; 23: //die begin //僷働憲怣 //僾儗乕儎乕懄巰 CalcStat(tc); tc.HP := 0; tc.Sit := 1; SendCStat1(tc, 0, 5, tc.HP); WFIFOW(0, $0080); WFIFOL(2, tc.ID); WFIFOB(6, 1); tc.Socket.SendBuf(buf, 7); Inc(tc.ScriptStep); end; 24: //ccolor begin //僷働憲怣{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0], true);{NPC僀儀儞僩捛壛僐僐傑偱} //怓曄峏 if (i >= 1) and (i <= 78) then begin CalcStat(tc); tc.ClothesColor := i - 1; WFIFOW(0, $00c3); WFIFOL(2, tc.ID); WFIFOB(6, 7); WFIFOB(7, i-1); tc.Socket.SendBuf(buf, 8); SendBCmd(tc.MData, tc.Point, 8, tc); end; Inc(tc.ScriptStep); end; 25: //refine refine[itemID][fail][+val] begin{NPC僀儀儞僩捛壛} j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]); k := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]); l := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[2]);{NPC僀儀儞僩捛壛僐僐傑偱} //惛楤 if (j >= 0) and (j <= 10) then begin for i := 1 to 100 do begin if (tc.Item[i].ID <> 0) and (tc.Item[i].Amount <> 0) and tc.Item[i].Data.IEquip and (tc.Item[i].Equip <> 0) and (tc.Item[i].Card[0] <> $00ff) then begin tc.Item[i].Refine := byte(l); WFIFOW(0, $0188); WFIFOW(2, k); WFIFOW(4, i); WFIFOW(6, word(l)); tc.Socket.SendBuf(buf, 8); end; end; CalcStat(tc); WFIFOW(0, $019b); WFIFOL(2, tc.ID); WFIFOL(6, 3); //僷働憲怣 SendBCmd(tc.MData, tc.Point, 10, tc); SendCStat(tc); end; Inc(tc.ScriptStep); end; 26: //getitemamount begin{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]);{NPC僀儀儞僩捛壛僐僐傑偱} k := SearchCInventory(tc, i, false); if k <> 0 then begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[1]] := IntToStr(tc.Item[k].Amount); end else begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[1]] := '0'; end; Inc(tc.ScriptStep); end;{捛壛:僗僋儕僾僩144} 27: //getskilllevel //S144 addstart begin{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]); if (Copy(tn.Script[tc.ScriptStep].Data1[0], 1, 1) <> '\') then begin if i = 0 then begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[0]] := '0'; end else begin tc.Flag.Values[tn.Script[tc.ScriptStep].Data1[1]] := IntToStr(tc.Skill[i].Lv); end; end else begin if i = 0 then begin ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[0]] := '0'; end else begin ServerFlag.Values[tn.Script[tc.ScriptStep].Data1[1]] := IntToStr(tc.Skill[i].Lv); end; end;{NPC僀儀儞僩捛壛僐僐傑偱} Inc(tc.ScriptStep); end; 28: //setskilllevel begin{NPC僀儀儞僩捛壛} i := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]); if i <> 0 then begin l := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱} if ((0 <= l) and (l <= 10)) then tc.Skill[i].Lv := l; SendCSKillList(tc); end; Inc(tc.ScriptStep); end; //S144 addend{捛壛:僗僋儕僾僩144僐僐傑偱}{惛楤NPC婡擻捛壛} 29: //refinery begin{NPC僀儀儞僩捛壛} j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[0]); k := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[1]);{NPC僀儀儞僩捛壛僐僐傑偱} case j of 1: l := $100; //摢忋抜 2: l := $10; //奪 3: l := $20; //嵍庤 4: l := $2; //塃庤 5: l := $4; //尐 6: l := $40; //孋 7: l := $8; //傾僋僙1 8: l := $80; //傾僋僙2 9: l := $200; //摢忋抜 10: l := $1; //摢壓抜 else l := 0; end;{NPC僀儀儞僩捛壛} j := ConvFlagValue(tc, tn.Script[tc.ScriptStep].Data1[2]);{NPC僀儀儞僩捛壛僐僐傑偱} if (j < 0) or (j > 10) then j := 0; if l <> 0 then begin for i := 1 to 100 do begin if (tc.Item[i].ID <> 0) and (tc.Item[i].Amount <> 0) and tc.Item[i].Data.IEquip and ((tc.Item[i].Equip and l) = l) and (tc.Item[i].Refine < 10) then begin //憰旛夝彍 WFIFOW(0, $00ac); WFIFOW(2, i); WFIFOW(4, tc.Item[i].Equip); WFIFOB(6, 1); tc.Socket.SendBuf(buf, 7); //惛楤惉岟 if k = 0 then begin tc.Item[i].Refine := j; //僄僼僃僋僩 WFIFOW(0, $0188); WFIFOW(2, 0); WFIFOW(4, i); WFIFOW(6, tc.Item[i].Refine); tc.Socket.SendBuf(buf, 8); //嵞憰旛 WFIFOW(0, $00aa); WFIFOW(2, i); WFIFOW(4, tc.Item[i].Equip); WFIFOB(6, 1); tc.Socket.SendBuf(buf, 7); //惛楤幐攕 end else begin tc.Item[i].Refine := 0; tc.Item[i].Equip := 0; //僄僼僃僋僩 WFIFOW(0, $0188); WFIFOW(2, 1); WFIFOW(4, i); WFIFOW(6, word(tc.Item[i].Refine)); tc.Socket.SendBuf(buf, 8); if k = 1 then begin //傾僀僥儉尭彮 Dec(tc.Item[i].Amount, 1); if tc.Item[i].Amount = 0 then tc.Item[i].ID := 0; WFIFOW( 0, $00af); WFIFOW( 2, i); WFIFOW( 4, 1); tc.Socket.SendBuf(buf, 6); //廳検曄峏 tc.Weight := tc.Weight - tc.Item[i].Data.Weight * cardinal(1); WFIFOW( 0, $00b0); WFIFOW( 2, $0018); WFIFOL( 4, tc.Weight); tc.Socket.SendBuf(buf, 8); end; end; end; end; CalcStat(tc); WFIFOW(0, $019b); WFIFOL(2, tc.CID); if k = 0 then WFIFOL(6, 3) else WFIFOL(6, 2); //僷働憲怣 SendBCmd(tc.MData, tc.Point, 10, tc); SendCStat(tc); end; Inc(tc.ScriptStep); end; 30: //equipmenu --->Thanks goes to Melz -- for fixing the translation!! <--- begin if value = 0 then begin tn.Script[tc.ScriptStep].Data2[0] := '[Head - Not Equipped]'; tn.Script[tc.ScriptStep].Data2[1] := '[Body - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[2] := '[Left Hand - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[3] := '[Right Hand - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[4] := '[Robe - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[5] := '[Foot - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[6] := '[Accesory1 - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[7] := '[Accesory2 - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[8] := '[Head2 - Not Equipped]';
tn.Script[tc.ScriptStep].Data2[9] := '[Head3 - Not Equipped]'; for i := 1 to 100 do begin if (tc.Item[i].ID <> 0) and (tc.Item[i].Amount <> 0) and (tc.Item[i].Equip <> 0) then begin if tc.Item[i].Refine > 0 then str := '(+' + IntToStr(tc.Item[i].Refine) + ')' else str := ''; str := tc.Item[i].Data.JName + str; case tc.Item[i].Equip of $1: //摢壓抜 tn.Script[tc.ScriptStep].Data2[9] := str; $2: //塃庤 tn.Script[tc.ScriptStep].Data2[3] := str; $4: //尐 tn.Script[tc.ScriptStep].Data2[4] := str; $8: //傾僋僙1?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -