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 OnLeftClick (aStr : String);
procedure OnHear (aStr : String);
var
duanshu : Integer = 9;
rCount : Integer = 8;
ts : Integer = 5;
sdcgl : String = '0级9500_1级8400_2级7300_3级6200_4级5000_5级3600_6级1600_7级880_';
sdcgl1 : String = '8级500';
jcgl : String = '血石:400/宝石碎片:600/五彩神石:1200';
jcglsm : Integer = 2; dedecms.com
implementation
procedure OnLeftClick (aStr : String);
begin
print ('sendsenderchatmessage 命令:加工+空格+装备名+空格+级数+辅助品 2');
print ('sendsenderchatmessage 没有辅助品可以不填,每次限1个辅助品 2');
print ('sendsenderchatmessage 如:加工_男子黄龙弓服_0级五彩神石 2');
exit;
end;
procedure OnHear (aStr : String);
var
Str, Name, shumu, zbmz, rdStr, xStr, yStr, jishu : String;
fuzhu : String = 'a';
iCount, iKind, cgl : Integer;
i : Integer = 0;
begin
Str := callfunc ('getsenderrace');
if Str <> '1' then exit;
Name := callfunc ('getsendername');
sdcgl := sdcgl + sdcgl1;
rdStr := GetToken (aStr, xStr, '_');
if xStr = '加工' then begin
xStr := GetToken (rdStr, zbmz, '_');
yStr := GetToken (xStr, jishu, '级');
Str := GetToken (rdStr, xStr, jishu);
Str := GetToken (Str, xStr, yStr);
if yStr <> '' then begin
fuzhu := yStr;
i := 1;
end;
本文来自织梦
内容来自dedecms
iKind := Random (10000);
if iKind > cgl then begin
print ('sendsenderchatmessage 加工失败了_请不要气馁 2');
if iCount > ts then begin
Str := 'sendsendertopmsg ' + name;
Str := Str + ',加工【';
Str := Str + zbmz;
Str := Str + '】第';
Str := Str + jishu;
Str := Str + '级失败';
print (Str);
end;
procedure OnTimer (aStr : String);
var
Str, xStr, yStr : String;
t, i : Integer;
begin
t := t + 1;
if t= 15 then begin
print ('say 输入加工+空格+装备级数前的名字+空格+级数+辅助品 50');
print ('say 可以加工装备,如:加工_黄龙斧_8级宝石碎片 200');
exit;
end;
if t= 30 then begin
Str := InttoStr(duanshu);
Str := 'say 目前所有装备的最高级为' + Str;
Str := Str + '级';
print (Str);
exit;
end;
if t= 45 then begin
Str := 'say 辅助品有';
yStr := GetToken (jcgl, xStr, ':');
Str := Str + xStr;
织梦好,好织梦
copyright dedecms
end. dedecms.com
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号