$puts(bg_path,%ps_user_profile_path%\skin\mono_lite_p_mu_gray\backimages)
$puts(bg_data,$findfile($get(bg_path)\bgf*.txt))
$puts(bg_data,$filename($get(bg_data)))
$puts(bg_m,$substr($get(bg_data),$sub($len($get(bg_data)),2),$len($get(bg_data))))
$puts(bg_f,$substr($get(bg_data),4,$sub($len($get(bg_data)),3)))

$puts(bg_path2,%ps_user_profile_path%\skin\mono_lite_p_mu_gray\backimages\$get(bg_f))

// Background image;Normal=1,Fix mode=0,CoverArt mode=2,Redraw=3
$init_ps_global(bg_mode,2)
$puts(fix,%bg_mode%)

//Background stretch mode; normal=1 center=2
$init_ps_global(bg_size,1)
$puts(stretch,%bg_size%)

//Background images max
$set_ps_global(bg_max,$get(bg_m))

//Background number
$init_ps_global(bg_num,0,0)
$init_ps_global(change_track,0,0)

$puts(per,$div(%_width%,8))
$puts(per2,$mul($get(per),2))
$puts(perw,$sub(%_width%,$get(per2)))
$puts(perh,$sub(650,$get(per)))

$ifequal(%mflag%,1,
$ifequal(%ipanel%,1,$showpanel(Infopanel,1);$movepanel_c(Infopanel,10,7,$sub(%_width%,20),190);$set_ps_global(mflag,0),
$showpanel(Infopanel,1);$movepanel_c(Infopanel,10,$sub(%_height%,200),$sub(%_width%,20),190);$set_ps_global(mflag,0)),
$showpanel(Infopanel,1))

// Track Number -> back*.jpg
$puts(gnum,%bg_num%)
$ifequal(%change_track%,%tracknumber%,,$puts(gnum,$add($get(gnum),1));$set_ps_global(change_track,%tracknumber%))
$ifgreater($get(gnum),%bg_max%,$puts(gnum,1),)
$set_ps_global(bg_num,$get(gnum))
$put(file2,$get(bg_path2)\back$get(gnum).jpg)

//Change some image path
$puts(file1,$get(bg_path2)\back1.jpg)
$puts(file,$ifequal($get(fix),0,$get(file1),$get(file2)))
$puts(file,$ifequal($get(fix),2,%path%,$get(file)))
$puts(file_c,$findfile($directory_path(%path%)\folder.jpg,$directory_path(%path%)\cover.jpg))

////Background image draw
$ifequal(%bg_mode%,2,

//folder.jpg?
$if($get(file_c),
$ifequal($get(stretch),1,$imageabs(0,0,%_width%,650,$get(file_c),left top),$imageabs($get(per),$get(per),$get(perw),$get(perh),$get(file_c),left top)),
$ifequal($get(stretch),1,$imageabs(0,0,%_width%,650,$get(file),left top artreader),$imageabs($get(per),$get(per),$get(perw),$get(perh),$get(file),left top artreader))),

//else
$ifequal($get(stretch),1,$imageabs(0,0,%_width%,650,$get(file),left top),$imageabs($get(per),$get(per),$get(perw),$get(perh),$get(file),left top))
)