Žaidimų kūrimas su Perl: darbas su tekstu (3 dalis)

6 Komentarai

• 

  ProzacR

  Posted 2008-07-12 17:16 0Likes

  Arba jei nepatinka toks uzd. ir labai norit kur zaidima jau tai laisvai galit kurt, jei tik ismokot ka rasiau:

  Uzdavinys kurtas paskaliui bet su Perl tai tik lengviau. Be to rasti ka nors jums nesvarbu jum svarbu pats tik pvp, laivu musis.
  Zaidziama ivedus ejimus i zaidimo lenta spauzdina print.

  AI galit ir nekurt. Bet jei kursit kvaila AI tai jums labai pravers rand funkcija kuri generuoja atsitiktinius duomenis.
  $x = int(rand(10));
  tai cia $x reiksme kazkokia atsitiktine nuo 1 iki 9.

  Elementarus DOSinio stiliaus zaidimas.

  Atsakyti
• 

  ProzacR

  Posted 2008-07-12 16:14 0Likes

  Oj vos nepamirsau uzd.:
  Taigi turit laiko koda:
  metai:menuo:diena:valanda:minutes:sekundes
  (2008:07:08:14:59:30)
  Ir jum ji reik paverst i grazia forma. I ka nors tokio:
  2008 liepos 08. 2 valandos po pietu, 14 minučiu 30 sekundziu.

  Atsakyti
• 

  edgax

  Posted 2008-07-12 16:42 0Likes

  Klausimelis mazas. Rasiau koda dviems budais. Trumpesniu:

  #!/usr/local/bin/perl

  $laikas = “ 2008:08:21:14:25 „;
  s/2008, Rugpjūčio 21d., 15.00 švesiu savo gimtadieni!/2008:08:21:14:25/;
  #negalvokite, kad ištikro tokiu laiku švesiu gimtadieni. Laika pakeičiau, šiaip. tingėjau virsui keisti.
  print;

  ir ilgesniu:

  #!/usr/local/bin/perl

  $laikas = “ 2008:08:21:14:25 „;
  if (/2008:08:21:14:25/)
  {
  print „2008, Rugpjūčio 21d., 15.00 švesiu savo gimtadieni!“;
  #negalvokite, kad ištikro tokiu laiku švesiu gimtadieni. Laika pakeičiau, šiaip. tingėjau virsui keisti.
  }

  Kur padariau klaidele. Mat man viska pakeicia tik neparaso :)(speju kad pakeicia)

  Atsakyti
• 

  ProzacR

  Posted 2008-07-12 17:08 0Likes

  Cia yra nesazinga taip:

  s/2008, Rugpjūčio 21d., 15.00 švesiu savo gimtadieni!/2008:08:21:14:25/;

  As noriu kad paleidus programa ir ivedus BEKOKI laiko koda gauciau grazu atsakyma.

  Be to nesupratai apie $_. Jei tu nenaudoji $_ tai tau tokie dalykai kaip print; spausdina nieka.

  „Ilgesniu“ isvis yra blogai.
  Padesiu truputi su „trumpesniu“:

  $laikas = ;
  chop ($laikas);
  $laikas =~ s/2008, Rugpjūčio 21d., 15.00 švesiu savo gimtadieni!/2008:08:21:14:25/;
  print $laikas;
  

  Sudejau visur $laikas, bet tycia palikau problema ta kad jei ivedi ka nors kita o ne 2008:08:21:14:25 tai gaunasi nieko gero. Galvok pats 😉
  Cia reiks pasitelkti i pagalba ir split funkcija ir masyvus taip lengvai ir trumpai neisisuksit. 😛

  Atsakyti
• 

  edgax

  Posted 2008-07-12 19:13 0Likes

  galima ir su pirmom ziniom ta padaryti :). Irodymas:

  #!/usr/local/bin/perl

  print „Įrašykite metus(pvz. 1996)\n“;
  $a = ;
  print „Įrašykite mėnesį(Kilmininko linksniu)(pvz. Rugpjucio)\n“;
  $b = ;
  print „Įrašykite dieną(pvz. 21)\n“;
  $c = ;
  print „Įrašykite valanda(pvz. 14)\n“;
  $d = ;
  print „Įrašykite minute(pvz. 21)\n“;
  $e = ;
  print „Įrašykite sekunde(pvz. 19)\n“;
  $f = ;

  print „Jusu laikas gavosi: $a metu, $b menesio $c dienos, $d valanda ir $e minutes, ir $f sekunde“

  Zinau, kad netiks, bet gal…. :). Cia is esmes, jei turi fantazija galima ir su pirmom ismoktom komandom daug ka pakurti :). Einu dar karta perskaityti ir pabandyti pakurti. Dar biski tobulinant zines, kur padaryta klaida, kad parase keleta eiluciu, o ne graziai 1-2eilutem?

  Atsakyti
• 

  ProzacR

  Posted 2008-07-12 22:08 0Likes

  Nu joa is esmes teisingas bet netiks. Be to yra trukumas kad tavo programos miletojui ir naudotojui gal nepatiktu spandinet enter tiek daug kartu.

  Viskas ko as noriu kad praktiskai butu pritaikyta split, o jei dar sugalvotum kaip is 07 paverst i liepa ar pan. tai isvis super. 😀
  O jei dar matyciau kaip moki ka nors praktiskai i tekstine byla isaugot tai jau tikrai ne veltuj rasau.

  ….ai tiek tos parasysiu dar viena dali vistie neturiu ka veikt. Bet sicia kaip daryt pasiziurek.

  Atsakyti