我需要作为小游戏的源代码。

作为游戏的智力过河游戏源代码。

游戏规则:

一只大狮子,一只小狮子,一只大老虎,一只小老虎,一只大豹子和一只小豹子正在过河。只有大动物和小老虎会划船,船一次只能带两只动物。大动物不能互相吃,小动物也不能互相吃。如果大动物不在一个范畴,小动物就会被不同的大动物吃掉。

创建开始场景();

函数创建开始场景(){

创建TXT_MC(这个,\ "游戏名\ ",\ "智能过河\ ",200,100,300,假);

创建TXT_MC(这个,\ "游戏开始\ ",\ "游戏开始\ ",250,200,100,真);

创建TXT_MC(这个,\ "游戏描述\ ",\ "游戏描述\ ",250,250,100,真);

游戏开始。onPress = function() {

删除开始场景();

创建游戏场景();

};

游戏描述。onPress = function() {

删除开始场景();

创建描述场景();

};

}

函数删除开始场景(){

游戏名。remove movie clip();

游戏开始。remove movie clip();

游戏描述。remove movie clip();

}

功能删除描述场景(){

规则。remove movie clip();

描述。remove movie clip();

游戏开始。remove movie clip();

}

函数创建描述场景(){

Var content = \ "一只大狮子,一只小狮子,一只大老虎,一只小老虎,一只大豹子\"+\"n\"+\ "一只小豹子要到河对岸去,只有大动物和小老虎可以划,一次只能坐两条船\"+\"n\"+\ "大动物不能互相吃,小动物也不能互相吃。如果大动物\"+\"n\"+\ "不是同一种类,小动物就会被不同种类的大动物吃掉。\";

创建TXT_MC(这个,\ "规则\ ",\ "游戏规则\ ",230,50,150,假);

创建TXT_MC(这个,\ "描述\ ",内容,50,100,120,假);

创建TXT_MC(这个,\ "游戏开始\ ",\ "游戏开始\ ",250,200,100,真);

游戏开始。onPress = function() {

删除描述场景();

创建游戏场景();

};

}

函数创建TXT_MC(路径,名称,文本,坐标x,坐标y,大小,框){

Var MC =路径。createEmptyMovieClip(名称,路径。getNextHighestDepth());

MC。_x =坐标x;

MC。_y =坐标y;

MC。_xscale = MC。_ yscale = size

var TXT = MC . create textfield(\ " TXT \ ",0,0,0,0,0);

TXT.text = text

TXT.selectable = false

TXT.autoSize = true

If (box == true) {

MC.onRollOver = function() {

这个。TXT.border = true

this . onreleaseoutside = this . onrollout = function(){

这个。TXT.border = false

};

};

}

返回MC;

}

this . createemptymovielip(\ " shading MC \ ",this . getnexthighestdepth());

函数创建游戏场景(){

船上Var成员=[];

Var左岸= [\ "大狮子\ ",\ "小狮子\ ",\ "大老虎\ ",\ "小老虎\ ",\ "大豹子\ ",\ "小豹子\ "];

This.createemptymovielip (\ "左岸MC\ ",this . getnexthighestdepth());

创建河流();

this . createemptymovielip(\ " wharf MC \ ",this . getnexthighestdepth());

画一个正方形(码头MC,0,348,94,50,真);

画一个正方形(码头MC,454,348,94,50,真);

这个。createemptymovielip(\ " prompt MC \ ",this . getnexthighestdepth());

左岸MC。_ y = 100;

左岸MC。_ x = 20

for(var I = 0;我& lt左岸。长度;i++) {

if (i%2 == 0) {

Var MC = create TXT_MC(左岸MC,左岸[i],左岸[i],0,40*i,100,true);

MC。name = MC。_ name

MC。划船=真;

MC。方位= \ "左岸\ ";

MC。Size = \ "大\ ";