Frame 2
if (_framesloaded < _totalframes) {
gotoAndPlay (1);
}
Frame 3
stop();
Frame 5
fscommand ("fullscreen", "false");
Set("/:robots", "0");
Set("/:keystroke", "");
Set("/:keyout", "0");
tellTarget ("/beamcheck") {
play();
};
if ((levelno < "5") and ("0" < levelno)) {
call("level_" add levelno);
}
Frame 6
stop();
Frame 7
gotoAndStop(_currentframe - "1");
Frame 8
end = "0";
Frame 10
if (_framesloaded < _totalframes) {
gotoAndPlay(_currentframe - "1");
}
Frame 11
call("displayScene");
gotoAndPlay (6);
Frame 12
stop();
Frame 13
gotoAndStop (12);
Frame 14
linedata = eval ("line_" add /:tile_y);
tiledata = substring(linedata, tile_x, "1");
Frame 22
sx = "40";
sy = "35";
walk = "0.125";
tile_y = "0";
rnumber = "0";
bnumber = "0";
tiledepth = "0";
while (tile_y < "11") {
tile_y = tile_y + "1";
tile_x = "0";
while (tile_x < "13") {
tile_x = tile_x + "1";
call("getTile");
tileName = (("block" add tile_y) add "_") add tile_x;
tiledepth = tiledepth + "1";
removeMovieClip((("block" add tile_y) add "_") add tile_x);
removeMovieClip("beam" add tiledepth);
removeMovieClip("robot" add tiledepth);
if (tiledata eq "x") {
duplicateMovieClip ("black", tileName, "500" - tiledepth);
Set(("/" add tileName) add ":type", " x");
}
if (tiledata eq "w") {
duplicateMovieClip ("door", tileName, "500" + tiledepth);
Set(("/" add tileName) add ":type", "w");
setProperty("/" add tileName, _rotation , "-4" + int(random("9")));
}
if (tiledata eq "g") {
duplicateMovieClip ("grass", tileName, "500" + tiledepth);
Set(("/" add tileName) add ":type", "w");
setProperty("/" add tileName, _rotation , "-4" + int(random("9")));
}
if (tiledata eq "h") {
duplicateMovieClip ("hay", tileName, "500" + tiledepth);
Set(("/" add tileName) add ":type", "w");
setProperty("/" add tileName, _rotation , "-4" + int(random("9")));
}
if (tiledata eq "f") {
duplicateMovieClip ("fence", tileName, "500" + tiledepth);
Set(("/" add tileName) add ":type", "w");
setProperty("/" add tileName, _rotation , "-4" + int(random("9")));
}
if (tiledata eq "v") {
bnumber = bnumber + "1";
tileName = "beam" add bnumber;
duplicateMovieClip ("beam", tileName, "500" + tiledepth);
Set(("/" add tileName) add ":type", "v");
Set(("/" add tileName) add ":tile_x", tile_x);
Set(("/" add tileName) add ":tile_y", tile_y);
setProperty("/" add tileName, _rotation , "-4" + int(random("9")));
}
if ((((((tiledata eq "1") or (tiledata eq "2")) or (tiledata eq "3")) or (tiledata eq "4")) or (tiledata eq "5")) or (tiledata eq "6")) {
rnumber = rnumber + "1";
duplicateMovieClip ("/robot_" add tiledata, "robot" add rnumber, "800" + rnumber);
Set(("/robot" add rnumber) add ":pmdirx", tile_x);
Set(("/robot" add rnumber) add ":pmdiry", tile_y);
Set(("/robot" add rnumber) add ":pmposx", tile_x);
Set(("/robot" add rnumber) add ":pmposy", tile_y);
Set(("/robot" add rnumber) add ":pm", "1");
Set(("/robot" add rnumber) add ":pmdir", "downstop");
robots = rnumber;
tiledata = " ";
}
if (tiledata ne " ") {
setProperty("/" add tileName, _x , (tile_x * sx) - "3");
setProperty("/" add tileName, _y , (tile_y * sy) - "2");
}
}
}
duplicateMovieClip ("/player", "player1", 900);
Set("/player1:pmdirx", px);
Set("/player1:pmdiry", py);
Set("/player1:pmposx", px);
Set("/player1:pmposy", py);
Set("/player1:pm", "1");
Set("/player1:pmdir", "downstop");
duplicateMovieClip ("/darkness", "shodarkness", 20000);
removeMovieClip("/moresoon1");
if (/:end == "1") {
duplicateMovieClip ("/moresoon", "moresoon1", 10000);
setProperty("/moresoon1", _x , "275");
setProperty("/moresoon1", _y , "320");
}
Frame 30
line_1 = "xffffwwwwwwwx";
line_2 = "xfssssssssswx";
line_3 = "xfshsw11h2swx";
line_4 = "xfshswss1sswx";
line_5 = "xfsss2sshsswx";
line_6 = "xfshswsswwwwg";
line_7 = "xfshswwwwsssg";
line_8 = "xfs2ssssssvvg";
line_9 = "xfffffffgsvvg";
line_10 = "xxxxxxxxgsvvg";
line_11 = "xxxxxxxxggggg";
px = "10";
py = "8";
call("displayScene");
Frame 38
line_1 = "xxxxxxxxxxxxx";
line_2 = "fffffxxxggggg";
line_3 = "fvhvwwwwwvhvg";
line_4 = "fssswsssws4sg";
line_5 = "fshsw3wswshsg";
line_6 = "f23sssssss33g";
line_7 = "fshswsw1wshsg";
line_8 = "fs1swssswsssg";
line_9 = "fvhvwwwwwvhvg";
line_10 = "fffffxxxggggg";
line_11 = "xxxxxxxxxxxxx";
px = "7";
py = "6";
call("displayScene");
Frame 46
line_1 = "xxxxxxxxxxxxx";
line_2 = "xffffffwxxwww";
line_3 = "xfvsssvwxxwvw";
line_4 = "xffsh22wxxwvw";
line_5 = "xxgshsswggwvw";
line_6 = "xxgshsswsssvw";
line_7 = "xxgss2ss42hsw";
line_8 = "xffshh3hhshsw";
line_9 = "xfvsss3sssssw";
line_10 = "xffffffwwwwww";
line_11 = "xxxxxxxxxxxxx";
px = "12";
py = "9";
call("displayScene");
Frame 54
line_1 = "xxxxxxxxxxxxx";
line_2 = "hhhxwxxwxgggx";
line_3 = "hxxxwwxwxgxxg";
line_4 = "hhhxwwxwxgxxg";
line_5 = "hxxxwxwwxgxxg";
line_6 = "hxxxwxwwxgxxg";
line_7 = "hhhxwxxwxgggx";
line_8 = "xxxxxxxxxxxxx";
line_9 = "xxxxxxxxxxxxx";
line_10 = "xxxxxxxxxxxxx";
line_11 = "xxxxxxxxxxxxx";
end = "1";
px = "6";
py = "8";
call("displayScene");
Frame 62
line_1 = "sssssssssssss";
line_2 = "sssssssssssss";
line_3 = "sssssssssssss";
line_4 = "sssssssssssss";
line_5 = "sssssssssssss";
line_6 = "sssssssssssss";
line_7 = "sssssssssssss";
line_8 = "sssssssssssss";
line_9 = "sssssssssssss";
line_10 = "sssssssssssss";
line_11 = "sssssssssssss";
px = "-10";
py = "-10";
call("displayScene");
gotoAndPlay (3);
Symbol 17 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
if (_name ne "robotanim") {
pmdir = "down";
}
Symbol 17 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 11
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 15
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 22
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 27
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 31
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 38
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 43
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 47
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 54
gotoAndPlay(pmdir);
Symbol 17 MovieClip Frame 59
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 63
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 17 MovieClip Frame 70
gotoAndPlay(pmdir);
Symbol 19 Button
on (release, keyPress "<Space>") {
gotoAndPlay (5);
}
Symbol 24 Button
on (release) {
setProperty("howto", _x , "275");
setProperty("howto", _y , "240");
}
Symbol 30 Button
on (release) {
_x = "-1000";
_y = "-1000";
}
Symbol 34 MovieClip Frame 1
if (_name eq "darkness") {
stop();
}
Symbol 34 MovieClip Frame 7
removeMovieClip("");
Symbol 37 MovieClip Frame 1
rnumber = "0";
rbeamcount = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rbeam = ("/beam" add rnumber) add ":haverobot";
if (eval (rbeam) == "1") {
rbeamcount = rbeamcount + "1";
}
}
Symbol 37 MovieClip Frame 2
if ((rbeamcount == /:robots) and ("0" < /:robots)) {
gotoAndStop (3);
} else {
gotoAndPlay (1);
}
Symbol 37 MovieClip Frame 3
Set("/:levelno", /:levelno + "1");
duplicateMovieClip ("/abduct", "abduct1", 20001);
setProperty("/abduct1", _x , "250");
setProperty("/abduct1", _y , "160");
stop();
Symbol 39 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 39 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 39 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 39 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 39 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 39 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 39 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 40 MovieClip Frame 1
if (_name ne "robot_1") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 40 MovieClip Frame 2
gotoAndPlay (1);
Symbol 41 Button
on (keyPress "<Up>") {
if (/player1:pmdir eq "down") {
Set("/player1:pm", "1");
}
Set("/player1:pmdir", "up");
Set("/player1:press", "1");
gotoAndPlay (1);
}
on (keyPress "<Down>") {
if (/player1:pmdir eq "up") {
Set("/player1:pm", "1");
}
Set("/player1:pmdir", "down");
Set("/player1:press", "1");
gotoAndPlay (1);
}
on (keyPress "<Left>") {
if (/player1:pmdir eq "right") {
Set("/player1:pm", "1");
}
Set("/player1:pmdir", "left");
Set("/player1:press", "1");
gotoAndPlay (1);
}
on (keyPress "<Right>") {
if (/player1:pmdir eq "left") {
Set("/player1:pm", "1");
}
Set("/player1:pmdir", "right");
Set("/player1:press", "1");
gotoAndPlay (1);
}
Symbol 42 MovieClip Frame 5
Set("/player1:press", "0");
gotoAndPlay (1);
Symbol 43 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
if (_name ne "robotanim") {
pmdir = "down";
}
Symbol 43 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 11
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 15
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 22
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 27
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 31
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 38
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 43
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 47
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 54
gotoAndPlay(pmdir);
Symbol 43 MovieClip Frame 59
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 63
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 43 MovieClip Frame 70
gotoAndPlay(pmdir);
Symbol 44 MovieClip Frame 1
if (_name eq "player") {
Set("robotanim:pmdir", "downstop");
stop();
} else {
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
if (pm == "0") {
Set("robotanim:pmdir", pmdir);
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
Symbol 44 MovieClip Frame 2
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "right";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "left";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "down";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "up";
}
}
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if ((length(pmdir < "5") and (pm == "0")) and (press <> "1")) {
pmdir = pmdir add "stop";
}
pm = "1";
}
if ((pm == "1") and length("5" < pmdir)) {
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if (_name ne "player") {
gotoAndPlay (1);
} else {
stop();
}
Symbol 47 MovieClip Frame 1
if (_name eq "beam") {
stop();
}
Symbol 47 MovieClip Frame 2
rnumber = "0";
haverobot = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((tile_x == rposx) and (tile_y == rposy)) {
haverobot = "1";
}
}
if (haverobot == "1") {
gotoAndPlay (3);
} else {
gotoAndPlay (1);
}
Symbol 47 MovieClip Frame 4
rnumber = "0";
haverobot = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((tile_x == rposx) and (tile_y == rposy)) {
haverobot = "1";
}
}
if (haverobot == "1") {
gotoAndPlay (3);
} else {
gotoAndPlay (1);
}
Symbol 49 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 49 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 49 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 49 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 49 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 49 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 49 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 50 MovieClip Frame 1
if (_name ne "robot_2") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 50 MovieClip Frame 2
gotoAndPlay (1);
Symbol 52 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 52 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 52 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 52 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 52 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 52 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 52 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 53 MovieClip Frame 1
if (_name ne "robot_3") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 53 MovieClip Frame 2
gotoAndPlay (1);
Symbol 55 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 55 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 55 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 55 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 55 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 55 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 55 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 56 MovieClip Frame 1
if (_name ne "robot_4") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 56 MovieClip Frame 2
gotoAndPlay (1);
Symbol 58 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 58 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 58 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 58 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 58 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 58 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 58 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 59 MovieClip Frame 1
if (_name ne "robot_5") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 59 MovieClip Frame 2
gotoAndPlay (1);
Symbol 61 MovieClip Frame 1
if (pmdir eq "") {
pmdir = "downstop";
}
Symbol 61 MovieClip Frame 2
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 4
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 6
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 8
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 13
if (pmdir ne "down") {
gotoAndPlay(pmdir);
}
Symbol 61 MovieClip Frame 17
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 22
if (pmdir ne "up") {
gotoAndPlay(pmdir);
}
Symbol 61 MovieClip Frame 26
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 31
if (pmdir ne "left") {
gotoAndPlay(pmdir);
}
Symbol 61 MovieClip Frame 35
gotoAndPlay(pmdir);
Symbol 61 MovieClip Frame 40
if (pmdir ne "right") {
gotoAndPlay(pmdir);
}
Symbol 61 MovieClip Frame 44
gotoAndPlay(pmdir);
Symbol 62 MovieClip Frame 1
if (_name ne "robot_6") {
Set("robotanim:parentname", _name);
if (pmposx < pmdirx) {
pmposx = pmposx + /:walk;
Set("robotanim:pmdir", "right");
}
if (pmdirx < pmposx) {
pmposx = pmposx - /:walk;
Set("robotanim:pmdir", "left");
}
if (pmposy < pmdiry) {
pmposy = pmposy + /:walk;
Set("robotanim:pmdir", "down");
}
if (pmdiry < pmposy) {
pmposy = pmposy - /:walk;
Set("robotanim:pmdir", "up");
}
if ((pmdirx == pmposx) and (pmdiry == pmposy)) {
if (pm <> "2") {
if (length(pmdir) < "5") {
pmdir = pmdir add "stop";
} else {
pmdir = "downstop";
}
}
pm = "1";
Set("robotanim:pmdir", pmdir);
}
_x = (pmposx * /:sx);
_y = ((pmposy * /:sy) - "10");
if ((pm == "1") and (pmdir eq "up")) {
pm = "0";
pmdiry = pmdiry - "1";
}
if ((pm == "1") and (pmdir eq "down")) {
pm = "0";
pmdiry = pmdiry + "1";
}
if ((pm == "1") and (pmdir eq "left")) {
pm = "0";
pmdirx = pmdirx - "1";
}
if ((pm == "1") and (pmdir eq "right")) {
pm = "0";
pmdirx = pmdirx + "1";
}
tile_x = pmdirx;
tile_y = pmdiry;
tileName = (("/block" add tile_y) add "_") add tile_x;
tiledata = eval (tileName add ":type");
if (((/player1:pmdirx == pmposx) and (/player1:pmdiry == pmposy)) and (pm <> "0")) {
pmdir = /player1:pmdir;
pm = "2";
}
if ((pmposx == /player1:pmposx) and (pmposy == /player1:pmposy)) {
pdir = substring(/player1:pmdir, "1", "1");
if (pdir eq "r") {
Set("/player1:pmdir", "left");
}
if (pdir eq "d") {
Set("/player1:pmdir", "up");
}
if (pdir eq "l") {
Set("/player1:pmdir", "right");
}
if (pdir eq "u") {
Set("/player1:pmdir", "down");
}
}
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "robot" add rnumber;
if (rname ne _name) {
rposx = eval (("/" add rname) add ":pmposx");
rposy = eval (("/" add rname) add ":pmposy");
if ((pmdirx == rposx) and (pmdiry == rposy)) {
tiledata = "x";
}
}
}
if (((tiledata ne " ") and (tiledata ne "")) and (tiledata ne "v")) {
if (pmposx < pmdirx) {
pmdirx = pmdirx - "1";
pmdir = "rightstop";
}
if (pmdirx < pmposx) {
pmdirx = pmdirx + "1";
pmdir = "leftstop";
}
if (pmposy < pmdiry) {
pmdiry = pmdiry - "1";
pmdir = "downstop";
}
if (pmdiry < pmposy) {
pmdiry = pmdiry + "1";
pmdir = "upstop";
}
}
} else {
Set("robotanim:pmdir", "downstop");
stop();
}
Symbol 62 MovieClip Frame 2
gotoAndPlay (1);
Symbol 64 MovieClip Frame 1
if (_name eq "abduct") {
stop();
}
Symbol 64 MovieClip Frame 35
rnumber = "0";
while (rnumber < /:robots) {
rnumber = rnumber + "1";
rname = "/robot" add rnumber;
removeMovieClip(rname);
}
Set("/:robots", "0");
Symbol 64 MovieClip Frame 51
removeMovieClip("");
Symbol 78 Button
on (release) {
getURL ("http://www.mousepeople.com", "_self");
}
Symbol 81 Button
on (release) {
gotoAndPlay (62);
}
Symbol 84 Button
on (release, keyPress "<Space>") {
Set("/:robots", "0");
Set("/:keystroke", "");
Set("/:keyout", "0");
if (end == "1") {
levelno = "1";
end = "0";
}
tellTarget ("/beamcheck") {
play();
};
if ((levelno < "5") and ("0" < levelno)) {
call("level_" add levelno);
}
}
Symbol 88 MovieClip Frame 1
stop();