game_master.pas

RO模拟器!!适合玩仙境传说的玩家们呦~

unit Game_Master;

interface

uses
    IniFiles, Classes, SysUtils, Common, List32, MMSystem, Globals;

type TGM_Table = class
    ID : Integer;
    Level : Byte;
end;

var
    GM_ALIVE : Byte;
    GM_ITEM : Byte;
    GM_SAVE : Byte;
    GM_RETURN : Byte;
    GM_DIE : Byte;
    GM_AUTO : Byte;
    GM_HCOLOR : Byte;
    GM_CCOLOR : Byte;
    GM_HSTYLE : Byte;
    GM_KILL : Byte;
    GM_GOTO : Byte;
    GM_SUMMON : Byte;
    GM_WARP : Byte;
    GM_BANISH : Byte;
    GM_JOB : Byte;
    GM_BLEVEL : Byte;
    GM_JLEVEL : Byte;
    GM_CHANGESTAT : Byte;
    GM_SKILLPOINT : Byte;
    GM_SKILLALL : Byte;
    GM_STATALL : Byte;
    GM_SUPERSTATS : Byte;
    GM_ZENY : Byte;
    GM_CHANGESKILL : Byte;
    GM_MONSTER : Byte;
    GM_SPEED : Byte;
    GM_WHOIS : Byte;
    GM_OPTION : Byte;
    GM_RAW : Byte;
    GM_UNIT : Byte;
    GM_STAT : Byte;
    GM_REFINE : Byte;
    GM_GLEVEL : Byte;
    GM_IRONICAL : Byte;
    GM_MOTHBALL : Byte;
    GM_WHERE : Byte;
    GM_REVIVE : Byte;
    GM_BAN : Byte;
    GM_KICK : Byte;
    GM_ICON : Byte;
    GM_UNICON : Byte;
    GM_SERVER : Byte;
    GM_PVPON : Byte;
    GM_PVPOFF : Byte;
    GM_GPVPON : Byte;
    GM_GPVPOFF : Byte;
    GM_NEWPLAYER : Byte;
    GM_PWORD : Byte;
    GM_USERS : Byte;
    GM_CHARBLEVEL : Byte;
    GM_CHARJLEVEL : Byte;
    GM_CHARSTATPOINT : Byte;
    GM_CHARSKILLPOINT : Byte;
    GM_CHANGES : Byte;
    
    GM_AEGIS_B : Byte;
    GM_AEGIS_NB : Byte;
    GM_AEGIS_BB : Byte;
    GM_AEGIS_ITEM : Byte;
    GM_AEGIS_MONSTER : Byte;
    GM_AEGIS_HIDE : Byte;
    GM_AEGIS_RESETSTATE : Byte;
    GM_AEGIS_RESETSKILL : Byte;
    
    GM_ATHENA_HEAL : Byte;
    GM_ATHENA_KAMI : Byte;
    GM_ATHENA_ALIVE : Byte;
    GM_ATHENA_KILL : Byte;
    GM_ATHENA_DIE : Byte;
    GM_ATHENA_JOBCHANGE : Byte;
    GM_ATHENA_HIDE : Byte;
    GM_ATHENA_OPTION : Byte;
    GM_ATHENA_STORAGE : Byte;
    GM_ATHENA_SPEED : Byte;
    GM_ATHENA_WHO3 : Byte;
    GM_ATHENA_WHO2 : Byte;
    GM_ATHENA_WHO : Byte;
    GM_ATHENA_JUMP : Byte;
    GM_ATHENA_JUMPTO : Byte;
    GM_ATHENA_WHERE : Byte;
    GM_ATHENA_RURA : Byte;
    GM_ATHENA_WARP : Byte;
    GM_ATHENA_RURAP : Byte;
    GM_ATHENA_SEND : Byte;
    GM_ATHENA_WARPP : Byte;
    GM_ATHENA_CHARWARP : Byte;
    GM_ATHENA_HELP : Byte;
    GM_ATHENA_ZENY : Byte;
    GM_ATHENA_BASELVLUP : Byte;
    GM_ATHENA_LVUP : Byte;
    GM_ATHENA_JOBLVLUP : Byte;
    GM_ATHENA_JOBLVUP : Byte;
    GM_ATHENA_SKPOINT :  Byte;


    GM_Access_DB : TIntList32;

    procedure load_commands();
    procedure save_commands();

    procedure parse_commands(tc : TChara; str : String);
    function check_level(id : Integer; cmd : Integer) : Boolean;
    procedure error_message(tc : TChara; str : String);
    procedure save_gm_log(tc : TChara; str : String);

    function command_alive(tc : TChara) : String;
    function command_item(tc : TChara; str : String) : String;
    function command_save(tc : TChara) : String;
    function command_return(tc : TChara) : String;
    function command_die(tc : TChara) : String;
    function command_auto(tc : TChara; str : String) : String;
    function command_hcolor(tc : TChara; str : String) : String;
    function command_ccolor(tc : TChara; str : String) : String;
    function command_hstyle(tc : TChara; str : String) : String;
    function command_kill(str : String) : String;
    function command_goto(tc : TChara; str : String) : String;
    function command_summon(tc : TChara; str : String) : String;
    function command_warp(tc : TChara; str : String) : String;
    function command_banish(str : String) : String;
    function command_job(tc : TChara; str : String) : String;
    function command_blevel(tc : TChara; str : String) : String;
    function command_jlevel(tc : TChara; str : String) : String;
    function command_changestat(tc : TChara; str : String) : String;
    function command_skillpoint(tc : TChara; str : String) : String;
    function command_skillall(tc : TChara) : String;
    function command_statall(tc : TChara) : String;
    function command_superstats(tc : TChara) : String;
    function command_zeny(tc : TChara; str : String) : String;
    function command_changeskill(tc : TChara; str : String) : String;
    function command_monster(tc : TChara; str : String) : String;
    function command_speed(tc : TChara; str : String) : String;
    function command_whois(tc : TChara) : String;
    function command_option(tc : TChara; str : String) : String;
    function command_raw(tc : TChara; str : String) : String;
    function command_unit(tc : TChara; str : String) : String;
    function command_stat(tc : TChara; str : String) : String;
    function command_refine(tc : TChara; str : String) : String;
    function command_glevel(tc : TChara; str : String) : String;
    function command_ironical(tc : TChara) : String;
    function command_mothball(tc : TChara) : String;
    function command_where(tc : TChara; str : String) : String;
    function command_revive(str : String) : String;
    function command_ban(str : String) : String;
    function command_kick(str : String) : String;
    function command_icon(tc : TChara; str : String) : String;
    function command_unicon(tc : TChara; str : String) : String;
    function command_server() : String;
    function command_pvpon(tc : TChara) : String;
    function command_pvpoff(tc : TChara) : String;
    function command_gpvpon(tc : TChara) : String;
    function command_gpvpoff(tc : TChara) : String;
    function command_newplayer(str : String) : String;
    function command_pword(tc : TChara; str : String) : String;
    function command_users() : String;
    function command_charblevel(tc : TChara; str : String) : String;
    function command_charjlevel(tc : TChara; str : String) : String;
    function command_charstatpoint(tc : TChara; str : String) : String;
    function command_charskillpoint(tc : TChara; str : String) : String;
    function command_changes(tc : TChara; str : String) : String;

    function command_aegis_b(str : String) : String;
    function command_aegis_bb(tc : TChara; str : String) : String;
    function command_aegis_nb(str : String) : String;
    function command_aegis_item(tc : TChara; str : String) : String;
    function command_aegis_monster(tc : TChara; str : String) : String;
    function command_aegis_hide(tc : TChara) : String;
    function command_aegis_resetstate(tc : TChara; str : String) : String;
    function command_aegis_resetskill(tc : Tchara; str : String) : String;

    function command_athena_heal(tc : TChara; str : String) : String;
    function command_athena_kami(tc : TChara; str : String) : String;
    function command_athena_alive(tc : TChara) : String;
    function command_athena_kill(tc: TChara; str : String) : String;
    function command_athena_die(tc : TChara) : String;
    function command_athena_jobchange(tc : TChara; str : String) : String;
    function command_athena_hide(tc : TChara) : String;
    function command_athena_option(tc : TChara; str : String) : String;
    function command_athena_storage(tc : TChara) : String;
    function command_athena_speed(tc : TChara; str : String) : String;
    function command_athena_who3(tc : TChara; str : String) : String;
    function command_athena_who2(tc : TChara; str : String) : String;
    function command_athena_who(tc : TChara; str : String) : String;
    function command_athena_jump(tc : TChara; str : String) : String;
    function command_athena_jumpto(tc : TChara; str : String) : String;
    function command_athena_where(tc : TChara; str : String) : String;
    function command_athena_rura(tc : TChara; str : String) : String;
    function command_athena_warp(tc : TChara; str : String) : String;
    function command_athena_rurap(tc : Tchara; str : String) : String;
    function command_athena_send(tc : TChara; str : String) : String;
    function command_athena_warpp(tc : TChara; str : String) : String;
    function command_athena_charwarp(tc : TChara; str : String) : String;
    function command_athena_help(tc : TChara) : String;
    function command_athena_zeny(tc : TChara; str : String) : String;
    function command_athena_baselvlup(tc : TChara; str : String) : String;
    function command_athena_lvup(tc : TChara; str : String) : String;
    function command_athena_joblvlup(tc : TChara; str : String) : String;
    function command_athena_joblvup(tc : TChara; str : String) : String;
    function command_athena_skpoint(tc : TChara; str : String) : String;

