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; 内容来自dedecms
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String); 本文来自织梦
var
i: Integer;
implementation 本文来自织梦
procedure OnLeftClick (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
print ('showwindow .\help\欢迎玩家.txt 1');
exit;
end;
end;
copyright dedecms
procedure OnGetResult (aStr : String);
var
Str, Name, Maps, nStr : String;
nCur, nDura, Mapi, iCount, nValue, nCount : Integer;
begin
if aStr = 'close' then begin
exit;
end; 内容来自dedecms
if aStr = '登陆奖励' then begin
dedecms.com
if i >= 20 then begin
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
Dec(i);
print ('setallowdelete npc 新人认证');
exit;
end;
Str := callfunc ('getsenderitemexistence 新人认证:1');
if Str = 'false' then begin
print ('say 贪心的家伙!');
print (Str);
exit;
end; 织梦好,好织梦
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 包包满哩撒~');
exit;
end; 织梦内容管理系统
if i >= 0 then begin
if i < 1 then begin
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第一位玩家';
print (Str);
Inc(i);
exit;
end;
织梦内容管理系统
if i >= 1 then begin
if i < 2 then begin dedecms.com
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第二位玩家';
print (Str);
Inc(i);
exit;
end;
copyright dedecms
if i >= 2 then begin
if i < 3 then begin
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第三位玩家';
print (Str);
Inc(i);
exit;
end;
内容来自dedecms
织梦好,好织梦
if i >= 3 then begin
if i < 4 then begin
织梦内容管理系统
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第四位玩家';
print (Str);
Inc(i);
exit;
end; dedecms.com
end; copyright dedecms
if i >= 4 then begin
if i < 5 then begin
dedecms.com
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第五位玩家';
print (Str);
Inc(i);
exit;
end; dedecms.com
end; dedecms.com
if i >= 5 then begin
if i < 6 then begin 本文来自织梦
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第六位玩家';
print (Str);
Inc(i);
exit;
end;
if i >= 6 then begin
if i < 7 then begin 织梦内容管理系统
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第七位玩家';
print (Str);
Inc(i);
exit;
end;
if i >= 7 then begin
if i < 8 then begin
print ('getsenderitem 新人认证:1');
print ('putsendermagicitem 经验值:1000 @欢迎玩家 4');
print ('putsendermagicitem 金元:50 @欢迎玩家 4');
print (Str);
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '【';
Str := Str + Name;
Str := Str + '】恭喜你是本服第八位玩家';
print (Str);
Inc(i);
exit;
end; 织梦内容管理系统
end; 织梦好,好织梦
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号