<?
/********************************************************************************
* @ File: sokgame2.php
* @ Original date: February 2003 @ www16.brinkster.com/gazb/ming/
* @ Version: 2.1
* @ Summary: ming game
* @ Updated:  added maps to code, small improvements and summary text
* @ Copyright (c) 2003-2007, www.gazbming.com - all rights reserved.
* @ Author: gazb.ming [[@]] gmail.com - www.gazbming.com 
* @ Released under GNU Lesser General Public License - http://www.gnu.org/licenses/lgpl.html
********************************************************************************/

//  Use Arrow Keys To Move Player
//  Standard Controls U : Undo | R : Redo | Space : Reset Level | N : Next Level | P : Previous Level
//  Add On Controls B : Blow Up Adjacent Walls | W : Shoot Up | Z : Shoot Down | A : Shoot Left | S : Shoot Right
//  maps come from the http://xsokoban.lcs.mit.edu/xsokoban.html xsokoban distribution 
//  to go to the next level move all packages to the target squares
//  if you get stuck use undo or blow up some walls or shoot some packages or...

// some typical movie variables
Ming_setScale(20.0000000);
ming_useswfversion(6);
$movie = new SWFMovie();
$movie->setDimension(400,300);
$movie->setBackground(rand(0,0xFF),rand(0,0xFF),rand(0,0xFF));
$movie->setRate(31);

$picname="bomb.jpg";
$fp = fopen($picname,"rb");
$i3 = fread($fp,999999);
$img = new SWFBitmap($i3); 
fclose($fp);

function makeTile($r,$g,$b){
$sh1=new SWFShape(); 
$sh1->setLine(1,0,0,0); 
$sh1->setRightFill($r,$g,$b); 
$sh1->drawLine(16,0);  
$sh1->drawLine(0,16); 
$sh1->drawLine(-16,0); 
$sh1->drawLine(0,-16); 
$sp1= new SWFSprite();
$f1 = $sp1->add($sh1);
$sp1->nextFrame();
return $sp1;
}

function makePackageTile(){
$sh1=new SWFShape(); 
$sh1->setLine(1,0,0,0); 
$sh1->setRightFill(0,0,0); 
$sh1->drawLine(16,0);  
$sh1->drawLine(0,16); 
$sh1->drawLine(-16,0); 
$sh1->drawLine(0,-16); 

$sh2=new SWFShape(); 
$sh2->setLine(1,0,0,0); 
$sh2->setRightFill(0,255,0); 
$sh2->movePenTo(-5,-5); 
$sh2->drawLine(10,0);  
$sh2->drawLine(0,10); 
$sh2->drawLine(-10,0); 
$sh2->drawLine(0,-10); 

$sp1= new SWFSprite();
$f1 = $sp1->add($sh1);
$f1 = $sp1->add($sh2);
$f1->rotate(45);
$f1->move(8,8);
$sp1->nextFrame();
return $sp1;
}

function makePlayerTile(){
	$r=0;$g=255;$b=0;
$sq=new SWFShape(); 
$sq->setRightFill(0,0,0);
$sq->drawLine(16,0);  
$sq->drawLine(0,16); 
$sq->drawLine(-16,0); 
$sq->drawLine(0,-16); 

$sh1=new SWFShape(); 
$sh1->setLine(2,$r,$g,$b); 
// body1
$sh1->drawLine(0,4); 
// leg r
$sh1->drawLine(3,3); 
$sh1->movePen(-3,-3); 
// leg l
$sh1->drawLine(-3,3); 
$sh1->movePen(3,-4); 
// arm r
$sh1->drawLine(4,-2); 
$sh1->movePen(-4,2); 
// arm l
$sh1->drawLine(-4,-2); 
$sh1->movePen(4,2); 
// body2
$sh1->drawLine(0,-6); 
// head
$sh1->setRightFill($r,$g,$b);
$sh1->drawCircle(2); 

$sp1= new SWFSprite();
$f1 = $sp1->add($sq);
$f1 = $sp1->add($sh1);
$f1->move(9,7); 
$f1->scale(1.3,1.1); 
$sp1->nextFrame();
return $sp1;
}
// gameholder clip
$gameHolderSprite= new SWFSprite();

$spPlayer=& makePlayerTile(); 
$spPackage=& makePackageTile (); 
$spWall=& makeTile (255,0,0); 
$spTarget=& makeTile (0,255,0); 

