Games::Battleship::Craft

Games :: Battleship :: Meșteșug este un clasa ambarcațiune Battleship.
REZUMAT
  utilizați Games :: Battleship :: Meșteșug;
  $ ambarcațiunile meu = Games :: Battleship :: Craft-> nou (
      id => 'T',
      nume => 'barca remorcher ",
      puncte => 1,
  )
  $ Points_remaining = $ craft-> lovit;
Un obiect Games :: Battleship :: Meșteșug reprezintă profilul unei Battleship
METODE PUBLICE
noi argumente%
id => $ STRING
Un identificator scalar a utiliza pentru a indica poziția pe grila de start. Dacă nu este furnizată, uppercased primul caracter nume va fi utilizat în mod implicit.
În prezent, este necesar ca acest lucru să fie o singură literă mare (prima literă a numelui ambarcațiuni, probabil), deoarece un rezultat pozitiv va fi indicat prin "lowercasing" acest semn pe un jucător grilă.
name => $ STRING
Un atribut necesar furnizate pentru a da navei un nume.
puncte => $ NUMBER
Un atribut folosit pentru a defini durata de segment pe grila de joc.
Poziția => [$ X, $ Y]
Poziția arcul ambarcațiuni ("nas") de pe grila.
În prezent, ambarcațiunea se presupune a avea o aliniere orizontală sau verticală. Curând vor fi poziționare diagonală ...
lovit
  $ Points_remaining = $ craft-> lovit;
Incrementa lovit navei valoarea atributului si a reveni ce a mai rămas din ambarcațiuni (valoarea punctului totală minus numărul de hit-uri)

Cerințe :.

• Perl