Robots: Difference between revisions
m (J: reduce vertical space consumption on page here) |
m (J: save some more lines) |
||
Line 133: | Line 133: | ||
}} |
}} |
||
⚫ | |||
wd {{)n |
|||
pc game closeok; |
|||
setp wh 1280 720; |
|||
⚫ | |||
pshow; |
|||
}} |
|||
start''</lang> |
start''</lang> |
||
Revision as of 19:09, 27 January 2022
This page uses content from Wikipedia. The original article was at Robots_(1984_video_game). The list of authors can be seen in the page history. As with Rosetta Code, the text of Wikipedia is available under the GNU FDL. (See links for details on variance) |
The task is to implement a clone of Ken Arnold's turn-based game Robots.
Simple game where its only objective is to escape from a number of robots, which have been programmed to kill the player.
C++
See Robots/C++.
Common Lisp
See Robots/Common Lisp.
Go
See Robots/Go.
J
<lang J>require'~addons/ide/qt/gl2.ijs' coinsert'jgl2'
move_handler=: {{
if. 'char'-:systype do.wd'timer 0' select.{.tolower sysdata case.'y'do.move _1 _1 case.'k'do.move 0 _1 case.'u'do.move 1 _1 case.'h'do.move _1 0 case.' 'do.move 0 0 case.'l'do.move 1 0 case.'b'do.move _1 1 case.'j'do.move 0 1 case.'n'do.move 1 1 case.'w'do.giveup case.'t'do.teleport end. end.
}}
Directions=:({.~ i.&'0'){{)n Directions:
y k u
\|/
h- -l
/|\
b j n
Commands:
w: wait for end t: teleport
Legend:
+: robot
- junk heap
@: you
Score: 0 }}
query_handler=: {{game_handler=: m&{{if.'char'-:systype do.x`]@.('ny'i.{.sysdata)0 end.}}}} teleport=: Template:Move (dim start=: {{initlevel 1[score=: 0}} advance=: Template:Initlevel level+1 color=: [ gltextcolor@glrgb@{{<.0.5+255*y}} at=: (gltext@[ [ gltextxy@])"1 dim=: 110 72 has=: +./ .=
showscore=: {{
t=. ];._2 LF,~Directions,":y t at"_1] 1130,.14*2+i.#t botrow=. I. '+' e."1 >t '+' at 1130,14*2+botrow color 1 0 0 '*' at 1130,14*3+botrow color 1 0 1*0.5 '@' at 1130,14*4+botrow color 0 1 0.75
}}
initlevel=: {{
game_handler=: move_handler junk=:(#~ has&(dim-1) +. has&0)dim#:i.*/dim 'player bots'=: ({.;}.) 1+(dim-2) #: (1+10*y) ? */dim-2 drawboard level=: y
}}
drawboard=: {{
glclear glfont '"courier" 12' showscore score color 0 0 0 '+' at 10*bots color 1 0 0 '*' at 10*junk color 1 1 0*0.5 '@' at 10*player color 0 1 0*0.75 glpaint
}}
move=: {{
player=: player+y 'hazards crashes'=.(~.;1<#/.~) (2#junk),bots-*bots-"1 player junk=: hazards#~crashes bots=: hazards#~crashes=0 score=: level#.5 5,-#bots drawboard if.player e.junk,bots do.lose elseif.0=#bots do.win end.
}}
lose=: {{
wd'timer 0' glfont '"courier" 96' game_handler=: quit`start query_handler 'Game Over' at 320 320 color 1 0 0 glfont '"courier" 24' 'Start over? (y/n)' at 480 480 color 0 0 0
}}
win=: {{
glfont '"courier" 96' game_handler=: quit`advance query_handler 'You Win' at 320 320 color 0 1 0 glfont '"courier" 24' 'Continue? (y/n)' at 480 480 color 0 0 0
}}
giveup=: {{
sys_timer_z_=: Template:Move base 0 0 wd'timer 100'
}}
wd'pc game closeok; setp wh 1280 720; cc chase isidraw flush;pshow' start</lang>
Java
See Robots/Java.
Julia
See Robots/Julia
Kotlin
See Robots/Kotlin.
Phix
See Robots/Phix.
Raku
(formerly Perl 6) The bots single-mindedly chase you, taking the shortest path, ignoring obstacles. Use arrow keys to navigate your character(╂) around the board. Avoid bots(☗) and hazards(☢). "Kill" bots by causing them to crash into hazards or other bots. A dead bot creates another hazard. If you eliminate all of the bots on the board, another wave will spawn in random positions. If you touch a hazard or are touched by a bot, you die(†). <lang perl6>use Term::termios;
constant $saved = Term::termios.new(fd => 1).getattr; constant $termios = Term::termios.new(fd => 1).getattr;
- raw mode interferes with carriage returns, so
- set flags needed to emulate it manually
$termios.unset_iflags(<BRKINT ICRNL ISTRIP IXON>); $termios.unset_lflags(< ECHO ICANON IEXTEN ISIG>); $termios.setattr(:DRAIN);
- reset terminal to original settings and clean up on exit
END { $saved.setattr(:NOW); print "\e[?25h\n" }
print "\e[?25l"; # hide cursor
my %dir = (
"\e[A" => 'up', "\e[B" => 'down', "\e[C" => 'right', "\e[D" => 'left',
);
my $x = 100; # nominal "board" width my $y = 40; # nominal "board" height
my $human = "\e[0;92m╂\e[0m"; # various my $robot = "\e[0;91m☗\e[0m"; # entity my $block = "\e[0;93m☢\e[0m"; # sprite my $dead = "\e[1;37m†\e[0m"; # characters my $wall = "\e[1;96m█\e[0m"; my $blank = ' ';
my $numbots = 10; # number of bots in each round
- blank playing field
my @scr = flat $wall xx $x, ($wall, $blank xx $x - 2, $wall) xx $y - 2, $wall xx $x;
- put player on board
my $me; loop {
$me = ($x+2 .. ($x - 1 ) * $y).roll; last if @scr[$me] eq $blank;
} @scr[$me] = $human;
- Put an assortment of hazards on board
for ^20 {
my $s = (^$x*$y).pick; if @scr[$s] eq $blank { @scr[$s] = $block } else { redo }
}
my $info = 0; my $score = 0;
newbots(); # populate board with a fresh wave of bots
loop {
print "\e[H\e[J"; print "\e[H"; print join "\n", @scr.rotor($x)».join; print "\nSurvived " , $info , ' bots';
# Read up to 4 bytes from keyboard buffer. # Page navigation keys are 3-4 bytes each. # Specifically, arrow keys are 3. my $key = $*IN.read(4).decode;
move %dir{$key} if so %dir{$key}; movebots(); last if $key eq 'q'; # (q)uit
}
proto sub move (|) {*};
multi move ('up') {
if @scr[$me - $x] ne $wall { expire() if @scr[$me - $x] ne $blank; @scr[$me] = $blank; $me = $me - $x; @scr[$me] = $human; }
} multi move ('down') {
if @scr[$me + $x] ne $wall { expire() if @scr[$me + $x] ne $blank; @scr[$me] = $blank; $me = $me + $x; @scr[$me] = $human; }
} multi move ('left') {
if @scr[$me - 1] ne $wall { expire() if @scr[$me - 1] ne $blank; @scr[$me] = $blank; $me = $me - 1; @scr[$me] = $human; }
}
multi move ('right') {
if @scr[$me + 1] ne $wall { expire() if @scr[$me + 1] ne $blank; @scr[$me] = $blank; $me = $me + 1; @scr[$me] = $human; }
}
sub newbots {
for ^$numbots { my $s = (^$x*$y).pick; if @scr[$s] eq $blank { @scr[$s] = $robot; } else { redo } }
}
sub movebots {
my $mx = $me % $x; my $my = $me div $x; my @bots = @scr.grep: * eq $robot, :k; for @bots -> $b { my $bx = $b % $x; my $by = $b div $x ; if ($mx - $bx).abs < ($my - $by).abs { $by += ($my - $by) < 0 ?? -1 !! 1; } else { $bx += ($mx - $bx) < 0 ?? -1 !! 1; } my $n = $by * $x + $bx; if @scr[$n] eq $robot { @scr[$b] = @scr[$n] = $block; } elsif @scr[$n] eq $block { @scr[$b] = $block; } elsif $n == $me { expire() } else { @scr[$b] = $blank; @scr[$n] = $robot; } } unless +@bots > 0 { newbots(); $score += $numbots; } $info = $score + $numbots - @scr.grep: * eq $robot;
}
sub expire {
@scr[$me] = $dead; print "\e[H\e[J"; print "\e[H"; print join "\n", @scr.rotor($x)».join; print "\nSurvived " , $info , ' bots, but succumbed in the end.'; exit
}</lang>
- Sample game:
████████████████████████████████████████████████████████████████████████████████████████████████████ █ █ █ ☗ █ █ ☢☢ █ █ † ☢ ☢ ☢ █ █ ☢ ☢☢☢☢☢☢ █ █ ☢☢☢☢☢☢☢ ☢☢☢☢☢☢☢ █ █ ☢☢☢☢ ☢ ☢☢ ☢☢☢ █ █ ☢☢☢☢☢ ☢☢ █ █ ☢☢☢☢☢☢☢☢ ☢☢☢ ☢☢☢ █ █ ☢ ☢☢☢☢ ☢ █ █ ☢☢☢ █ █ ☗ █ █ ☢☢☢ ☢ █ █ ☢☢☢☢☢☢ █ █ ☢☢☢☢☢☢☢☢ █ █ ☢☢☢☢☢☢ ☢☢ █ █ ☢☢☢☢☢☢☢☢ ☗ █ █ ☢☢☢☢☢☢☢ ☢ ☢ █ █ ☢☢ ☢ ☢☢ █ █ ☢ ☢ ☢ ☢☢ █ █ ☢☢ ☢ █ █ ☢ ☢ █ █ ☢ █ █ ☢ █ █ █ █ ☢ ☢ █ █ █ █ █ █ █ █ ☢ █ █ ☢ ☢ █ █ ☢ █ █ █ █ █ █ ☢☢ █ █ ☢ █ █ █ █ ☢☢ █ ████████████████████████████████████████████████████████████████████████████████████████████████████ Survived 117 bots, but succumbed in the end.
Wren
See Robots/Wren.