大地图PK死亡传送到另一地图脚本。在中央常PK的地方放置一个NPC叫——中央管理员,建议放在500500的位置。
- 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 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。
|