24 lines
502 B
OCaml
24 lines
502 B
OCaml
|
open Cmdid
|
||
|
|
open Protocol
|
||
|
|
open Packet
|
||
|
|
|
||
|
|
let on_get_cur_lineup_data _pk =
|
||
|
|
let rsp = {
|
||
|
|
retcode = 0l;
|
||
|
|
lineup = Some (default_lineup_info
|
||
|
|
~name:"Lineup"
|
||
|
|
~avatar_list:[
|
||
|
|
{
|
||
|
|
id = 1222l;
|
||
|
|
hp = 10000l;
|
||
|
|
slot = 0l;
|
||
|
|
satiety = 0l;
|
||
|
|
avatar_type = Avatar_formal_type;
|
||
|
|
sp = Some {sp_cur = 10000l; sp_need = 10000l;};
|
||
|
|
}
|
||
|
|
]
|
||
|
|
());
|
||
|
|
} in
|
||
|
|
|
||
|
|
pack cmd_get_cur_lineup_data_sc_rsp encode_pb_get_cur_lineup_data_sc_rsp rsp
|