[战神脚本]转职变性脚本
这个脚本可以给游戏提供角色转职和变性功能，分享给大家是因为这个脚本还有技能领取功能，使用起来也很便捷。
部分脚本：
procedure _GM;
begin
if This_Player.GMLevel > 4then
begin
This_Npc.NpcDialog(This_Player,
+'|尊敬的管理大人，我这里可以控制元宝数量!\'
+'|<─────────────────────>\'
+'|<主号变性元宝数量/fcolor=250> <'+inttostr(GetG(108,4))+'/@bxyb>\'
+'|<主号转职元宝数量/fcolor=250> <'+inttostr(GetG(108,5))+'/@zyyb>\'
+'|<─────────────────────>\'
+'|默认：变性 <20000/fcolor=250> 元宝转职 <50000/fcolor=250> 元宝\ \'
+'|<您可以直接点击数量进行调整>\ \'
+'|{cmd}<关闭此页/@exit>^<返回首页/@main>\ \'
);
end else
begin
This_NPC.NpcDialog(This_Player,
'警告：你无权此操作，请速速联系管理员！！|\'+
'| <返回首页/@main>');
end;
end;
procedure _bxyb;
begin
This_NPC.InputDialog(This_Player,'请输入变性元宝数量',0,155) ;
end;
procedure p155;
begin
bxsl :=StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
if This_NPC.InputOKthen
begin
if (bxsl >= 100) and (bxsl < 10000000) then
begin
SetG(108,4,bxsl);
This_Npc.NpcDialog(This_Player,
+'|尊敬的管理大人，我这里可以控制元宝数量!\'
+'|<─────────────────────>\'
+'|<主号变性元宝数量/fcolor=250> <'+inttostr(GetG(108,4))+'/@bxyb>\'
+'|<主号转职元宝数量/fcolor=250> <'+inttostr(GetG(108,5))+'/@zyyb>\'
+'|<─────────────────────>\'
+'|默认：变性 <20000/fcolor=250> 元宝转职 <50000/fcolor=250> 元宝\ \'
+'|<您可以直接点击数量进行调整>\ \'
+'|{cmd}<关闭此页/@exit>^<返回首页/@main>\ \'
);
end else
This_NPC.NpcDialog(This_Player,
'变性元宝数量输入错误：100-10000000 之内|\'+
'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');
end else
This_NPC.NpcDialog(This_Player,
'变性元宝数量输入错误：非法字符，只能输入数字！|\'+
'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');
end;
页:
[1]