CreateNpc1.sdb中加入
99,高利贷商人,556,468,1,0,154,,
NPC.sdb中加入
高利贷商人,高利贷商人,-1000,,,TRUE,,TRUE,,,,TRUE,9,25,108,150,30,,,,3500,0,0,0,0,,2,,,,,,,,,,,,,,,,,

item.sdb中加入
负债合同,负债合同,4,高利贷商人与你签订的负债合同,,,,,,,TRUE,FALSE,620,,,,,,1,,,,10000,10000,,,,,4406,4806,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
短期票据,短期票据,4,此票据无法转让，但随时能从贷款商处收回存款,,,,,,,TRUE,FALSE,527,,,,,,,,,,5,,,,,,4406,4806,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
中期票据,中期票据,4,此票据无法转让，但随时能从贷款商处收回存款,,,,,,,TRUE,FALSE,527,,,,,,,,,,5,,,,,,4406,4806,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
长期票据,长期票据,4,此票据无法转让，但随时能从贷款商处收回存款,,,,,,,TRUE,FALSE,528,,,,,,,,,,5,,,,,,4406,4806,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
短期钟,短期钟,36,记录短期票据时间,,,,,,,FALSE,FALSE,860,,,,,,,,,,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,120,6000,1,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,1,,
中期钟,中期钟,36,记录中期票据时间,,,,,,,FALSE,FALSE,858,,,,,,,,,,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,1440,6000,1,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,1,,
长期钟,长期钟,36,记录长期票据时间,,,,,,,FALSE,FALSE,859,,,,,,,,,,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,10080,6000,1,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,1,,
此处如果没有图片说明你item没有这么多图，自己改吧

Script.sdb中加入
154,高利贷商人.txt,,

help中新建:高利贷商人.txt文件,其内容如下

关闭

特别提示:取款时所得货币是钱币,包裹内钱币加上取款所得不能超过1亿(含1亿),否则无法获得取款

需要存款则在说话框输入:
短期存入 银钞 n个
取款则在说话框输入:
递上短期票据 n个
其中短期可以更改为中期或长期
短、中、长期利率分别为:
0.4%/2小时,6%/天,60%/周
神话境以上(含神话境)才可以贷款
贷款利率20%
申请和偿还都已负债合同的数量为基准
即申请1个得1万，偿还1个则需1.2万
贷款上限:
神话境以上300万
至尊无上以上500万
空前绝后以上1000万
贷款命令:
申请贷款 n个
偿还贷款 n个
需注意:
每个命令中都有空格键
所有n均表示数量

