看見很多新人在腳本這快迷茫.說點(diǎn)自己的心得.供大家參考.寫的不好.請(qǐng)勿拍磚.很久以前玩?zhèn)髌娴臅r(shí)候用過天驥的脫機(jī).華麗的腳本被我視作神作.一直就想寫個(gè)自己的腳本解釋器.一點(diǎn)點(diǎn)摸索.終于有了些頭緒.  
 
腳 本不是個(gè)什么神秘的東西.就是把文本命令通過某種規(guī)則替換為自己的函數(shù)規(guī)則.然后調(diào)用.實(shí)現(xiàn)用戶可編程目的.注意這個(gè)規(guī)則是由你來指定的.
省事的方式是調(diào) 用控件.比較知名的我就知道LUA.DELPHI也有 但是我不喜歡用.況且腳本命令加起來也就那么幾十條.DIY吧.  
 
0.腳本里的命令都需要函數(shù)支持的.所以寫腳本的前提是找到了對(duì)應(yīng)的CALL或者是發(fā)包.不然光有腳本你無法執(zhí)行也是空.所以準(zhǔn)備工作提前做好.  
 
  private  
    { Private declarations }  
  public  
    function ss(const source:ShortString):TStringList; //直接返回字串列表  
    function SuperScript(tmps:string):TScript;  
    function RunScript(tmps:string):BOOL;  
    procedure gogo(x,y,z:Single);  
    procedure fly(x,y,z:Single);  
    procedure opennpc;  
    procedure Select(id:DWORD);overload;  
    procedure Select(name:string);overload;  
    { Public declarations }  
 
//我假設(shè)功能函數(shù)已經(jīng)全部搞定.這里只列出了部分.  
 
1.新建個(gè)工程.擺上需要的控件.擺個(gè)listbox來顯示腳本.擺3個(gè)BUTTON分別為開始腳本 暫停腳本 載入腳本.然后擺個(gè)opendialog來打開腳本.再擺個(gè)memo來輸出調(diào)試信息就行了.如圖1  
 
2.首先是腳本命令的分割.這里我們用個(gè)結(jié)構(gòu)來保存命令和參數(shù).然后利用TStringlist來分割字符串.再寫個(gè)函數(shù)返回該結(jié)構(gòu).  
 
type TScript=packed record  //定義個(gè)結(jié)構(gòu)  
     act:string;  //命令  
     s:array [1..9] of string;  //參數(shù)1-9  
     end;  
 
 
function Tform1.ss(const source:ShortString):TStringList; //直接返回字串列表  
var  
temp:shortstring;  
i:integer;  
begin  
result:=tstringlist.Create;  
temp:=source;  
Result.Delimiter:='/';  //用/來分割字符串  
result.DelimitedText:=temp;  
end;  
 
 
function TForm1.SuperScript(tmps: string): TScript;  
var i,ii:Integer;  
d:DWORD;  
s1,s2:string;  
st,sst:TStringList;  
begin  
s1:=tmps;  
 
//------------初始化返回值-----------  
if s1<>'' then  
begin  
  for i:= 1 to 9 do  
  begin  
    Result.s:='';  
    end;  
  Result.act:='';  
 
//-----------代碼替換 方便轉(zhuǎn)換------------  
  s1:=StringReplace(s1,',','/',[rfreplaceall]);  //替換符號(hào)  
  s1:=StringReplace(s1,'[','/',[rfreplaceall]);  //替換符號(hào)  
  s1:=StringReplace(s1,']','/',[rfreplaceall]);  //替換符號(hào)  
 
//-----------命令替換 方便寫代碼-------------  
  s1:=StringReplace(s1,'走路','gogo',[rfreplaceall]);  
 
//--------用/分割字符串-----------  
  st:=form1.ss(s1);  
  if st.Count>0 then  
  begin  
    if st.Strings[0]<>'' then  
    begin  
      Result.act:=st.Strings[0];  //返回命令  
      for i:=1 to 9 do  
      begin  
        Result.s:=st.Strings; //返回參數(shù)  
        end;  
      end;  
    end;  
 
  st.Free; //釋放ST  
  end;  
end;  
 
PS:  
 
   參數(shù)我就設(shè)置了9個(gè).不夠自己加.一般是夠用了.另外分割的方法千百種.我只是喜歡用Tstringlist.符號(hào)替換是為了方便分割.命令替換是為了方便堆代碼.同時(shí)也能支持中英命令.  
 
 
3.分割好了以后.我們寫個(gè)函數(shù)來執(zhí)行它.  
 
