幫忙簡單修改腳本

pig671080

這個是在腳本區找到的圖片驗證腳本,目前登入後可以順利執行
我想把設定成殺怪低機率觸發

1. 
   
2. -        script        驗證        -1,{
   
3. 
   
4. OnPCLoginEvent:
   
5.         query_sql "select count(*) from `pic`",.@count;
   
6.         query_sql "select * from `pic` limit "+rand(.@count)+", 1",.@id,.@red$,.@blue$,.@yellow$,.@green$,.@name$;
   
7.         setarray .@color$[0],"^ff0000■^000000","^0000ff■^000000","^b8860b■^000000","^008000■^000000";
   
8.         setarray .@result$[0],.@red$,.@blue$,.@yellow$,.@green$;
   
9.         set .@id,rand(4);
   
10.         atcommand "@option 2 0 2";
    
11.         mes "請輸入 [ "+.@color$[.@id]+" ] 驗證碼 ^ff0000(均為大寫字母)^000000";
    
12.         mes "^006600驗證碼位於游戲窗口的右下方^000000";
    
13.         cutin .@name$,2;
    
14.         next;
    
15.         input .@yz$;
    
16.         cutin .@name$,255;
    
17.         if (.@yz$ == .@result$[.@id]){
    
18.         mes "驗證通過";
    
19.         atcommand "@option 0 0 0";
    
20.         close2;
    
21.         end;
    
22. }
    
23.         mes "驗證失敗";
    
24.         atcommand "@kick "+strcharinfo(0);
    
25.         end;
    
26. }

複製代碼

1588

1. -        script        驗證        -1,{
   
2. 
   
3. OnNPCKillEvent:
   
4.         set Kill_Mob,Kill_Mob+1;
   
5.         if(Kill_Mob>=$Mob_Need && rand(100) < $Random){
   
6.                 query_sql "select count(*) from `pic`",.@count;
   
7.                 query_sql "select * from `pic` limit "+rand(.@count)+", 1",.@id,.@red$,.@blue$,.@yellow$,.@green$,.@name$;
   
8.                 setarray .@color$[0],"^ff0000■^000000","^0000ff■^000000","^b8860b■^000000","^008000■^000000";
   
9.                 setarray .@result$[0],.@red$,.@blue$,.@yellow$,.@green$;
   
10.                 set .@id,rand(4);
    
11.                 atcommand "@option 2 0 2";
    
12.                 mes "請輸入 [ "+.@color$[.@id]+" ] 驗證碼 ^ff0000(均為大寫字母)^000000";
    
13.                 mes "^006600驗證碼位於游戲窗口的右下方^000000";
    
14.                 cutin .@name$,2;
    
15.                 next;
    
16.                 input .@yz$;
    
17.                 cutin .@name$,255;
    
18.                         if (.@yz$ == .@result$[.@id]){
    
19.                         mes "驗證通過";
    
20.                         atcommand "@option 0 0 0";
    
21.                         set Kill_Mob,0;
    
22.                         close2;
    
23.                         end;
    
24.                 }
    
25.                 mes "驗證失敗";
    
26.                 atcommand "@kick "+strcharinfo(0);
    
27.         }
    
28.                 end;
    
29. 
    
30. OnInit:
    
31.         set $Mob_Need,99; //設定級殺幾隻怪物後需要驗證
    
32.         set $Random,50; //設定機率
    
33.         end;
    
34. }

複製代碼

pig671080

1588 發表於 2015-1-25 09:37 PM
測試看看吧

可以了,謝謝1588大大!