Windows forever

[Usnul]

вот простенький код окошек со скинами, разберайте =)

/*  
	Windows module Version 0.1 Usnul 06/2004 copyright (c)
	writen by Alex Goldring (Usnul) specially for mySQL,php,Flash forum in 2004 with refference to "Flash Windowed Intersace" version 8.1 and earlier versions by Usnul
*/
/*	Following code must be included in project for the module usage
	#include "windows.as"
	_root.skinpath="skins/default/window.swf"
*/
_root.skinpath="skins/default/window.swf";
_root.createEmptyMovieClip("WindowsModule",100); //Please do not forget to change the depth value 
_root.WindowsModule.counter=1;
_root.WindowsModule.creWindow=function(name){
	_root.WindowsModule.createEmptyMovieClip("Window"+_root.WindowsModule.counter,_root.WindowsModule.counter);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].createEmptyMovieClip("Interface",1);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].createEmptyMovieClip("Content",2);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].Interface.loadMovie(_root.skinpath);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].name=name;
	_root.WindowsModule["Window"+_root.WindowsModule.counter].onEnterFrame=function(){
		if(this.Interface.getBytesLoaded()==this.Interface.getBytesTotal()){
			if(this.Content._width>0){this.w=this.Content._width}else{this.w=150}
			if(this.Content._height>0){this.h=this.Content._height}else{this.h=100}
			this.Interface.ltc._x=this.Interface.ltc._y=0;
			this.Interface.tb._x=this.Interface.bb._x=this.Interface.t._x=this.Interface.ltc._width;
			this.Interface.tb._y=0;
			this.Interface.tb._width=this.Interface.bb._width=this.w;
			this.Interface.rtc._x=this.Interface.rb._x=this.Interface.rbc._x=this.Interface.tb._x+this.Interface.tb._width;
			this.Interface.rtc._y=0;
			this.Interface.lb._x=this.Interface.lbc._x=0;
			this.Interface.lb._y=this.Interface.rb._y=this.Interface.ltc._height;
			this.Interface.lb._height=this.Interface.rb._height=this.h;
			this.Interface.lbc._y=this.Interface.rbc._y=this.Interface.bb._y=this.Interface.lb._y+this.Interface.lb._height;
			this.Interface.cb._x=this.Interface.rtc._x-this.Interface.cb._width;
			this.Interface.cb._y=(this.Interface.tb._height-this.Interface.cb._height)/2;
			this.Interface.t._y=(this.Interface.tb.height-this.Interface.t._height)/2;
			this.Interface.name=this.name;
		}
		if(Key.isDown(1)){
			if(this.Interface.tb.hitTest(_root._xmouse,_root._ymouse,true)){
				this.startDrag();
				this.swapDepths(_root.WindowsModule.counter);
				_root.WindowsModule.counter++
				if(this.Interface.cb.hitTest(_root._xmouse,_root._ymouse,true)){
					this.removeMovieClip();
				}
			}
		}
		else{
			this.stopDrag();
		}
	}
	_root.WindowsModule.counter++
}

[Usnul]

поправил маленько:

/*  
	Windows module Version 0.1 Usnul 06/2004 copyright (c)
	writen by Alex Goldring (Usnul) specially for mySQL,php,Flash forum in 2004 with refference to "Flash Windowed Intersace" version 8.1 and earlier versions by Usnul
*/
/*	Following code must be included in project for the module usage
	#include "windows.as"
	_root.skinpath="skins/default/window.swf"
*/
_root.createEmptyMovieClip("skin",20);
_root.skin.loadVariables("skins/default/settings.txt");
_root.skinpath="skins/default/";
_root.createEmptyMovieClip("WindowsModule",100); //Please do not forget to change the depth value 
_root.WindowsModule.counter=1;
_root.WindowsModule.creWindow=function(name){
	_root.WindowsModule.createEmptyMovieClip("Window"+_root.WindowsModule.counter,_root.WindowsModule.counter);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].createEmptyMovieClip("Interface",1);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].createEmptyMovieClip("Content",2);
	_root.WindowsModule["Window"+_root.WindowsModule.counter].Interface.loadMovie(_root.skinpath+"window.swf");
	_root.WindowsModule["Window"+_root.WindowsModule.counter].name=name;
	_root.WindowsModule["Window"+_root.WindowsModule.counter].onEnterFrame=function(){
		if(this.Interface.getBytesLoaded()==this.Interface.getBytesTotal()){
			if(this.Content._width>0){this.w=this.Content._width}else{this.w=150}
			if(this.Content._height>0){this.h=this.Content._height}else{this.h=100}
			this.Interface.ltc._x=this.Interface.ltc._y=0;
			this.Interface.tb._x=this.Interface.bb._x=this.Interface.ltc._width;
			this.Interface.tb._y=0;
			this.Interface.tb._width=this.Interface.bb._width=this.w;
			this.Interface.rtc._x=this.Interface.rb._x=this.Interface.rbc._x=this.Interface.tb._x+this.Interface.tb._width;
			this.Interface.rtc._y=0;
			this.Interface.lb._x=this.Interface.lbc._x=0;
			this.Interface.lb._y=this.Interface.rb._y=this.Interface.ltc._height;
			this.Interface.lb._height=this.Interface.rb._height=this.h;
			this.Interface.lbc._y=this.Interface.rbc._y=this.Interface.bb._y=this.Interface.lb._y+this.Interface.lb._height;
			this.Interface.cb._x=this.Interface.rtc._x-this.Interface.cb._width;
			this.Interface.cb._y=(this.Interface.tb._height-this.Interface.cb._height)/2;
			if(this.txt==undefined){
			this.createTextField("txt",30,this.Interface.bb._x,0,this.Interface.lb._width,this.Interface.tb._height);
			}
			this.txt.autoSize=true;
			this.txt.selectable=false;
			this.TF=new TextFormat();
			this.TF.font=_root.skin.WindowTitleFont;
			this.TF.bold=_root.skin.WindowTitleFontBold;
			this.TF.italic=_root.skin.WindowTitleFontItalic;
			this.TF.color=_root.skin.WindowTitleFontColour;
			this.txt.setNewTextFormat(this.TF);
			this.txt.text=this.name;
		}
		if(Key.isDown(1)){
			if(this.Interface.tb.hitTest(_root._xmouse,_root._ymouse,true)){
				this.startDrag();
				this.swapDepths(_root.WindowsModule.counter);
				_root.WindowsModule.counter++
				if(this.Interface.cb.hitTest(_root._xmouse,_root._ymouse,true)){
					this.removeMovieClip();
				}
			}
		}
		else{
			this.stopDrag();
		}
	}
	_root.WindowsModule.counter++
}