script文件下新建:高利贷商人.txt文件，内容:

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 OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
var
nn, n : integer = 0;
t : integer = 40000;
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 0';
print (Str);
exit;
end;
end;
procedure OnHear (aStr : String);
var
Str, xStr, yStr, pStr, qStr, kStr, xStr1, yStr1, pStr1 : String;
qa, qb, qc, qd : String;
da, db, dc : String;
j, m, p, Race : integer;
begin
xStr1 := GetToken (aStr, kStr, '期');
yStr1 := GetToken (xStr1, xStr, '

');
qStr := GetToken (pStr1, pStr, '个');
if xStr = '存入' then begin
if kStr <> '短' then begin
if kStr <> '中' then begin
if kStr <> '长' then begin
print ('say 期限错误');
exit;
end;
end;
end;
p := StrToInt (pStr);
Str := callfunc ('getsenderitemexistence 负债合同:1');
if Str = 'true' then begin
print ('say 你还没偿还我的负债呢');
exit;
end;
if yStr <> '银钞' then begin
print ('say 存款货币必须是银钞');
exit;
end;
Str := callfunc ('checkenoughspace 2');
if Str = 'false' then begin
print ('say 需要2个物品栏空位');
exit;
end;
if p > 10000 then begin
print ('say 单笔存款不能超过1000万');
exit;
end;
Str := 'getsenderitemexistence 银钞:' + pStr;
Str := callfunc (Str);
if Str = 'false' then begin
print ('say 你没有足够的银钞');
exit;
end;
if kStr = '中' then begin
if p < 10 then begin
print ('say 中期存款单笔金额不得低于1万');
exit;
end;
end;
if kStr = '长' then begin
if p < 100 then begin
print ('say 长期存款单笔金额不得低于10万');
exit;
end;
end;
Str := 'getsenderitem 银钞:' + pStr;
print (Str);
Str := 'putsendermagicitem ' + kStr;
Str := Str + '期票据:';
Str := Str + pStr;
Str := Str + ' @高利贷商人 4';
print (Str);
t := t + p;
Str := 'getsenderitemexistence ' + kStr;
Str := Str + '期钟:1';
Str := callfunc (Str);
if Str = 'false' then begin
Str := 'putsendermagicitem ' + kStr;
Str := Str + '期钟:1 @高利贷商人 4';
print (Str);
print ('sendsenderchatmessage 存款成功 2');
exit;
end;
Str := 'getsenderitem ' + kStr;
Str := Str + '期钟:1';
print (Str);
Str := 'putsendermagicitem ' + kStr;
Str := Str + '期钟:1 @高利贷商人 4';
print (Str);
print ('sendsenderchatmessage 存款成功 2');
exit;
end;
xStr1 := GetToken (aStr, qa, '递上');
yStr1 := GetToken (xStr1, qb, '期');
pStr1 := GetToken (yStr1, qc, '

');
yStr1 := GetToken (xStr1, db, '个');
dc := GetToken (xStr1, yStr1, db);
if dc <> '个' then exit;
if da <> '申请' then begin
if da <> '偿还' then begin
print ('say 格式错误，如:申请贷款_100个');
exit;
end;
end;
if da = '申请' then begin
m := StrToInt (db);
m := m * 10;
Str := callfunc ('getsendercurpowerlevel');
Race := StrToInt (Str);
if Race < 7 then begin
print ('sendsenderchatmessage 需要神话境以上她才会给你提供贷款服务 2');
exit;
end;
Str := callfunc ('checkenoughspace 2');
if Str = 'false' then begin
print ('say 需要两个物品栏空位');
exit;
end;
Str := callfunc ('getsenderitemexistence 短期票据:1');
if Str = 'true' then begin
print ('say 只要你还有1分钱的存款我就不贷款给你');
exit;
end;
Str := callfunc ('getsenderitemexistence 中期票据:1');
if Str = 'true' then begin
print ('say 只要你还有1分钱的存款我就不贷款给你');
exit;
end;
Str := callfunc ('getsenderitemexistence 长期票据:1');
if Str = 'true' then begin
print ('say 只要你还有1分钱的存款我就不贷款给你');
exit;
end;
if t < 10000 then begin
print ('say 已贷出了所有存款，请下次再来');
exit;
end;
if Race < 10 then begin
Str := callfunc ('getsenderitemexistence 负债合同:300');
if Str = 'false' then begin
Str := 'putsendermagicitem 负债合同:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
Str := 'putsendermagicitem 金元:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
print ('sendsenderchatmessage 申请贷款成功 2');
t := t - m;
exit;
end;
print ('sendsenderchatmessage 至尊无上境界以上她才会再贷款给你 2');
exit;
end;
if Race < 12 then begin
Str := callfunc ('getsenderitemexistence 负债合同:500');
if Str = 'false' then begin
Str := 'putsendermagicitem 负债合同:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
Str := 'putsendermagicitem 金元:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
print ('sendsenderchatmessage 申请贷款成功 2');
t := t - m;
exit;
end;
print ('sendsenderchatmessage 空前绝后境界以上她才会再贷款给你 2');
exit;
end;
Str := callfunc ('getsenderitemexistence 负债合同:1000');
if Str = 'false' then begin
Str := 'putsendermagicitem 负债合同:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
Str := 'putsendermagicitem 金元:' + db;
Str := Str + ' @高利贷商人 4';
print (Str);
print ('sendsenderchatmessage 申请贷款成功 2');
t := t - m;
exit;
end;
print ('say 你贷了这么多钱，什么时候才能还给我?');
exit;
end;
if da = '偿还' then begin
Str := callfunc ('getsendercurpowerlevel');
Race := StrToInt (Str);
if Race < 7 then begin
print ('sendsenderchatmessage 需要神话境以上她才会给你提供贷款服务 2');
exit;
end;
Str := 'getsenderitemexistence 负债合同:' + db;
Str := callfunc (Str);
if Str = 'false' then begin
print ('say 你没有这么多贷款，是不是想送我点钱啊？');
exit;
end;
j := StrToInt (db);
m := j * 120;
p := j * 12;
dc := IntToStr (m);
Str := 'getsenderitemexistence 银元:' + dc;
Str := callfunc (Str);
if Str = 'false' then begin
Str := 'say 你没有足够的银元,' + db;
Str := Str + '张负债合同需要';
Str := Str + dc;
Str := Str + '个银元';
print (Str);
exit;
end;
Str := 'getsenderitem 负债合同:' + db;
print (Str);
Str := 'getsenderitem 银元:' + dc;
print (Str);
print ('sendsenderchatmessage 偿还贷款成功 2');
t := t + p;
exit;
end;
end;
procedure OnTimer (aStr : String);
begin
nn := nn + 1;
n := n +1;
if nn= 21 then begin
print ('say 我只接待有实力的侠客贷款，贷款利率仅20%');
exit;
end;
if nn= 36 then begin
print ('say 单击我可以查看业务说明');
nn := 0;
exit;
end;
if n= 3600 then begin
if t > 9999 then begin
print ('sendsendertopmsg 贷款商目前能够提供出贷款，需要的速度');
n := 0;
exit;
end;
n := 0;
end;
end;
end.