·首 页 ·精选文章 ·无忧学院 ·两性教育 ·商业站点 ·无忧传奇 ·私服宣传 ·无忧音乐 ·骗子举报 ·软件发布 ·无忧论坛
您现在的位置： 无忧网络网游技术网 >> 技术文章 >> 千年技术 >> 千年脚本案例 >> 正文

  没有公告
| 技术文章 | 传奇技术 | 传世技术 | 魔兽技术 | 奇迹技术 | 千年技术 | 仙境技术 | 其他技术 | 传奇菜鸟 | 传世菜鸟 | 奇迹菜鸟 |
| 网游下载 | 网游版本 | 私服工具 | 游戏下载 | SF客户端 | 网站原码 | 经典工具 | 破解工具 | 绿色软件 | 教程下载 | 动画专区 |
| 操作系统 | 故障维修 | 主机架设 | 腾讯QQ区 | 流量排名 | 黑客教程 | 主机评测 | WAP 专区 | 网络游戏 | 游戏攻略 | 网吧黄页 |
| 私服必备 | 常用工具 | 网吧联盟 | 传奇站点 | 网页加密 | 网页转换 | 颜色采集 | 网页源码 | MD 5破解 | 站长工具 | 在线算命 |
| 实用查询 | I P 查询 | 邮编查询 | 区号查询 | 周公解梦 | 成语大全 | 手机查询 | 号码凶吉 | 星座查询 |身份证查询| 5UQQ查询 |
专 题 栏 目
最 新 热 门
最 新 推 荐
相 关 文 章
没有相关文章
千年私服沙包战的脚本    热     ★★★
千年私服沙包战的脚本
千年私服沙包战的脚本
作者：佚名  文章来源：本站原创  点击数：  更新时间：2007-7-16 4:27:23
     本次活动分为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.

本站声明:本站文章资源均来自网上转载或机器人自动搜索采集,如果本站文章资源有版权问题请联系管理员，我们尽快予以更正。所有文章只限用于个人测试学习使用,不得用于非法商业用途,请勿非法复制传播。特此声明！--[5uwl.net]

五年游戏制作经验; 金牌服务品质保障 游戏开区一条龙 第一品牌无忧网络[5uwl.net]

文章录入：黑鹰    责任编辑：ceo 
  • 上一篇文章：

  • 下一篇文章：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 站点地图 | 管理登录 | 
    版权所有：Copyright © 2002-2008 中国·无忧网络 Www.5uwl.NET All Rights Reserved.
    网络支持：本站部份带宽由群英网络、唯一数据赞助 (排名不分次序本站征赞助商)
    建议使用：1024*768 分辨率 Windows2000 Internet Explorer v5.0 or Higher
    广告投放：[5uwl.net] QQ 267320050 TEL [移]013689532036
    IP备案号：粤ICP备05092442号