function TForm1.RunScript(tmps: string): BOOL;//執(zhí)行腳本  
var i,ii:integer;  
st,sst:tstringlist;  
d1,d2,d3:dword;  
x,y,z:single;  
s0,s1,s2:string;  
a:TScript;  
begin  
Result:=False;  
s0:=tmps;  
a:=form1.SuperScript(s0);  //用變量A來保存返回的命令和參數(shù)  
with a do  
begin  
  if act='gogo' then  //命令頭  
  begin  
    if TryStrToFloat(s[1],x) and TryStrToFloat(s[2],y) and TryStrToFloat(s[3],z) then   //類型轉(zhuǎn)換.由于走路需要的是3個(gè)浮點(diǎn)數(shù).所以我們得轉(zhuǎn)換過去.  
    begin  
      Form1.gogo(x,y,z);  //調(diào)用走路.至于是否到達(dá)目的地的判斷.你可以在GOGO函數(shù)里自己添加.也可以在這加.  
      end;  
    end;  
  if act='fly' then  
  begin  
    if TryStrToFloat(s[1],x) and TryStrToFloat(s[2],y) and TryStrToFloat(s[3],z) then  
    begin  
      form1.fly(x,y,z);   //飛行到XYZ.需要判斷人物是否起飛.這個(gè)在FLY函數(shù)里自己添加.  
      end;  
    end;  
  if act='select' then  
  begin  
    if TryStrToInt(s[1],i) then  
    begin  
      form1.Select(i);  //函數(shù)的重載.如果是數(shù)字那么就選擇ID  
      end else  
      form1.Select(s[1]);  //如果是字符 就選擇名字  
    end;  
 
 
  end;  
 
 
end;  
 
 
論壇會(huì)自動(dòng)把[ I ]轉(zhuǎn)換為斜體.代碼僅供參考.請(qǐng)自行添加. 
 

如果[地圖名字]等于[積羽城]  
那么調(diào)用<積羽打怪>  
否則調(diào)用<萬化打怪>  
 
這樣的代碼在TJ里是很常見的.當(dāng)初很是頭疼.如何在腳本里判斷?  
 
1.用個(gè)全局變量來充當(dāng)標(biāo)志位.先把命令替換掉.然后進(jìn)行判斷.根據(jù)結(jié)果進(jìn)行操作.  
 
首先聲明個(gè)全局變量.然后是替換命令.  
 
var Seax:bool;   //判斷標(biāo)識(shí)符 
 
 s:=StringReplace(s,如果,'if',[rfreplaceall]);  
 s:=StringReplace(s,'地圖名字','mapname',[rfreplaceall]);  
 s:=StringReplace(s,'等于','=',[rfreplaceall]);  
 s:=StringReplace(s,'那么','then',[rfreplaceall]);  
 s:=StringReplace(s,'否則','else',[rfreplaceall]);  
 
替換后為 if/mapname/=/積羽城/     這里注意下 如果腳本是 那么走路[1,2,3] 那么替換后為 thengo/1/2/3 很難識(shí)別吧.所以我們必須把THEN和ELSE提出來.在分割函數(shù)里動(dòng)下手吧.  
 
 
    ss:=leftstr(st.Strings[0],4);  //取左數(shù)4個(gè)字符  
    if ss='then' then   //判斷是否是THEN  
    result.s[9]:='then';  //把THEN保存到 S[9] 即第9個(gè)參數(shù)  
    if ss='else' then  //判斷是否是ELSE  
    result.s[9]:='else';  //同上  
    if Result.s[9]<>'' then  //如果是THEN/ELSE  
    begin  
    ss:=st.Strings[0];    
    Delete(ss,1,4);  //把前4個(gè)字符刪除掉 這時(shí)候 thengogo就成了 gogo 可以直接調(diào)用了. 
    end;  
 
這樣就設(shè)置了S[9]為跳轉(zhuǎn)控制符.同時(shí)參數(shù)和命令什么的都沒改變.可以通過S[9]來判斷是否執(zhí)行命令了.然后開始解釋該命令.  
 
  if ((s[9]='then') and (seax=true)) or ((s[9]='else') and (seax=false)) or (s[9]='') then  //當(dāng)跳轉(zhuǎn)控制符S[9]為空 或者為THEN并且跳轉(zhuǎn)為TRUE 或者為ELSE并且跳轉(zhuǎn)為FALSE時(shí) 才執(zhí)行命令.   