implementation

    procedure load_commands();
    var
        ini : TIniFile;
        sl : TStringList;
    begin
        ini := TIniFile.Create(AppPath + 'gm_cs.ini');
        sl := TStringList.Create();
        sl.Clear;
        ini.ReadSectionValues('Fusion GM Commands', sl);

        GM_ALIVE := StrToIntDef(sl.Values['ALIVE'], 1);
        GM_ITEM := StrToIntDef(sl.Values['ITEM'], 1);
        GM_SAVE := StrToIntDef(sl.Values['SAVE'], 1);
        GM_RETURN := StrToIntDef(sl.Values['RETURN'], 1);
        GM_DIE := StrToIntDef(sl.Values['DIE'], 1);
        GM_AUTO := StrToIntDef(sl.Values['AUTO'], 1);
        GM_HCOLOR := StrToIntDef(sl.Values['HCOLOR'], 1);
        GM_CCOLOR := StrToIntDef(sl.Values['CCOLOR'], 1);
        GM_HSTYLE := StrToIntDef(sl.Values['HSTYLE'], 1);
        GM_KILL := StrToIntDef(sl.Values['KILL'], 1);
        GM_GOTO := StrToIntDef(sl.Values['GOTO'], 1);
        GM_SUMMON := StrToIntDef(sl.Values['SUMMON'], 1);
        GM_WARP := StrToIntDef(sl.Values['WARP'], 1);
        GM_BANISH := StrToIntDef(sl.Values['BANISH'], 1);
        GM_JOB := StrToIntDef(sl.Values['JOB'], 1);
        GM_BLEVEL := StrToIntDef(sl.Values['BLEVEL'], 1);
        GM_JLEVEL := StrToIntDef(sl.Values['JLEVEL'], 1);
        GM_CHANGESTAT := StrToIntDef(sl.Values['CHANGESTAT'], 1);
        GM_SKILLPOINT := StrToIntDef(sl.Values['SKILLPOINT'], 1);
        GM_SKILLALL := StrToIntDef(sl.Values['SKILLALL'], 1);
        GM_STATALL := StrToIntDef(sl.Values['STATALL'], 1);
        GM_SUPERSTATS := StrToIntDef(sl.Values['SUPERSTATS'], 1);
        GM_ZENY := StrToIntDef(sl.Values['ZENY'], 1);
        GM_CHANGESKILL := StrToIntDef(sl.Values['CHANGESKILL'], 1);
        GM_MONSTER := StrToIntDef(sl.Values['MONSTER'], 1);
        GM_SPEED := StrToIntDef(sl.Values['SPEED'], 1);
        GM_WHOIS := StrToIntDef(sl.Values['WHOIS'], 1);
        GM_OPTION := StrToIntDef(sl.Values['OPTION'], 1);
        GM_RAW := StrToIntDef(sl.Values['RAW'], 1);
        GM_UNIT := StrToIntDef(sl.Values['UNIT'], 1);
        GM_STAT := StrToIntDef(sl.Values['STAT'], 1);
        GM_REFINE := StrToIntDef(sl.Values['REFINE'], 1);
        GM_GLEVEL := StrToIntDef(sl.Values['GLEVEL'], 1);
        GM_IRONICAL := StrToIntDef(sl.Values['IRONICAL'], 1);
        GM_MOTHBALL := StrToIntDef(sl.Values['MOTHBALL'], 1);
        GM_WHERE := StrToIntDef(sl.Values['WHERE'], 1);
        GM_REVIVE := StrToIntDef(sl.Values['REVIVE'], 1);
        GM_BAN := StrToIntDef(sl.Values['BAN'], 1);
        GM_KICK := StrToIntDef(sl.Values['KICK'], 1);
        GM_ICON := StrToIntDef(sl.Values['ICON'], 1);
        GM_UNICON := StrToIntDef(sl.Values['UNICON'], 1);
        GM_SERVER := StrToIntDef(sl.Values['SERVER'], 0);
        GM_PVPON := StrToIntDef(sl.Values['PVPON'], 1);
        GM_PVPOFF := StrToIntDef(sl.Values['PVPOFF'], 1);
        GM_GPVPON := StrToIntDef(sl.Values['GPVPON'], 1);
        GM_GPVPOFF := StrToIntDef(sl.Values['GPVPOFF'], 1);
        GM_NEWPLAYER := StrToIntDef(sl.Values['NEWPLAYER'], 1);
        GM_PWORD := StrToIntDef(sl.Values['PWORD'], 0);
        GM_USERS := StrToIntDef(sl.Values['USERS'], 0);
        GM_CHARBLEVEL := StrToIntDef(sl.Values['CHARBLEVEL'], 1);
        GM_CHARJLEVEL := StrToIntDef(sl.Values['CHARJLEVEL'], 1);
        GM_CHARSTATPOINT := StrToIntDef(sl.Values['CHARSTATPOINT'], 1);
        GM_CHARSKILLPOINT := StrToIntDef(sl.Values['CHARSKILLPOINT'], 1);
        GM_CHANGES := StrToIntDef(sl.Values['CHANGES'], 0);