anchor.diff:  let masterSlotitems = Dictionary<_, IDictionary<_, _>>()
   let masterMissions = Dictionary()
   let masterSlotitemEquiptypes = Dictionary()
  +let masterSakuteki = Dictionary()
   
   // lock必要。
   let ships = Dictionary()
  
positive.code:             let data = parseJson oSession |> get "api_data" |> getObject
              lock ships (fun () -> ships.[float request.["api_id"]] <- getObject data.["api_ship"])
              Ship.UpdateShips()
              mission "api_deck" data
          | "/kcsapi/api_req_hensei/change" ->
              let remove shipids index =
  
negative.code:             update masterStypes "api_mst_stype"
              update masterSlotitems "api_mst_slotitem"
              update masterSlotitemEquiptypes "api_mst_slotitem_equiptype"
              for KeyValue(masterid, master) in masterSlotitems do
                  let sakuteki = getNumber master.["api_saku"]
                  let type_ = getNumber (getArray master.["api_type"]).[2]
                  let scale = match type_ with
                              |  7.0 -> 1.04    // 艦上爆撃機
                              |  8.0 -> 1.37    // 艦上攻撃機
                              |  9.0 -> 1.66    // 艦上偵察機
                              | 10.0 -> 2.00    // 水上偵察機
                              | 11.0 -> 1.78    // 水上爆撃機
                              | 12.0 -> 1.00    // 小型電探
                              | 13.0 -> 0.99    // 大型電探
                              | 29.0 -> 0.91    // 探照灯
                              | _    -> 0.00
                  let taiku = match type_ with
                              |  6.0  // 艦上戦闘機
                              |  7.0  // 艦上爆撃機
                              |  8.0  // 艦上攻撃機
                              | 11.0  // 水上爆撃機
                                  -> getNumber master.["api_tyku"]
                              | _ -> 0.0
                  masterSakuteki.[masterid] <- (sakuteki, sakuteki * scale, taiku)
              for item in getArray data.["api_mst_mission"] do
                  let item = getObject item
                  masterMissions.[getNumber item.["api_id"]] <- getString item.["api_name"]
  