复制代码代码如下所示：
<
类gifmerge {
VaR的版本= '1.1美元；
VaR DLY = 50美元；
VaR模型'c_file美元=；
var第一=真；
VaR use_loop美元= false；
var透明= false；
VaR use_global_in美元= false；
var $ x＝0；
var $ y = 0；
var $ = 0；
var = 0；
var $的FOUT =；
var = 0；
var =延迟= 0；
宽度= 0；
var =高度= 0；
VaR trans1 = 255美元；
无功反= 255美元；
VaR trans3 = 255美元；
var =处置= 2；
VaR out_color_table_size = 0美元；
VaR local_color_table_flag = 0美元；
VaR global_color_table_size = 0美元；
VaR out_color_table_sizecode = 0美元；
VaR global_color_table_sizecode = 0美元；
VaR的GIF =阵列（0x47美元，0x49，0x46）；
缓冲区=数组（）；
VaR local_in美元=阵（）；
VaR global_in美元=阵（）；
VaR global_out美元=阵（）；
VaR logical_screen_deｓｃｒｉｐｔor美元=阵（）；
功能gifmerge（美元美元美元的图像，T1，T2，T3美元，美元美元美元循环，DL，窗口，ypos美元，美元模型）{
如果（$）{
$这个；
}
如果（$循环> - 1）{
此$ =循环=地板（$循环- 1）；
美元-> use_loop =真；
}
如果（$ t1 - 1 $ T2 - - 1 $ T3 - 1）{
美元-> trans1 = $ T1；
美元->反= $ T2；
美元-> trans3 = $ T3；
$ $ >透明=真；
}
对于（$ i = 0；$ i <计数（$图像）；$ + +）{
DL {我}美元美元美元->延迟DL {我}：美元美元美元->延迟=美元-> DLY；
美元美元美元窗口{我} -> X = { }：我窗口美元美元美元-> x = 0；
美元美元美元ypos {我} -> Y = {我}：ypos美元美元-> Y = 0；
美元（$图像-> start_gifmerge_process { $我}）；
}
美元-> FOUT = / 3B；
}
功能start_gifmerge_process（$ FP）{
如果（美元-> MOD = = 'c_file）{
如果（！美元->鳍= fopen（$ FP，'rb '））{
返回；
}
} elseif（美元-> MOD = = 'c_memory）{
$ > = CH = 0；
$；
}
美元-> getBytes（6）；
如果（！这arrcmp（美元->美元->缓冲，美元-> GIF，3））{
返回；
}
美元-> getBytes（7）；
如果（美元->第一）美元-> logical_screen_deｓｃｒｉｐｔor =美元->缓冲；
这global_color_table_sizecode =美元->美元->缓冲{ 4 } 0x07；
美元-> global_color_table_size = 2 global_color_table_sizecode；
如果（美元->缓冲{ 4 } 0x80）{
美元-> getBytes（（3×美元-> global_color_table_size））；
为（$我= 0；我global_color_table_size美元）美元）；i++）{
美元-> global_in {我} =美元->缓冲{我}；
}
如果（美元-> out_color_table_size = = 0）{
这out_color_table_size =美元->美元-> global_color_table_size；
out_color_table_sizecode美元=美元-> global_color_table_sizecode；
这global_out =美元->美元-> global_in；
}
如果（美元-> global_color_table_size！=美元-> out_color_table_size（美元-> global_out，美元-> global_in，美元-> arrcmp | |（3×美元-> global_color_table_size）））{
美元-> use_global_in =真；
}
}
对于（$ = TRUE；$循环；；）{
美元-> getBytes（1）；
开关（$ > >缓冲区{ 0 }）{
案例0x21：
美元-> read_extension（）；
打破；
案例0x2c：
美元-> read_image_deｓｃｒｉｐｔor（）；
打破；
案例0x3B：
$循环= false；
打破；
违约:
$循环= false；
}
}
如果（美元-> MOD = = 'c_file）{
Fclose（美元->翅）；
}
}
功能read_image_deｓｃｒｉｐｔor（）{
美元-> getBytes（9）；
美元= $ - >缓冲区；
美元-> local_color_table_flag =（美元->缓冲{ 8 } 0x80）真的假的；
如果（美元-> local_color_table_flag）{
sizecode美元=美元->缓冲{ 8 } 0x07；
大小= 2美元的<< sizecode美元；
美元-> getBytes（3美元规模）；
对于（$ i = 0；$ i <（3×$大小）；$ + +）{
美元-> local_in {我} =美元->缓冲{我}；
}
如果（美元-> out_color_table_size = = 0）{
美元-> out_color_table_size = $大小；
out_color_table_sizecode = sizecode美元美元；
（$ i = 0；$ i <（3×$大小）；$ + +）
{
美元-> global_out {我} =美元-> local_in {我}；
}
}
}
如果（$）先{ {
$；
美元-> FOUT = / / /用于鉴别x49 X46级 / / / X61 X38 X39；
如果（$ -宽度$ $ -）高度{
美元-> logical_screen_deｓｃｒｉｐｔor { 0 } =美元->宽度0xff；
美元-> logical_screen_deｓｃｒｉｐｔor { 1 } =（美元->宽度0xff00）> > 8；
$this->logical_screen_deｓｃｒｉｐｔor{2} = $this->height 0xFF;
美元-> logical_screen_deｓｃｒｉｐｔor { 3 } =（美元->高度0xff00）> > 8；
}
美元-> logical_screen_deｓｃｒｉｐｔor { 4 } 0x80 | =；
美元-> logical_screen_deｓｃｒｉｐｔor { 5 } = 0xf0；
美元-> logical_screen_deｓｃｒｉｐｔor { 6 }美元-> out_color_table_sizecode | =；
这putbytes（美元->美元-> logical_screen_deｓｃｒｉｐｔor，7）；
这putbytes（美元->美元-> global_out，（美元-> out_color_table_size×3））；
如果（美元-> use_loop）{
$ NS { 0 } = 0x21；
NS { 1 } = 0xff美元；
NS { 2 } = 0x0b美元；
NS { 3 } = 0x4e美元；
NS { 4 } = 0x45美元；
NS { 5 } = 0x54美元；
NS { 6 } = 0x53美元；
$ NS { 7 } = 0x43；
$ NS { 8 } = 0x41；
$ NS { 9 } = 0x50；
NS { 10 } = 0x45美元；
NS { 11 } = 0x32美元；
$ NS { 12 } =小数；
$ NS { 13 } = 0x30；
NS { 14 } = 0x03美元；
$ NS { 15 } = 0x01；
$ $ { 16 } = $ - >循环255；
$ $ { 17 } = $ > >循环> > 8；
$ NS { 18 } = 0x00；
美元-> putbytes（$ NS，19）；
}
}
如果（美元-> use_global_in）{
表格=美元美元-> global_in；
美元美元-> global_color_table_size特大=；
outsizecode美元=美元-> global_color_table_sizecode；
{人}
表格=美元美元-> global_out；
美元美元-> out_color_table_size特大=；
}
如果（美元-> local_color_table_flag）{
如果大小= =（美元美元-> out_color_table_size！这arrcmp（美元->美元-> local_in，美元-> global_out，$大小））{
表格global_out美元美元=；
美元美元-> out_color_table_size特大=；
{人}
表格=美元美元-> local_in；
特大尺寸=美元美元；
outsizecode = sizecode美元美元；
}
}
use_trans美元= false；
如果（$ -透明）{
为（$我= 0；美元美元美元我<<特大；i++）{
如果（$表格{ 3 = =美元-> trans1表格{ 3美元美元美元我} *我+ 1 } =美元->反$表格{ 3 * $我+ 2 } = =美元-> trans3）{
打破；
}
}
如果（我的<<特大美元美元）{
transindex美元= $我；
use_trans美元=真；
}
}
如果（美元->延迟| | use_trans美元）{
美元->缓冲{ 0 } = 0x21；
美元->缓冲{ 1 } = 0xf9；
美元->缓冲{ 2 } = 0x04；
美元->缓冲{ 3 } =（美元->处理＜2）+（$ use_trans 1：0）；
美元->缓冲{ 4 } =美元->延迟0xff；
美元->缓冲{ 5 } =（美元->延迟0xff00）> > 8；
美元->缓冲{ 6 } = $ use_trans transindex：0美元；
美元->缓冲{ 7 } = 0x00；
这putbytes（美元->美元->缓冲，8）；
}
美元->缓冲{ 0 } = 0x2c；
这putbytes（美元->美元->缓冲，1）；
$头{ 0 } =美元-> X 0xff；
$头{ 1 } =（美元-> X 0xff00）> > 8；
$头{ 2 } =美元-> Y 0xff；
$头{ 3 } =（美元-> Y 0xff00）> > 8；
$头{ 8 } = 0x40；
如果（$表格！=美元-> global_out）{
$头{ 8 } 0x80 | =；
$头{ 8 } outsizecode美元| =；
}
美元-> putbytes（$，9）；
如果（$表格！=美元-> global_out）{
美元-> putbytes（$表格，（3 * $特大号））；
}
美元-> getBytes（1）；
这putbytes（美元->美元->缓冲，1）；
为（；）{
美元-> getBytes（1）；
这putbytes（美元->美元->缓冲，1）；
如果（（$ u = $ >缓冲区{ 0 }）＝= 0）{
打破；
}
美元-> getBytes（$ U）；
这putbytes（美元->美元->缓冲，$ U）；
}
}
功能read_extension（）{
美元-> getBytes（1）；
开关（$ > >缓冲区{ 0 }）{
案例0xf9：
美元-> getBytes（6）；
打破；
案例0xfe：
为（；）{
美元-> getBytes（1）；
如果（（$ u = $ >缓冲区{ 0 }）＝= 0）{
打破；
}
美元-> getBytes（$ U）；
}
打破；
案例0x01：
美元-> getBytes（13）；
为（；）{
美元-> getBytes（0）；
如果（（$ u = $ >缓冲区{ 0 }）＝= 0）{
打破；
}
美元-> getBytes（$ U）；
}
打破；
案例0xff：
美元-> getBytes（9）；
美元-> getBytes（3）；
为（；）{
美元-> getBytes（1）；
如果（！$ > >缓冲区{ 0 }）{
打破；
}
美元-> getBytes（美元->缓冲{ 0 }）；
}
打破；
违约:
为（；）{
美元-> getBytes（1）；
如果（！$ > >缓冲区{ 0 }）{
打破；
}
美元-> getBytes（美元->缓冲{ 0 }）；
}
}
}
功能arrcmp（$，$，$ L）{
（$ i = 0；$ i $ l；$ + +）{
如果（$ { i $ }）！= $ i $ }）{
返回false；
}
}
返回true；
}
函数来（$ L）{
（$ i = 0；$ i $ l；$ + +）{
如果（美元-> MOD = = 'c_file）{
宾=解压（c *美元，fread（美元->鳍，1））；
这个缓冲区{ $ I } = $ { { 1 }；
} elseif（美元-> MOD = = 'c_memory）{
宾=解压（c *美元，substr（美元->鳍，美元-> CH，1））；
这个缓冲区{ $ I } = $ { { 1 }；
此$ +；
}
}
返回$ >缓冲区；
}
功能putbytes（$，$ L）{
（$ i = 0；$ i $ l；$ + +）{
美元-> FOUT =包（C *，$ S {我}）；
}
}
功能getanimation（）{
返回这个->四；
}
}
>
