90 lines
7.5 KiB
OCaml
90 lines
7.5 KiB
OCaml
open Cmdid
|
|
open Protocol
|
|
open Packet
|
|
|
|
let finished_main_missions = [
|
|
1000101l; 1000111l; 1000112l; 1000113l; 1000114l; 1000201l; 1000202l; 1000203l; 1000204l; 1000300l;
|
|
1000301l; 1000302l; 1000303l; 1000304l; 1000400l; 1000401l; 1000402l; 1000410l; 1000500l; 1000501l;
|
|
1000502l; 1000503l; 1000504l; 1000505l; 1000510l; 1000511l; 1010001l; 1010002l; 1010101l; 1010201l;
|
|
1010202l; 1010203l; 1010204l; 1010205l; 1010206l; 1010301l; 1010302l; 1010303l; 1010401l; 1010405l;
|
|
1010402l; 1010403l; 1010500l; 1010501l; 1010502l; 1010503l; 1010601l; 1010602l; 1010700l; 1010701l;
|
|
1010801l; 1010802l; 1010901l; 1010902l; 1011001l; 1011002l; 1011003l; 1011100l; 1011101l; 1011102l;
|
|
1011103l; 1011201l; 1011202l; 1011301l; 1011400l; 1011401l; 1011402l; 1011403l; 1011501l; 1011502l;
|
|
1011503l; 1020101l; 1020201l; 1020302l; 1020301l; 1020400l; 1020401l; 1020402l; 1020403l; 1020501l;
|
|
1020601l; 1020701l; 1020702l; 1020801l; 1020901l; 1021001l; 1021101l; 1021201l; 1021301l; 1021401l;
|
|
1021501l; 1021601l; 2000001l; 2000002l; 2000003l; 2000004l; 2000100l; 2000101l; 2000131l; 2000132l;
|
|
2000133l; 2000110l; 2000111l; 2000301l; 2000103l; 2000112l; 2000108l; 2000104l; 2000102l; 2000105l;
|
|
2000106l; 2000107l; 2000313l; 2000314l; 2000109l; 2000113l; 2000116l; 2000118l; 2000119l; 2000120l;
|
|
2000122l; 2000302l; 2000303l; 2000304l; 2000305l; 2000310l; 2000311l; 2000312l; 2000320l; 2000701l;
|
|
2000702l; 2000703l; 2000704l; 2000705l; 2000706l; 2000707l; 2010005l; 2010301l; 2010302l; 2011103l;
|
|
2011104l; 2011409l; 2010401l; 2010402l; 2010405l; 2010502l; 2010503l; 2010701l; 2010708l; 2010709l;
|
|
2010720l; 2010730l; 2010731l; 2010732l; 2010733l; 2010734l; 2010735l; 2010904l; 2011101l; 2011102l;
|
|
2011105l; 2011301l; 2011302l; 2011303l; 2011501l; 2011502l; 2010909l; 2010910l; 2011901l; 2011902l;
|
|
2011903l; 2011904l; 2011905l; 2011906l; 2020301l; 2020302l; 2020304l; 2020316l; 2020317l; 2020318l;
|
|
2020319l; 2020401l; 2020402l; 2020403l; 2020404l; 2020405l; 2020406l; 2020407l; 2020303l; 2020103l;
|
|
2020104l; 2020105l; 2020106l; 2020107l; 2020108l; 2020109l; 2020110l; 2020201l; 2020202l; 2020203l;
|
|
2020204l; 2000201l; 2000202l; 2000203l; 2000204l; 2000205l; 2000206l; 2000207l; 2000208l; 2000209l;
|
|
2000211l; 2000212l; 2010500l; 2010501l; 2010705l; 2010706l; 2010901l; 2010902l; 2010903l; 2010702l;
|
|
2010703l; 2011400l; 2011401l; 2011406l; 2011402l; 2011403l; 2011404l; 2011405l; 2011407l; 2011408l;
|
|
2011410l; 2010905l; 2010906l; 2010907l; 2010908l; 2010911l; 2010912l; 2020305l; 2020306l; 2020309l;
|
|
2020307l; 2020308l; 2020701l; 2020702l; 2020313l; 2020314l; 2020315l; 6020101l; 6020201l; 6020202l;
|
|
2020801l; 2020802l; 2020901l; 2021601l; 2021602l; 3000201l; 3000202l; 3000203l; 3000211l; 3000212l;
|
|
3000213l; 3000301l; 3000302l; 3000303l; 3000522l; 3000523l; 3000524l; 3000525l; 3000526l; 3000527l;
|
|
3000601l; 3000602l; 3000603l; 3000604l; 3000701l; 3000702l; 3000703l; 3000704l; 3000705l; 3000800l;
|
|
3000801l; 3000802l; 3000803l; 3010102l; 3010103l; 3010104l; 3010105l; 3010201l; 3010202l; 3010203l;
|
|
3010204l; 3010205l; 3011011l; 3011012l; 3011013l; 3011014l; 3011111l; 3011112l; 3011113l; 3011114l;
|
|
3011201l; 3011202l; 3011203l; 3011204l; 3011205l; 3011206l; 3011207l; 3011208l; 3011401l; 3011402l;
|
|
3011403l; 3011404l; 3011405l; 3011406l; 3011407l; 3011408l; 3011501l; 3011502l; 3011503l; 3011504l;
|
|
3011505l; 3011601l; 3011602l; 3011603l; 3011604l; 3011605l; 3011606l; 3011607l; 3011608l; 3011609l;
|
|
3011610l; 3012001l; 4020101l; 4020102l; 4020103l; 4020104l; 4020105l; 4020106l; 4020107l; 4020108l;
|
|
4020109l; 4020110l; 4020111l; 4020112l; 4020113l; 4020114l; 4010105l; 4010106l; 4010107l; 4010112l;
|
|
4010113l; 4010131l; 4010115l; 4010116l; 4010121l; 4010122l; 4010123l; 4010124l; 4010125l; 4010126l;
|
|
4010127l; 4010128l; 4010133l; 4010134l; 4010135l; 4010130l; 4010136l; 4010137l; 4015101l; 4015103l;
|
|
4015102l; 4015202l; 4015203l; 4015204l; 4015301l; 4015302l; 4015303l; 4030001l; 4030002l; 4030003l;
|
|
4030004l; 4030006l; 4030007l; 4030009l; 4030010l; 4040001l; 4040002l; 4040003l; 4040004l; 4040005l;
|
|
4040006l; 4040052l; 4040007l; 4040008l; 4040051l; 4040009l; 4040010l; 4040011l; 4040012l; 4040053l;
|
|
4040014l; 4040015l; 4040017l; 4040018l; 4040019l; 4040020l; 4040021l; 4040022l; 4040023l; 4040024l;
|
|
4040100l; 4040189l; 4040190l; 4040101l; 4040151l; 4040154l; 4040102l; 4040103l; 4040153l; 4040104l;
|
|
4040152l; 4040105l; 4040106l; 4040155l; 4040107l; 4040108l; 4040109l; 4040156l; 4040157l; 4040110l;
|
|
4040114l; 4040115l; 4040158l; 4040159l; 4040160l; 4040161l; 4040162l; 4040116l; 4040169l; 4040163l;
|
|
4040164l; 4040165l; 4040166l; 4040167l; 4040168l; 4040170l; 4040171l; 4040172l; 4040173l; 4040174l;
|
|
4040175l; 4040176l; 4040177l; 4040178l; 4040179l; 4040180l; 4040181l; 4040182l; 4040183l; 4040184l;
|
|
4040185l; 4040186l; 4040117l; 4040118l; 4040119l; 4040187l; 4040120l; 4040188l; 4040121l; 4040122l;
|
|
4040123l; 4040124l; 4040125l; 4040126l; 4040127l; 4040128l; 4040129l; 4040130l; 4040201l; 4040202l;
|
|
4040203l; 4040204l; 4040205l; 4040206l; 4040207l; 4040208l; 4040290l; 4040209l; 4040210l; 4040211l;
|
|
4040212l; 4040213l; 4040214l; 4040215l; 4040216l; 4040217l; 4040218l; 4040219l; 4040220l; 4040221l;
|
|
4040222l; 4040223l; 4040224l; 4040225l; 4040226l; 4040227l; 4040228l; 4040229l; 4040230l; 4040231l;
|
|
4040240l; 4040241l; 4040242l; 4040244l; 4040245l; 4040246l; 4040247l; 4050005l; 4050007l; 4050008l;
|
|
4050009l; 4050010l; 4050011l; 4050012l; 4050013l; 4050014l; 4050015l; 4050016l; 4050017l; 4050018l;
|
|
4050019l; 4050020l; 4050021l; 4050022l; 4050023l; 4050024l; 4050025l; 4050026l; 4050027l; 4050028l;
|
|
4050029l; 4050030l; 4050031l; 4050032l; 4050033l; 4050034l; 4050035l; 4050036l; 4050037l; 4072121l;
|
|
4072122l; 4072123l; 4071311l; 4071312l; 4071313l; 4071320l; 4071321l; 4071322l; 4122100l; 4122101l;
|
|
4122102l; 4122103l; 4081311l; 4081312l; 4081313l; 4081314l; 4081315l; 4081316l; 4081317l; 4081318l;
|
|
8000001l; 8000002l; 8000101l; 8000102l; 8000104l; 8000105l; 8000131l; 8000132l; 8000133l; 8000134l;
|
|
8000135l; 8000136l; 8000137l; 8000138l; 8000139l; 8000151l; 8000152l; 8000153l; 8000154l; 8000155l;
|
|
8000156l; 8000157l; 8000158l; 8000159l; 8000161l; 8000162l; 8000170l; 8000171l; 8000172l; 8000173l;
|
|
8000174l; 8000175l; 8000177l; 8000178l; 8000180l; 8000181l; 8000183l; 8000182l; 8000185l; 8000184l;
|
|
8000186l; 8000187l; 8000188l; 8000189l; 8000201l; 8000202l; 8000203l; 8000204l; 8001201l; 8001202l;
|
|
8001203l; 8001205l; 8001206l; 8001207l; 8001208l; 8001209l; 8001211l; 8001212l; 8001213l; 8001215l;
|
|
8001216l; 8001219l; 8001220l; 8001223l; 8001224l; 8001225l; 8001226l; 8001227l; 8001204l; 8001210l;
|
|
8001214l; 8001217l; 8001218l; 8001221l; 8001222l; 8001241l; 8001242l; 8001243l; 8001244l; 8001251l;
|
|
8001252l; 8001253l; 8001254l; 8001255l; 8001261l; 8001262l; 8001263l; 8001264l; 8001265l; 8001266l;
|
|
8001267l; 8001268l; 8011401l; 8002201l; 8002202l; 8002211l; 8002212l; 8002213l; 8002214l; 8002221l;
|
|
8002222l; 8002231l; 8002232l; 8002233l; 8002234l; 8012101l; 8012102l; 8012103l; 8012104l; 8012105l;
|
|
8012106l; 8012107l; 8012401l; 9999920l
|
|
]
|
|
|
|
let on_get_mission_status pk =
|
|
let dec = Pbrt.Decoder.of_string pk.body in
|
|
let req = decode_pb_get_mission_status_cs_req dec in
|
|
|
|
let evt = List.map (fun id -> { id = id; progress = 1l; status = Mission_finish }) req.main_mission_id_list in
|
|
let sub = List.map (fun id -> { id = id; progress = 1l; status = Mission_finish }) req.sub_mission_id_list in
|
|
|
|
let rsp = default_get_mission_status_sc_rsp
|
|
~mission_event_status_list:evt
|
|
~sub_mission_status_list:sub
|
|
~finished_main_mission_id_list:finished_main_missions
|
|
() in
|
|
|
|
pack cmd_get_mission_status_sc_rsp encode_pb_get_mission_status_sc_rsp rsp
|