千年私服沙包战的脚本

本次活动分为2个[势力]进行对抗。每6个小时进行一次，前30分钟可以进入对战地图。(进入后即可开始！！！)
玩家可以自行选择你所喜欢的[势力]，进行对抗赛，如果你对现在的事情不满，可以去中央市场
找[对战管理员]492 496 销毁掉掉现在的[势力腰牌]进行重新选择
首先进入对战的玩家必须装备有 [弓] 和 [箭] （[弓]的使用没有限制 [箭]必须使用中最基本的[箭]）
并且射向对方的沙包，任何一方先打够1000下判定为胜利。
比赛获胜的一方可进入[领地]地图。


以下内容跟帖回复才能看到
==============================

unit 沙包管理员;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;

function  IntToStr (aInt: integer): string;
procedure exit;


procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
procedure OnTimer (aStr : String);
var
hZhuangTai :String = '等待';
lZhuangTai :String = '等待';
ZhuangTai :String = ' ';
DengDaiTime :Integer = 21600; //等待挑战时间
zhengzhanTime :Integer = 3600; //征战时间时间
implementation

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race, hanbing, nVirtue : Integer;
begin
   Str := callfunc ('getsenderserverid');
   if Str = '1' then begin
     Str := callfunc ('getsenderrace');
     Race := StrToInt (Str);
     if Race = 1 then begin
   Str := callfunc ('getsenderitemexistence 红牌:1');
   if Str = 'true' then begin
   Str := 'showwindow .\help\红进.txt 1';
   print (Str);
  exit;
end;
   Str := callfunc ('getsenderitemexistence 蓝牌:1');
   if Str = 'true' then begin
   Str := 'showwindow .\help\蓝进.txt 1';
   print (Str);
  exit;
end;
        Str := 'showwindow .\help\沙包1.txt 1';
        print (Str);
        exit;
     end;
   end;
   if Str = '117' then begin
     Str := callfunc ('getsenderrace');
     Race := StrToInt (Str);
     if Race = 1 then begin
        Str := 'showwindow .\help\沙包2.txt 1';
        print (Str);
        exit;
     end;
   end;
end;
procedure OnGetResult (aStr : String);
var
var
   Str, Name, xQuest : String;
   x, Quest : integer;

begin
   if aStr = 'close' then begin
   print ('say 慢走_改变主意了再来');
  exit;
end;
   if aStr = '加入红方' then begin
   Str := callfunc ('getsenderitemexistence 红牌:1');
   if Str = 'true' then begin
   print ('say 你已经是红方队员了!');
  exit;
end;
   Str := callfunc ('getsenderitemexistence 蓝牌:1');
   if Str = 'true' then begin
   print ('say 你已经是蓝方队员了!');
  exit;
end;
   print ('putsendermagicitem 红牌:1 @九尾狐酒母 4');
  exit;
end;
   if aStr = '加入蓝方' then begin
   Str := callfunc ('getsenderitemexistence 红牌:1');
   if Str = 'true' then begin
   print ('say 你已经是红方队员了!');
  exit;
end;
   Str := callfunc ('getsenderitemexistence 蓝牌:1');
   if Str = 'true' then begin
   print ('say 你已经是蓝方队员了!');
  exit;
end;
   print ('putsendermagicitem 蓝牌:1 @九尾狐酒母 4');
  exit;
end;
   if aStr = '销毁牌子' then begin
   Str := callfunc ('getsenderqueststr');
   Quest := StrToInt (Str);
   if Quest < 100 then begin
   print ('say 销毁牌子需要100点贡献度');
   exit;
   end;
   print ('getsenderitem 蓝牌');
   print ('getsenderitem 红牌');
   Str := callfunc ('getsenderqueststr');
   Quest := StrToInt (Str);
   x := Quest - 200;
   xQuest : IntToStr (x);
   Str := 'changesenderqueststr ' + xQuest;
   print(Str);
   print ('say 牌子销毁成功你可以重新选择势力加入');
  exit;
end;

   if aStr = '红进战场' then begin
   if hZhuangTai <> '进入' then begin
   print('say 进入没到或者已经过了!');
  exit;
end;
   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 117 87 86';
   print (Str);
  exit;
end;

   if aStr = '蓝进战场' then begin
   if lZhuangTai <> '进入' then begin
   print('say 进入没到或者已经过了!');
  exit;
end;
   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 117 69 62';
   print (Str);
  exit;
end;

   if aStr = '出去' then begin
   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 1 520 478';
   print (Str);
  exit;
end;
end;
procedure OnTimer (aStr : String);
var
  Str, zt : String;
  n, nCount, zt : Integer;
  Race, MapID : integer;
  nStr, MapNo : String;
begin

   if Zhuangtai = ' ' then begin
   Dec (DengDaiTime);
   if DengDaiTime = 18000 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将5小时后进行..! 2';
   print(nStr);
   end;
  exit;
end;
   if DengDaiTime = 14400 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将4小时后进行..! 2';
   print(nStr);
   end;
  exit;
end;
   if DengDaiTime = 10800 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将3小时后进行..! 2';
   print(nStr);
   end;
  exit;
end;
   if DengDaiTime = 7200 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将2小时后进行..! 2';
   print(nStr);
   end;
  exit;
end;
   if DengDaiTime = 3600 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将1小时后进行..! 2';
   print(nStr);
   end;
  exit;
end;

   if DengDaiTime = 1800 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战将半小时后进行..! 2';
   print(nStr);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:你可以选择你喜欢的势力加入..! 2';
   print(nStr);
   print ('mapregen 117');

   end;
  exit;
end;
   if DengDaiTime = 0 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包战已经开始进行..! 2';
   print(nStr);
   lZhuangTai := '进入';
   hZhuangTai := '进入';
   ZhuangTai := '1';
   DengDaiTime := 21600;
   ZhengzhanTime := 3600;
   end;
  exit;
end;
  exit;
end;

   if Zhuangtai = '1' then begin
   Dec (ZhengzhanTime);
   if ZhengzhanTime = 1800 then begin
   lZhuangTai := '等待';
   hZhuangTai := '等待';
  exit;
end;
   if ZhengzhanTime = 0 then begin
   for MapID:= 1 to 250 do
   begin
   MapNo := inttostr(MapID);
   nStr := 'sendnoticemsgformapuser ' + MapNo;
   nStr := nStr + ' ';
   nStr := nStr + '【系统】:沙包大战将6小时后再次进行..! 2';
   print(nStr);
   ZhuangTai := ' ';
   DengDaiTime := 21600;
   ZhengzhanTime := 3600;
   end;
  exit;
end;
  exit;
end;
end;
end.

商业版发布站程序下载：发布站程序下载：

Tags：

作者：佚名