在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE, 织梦好,好织梦
在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
unit 传送员; 本文来自织梦
interface dedecms.com
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 OnLeftClick (aStr : String);
procedure OnGetResult (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';
print (Str);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
Str, Name : String;
iCount, iKind : Integer;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'goroom' then begin
print ('mapregen 32');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 32 23 18';
print (Str);
exit;
end;
if aStr = 'goshamu' then begin
print ('mapregen 44');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 44 110 120';
print (Str); 织梦好,好织梦
exit;
end;
if aStr = 'goshigu' then begin
print ('mapregen 46');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 46 35 35';
print (Str);
exit;
end;
end;
end.
------------------------------------------------
在tgs1000/script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,,
-------------------- copyright dedecms
然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------ 内容来自dedecms
想要传送到哪里?我可以帮忙 内容来自dedecms
关闭
太极密室
黄金沙漠
帝王石谷
织梦好,好织梦
-----------------------------------------------------
织梦好,好织梦
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行) 本文来自织梦
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号