$r=0x33;$g=0xcc;$b=0x66;
$c=new SWFShape(); 
$c->setRightFill($r,$g,$b);
$c->drawCircle(12); 
$spBullet= new SWFSprite();
$f1 = $spBullet->add($c);
$spBullet->nextFrame();

$spBomb= new SWFSprite();
$f1 = $spBomb->add($img);
$spBomb->nextFrame();

for($i=1;$i<200;$i++){
$f1 = $gameHolderSprite->add($spWall);
$f1->setName('wall' . $i);
$f1->moveTo(-555,-555);
};
for($i=1;$i<50;$i++){
$f1 = $gameHolderSprite->add($spTarget);
$f1->setName('target' . $i);
$f1->moveTo(-555,-555);
};
for($i=1;$i<50;$i++){
$f1 = $gameHolderSprite->add($spPackage);
$f1->setName('package' . $i);
$f1->multColor(1,1,1,0.75);
};

$f1 = $gameHolderSprite->add($spPlayer);
$f1->setName('player');
//$f1->scaleTo(0.5,0.3);
$f1->moveTo(-555,-555);


$f3 = $gameHolderSprite->add($spBullet);
$f3->setName('bullet');
$f3->moveTo(-555,-555);


$f4 = $gameHolderSprite->add($spBomb);
$f4->setName('bomb');
$f4->moveTo(-555,-555);

$f2 = $movie->add($gameHolderSprite);
$f2->setName('gameHolderClip');
$f2->moveTo(50,30);
$gameHolderSprite->nextFrame();


// get as from external file(s)
// I WROTE THIS ACTIONSCRIPT IN ONE AFTERNOON SO IT IS CRUDE
// BUT IT WORKS AND I HAVE NO REASON TO REWRITE IT AT PRESENT
// THE MAIN AIM WAS TO TEST IF MING COULD COMPILE IT (SUCCESS!)
$strAction =<<<EOT
allMaps= [


"111111111111:12200100000111:12200104004001:12200141111001:12200003011001:12200101004011:11111101140401:00104004040401:00100001000001:00111111111111",

"0000000011111111:0000000010000031:0000000010414011:000000001040041:000000001140401:11111111104010111:12222001104004001:11222000040040001:12222001111111111:11111111", 


"0000000000011111111:0000000000010022221:1111111111110022221:1000010040400022221:1044414004010022221:1004000004010022221:1044014040411111111:100401000001:110111111111:100001000011:100000400011:100441440031:100001000011:11111111111", 

"0000000011111:00000000100011111:00000000101411001:00000000100000401:11111111101110001:12222001104004111:1222200004044011:1222200114004031:1111111110040011:0000000010404001:0000000011101101:0000000000100001:0000000000111111", 

"11111100111:122001011311:122001110001:122000004401:122001010401:122111010401:111104014001:000100410401:000104004001:000100110001:000111111111",

"000000011111:0111111100011:1101031104401:1000040000001:1004001110001:1110111114111:104001110221:104040402221:100001112221:104401012221:100111011111:1111",

"001111:0010011111111111:0010000400040401:0010410401004001:0010040400100001:1110410100111101:1314040400110001:1000040141000101:1000400004040401:1111100111111111:0010000001:0010000001:0012222221:0012222221:0012222221:0011111111", 

"00000000001111111:00000000001002221:00000011111002221:00000010000002021:00000010011002221:00000011011002221:00000111011111111:0000010444011:01111100404011111:11000140400010001:13040040000400401:11111104404011111:0000010000001:0000011111111", 

"0111001111111111111:1131111000000010001:1044000440040402221:1004441000040012221:1040001044044012221:1110001004000012221:1000001040404012221:1000011111101112221:1101001004040012221:1001101044040411221:1022101004000000121:1022101044404440121:1111101000000010121:0000101111111110121:0000100000000000121:0000111111111111111",

"000011111:000010001:000014001:0011100411:0010040401:1110101101000111111:1000101101111100221:1040040000000000221:1111101110131100221:0000100000111111111:00001111111"

];



/////{{{  init
init();
function init(){
mapPrefix='http://someplace/sokfiles/';
//mapPrefix='';
addClips();
clearScreen();
addLoadVars();
//lv.load(mapPrefix + 'screen.' + lv.num);
_root.processData(_root.allMaps[0]);
addSounds();
};