begin  
  if act='if' then  
  begin  
    Seax:=False;  //初始化  
    if s[1]='mapname' then  
    begin  
    s1:='mapname';   //自己用函數(shù)獲取當(dāng)前地圖名 我偷懶直接賦值了  
    s2:=s[3];  
    if s1=s2 then  
    Seax:=True;  
    end;  
    if s[1]='hp' then  
    begin  
      if TryStrToInt(s[3],i2) then  
      begin  
        i1:=100; //自己用函數(shù)獲取當(dāng)前生命值  我偷懶直接賦值了  
        i2:=StrToInt(s[3]);  
        if s[2]='>' then  
        i0:=1;  
        if s[2]='<' then  
        i0:=2;  
        if s[3]='=' then  
        i0:=3;  
        case i0 of      //用 I0來保存判斷符號(hào)  
        1:begin         //判斷后把值給全局變量SEAX  
            if i1>i2 then  
            Seax:=True;  
            end;  
        2:begin  
            if i1<i2 then  
            Seax:=True;  
            end;  
        3:begin  
            if i1=i2 then  
            Seax:=True;  
            end;  
        end;  
      end;  
    end;  
  end;  
end;  
 
 
到這.腳本的簡單判斷就實(shí)現(xiàn)了.如果要判斷多個(gè).只能多次判斷.如果想一次判斷多個(gè) 那么就需要多增加全局變量來保存跳轉(zhuǎn).自己加吧.  
 
 
下篇.腳本的跳轉(zhuǎn)和調(diào)用.以及腳本變量的使用.

用D的表示鴨梨很大.啃不動(dòng)啊.LUA一直口水.D上面的控件也看了下.始終不符合我的口味.再加上一直仰慕以前的TJ.總想實(shí)現(xiàn)下他們的寫法.所以才有了自己寫的想法.

如果[地圖名字]等于[萬化城] 
那么調(diào)用<萬化修理> 
否則跳轉(zhuǎn)到<出發(fā)> 
 
 
這個(gè)問題困擾了我很久.后來學(xué)習(xí)OD的時(shí)候了解了堆棧的處理方式.總算有了方法. 
 
1.首先聲明個(gè)全局變量.用來保存調(diào)用的地址.方便返回.再添加個(gè)變量來保存當(dāng)前腳本的行數(shù).同時(shí)用來同步LISTBOX的顯示. 
 
var Calllist:tstringlist; 
      ScriptLine:integer; 
 
2.同上篇的分割法.先替換掉符號(hào) 然后 把那么 否則分割出去.分割后如下 
 
if/mapname/=/萬化城/ 
call/萬化修理/ 
jmp/出發(fā) 
 
3.開始解釋腳本.判斷的方法不多說了.只說調(diào)用. 
 
假設(shè)當(dāng)前地圖為萬化城.那么 SEAX=TRUE. 腳本執(zhí)行到了 CALL這句. 
 
首先把調(diào)用處的腳本行數(shù)保存到列表里去. 
 
CallList.add(inttostr(scriptline)); 
 
然后在LISTBOX里查找調(diào)用的標(biāo)志 
 
i:=listbox1.items.indexof('<'+s[1]+'>');  //取到標(biāo)志的行數(shù) 
 
然后設(shè)置scriptline為跳轉(zhuǎn)處的行數(shù).當(dāng)這行運(yùn)行完畢后自動(dòng)跳到標(biāo)志那行去運(yùn)行.就實(shí)現(xiàn)了CALL功能. 
 
當(dāng)CALL功能執(zhí)行完遇到 返回 命令時(shí).首先從CALLLIST里讀取最后一行.然后把字符轉(zhuǎn)換為數(shù)字.這就是最后一次調(diào)用的地方.再把這個(gè)數(shù)字給SCRIPTLINE.手動(dòng)加1.同時(shí)刪除列表里的最后一行 就實(shí)現(xiàn)RETN了. 
 
if calllist.count>0 then 
begin 
s:=callist.strings[calllist.count-1]; 
if trystrtoint(s,i) then 
scriptline:=i+1; 
calllist.delete(calllist.count-1); 
end; 
 
 
一個(gè)完美的調(diào)用命令就實(shí)現(xiàn)了.當(dāng)深入調(diào)用多個(gè)子程序的時(shí)候不用擔(dān)心返回問題.因?yàn)槔玫氖嵌褩５南热牒蟪鲈? 跳轉(zhuǎn)命令就不說了.比這個(gè)簡單多了.直接設(shè)置行數(shù)過去就行.