tgs10000\Init\里
item.sdb:
回城卷,回城卷,56,回城卷
双击使用,,,,,,,TRUE,FALSE,573,,,,,,,,,,100000,100000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,8,,,82,,,
注意红色的字,要对应Script.SDB里你添加的
NPC.sdb
回城移动,回城移动,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,, 内容来自dedecms
tgs10000\Help\里 添加回城卷.txt
dedecms.com
关闭 copyright dedecms
"回城卷"使用指南:
使用回城卷时候玩家位置不能在中央市场
不能开境界,上层武功,以及血要满...
否则使用不了! 本文来自织梦
明白...确定使用...
本文来自织梦
tgs10000\Script里 添加回城卷.txt dedecms.com
unit 回城卷; 织梦好,好织梦
interface 内容来自dedecms
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);
implementation
dedecms.com
procedure OnDblClick (aStr : String);
var
str1,namea, Str, rdStr, xStr, yStr : String;
x, y, xx, yy : Integer;
Str : String;
Race : Integer;
begin
print ('setallowdelete npc 回城移动');
dedecms.com
Str := callfunc ('getsenderposition');
Str := GetToken (Str, xStr, '_');
x := StrToInt (xStr);
Str := GetToken (Str, yStr, '_');
y := StrToInt (yStr);
rdStr := 'getnearxy ' + xStr;
rdStr := rdStr + ' ';
rdStr := rdStr + yStr;
Str := callfunc (rdStr);
Str := GetToken (Str, xStr, '_');
xx := StrToInt (xStr);
xstr :=inttostr(xx);
Str := GetToken (Str, yStr, '_');
yy := StrToInt (yStr);
ystr :=inttostr(yy);
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
Str := 'showwindow .\help\回城卷.txt 0';
print (Str);
exit;
end;
end;
procedure OnGetResult (aStr : String);
var
str1,namea, Str, rdStr, xStr, yStr, zdsm : String;
x, y, xx, yy : Integer;
Str, Name : String;
nValue : Integer;
ComStr : String = 'mapaddobjbyname NPC ';
monstername : String = '回城移动';
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'protect0' then begin
Str := callfunc ('checksendercurusemagic 3');
if Str = 'true' then begin
print ('sendsenderchatmessage 必须使用普通武功才能传送 2');
exit;
end;
Str := callfunc ('checksendercurusemagic 4');
if Str = 'true' then begin
print ('sendsenderchatmessage 必须使用普通武功才能传送 2'); dedecms.com
exit;
end;
Str := callfunc ('checksendercurusemagic 5');
if Str = 'true' then begin
print ('sendsenderchatmessage 必须使用普通武功才能传送 2');
exit;
end;
Str := callfunc ('checksendercurusemagic 6');
if Str = 'true' then begin
print ('sendsenderchatmessage 必须使用普通武功才能传送 2');
exit;
end;
Str := callfunc ('getsendercurpowerlevelname');
if Str <> '' then begin
print ('sendsenderchatmessage 不开镜子才能传送 2'); 织梦内容管理系统
exit;
end;
Str := callfunc ('getsendermaxlife');
zdsm := callfunc ('getsenderlife');
if Str <> zdsm then begin
print ('sendsenderchatmessage 生命必须是满的才可以传送 2');
exit;
end; 织梦好,好织梦
Str := ComStr + monstername;
Str := Str + ' ';
Str := Str + xStr;
Str := Str + ' ';
Str := Str + yStr;
Str := Str + ' 10 0 TRUE';
print (str);
name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user ';
Str := Str + '1';
str :=str +' ';
str :=str +'527';
str :=str +' ';
str :=str +'470';
str :=str +' ';
str :=str+monstername; dedecms.com
str :=str +' ';
str :=str +'npc';
print (Str);
print ('sendsenderchatmessage 传送成功 2');
print ('getsenderitem 回城卷:1'); dedecms.com
exit;
end;
copyright dedecms
end;
end 本文来自织梦
内容来自dedecms
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号