function addClips(){
//  player clip actions
gameHolderClip.player.onKeyDown = function(){ 
	keydownrun=true;
	_root.kd=Key.getCode();
	switch(Key.getCode()) {
		case 40: //Key.DOWN:
			_root.testPlayerMove(1,0);
			break;
		case 38: //Key.UP:
			_root.testPlayerMove(-1,0);
			break;
		case 37: //Key.LEFT:
			_root.testPlayerMove(0,-1);
			break;
		case 39: //Key.RIGHT:
			_root.testPlayerMove(0,1);
			break;
		case 85: //Key.u:
			undo();
			break;
		case 82: //Key.r:
			redo();
			break;
		case 66: //Key.b:
			bomb();
			break;
		case 65: //Key.a: shoot left
			shootAll(0,-1);
			break;
		case 83: //Key.s: shoot right
			shootAll(0,1);
			break;
		case 87: //Key.w: shoot up
			shootAll(-1,0);
			break;
		case 90: //Key.z: shoot down
			shootAll(1,0);
			break;
		case 78: //Key.n:
			nextLevel();
			break;
		case 80: //Key.p:
			previousLevel();
			break;
		case 67: //Key.c:
			cheat();
			break;
		case 32: //Key.SPACE:
			resetLevel();
			break;
	}
	updateAfterEvent();
};
Key.addListener(gameHolderClip.player);
};
//}}}
/////{{{  addLoadVars
function addLoadVars(){
// add loadvars to load the maps
lv = new LoadVars();
lv.num=1;
lv.onLoad = function(success) {	if(success) { _root.processData(this.map); }};
};
//}}}
/////{{{  addSounds
function addSounds(){
// add sound effects
_root.createEmptyMovieClip('shootclip',86785);
shootclip.shoot = new Sound();
shootclip.shoot.loadSound('shoot.mp3', false);
shootclip.shoot.stop();
_root.createEmptyMovieClip('boombclip',86786);
boombclip.boomb = new Sound();
boombclip.boomb.loadSound('boomb.mp3', false);
boomb.stop();
boombclip.boomb.setVolume(30);
};
//}}}
/////{{{ processData
function processData(d){
	_root.processDataRun=true;
// turn map into 2d array and make a package array
var	tmp=d.split(':');
	mapArray=[];
	for(i=0;i<20;i++){
         len=(20-tmp[i].length); for(l=0;l<len;l++){tmp[i]+='0';}
		mapArray[i]=tmp[i].split('');
	}
var mapWidth =20;// mapArray[0].length;
var mapHeight =20;// mapArray.length;
	// package array stuff
	packageArray=[];
boldNum=0;
	for(i=0;i<mapHeight;i++){packageArray[i]=[];}
	// get player pos stuff
	for(h=0;h<mapHeight;h++){
		for(w=0;w<mapWidth;w++){
_root.packageArray[h][w]=0;
			if(mapArray[h][w]==3){_root.playerPos=[h,w];}
			if(mapArray[h][w]==4 || mapArray[h][w]==5){
			_root.packageArray[h][w]= ++boldNum;}
		}
	}
buildMap ();
};
//}}}
/////{{{  buildMap
function buildMap(){
	_root.buildMapRun=true;
// move clips to display area
tileW = 16;
tileH = 16;
var mapWidth =20;// mapArray[0].length;
var mapHeight =20;// mapArray.length;
var highestDepth=mapWidth*mapHeight+1;
wallNum=1;
targetNum=1;
packageNum=1;
for (var h = 0; h < mapHeight; ++h) {
for (var w = 0; w < mapWidth; ++w) {
if(mapArray[h][w] ==1 ){
gameHolderClip['wall'+wallNum]._x = (w*tileW);
gameHolderClip['wall'+wallNum]._y = (h*tileH);
wallNum++;
}
if(mapArray[h][w] ==2 || mapArray[h][w] ==5 ){
gameHolderClip['target'+targetNum]._x = (w*tileW);
gameHolderClip['target'+targetNum]._y = (h*tileH);
targetNum++;
}
if(mapArray[h][w] ==3 ){
gameHolderClip['player']._x = (w*tileW);
gameHolderClip['player']._y = (h*tileH);
}
if(mapArray[h][w] ==4 || mapArray[h][w] ==5 ){
gameHolderClip['package'+packageNum]._x = (w*tileW);
gameHolderClip['package'+packageNum]._y = (h*tileH);
packageNum++;
}
}}
enableKeys();
};
//}}}
/////{{{  clearScreen
function clearScreen(){
// remove all clips from display area
for (var i = 1; i < 200; i++) {
gameHolderClip['wall'+i]._x=gameHolderClip['wall'+i]._y=-5000;
gameHolderClip['target'+i]._x=gameHolderClip['target'+i]._y=-5000;
gameHolderClip['package'+i]._x=gameHolderClip['package'+i]._y=-5000;
}
gameHolderClip['player']._x=gameHolderClip['player']._y=-5000;
_root.recordMov=[];
_root.recordMov.curPos=0;
};
//}}}
/////{{{  resetLevel
function resetLevel(){
clearScreen();
processData(lv.map);
};
//}}}
/////{{{  disableKeys
function disableKeys(){
Key.removeListener(gameHolderClip.player);
};
//}}}
/////{{{  enableKeys
function enableKeys(){
Key.addListener(gameHolderClip.player);
};
//}}}
/////{{{  testPlayerMove
function testPlayerMove(h,w){
	testPlayerMoveRun=true;
packageCanMove=false;
var rph=_root.playerPos[0];
var rpw=_root.playerPos[1];
// is player tring to move over a wall?
if(isWall(rph+h,rpw+w)){return;}
// is player tring to move over a package?
if(ispackage(rph+h,rpw+w)){
// is player tring to push package over a wall or package?
if(isWall(rph+h+h,rpw+w+w) || ispackage(rph+h+h,rpw+w+w) ){return;}
packageCanMove=true;
}
// ok so we can make the move
var mov={h:h,w:w};
if(packageCanMove){mov.bNum=packageArray[rph+h][rpw+w];}
updateRecord(mov);
//moveClips(_root.recordMov[_root.recordMov.curPos-1]);
moveClips(mov);
};
//}}}
/////{{{  updateRecord
function updateRecord(mov){
	updateRecordRun=mov;
_root.recordMov[_root.recordMov.curPos]=mov;
_root.recordMov.curPos++;
_root.recordMov.length=_root.recordMov.curPos;
_root.bbbb=_root.recordMov[_root.recordMov.curPos-1];
};
//}}}
/////{{{  moveClips
function moveClips(mov,doundo){
var rph=_root.playerPos[0];
var rpw=_root.playerPos[1];
_root.debugrph=rph;
_root.debugrpw=rpw;
_root.debugmovh=mov.h;
_root.debugmovw=mov.w;
//move the player
_root.gameHolderClip['player']._x +=(16*mov.w);
_root.gameHolderClip['player']._y +=(16*mov.h);
//update playerPos
_root.playerPos[0]=rph+mov.h;
_root.playerPos[1]=rpw+mov.w;
// also move package if appropriate
if(mov.bNum>0){
//physically move the package
_root.gameHolderClip['package'+ mov.bNum]._x +=(16*mov.w);
_root.gameHolderClip['package'+ mov.bNum]._y +=(16*mov.h);
// update array
if(!doundo){
_root.packageArray[rph+mov.h+mov.h][rpw+mov.w+mov.w]=
_root.packageArray[rph+mov.h][rpw+mov.w];
_root.packageArray[rph+mov.h][rpw+mov.w]=0;
}else{
_root.packageArray[rph][rpw]=_root.packageArray[rph-mov.h][rpw-mov.w];
_root.packageArray[rph-mov.h][rpw-mov.w]=0;
}
}
//reDisplay();
//tracegameHolderClip();
};
//}}}
/////{{{  isWall
function isWall(h,w){
return(_root.mapArray[h][w]==1);
};
//}}}
/////{{{  ispackage
function ispackage(h,w){
return(_root.packageArray[h][w]>0);
};
//}}}
/////{{{  undo
function undo(){
if(_root.recordMov.curPos >0){
var mov = _root.recordMov[_root.recordMov.curPos-1];
mov.h=-mov.h;mov.w=-mov.w;
moveClips(mov,1);
mov.h=-mov.h;mov.w=-mov.w;
if(--_root.recordMov.curPos <0){_root.recordMov.curPos=0;}
}
};
//}}}
/////{{{  redo
function redo(){
if(_root.recordMov.curPos <_root.recordMov.length){
var mov = _root.recordMov[_root.recordMov.curPos];
moveClips(mov);
if(++_root.recordMov.curPos >=_root.recordMov.length){
_root.recordMov.curPos=_root.recordMov.length;}
}
};
//}}}



