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; copyright dedecms
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String); 本文来自织梦
var
nn : Integer;
JgName : String = '积分点';
SellItem : String = '_飞刀:1_箭:1_银元:50_金元:5000_生药:10_丹药:5_丸药:5_汤药:5';
SellItem1 : String = '_粒药:10_粉药:10_药水:10_垫子:25_金钞:2500_银钞:500';
SellItem2 : String = '';
SellCount : Integer = 14; 内容来自dedecms
implementation 内容来自dedecms
procedure OnLeftClick (aStr : String);
var
str, Name : String;
begin
print ('say 请输入命令‘公告+空格键+你想说的话’'); 本文来自织梦
Name := callfunc ('getsendername');
Str := callfunc ('getsenderedu');
if Str = '1' then begin
Str := 'sendsenderchatmessage 如:帅哥【' + Name;
Str := Str + '】诚招年轻美貌温柔贤淑的新娘! 2';
print (Str);
exit;
end;
if Str = '2' then begin
Str := 'sendsenderchatmessage 如:美女【' + Name;
Str := Str + '】要找个世界上最好最好的老公 2';
print (Str);
exit;
end;
end;
copyright dedecms
procedure OnHear (aStr : String);
var
Str, Name, rdStr, xStr, yStr, wpmc, shumu, jiage : String;
i, iCount : Integer;
rCount : Integer = 0;
begin
Str := callfunc ('getsenderrace');
if Str <> '1' then exit;
SellItem := SellItem + SellItem1;
if aStr = '卖什么' then begin
Name := 'say 出售:';
Str := '';
yStr := SellItem;
for i:=1 to SellCount do
begin
rdStr := Str;
yStr := GetToken (yStr, xStr, '_');
yStr := GetToken (yStr, xStr, ':');
Str := Str + xStr;
Str := Str + ','; dedecms.com
iCount := Length(Str);
if iCount > 38 then begin
Str := GetToken (Str, xStr, rdStr);
xStr := IntToStr(rCount);
rdStr := Name + rdStr;
rdStr := rdStr + ' ';
rdStr := rdStr + xStr;
print (rdStr);
rCount := rCount + 100;
end;
end;
xStr := IntToStr(rCount); 织梦好,好织梦
Str := Name + Str;
Str := Str + ' ';
Str := Str + xStr;
print (Str);
exit;
end;
if aStr = '买什么' then begin
print ('say 我不买物品');
exit;
end;
rdStr := GetToken (aStr, yStr, '_');
if yStr = '公告' then begin
Str := callfunc ('getsenderitemexistence 积分点:200');
if Str = 'false' then begin
print ('say 需要200积分点才能公告');
exit;
end;
Name := callfunc ('getsendername');
print ('getsenderitem 积分点:200');
str := 'sendsendertopmsg ' + Name;
str := str + '说【';
str := str + rdstr;
str := str + '】';
print (str);
exit;
end; 内容来自dedecms
if yStr = '买' then begin
yStr := GetToken (rdStr, wpmc, '_');
yStr := GetToken (yStr, shumu, '个');
iCount :=strtoint(shumu);
if iCount < 1 then begin
print ('say 格式错误!如:买_金元_10个');
exit;
end;
Str := wpmc + ':';
yStr := GetToken (SellItem, xStr, Str);
if yStr = '' then begin
print ('say 不卖此物品');
exit;
end;
yStr := GetToken (yStr, jiage, '_');
rCount := StrtoInt(jiage);
rCount := iCount * rCount;
dedecms.com
procedure OnTimer (aStr : String);
begin
nn := nn + 1;
if nn= 18 then begin
print ('say 给我200积分点,你想说啥我都可以帮你公告出来');
exit;
end;
if nn= 36 then begin
print ('say 我嗓门可大啦,不相信可以试试');
exit;
end;
if nn= 54 then begin
print ('say 我夫君不在,有什么事可以找我');
exit;
end;
if nn= 72 then begin
print ('say 积分点可以以半价购买物品,如:买_金元_10个');
nn := 0;
exit;
end;
end; dedecms.com
end.
dedecms.com
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号