下面我就拿捕盗大将实验做脚本 本文来自织梦
先打开 捕盗大将.txt 内容如下 本文来自织梦
-------------------------------------------------w 织梦内容管理系统
unit 捕盗大将; //定义与脚本相关的NPC内部名称 本文来自织梦
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; dedecms.com
procedure OnGetResult (aStr : String); procedure OnLeftClick (aStr : String); dedecms.com
implementation 织梦好,好织梦
procedure OnLeftClick (aStr : String); //鼠标左键激活 这是个条件 var Str : String; Race : Integer; begin Str := callfunc ('getsenderrace'); Race := StrToInt (Str); if Race = 1 then begin Str := 'showwindow .\help\捕盗大将.txt 1'; //定义窗口显示 help文件夹下面的对应文件 print (Str); //执行 exit; end; end;
procedure OnGetResult (aStr : String); //取得结果 也是个先决条件 下面的脚本都是在这个前提下激活的 var Str, Name : String; begin if aStr = 'close' then begin //如果接受到 close 这个命令 exit; //关闭 end; if aStr = 'sell' then begin //如果接受到 sell 命令 Name := callfunc ('getsendername'); //取得发送者角色名称 Str := 'tradewindow ' + Name; //定义交易窗口 Str := Str + ' 0'; print (Str); //执行 exit; end; if aStr = 'buy' then begin //如果接受到 buy 命令 Name := callfunc ('getsendername'); //取得发送者角色名称 Str := 'tradewindow ' + Name; //定义交易窗口 Str := Str + ' 1'; print (Str); //执行 exit; end; if aStr = 'make' then begin //如果接受到 make 命令 Str := callfunc ('getsenderitemexistence 犀牛角:5'); //检查发送者背包里面是否存在某物品:数量 if Str = 'false' then begin //如果条件不成立 即没有 符合数量的物品 Str := 'say 快弄5个犀牛角再说'; //定义结果 print (Str); //执行 exit; end; if Str = 'true' then begin //如果条件成立 即有 符合数量的物品 Str := callfunc ('getsenderitemexistence 银元:2'); //检查发送者背包里面是否存在某物品:数量 if Str = 'false' then begin //如果条件不成立 即没有 符合数量的物品 Str := 'say 有两个银元吗?'; //定义结果 print (Str); //执行 exit; end; if Str = 'true' then begin //如果条件成立 即有 符合数量的物品 Str := callfunc ('checkenoughspace'); //检查角色背包是否有剩余空间 if Str = 'false' then begin //如果条件不成立 没空位置了 print ('say 物品栏已满'); //执行结果 exit; end; 内容来自dedecms
Str := 'getsenderitem 犀牛角:5'; //变量:从角色背包里面收取 某物品:数量 print (Str); //执行 Str := 'getsenderitem 银元:2'; //变量:从角色背包里面收取 某物品:数量 print (Str); //执行 Str := 'putsendermagicitem 桂林符:1 @捕盗大将 4'; //发送某物品到角色背包 print (Str); //执行 Str := 'say 收好了..-这就是桂林符~'; //定义变量 print (Str); //执行 exit; end; end; exit; end; end; copyright dedecms
end. 织梦好,好织梦
--------------------------------------------
程序格式一般来说是 copyright dedecms
取得信息对比条件变量 本文来自织梦
条件不成立 返回结果1 条件成立 返回结果2 或者 继续执行下一个条件 本文来自织梦
然后关门结束 copyright dedecms
Str := 'say 收好了..-这就是桂林符~'; //定义变量 print (Str); //执行
内容来自dedecms
这段是分开来的 精简 为 print ('say 收好了..-这就是桂林符~') 效果是一样的
dedecms.com
增加条件 要记得关门 也就是 如果有 if 就要有 end; 织梦内容管理系统
如果有 if ......then begin 那就要对应有 exit; end; 1000y online
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号