ï»¿ package Ġg arden . ep hemeral . games . ta ip an . view Ċ Ċ import Ġg arden . ep hemeral . games . ta ip an . model .* Ċ Ċ interface ĠView Ġ{ ĊĠĠĠ Ġfun Ġclear Screen () ĊĊĠĠĠ Ġ// ĠShow Ġsplash Ġscreen , Ġpicture Ġof Ġa Ġship , Ġpress Ġany Ġkey Ġto Ġstart , Ġyou Ġget Ġthe Ġidea . ĊĠĠĠ Ġ// ĠKe pt Ġinformation : ĊĠĠĠ Ġ// ĠCreated Ġby : ĠArt ĠCan fil ĊĠĠĠ Ġ// ĠTR S 8 0 Ġversion Ġby : ĠArt ĠCan fil ĊĠĠĠ Ġ// ĠProgram med Ġby : ĠJ ay ĠLink Ġj ay link 1 9 7 1 @ gmail . com ĊĠĠĠ Ġfun Ġshow Splash Until Key Pressed () ĊĊĠĠĠ Ġ// ĠPort Ġstats Ġlayout : ĊĠĠĠ Ġ// ĠF irm : Ġ% s , ĠH ong ĠK ong \ n ", Ġfirm ĊĠĠĠ Ġ// Ġ Ġ__ ________________________________ ____ ĊĠĠĠ Ġ// Ġ| H ong ĠK ong ĠW arehouse ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĠĠĠĠ ĠDate ĊĠĠĠ Ġ// Ġ| ĠĠ ĠO pi um ĠĠĠĠ Ġ[ ĠĠ Ġ] ĠIn ĠUse : ĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ĠĠ ĠSil k ĠĠĠĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ĠĠ ĠAr ms ĠĠĠĠĠ Ġ[ ĠĠ Ġ] ĠV ac ant : ĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĠĠ ĠLocation ĊĠĠĠ Ġ// Ġ| ĠĠ ĠGeneral ĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ________________________________ ____ __| ĊĠĠĠ Ġ// Ġ| Hold ĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠG uns ĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĠĠĠĠ ĠDeb t ĊĠĠĠ Ġ// Ġ| ĠĠ ĠO pi um ĠĠĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ĠĠ ĠSil k ĠĠĠĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ĠĠ ĠAr ms ĠĠĠĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| Ġ ĠShip ĠStatus ĊĠĠĠ Ġ// Ġ| ĠĠ ĠGeneral ĠĠ Ġ[ ĠĠ Ġ] ĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ| ĊĠĠĠ Ġ// Ġ| ________________________________ ____ __| ĊĠĠĠ Ġ// ĠCash : ĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠBank : ĊĠĠĠ Ġ// Ġ__ ________________________________ ______ ĊĠĠĠ Ġfun Ġshow Port Stats Screen () ĊĊĠĠĠ Ġfun Ġask For F irm Name ( var arg Ġquestion Lines : ĠString ): ĠString ĊĊĠĠĠ Ġfun Ġshow Title ( heading : ĠString ) ĊĊĠĠĠ Ġfun Ġshow Detail ( var arg Ġdetail Rows : ĠString ) ĊĊĠĠĠ Ġfun Ġshow Feedback ( detail : ĠString ) ĊĊĠĠĠ Ġfun Ġshow Battle Status ( detail : ĠString ) ĊĊĠĠĠ Ġfun Ġdraw B last ( position : ĠL orch a Position ) ĊĊĠĠĠ Ġfun Ġdraw L orch a ( position : ĠL orch a Position , Ġship : ĠL orch a ) ĊĊĠĠĠ Ġfun Ġclear L orch a ( position : ĠL orch a Position ) ĊĊĠĠĠ Ġ// ĠTrigger Ġanimation Ġsink ing Ġthe ĠL orch a . ĊĠĠĠ Ġ// ĠIn Ġthe Ġoriginal , Ġ 1 / 2 0 Ġof Ġthe Ġtime , Ġthe Ġanimation Ġruns Ġ 2 x Ġslower ĊĠĠĠ Ġfun Ġsink L orch a ( position : ĠL orch a Position ) ĊĊĠĠĠ Ġfun Ġpoll For Input Ke yst roke (): ĠInt ĊĊĠĠĠ Ġfun Ġask User For Number (): ĠInt ĊĊĠĠĠ Ġfun Ġask User For Cargo Type (): ĠC argo Type ĊĊĠĠĠ Ġfun Ġask User For Cargo Type Or All (): ĠC argo To Throw ĊĊĠĠĠ Ġfun Ġask Yes No (): ĠYes No ĊĊĠĠĠ Ġfun Ġselect InitialState ( question : ĠString , Ġa : ĠInitial State , Ġb : ĠInitial State ): ĠInitial State ĊĊĠĠĠ Ġfun Ġshow Price ( cargo Type : ĠC argo Type , Ġprice : ĠMoney ) ĊĊĠĠĠ Ġfun Ġwait Seconds Unless A Key Is Pressed ( seconds : ĠInt ) ĊĊĠĠĠ Ġfun Ġcheck For Orders (): ĠOrders ĊĊĠĠĠ Ġfun Ġshow Ship Count ( ships : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Sh ips Attack ing ( ships Attack ing One : ĠString ) ĊĊĠĠĠ Ġfun Ġask User For Port (): ĠPort ĊĊĠĠĠ Ġfun Ġask User For Port Activity ( question : ĠString ): ĠPort Activity ĊĊĠĠĠ Ġfun Ġask User For Home Port Activity ( question : ĠString ): ĠPort Activity ĊĊĠĠĠ Ġfun Ġask User For Home Port Activity In cluding Ret ire ment ( question : ĠString ): ĠPort Activity ĊĊĠĠĠ Ġ// ĠR enders Ġthe Ġstatus Ġstring Ġin Ġinverse Ġif Ġstatus Ġis Ġcritical Ġor Ġpoor ĊĠĠĠ Ġfun Ġshow Ship Status ( status : ĠStatus , Ġstatus Percentage : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow More Sh ips Indicator () ĊĊĠĠĠ Ġfun Ġhide More Sh ips Indicator () ĊĊĠĠĠ Ġfun Ġshow Port ( port : ĠPort ) ĊĊĠĠĠ Ġfun Ġshow Warehouse Cargo Quantity ( type : ĠC argo Type , Ġquantity : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Ship Cargo Quantity ( type : ĠC argo Type , Ġquantity : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Ship Available ( available : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Ship Over loaded () ĊĊĠĠĠ Ġfun Ġshow Warehouse Available ( available : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Warehouse InUse ( in Use : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Cash ( cash : ĠString ) ĊĊĠĠĠ Ġfun Ġshow Current Orders ( message : ĠString ) ĊĊĠĠĠ Ġfun Ġshow Ship G uns ( ship G uns : ĠInt ) ĊĊĠĠĠ Ġfun Ġshow Cash At Bank ( cash : ĠString ) ĊĊĠĠĠ Ġfun Ġshow De bt ( cash : ĠString ) ĊĊĠĠĠ Ġ// ĠIn Ġthe Ġoriginal , Ġdisplays Ġin Ġinverse , ĊĠĠĠ Ġ// ĊĠĠĠ Ġ// ĠY Ġo Ġu Ġ' Ġr Ġe ĠĠĠ Ġa ĊĠĠĠ Ġ// ĊĠĠĠ Ġ// ĠM ĠI ĠL ĠL ĠI ĠO ĠN ĠA ĠI ĠR ĠE Ġ! ĊĠĠĠ Ġ// ĊĠĠĠ Ġfun Ġshow Ret ire ment () ĊĊĠĠĠ Ġ// ĠClass ically , Ġthe Ġscreen Ġfl ashes ĊĠĠĠ Ġfun Ġshow Being Hit () ĊĊĠĠĠ Ġfun Ġask User For Money Amount (): ĠMoney ĊĊĠĠĠ Ġ// ĠYour Ġfinal Ġstatus : ĊĠĠĠ Ġ// ĠNet Ġcash : Ġ Ġ% s ĊĠĠĠ Ġ// ĠShip Ġsize : Ġ% d Ġunits Ġwith Ġ% d Ġg uns ĊĠĠĠ Ġ// ĠYou Ġtr aded Ġfor Ġ% d Ġyear ( s ) Ġand Ġ% d Ġmonth ( s ) ĊĠĠĠ Ġ// ĠYour Ġscore Ġis Ġ% d . ĊĠĠĠ Ġ// ĊĠĠĠ Ġ// ĠIf ĠW orse Ġrating : Ġ" Have Ġyou Ġconsidered Ġa Ġland Ġbased Ġjob ?" ĊĠĠĠ Ġ// ĠIf ĠW or st Ġrating : Ġ" The Ġcre w Ġhas Ġrequested Ġthat Ġyou Ġstay Ġon Ġsh ore Ġfor Ġtheir Ġsafety !! " ĊĠĠĠ Ġ// ĠOtherwise , Ġyou Ġget Ġyour Ġposition Ġin Ġthe Ġrating Ġtable Ġhighlighted : ĊĠĠĠ Ġ// ĠĠ ĠYour ĠRating : ĊĠĠĠ Ġ// ĠĠĠ Ġ__ ________________ ________ _____ ĊĠĠĠ Ġ// ĠĠ Ġ| Ma ĠT su ĠĠĠĠĠĠĠĠĠ 5 0 , 0 0 0 Ġand Ġover Ġ| ĊĠĠĠ Ġ// ĠĠ Ġ| Master ĠT aip an ĠĠĠ 8 , 0 0 0 Ġto Ġ 4 9 , 9 9 9 | ĊĠĠĠ Ġ// ĠĠ Ġ| Ta ip an ĠĠĠĠĠĠĠĠĠĠ 1 , 0 0 0 Ġto ĠĠ 7 , 9 9 9 | ĊĠĠĠ Ġ// ĠĠ Ġ| Comp rad ore ĠĠĠĠĠĠĠĠ 5 0 0 Ġto ĠĠĠĠ 9 9 9 | ĊĠĠĠ Ġ// ĠĠ Ġ| G alley ĠHand ĠĠĠĠĠĠ Ġless Ġthan Ġ 5 0 0 | ĊĠĠĠ Ġ// ĠĠ Ġ| ________________ ________ ____ ___ | ĊĠĠĠ Ġ// ĊĠĠĠ Ġ// ĠĠ ĠPlay Ġagain ? ĊĠĠĠ Ġfun Ġshow Final Stats Screen ( ĊĠĠĠĠĠĠĠ Ġfinal Equ ity : ĠString , ĊĠĠĠĠĠĠĠ Ġfinal Ship Capacity : ĠInt , ĊĠĠĠĠĠĠĠ Ġfinal Ship G uns : ĠInt , ĊĠĠĠĠĠĠĠ Ġyears : ĠInt , ĊĠĠĠĠĠĠĠ Ġmonths : ĠInt , ĊĠĠĠĠĠĠĠ Ġfinal Score : ĠLong , ĊĠĠĠĠĠĠĠ Ġrating : ĠRating ĊĠĠĠ Ġ) Ċ } Ċ