Games::Battleship::Craft

Games :: Battleship :: Craft adalah kerajinan kelas Battleship.
SINOPSIS
  menggunakan Game :: Battleship :: Craft;
  saya $ kerajinan = Game :: Battleship :: Craft-> baru (
      id => 'T',
      nama => 'tug boat',
      poin => 1,
  )
  $ Points_remaining = $ craft-> memukul;
Sebuah objek Games :: Battleship :: Craft merupakan profil dari Battleship sebuah
METODE PUBLIK
% ARGUMEN baru
id => $ STRING
Sebuah identifier skalar yang digunakan untuk menunjukkan posisi di grid. Jika salah satu tidak disediakan, uppercased pertama karakter nama yang akan digunakan secara default.
Saat ini, diperlukan bahwa ini menjadi satu huruf huruf besar (huruf pertama dari nama kerajinan, mungkin), karena hit akan ditunjukkan oleh "lowercasing" tanda ini pada grid pemain.
Nama => $ STRING
Sebuah atribut yang diperlukan disediakan untuk memberi nama pesawat itu.
poin => $ NOMOR
Atribut yang digunakan untuk menentukan segmen garis rentang pada bermain jaringan.
Posisi => [$ X, Y $]
Posisi busur kerajinan ("hidung") di grid.
Saat ini, kerajinan diasumsikan memiliki keselarasan horizontal atau vertikal. Segera akan ada posisi diagonal ...
memukul
  $ Points_remaining = $ craft-> memukul;
Kenaikan hit kerajinan ini nilai atribut dan kembali apa yang tersisa dari kerajinan (nilai total poin dikurangi jumlah hits)

Persyaratan :.

• Perl