/////{{{  shootAll
function shootAll(a,b){
if(!shooting){
shootclip.shoot.start();
shooting=true;
var rph=_root.playerPos[0];
var rpw=_root.playerPos[1];
for(i=0;i<20;i++){
if(_root.mapArray[rph+(a*i)][rpw+(b*i)]==1 || _root.packageArray[rph+(a*i)][rpw+(b*i)]>0){
cntclip=_root.packageArray[rph+(a*i)][rpw+(b*i)];
_root.packageArray[rph+(a*i)][rpw+(b*i)]=0;
break;
}
cnt++;
}
tb=gameHolderClip.bullet;
tb._x=gameHolderClip.player._x+8;
tb._y=gameHolderClip.player._y+8;
tb._xscale=tb._yscale=20;
tb.onEnterFrame=function(){
if(--cnt>=0){
	this._x+=(b*16);
	this._y+=(a*16);
	tb._xscale+=2;
		tb._yscale+=2;
	}else{
_root.shooting=false;
_root.gameHolderClip['package'+cntclip]._y=-5000;
this.onEnterFrame=null;
this._y=-7777;
}
};
} 
};
//}}}
/////{{{  bomb
function bomb(){
if(!bombing){
boombclip.boomb.start();
bombing=true;

tb=gameHolderClip.bomb;
tb._x=gameHolderClip.player._x-8;
tb._y=gameHolderClip.player._y-8;
cntbomb=5;
tb.onEnterFrame=function(){
if(!--cntbomb){_root.bombing=false;this.onEnterFrame=null;this._x=this._y=-7777;}
};
// remove wall tiles from map
var rph=_root.playerPos[0];
var rpw=_root.playerPos[1];
if(_root.mapArray[rph-1][rpw-1]==1){_root.mapArray[rph-1][rpw-1]=0;};
if(_root.mapArray[rph-1][rpw]==1) {_root.mapArray[rph-1][rpw]=0;};
if(_root.mapArray[rph-1][rpw+1]==1){_root.mapArray[rph-1][rpw+1]=0;};
if(_root.mapArray[rph][rpw-1]==1){_root.mapArray[rph][rpw-1]=0;};
if(_root.mapArray[rph][rpw+1]==1){_root.mapArray[rph][rpw+1]=0;};
if(_root.mapArray[rph+1][rpw-1]==1){_root.mapArray[rph+1][rpw-1]=0;};
if(_root.mapArray[rph+1][rpw]==1){_root.mapArray[rph+1][rpw]=0;};
if(_root.mapArray[rph+1][rpw+1]==1){_root.mapArray[rph+1][rpw+1]=0;};
// move wall tiles offscreen
var rpx=gameHolderClip['player']._x;
var rpy=gameHolderClip['player']._y;
for (var i = 1; i < 200; i++) {
rwx=gameHolderClip['wall'+i]._x;
rwy=gameHolderClip['wall'+i]._y;
if(rwx >= rpx-16 && rwx <= rpx+16 ){
if(rwy >= rpy-16 && rwy <= rpy+16 ){
gameHolderClip['wall'+i]._y=-5000;
}
}
}
}
};
//}}}
/////{{{  cheat
function cheat(){
disableKeys();
clearScreen();
if(++lv.num>9){lv.num=9;};
lv.load(mapPrefix + 'screen' + lv.num + '.txt');
};
//}}}
/////{{{  testLevelComplete
function testLevelComplete(){
for (var h = 0; h < 20; ++h) {
for (var w = 0; w < 20; ++w) {
if(packageArray[h][w] >0 ){
if(mapArray[h][w]!=2){return false;}
}
}}
return true;
};
//}}}
/////{{{  nextLevel
function nextLevel(){
//if( testLevelComplete()){
disableKeys();
clearScreen();
if(++lv.num>9){lv.num=9;};
//lv.load(mapPrefix + 'screen.' + lv.num);
//lv.load(mapPrefix + 'screen' + lv.num + '.txt');
_root.getNewMap(lv.num);
//}
};
//}}}
/////{{{  previousLevel
function previousLevel(){
 disableKeys();
clearScreen();
if(--lv.num<0){lv.num=0;};
//lv.load(mapPrefix + 'screen' + lv.num + '.txt');
_root.getNewMap(lv.num);
};


getNewMap = function(num) {	 _root.processData(_root.allMaps[num]); };

EOT;

// add actionscript to movie
$movie->add(new SWFAction( $strAction));

// save swf with same name as filename
$swfname = basename(__FILE__,".php");
$movie->save("$swfname.swf",9);
?>