千年服务端大地图PK死亡传送另一地图脚本+升段成功率和属性修改
内容介绍
大地图PK死亡传送到另一地图脚本。在中央常PK的地方放置一个NPC叫——中央管理员，建议放在500500的位置。
unit 中央管理员;
interface
functionGetToken (aStr, aToken, aSep : String) : String;
functionCompareStr (aStr1, aStr2 : String) : Boolean;
functioncallfunc (aText: string): string;
procedure print (aText: string);
functionRandom (aScope: integer): integer;
functionLength (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
functionStrToInt (astr: string): integer;
functionIntToStr (aInt: integer): string;
procedure exit;
procedure OnChangeState (aStr : String);
implementation
//下面是当玩家状态改变时，也就是检测到玩家死亡了。
procedure OnChangeState (aStr : String);
var Str, Name : String;
begin if aStr <> 'die' then exit;
Str := callfunc ('getsenderrace');
//这里是检测死亡的是不是玩家
if Str <> '1' then exit;
//下面这一段和普通传送有点不同，这个是利用本地图的NPC传送的，如果本地图没有中央管理员，那么这段就无效了。
Name := callfunc ('getsendername');
Str := 'movespacebyname ' + Name;
Str := Str + ' user 6 84 81 中央管理员 npc 300';
print (Str);
end;
end.
升段成功和属性的修改
控制升段成攻率的件是tgs1000/init/JobUpgrade.sdb
下方时修改了100%成功的数据你可以对照下你自己的文件。
Name,Upgrade,SuccessRate,DungeonRate,DamageBody,DamageHead,DamageArm,DamageLeg,ArmorBody,ArmorHead,ArmorArm,ArmorLeg,AttackSpeed,Avoid,Recovery,Accuracy,KeepRecovery,
1段,1,70,（100）, 20,20,20,20,20,20,20,20,20,20,20,20,20,
2段,2,25,（100）, 50,50,50,50,50,50,50,50,50,50,50,50,50,
3段,3,10,（100）, 100,100,100,100,100,100,100,100,100,100,100,100,100,
4段,4,20,（100）, 150,150,150,150,150,150,150,150,150,150,150,150,150,
括号里的数值就是你要改的。改成100就是成功率100% 可以按自己的想法去改。
20,20,20,20,20,20,20,20,20,20,20,20,20, 这是1段的属性
50,50,50,50,50,50,50,50,50,50,50,50,50,这是2段
100,100,100,100,100,100,100,100,100,100,100,100,100这是3段
150,150,150,150,150,150,150,150,150,150,150,150,150,这是4段
要是你想让升到4段有200%的效果哪就把150 全改成200。
页:
[1]