Λίγο πρόχειρο. Έχει και bug μέσα.....<br><br><span class="bbcode_spoiler"><br></span>
<div class="bbcode_code">
<div class="bbcode_code_head">Code:
<div class="bbcode_code_body" style="white-space
re"><br>#!/usr/bin/perl<br>use warnings;<br><br>$tekken = 1;<br><br>kudos();<br>print "n";<br>giveaway($tekken);<br><br>#Buff gia dinami ksenixtismatos<br>print "An to ksipnitiri einai energopoiimeno n";<br>print "patiste "1" n";<br>print "allios patiste "0" n";<br>$ksipnitiri = <STDIN>;<br>buff($ksipnitiri);<br><br><br>sub kudos {<br> print "Sigxaritiria gia to neo ksipnitiri!!!! n";<br> print "Na einai panta gero kai eytixismeno!!! n";<br> print "kai na to kamaronete oloi!!! n n ";<br> }<br> <br>sub giveaway {<br> if ($tekken == 1) {<br> print "min me valeis stin klirosi n";<br> print "euxaristoume gia to giveaway n n ";<br> }<br>}<br> <br>sub buff { while ($ksipnitiri == 1 ){<br> if ($ksipnitiri == 1) {<br> $pbuff = 100; <br> print "hang on there!!!! n n ";<br> print "An koimithike patiste 0 n";<br> print "Allios patiste ksana 1 n";<br> $ksipnitiri = <STDIN>; }<br> else {<br> $pbuff = 0;<br> }<br> if ($pbuff == 100){<br> print "ora gia ipno kai emeis!! n";<br> } <br> <br> } <br> <br>}<br> <br>
<br><br>