Sign in to follow this  
Followers 0
abarth

create random list for files in directory

4 posts in this topic

hello

I have 2 questions:

1.I want automatically my pc to create a playlist from some directories (find the files and create a playlist file)

how can I do this?

2.I want the files in the playlist to be randomized or ordered as I prefer (for example by filename, size, date etc)

any ideas?

thank you

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Start by getting a list of the files of the type you want in a folder retrieved with FileSelectFolder(). You can get the list of files with _FileListToArray() if you include the line #include <File.au3> at the top of your script.

Now create a For...Next loop to run the number of times that there are files returned from _FileListToArray().

Inside the loop, use the $random() function inside the array element brackets to choose a random file.

If you want to be sure you aren't duplicating files in your playlist, create a string that keeps track of the random numbers already used separated by commas, then use StringInStr() to find out if your current random number has already been used. If it has, reduce the variable you're using to control your For...Next loop by 1 so it will run an additional time (ie, only continue the count if the random number is unique so far).

Use FileWriteLine() to write the randomly-returned filename into the playlist file you want

---

Look up those functions in the AutoIt help file, give it a shot, and if it doesn't work, POST YOUR SCRIPT here so someone can look at it and tell you where you went wrong. Just start by FileWriteLine() 'ing a index of all the files in a directory chosen by FileSelectFolder() to get going, then add your randomization in later. Depending on the playlist you want to generate, you'll have to look into what the content of existing playlists are so you know what you need to match.

Welcome to AutoIt! Enjoy it, and be ready to learn from your mistakes - they help you in the long run more than code that works perfectly the first time. But your forum experience will be much more pleasent if you always include the code you've already written yourself that doesn't work. Good luck :-)

Edited by james3mg

"There are 10 types of people in this world - those who can read binary, and those who can't.""We've heard that a million monkeys at a million keyboards could produce the complete works of Shakespeare; now, thanks to the Internet, we know that is not true." ~Robert Wilensky0101101 1001010 1100001 1101101 1100101 1110011 0110011 1001101 10001110000101 0000111 0001000 0001110 0001101 0010010 1010110 0100001 1101110

Share this post


Link to post
Share on other sites

#include <File.au3> 
#Include <Array.au3>

$dir="d:\files\music\"
$startdir=$dir
$dir_lists="d:\"
dim $diraccount
dim $filelist[1000]
;Prwta dhlwnume apo poio dir ksekinaei kai elegxume an yparxei
if FileExists($dir)=True Then
    
; Run TestFunc1
Call("listdirs", $dir,$dir_lists,$diraccount,$filelist,$startdir)
; Run TestFunc2
;Call("listfiles", $dir)
EndIf

; Finished!

Exit


; TestFunc1 
Func listdirs($dir,$dir_lists,$diraccount,$filelist,$startdir)
    ;FileSelectFolder("g:\music","g:\music")
    ;MsgBox(0, "AutoIt Example", $filelist)
    if FileExists($dir)=True Then
    ;elegxume prwta an exei directories alla
dim $tempdir
$filelist=_FileListToArray($dir,"*","2")
;MsgBox(0, "AutoIt Example", $filelist)
$diraccount=$filelist[0]
;MsgBox(0, "AutoIt Example", $diraccount)
;If @Error=1 Then
   ; MsgBox (0,"","No Files\Folders Found.")
   ; Exit
;EndIf
;_ArrayDisplay($FileList,"$FileList")
if $diraccount=0 then ;den yparxun folders
    Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
    ;MsgBox(0, "AutoIt Example", "Finished!")
Else;yparxun folders
        Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
        $tempdir=$dir
    for $x=1 to $diraccount
        ;if $x=1 then $dir=$startdir
        ;Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
        $dir=$tempdir&$filelist[$x]&"\"
        ;MsgBox(0, "AutoIt Example", $dir)
        ;MsgBox(0, "AutoIt Example", $dir)
        call("listdirs",$dir,$dir_lists,$diraccount,$filelist,$startdir)
    next
    ;MsgBox(0, "AutoIt Example", "Finished!")
EndIf

    ;FileWriteLine("g:\test.txt",$test)
    
    ;MsgBox(0, "AutoIt Example", "Inside TestFunc1()")
    endif
EndFunc


; TestFunc2
Func listfiles($dir,$dir_lists,$diraccount,$filelist,$startdir)
    dim $newfilelistname
    $newfilelistname=stringreplace($dir,":","",0,0)
    $newfilelistname=stringreplace($newfilelistname,"\","_",0,0)
    $newfilelistname=stringreplace($newfilelistname,"/","_",0,0)
    $newfilelistname=stringreplace($newfilelistname,"\","_",0,0)
    $newfilelistname=$newfilelistname&"_list.m3u"
    ;MsgBox(0, "AutoIt Example", $newfilelistname)
    if FileExists($dir)=True Then
        $filelist=_FileListToArray($dir,"*.mp3","1")
        if @error=1 or @error=4 Then
        $diraccount=0
            Else
        $diraccount=$filelist[0]
        EndIf
        ;MsgBox(0, "AutoIt Example", $diraccount)
    EndIf
    if $diraccount>0 Then
    $TextFileName = $dir_lists&$newfilelistname
    if FileExists($newfilelistname) Then
    FileDelete($TextFileName)
    EndIf
    ;FileWrite($TextFileName,$FileContents)
    ;$diraccount=$filelist[0]
    $numberschecked=""
    $ncn=0
    dim $filename[1000]
    
    if $diraccount>0 Then
    While 1
        ;MsgBox(0, "AutoIt Example", $filelist)
    for $x=1 to $diraccount
        ;MsgBox(0, "AutoIt Example", "Finished!")
        $rnd=random(1,$diraccount,1)
        if $x=$rnd and stringinstr($numberschecked,"{"&$x&"}",0)=0 Then 
            $numberschecked=$numberschecked&"{"&$x&"}"
            $ncn=$ncn+1
            $filename[$ncn]=$filelist[$x]
            FileWriteLine($TextFileName,$dir&$filename[$ncn])
        EndIf
    Next
    if $ncn=$diraccount Then
            ExitLoop
    EndIf
    WEnd
EndIf
EndIf
EndFunc

hi again

this the code

I use 2 functions

1 for filelisting & playlist making

1 for dirlisting

and 1 loop for changing directories :whistle:

I believe its ok and ...easy after some thinking :P

I m very happy because I am building a media pc server @ my office and I want to start automaticaly everything . I add movies and music in some folders and I dont want to create playlists for mediaplayer classic and winamp all the time :P so I can do anything automatic now :D

Thank you very much and I hope someone gets some help from my code listing

I know that this code is not 'good' for reading and there are some things I could make better and faster. BUT I just finished it (I didnt have time to do it earlier) so I havent made any changes to look and to work better.... But it works just fine :lmao:

Thnx again!

Share this post


Link to post
Share on other sites

ehm

i did some changes

1st creates music lists

2nd creates movies lists

#include <File.au3> 
#Include <Array.au3>

$dir="g:\music\"
$startdir=$dir
$dir_lists="g:\"
dim $diraccount
dim $filelist[100000]
;Prwta dhlwnume apo poio dir ksekinaei kai elegxume an yparxei
if FileExists($dir)=True Then
    
; Run TestFunc1
Call("listdirs", $dir,$dir_lists,$diraccount,$filelist,$startdir)
; Run TestFunc2
;Call("listfiles", $dir)
EndIf

; Finished!

Exit


; TestFunc1 
Func listdirs($dir,$dir_lists,$diraccount,$filelist,$startdir)
    ;FileSelectFolder("g:\music","g:\music")
    ;MsgBox(0, "AutoIt Example", $filelist)
    if FileExists($dir)=True Then
    ;elegxume prwta an exei directories alla
dim $tempdir
$filelist=_FileListToArray($dir,"*","2")
;MsgBox(0, "AutoIt Example", $filelist)
if @error=1 or @error=4 or $filelist[0]<=0 Then

$diraccount=0
Else
    
    $diraccount=$filelist[0]
    ;MsgBox(0, "AutoIt Example", $filelist)
    ;_ArrayDisplay($filelist,"$FileList")
EndIf

;MsgBox(0, "AutoIt Example", $diraccount)
;If @Error=1 Then
   ; MsgBox (0,"","No Files\Folders Found.")
   ; Exit
;EndIf
;_ArrayDisplay($FileList,"$FileList")
if $diraccount=0 then ;den yparxun folders
    Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
    
Else;yparxun folders
        Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
        $tempdir=$dir
    for $x=1 to $diraccount
        ;if $x=1 then $dir=$startdir
        ;Call("listfiles", $dir,$dir_lists,$diraccount,$filelist,$startdir)
        $dir=$tempdir&$filelist[$x]&"\"
        ;MsgBox(0, "AutoIt Example", $dir)
        ;MsgBox(0, "AutoIt Example", $dir)
        call("listdirs",$dir,$dir_lists,$diraccount,$filelist,$startdir)
    next
    ;MsgBox(0, "AutoIt Example", "Finished!")
EndIf

    ;FileWriteLine("g:\test.txt",$test)
    
    ;MsgBox(0, "AutoIt Example", "Inside TestFunc1()")
    endif
EndFunc


; TestFunc2
Func listfiles($dir,$dir_lists,$diraccount,$filelist,$startdir)
    dim $newfilelistname
    $newfilelistname=stringreplace($dir,":","",0,0)
    $newfilelistname=stringreplace($newfilelistname,"\","_",0,0)
    $newfilelistname=stringreplace($newfilelistname,"/","_",0,0)
    $newfilelistname=stringreplace($newfilelistname,"\","_",0,0)
    $newfilelistname=$newfilelistname&"_list.m3u"
    ;MsgBox(0, "AutoIt Example", $newfilelistname)
    if FileExists($dir)=True Then
        $filelist=_FileListToArray($dir,"*.mp3","1")
        if @error=1 or @error=4 Then
        $diraccount=0
            Else
        $diraccount=$filelist[0]
        EndIf
        ;MsgBox(0, "AutoIt Example", $diraccount)
    EndIf
    if $diraccount>0 Then
    $TextFileName = $dir_lists&$newfilelistname
    if FileExists($newfilelistname) Then
    FileDelete($TextFileName)
    EndIf
    ;FileWrite($TextFileName,$FileContents)
    ;$diraccount=$filelist[0]
    $numberschecked=""
    $ncn=0
    dim $filename[100000]
    
    if $diraccount>0 Then
        dim $nofile
        $nofile=0
    While 1
        ;MsgBox(0, "AutoIt Example", $filelist)
    for $x=1 to $diraccount
        ;MsgBox(0, "AutoIt Example", "Finished!")
        $rnd=random(1,$diraccount,1)
        if (stringinstr($filelist[$x],".mp3",0)<>0) Then
            if $x=$rnd and stringinstr($numberschecked,"{"&$x&"}",0)=0  Then 
                $numberschecked=$numberschecked&"{"&$x&"}"
                $ncn=$ncn+1
                $filename[$ncn]=$filelist[$x]
                FileWriteLine($TextFileName,$dir&$filename[$ncn])
            EndIf
        Else
            $nofile=$nofile+1
        EndIf
            
    Next
    if $ncn=$diraccount or $nofile>=$diraccount Then
            ExitLoop
    EndIf
    WEnd
EndIf
EndIf
EndFunc

oÝ÷ Ù«­¢+Ø¥¹±Õ±Ðí¥±¹ÔÌÐì(%¹±Õ±ÐíÉÉä¹ÔÌÐì((ÀÌØí¥ÈôÅÕ½ÐíèÀäÈíµ½Ù¥ÌÀäÈìÅÕ½Ðì(ÀÌØíÍÑÉÑ¥ÈôÀÌØí¥È(ÀÌØí¥É}±¥ÍÑÌôÅÕ½ÐíèÀäÈìÅÕ½Ðì)¥´ÀÌØí¥É½Õ¹Ð)¥´ÀÌØí¥±±¥ÍÑlÄÀÀÀÁt(íAÉÝÑ¡±Ý¹ÕµÁ¼Á½¥¼¥È­Í­¥¹¤­¤±áÕµ¸åÁÉá¤)¥¥±á¥ÍÑÌ ÀÌØí¥È¤õQÉÕQ¡¸($(ìIÕ¸QÍÑÕ¹Ä)
±° ÅÕ½Ðí±¥ÍÑ¥ÉÌÅÕ½Ðì°ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ(ìIÕ¸QÍÑÕ¹È(í
±° ÅÕ½Ðí±¥ÍÑ¥±ÌÅÕ½Ðì°ÀÌØí¥È¤)¹%((쥹¥Í¡ÌÌì()á¥Ð(((ìQÍÑÕ¹Ä)Õ¹±¥ÍÑ¥ÉÌ ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ($í¥±M±Ñ½±È ÅÕ½ÐíèÀäÈíµÕÍ¥ÅÕ½Ðì°ÅÕ½ÐíèÀäÈíµÕÍ¥ÅÕ½Ðì¤($í5Í ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥±±¥ÍФ(%¥¥±á¥ÍÑÌ ÀÌØí¥È¤õQÉÕQ¡¸($í±áÕµÁÉÝѸᤥÉѽɥ̱±)¥´ÀÌØíѵÁ¥È(ÀÌØí¥±±¥ÍÐõ}¥±1¥ÍÑQ½ÉÉä ÀÌØí¥È°ÅÕ½Ðì¨ÅÕ½Ðì°ÅÕ½ÐìÈÅÕ½Ðì¤(í5Í ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥±±¥ÍФ)¥ÉɽÈôĽÈÉɽÈôнÈÀÌØí¥±±¥ÍÑlÁt±ÐìôÀQ¡¸((ÀÌØí¥É½Õ¹ÐôÀ)±Í($($ÀÌØí¥É½Õ¹ÐôÀÌØí¥±±¥ÍÑlÁt($í5Í    ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥±±¥ÍФ($í}ÉÉå¥ÍÁ±ä ÀÌØí¥±±¥ÍаÅÕ½ÐìÀÌØí¥±1¥ÍÐÅÕ½Ðì¤)¹%((í5Í  ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥É½Õ¹Ð¤(í%ÉɽÈôÄQ¡¸(ì5Í   ½à À°ÅÕ½ÐìÅÕ½Ðì°ÅÕ½Ðí9¼¥±ÌÀäÈí½±É̽չ¸ÅÕ½Ðì¤(ìá¥Ð(í¹%(í}ÉÉå¥ÍÁ±ä ÀÌØí¥±1¥ÍаÅÕ½ÐìÀÌØí¥±1¥ÍÐÅÕ½Ðì¤)¥ÀÌØí¥É½Õ¹ÐôÀÑ¡¸í¸åÁÉáÕ¸½±ÉÌ(%
±° ÅÕ½Ðí±¥ÍÑ¥±ÌÅÕ½Ðì°ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ($)±ÍíåÁÉáÕ¸½±ÉÌ($%
±° ÅÕ½Ðí±¥ÍÑ¥±ÌÅÕ½Ðì°ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ($$ÀÌØíѵÁ¥ÈôÀÌØí¥È(%½ÈÀÌØíàôÄѼÀÌØí¥É½Õ¹Ð($$í¥ÀÌØíàôÄÑ¡¸ÀÌØí¥ÈôÀÌØíÍÑÉÑ¥È($$í
±° ÅÕ½Ðí±¥ÍÑ¥±ÌÅÕ½Ðì°ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ($$ÀÌØí¥ÈôÀÌØíѵÁ¥ÈµÀìÀÌØí¥±±¥ÍÑlÀÌØíátµÀìÅÕ½ÐìÀäÈìÅÕ½Ðì($$í5Í   ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥È¤($$í5Í  ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥È¤($%±° ÅÕ½Ðí±¥ÍÑ¥ÉÌÅÕ½Ðì°ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ(%¹áÐ($í5Í  ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÅÕ½Ðí¥¹¥Í¡ÌÌìÅÕ½Ðì¤)¹%(($í¥±]É¥Ñ1¥¹ ÅÕ½ÐíèÀäÈíÑÍйÑáÐÅÕ½Ðì°ÀÌØíÑÍФ($($í5Í ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÅÕ½Ðí%¹Í¥QÍÑÕ¹Ä ¤ÅÕ½Ðì¤(%¹¥)¹Õ¹(((ìQÍÑÕ¹È)Õ¹±¥ÍÑ¥±Ì ÀÌØí¥È°ÀÌØí¥É}±¥ÍÑÌ°ÀÌØí¥É½Õ¹Ð°ÀÌØí¥±±¥ÍаÀÌØíÍÑÉѥȤ(%¥´ÀÌØí¹Ý¥±±¥Íѹµ($ÀÌØí¹Ý¥±±¥ÍѹµõÍÑÉ¥¹ÉÁ± ÀÌØí¥È°ÅÕ½ÐìèÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì°À°À¤($ÀÌØí¹Ý¥±±¥ÍѹµõÍÑÉ¥¹ÉÁ± ÀÌØí¹Ý¥±±¥Íѹµ°ÅÕ½ÐìÀäÈìÅÕ½Ðì°ÅÕ½Ðí|ÅÕ½Ðì°À°À¤($ÀÌØí¹Ý¥±±¥ÍѹµõÍÑÉ¥¹ÉÁ± ÀÌØí¹Ý¥±±¥Íѹµ°ÅÕ½Ðì¼ÅÕ½Ðì°ÅÕ½Ðí|ÅÕ½Ðì°À°À¤($ÀÌØí¹Ý¥±±¥ÍѹµõÍÑÉ¥¹ÉÁ± ÀÌØí¹Ý¥±±¥Íѹµ°ÅÕ½ÐìÀäÈìÅÕ½Ðì°ÅÕ½Ðí|ÅÕ½Ðì°À°À¤($ÀÌØí¹Ý¥±±¥ÍѹµôÀÌØí¹Ý¥±±¥ÍѹµµÀìÅÕ½Ðí}±¥ÍйÁ±ÌÅÕ½Ðì($í5Í    ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¹Ý¥±±¥Íѹµ¤(%¥¥±á¥ÍÑÌ ÀÌØí¥È¤õQÉÕQ¡¸($$ÀÌØí¥±±¥ÍÐõ}¥±1¥ÍÑQ½ÉÉä ÀÌØí¥È°ÅÕ½Ðì¨ÅÕ½Ðì°ÅÕ½ÐìÄÅÕ½Ðì¤($%¥ÉɽÈôĽÈÉɽÈôÐQ¡¸($$ÀÌØí¥É½Õ¹ÐôÀ($$%±Í($$ÀÌØí¥É½Õ¹ÐôÀÌØí¥±±¥ÍÑlÁt($%¹%($$í5Í    ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥É½Õ¹Ð¤(%¹%(%¥ÀÌØí¥É½Õ¹ÐÐìÀQ¡¸($ÀÌØíQáÑ¥±9µôÀÌØí¥É}±¥ÍÑ̵ÀìÀÌØí¹Ý¥±±¥Íѹµ(%¥¥±á¥ÍÑÌ ÀÌØí¹Ý¥±±¥Íѹµ¤Q¡¸(%¥±±Ñ ÀÌØíQáÑ¥±9µ¤(%¹%($í¥±]É¥Ñ ÀÌØíQáÑ¥±9µ°ÀÌØí¥±
½¹Ñ¹Ñ̤($ìÀÌØí¥É½Õ¹ÐôÀÌØí¥±±¥ÍÑlÁt($ÀÌØí¹ÕµÉÍ¡­ôÅÕ½ÐìÅÕ½Ðì($ÀÌØí¹¸ôÀ(%¥´ÀÌØí¥±¹µlÄÀÀÀÁt($(%¥ÀÌØí¥É½Õ¹ÐÐìÀQ¡¸($%¥´ÀÌØí¹½¥±($$ÀÌØí¹½¥±ôÀ(%]¡¥±Ä($$í5Í    ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÀÌØí¥±±¥ÍФ(%½ÈÀÌØíàôÄѼÀÌØí¥É½Õ¹Ð($$í5Í  ½à À°ÅÕ½ÐíÕѽ%ÐáµÁ±ÅÕ½Ðì°ÅÕ½Ðí¥¹¥Í¡ÌÌìÅÕ½Ðì¤($$ÀÌØíɹõɹ½´ Ä°ÀÌØí¥É½Õ¹Ð°Ä¤($%¥¡ÍÑÉ¥¹¥¹ÍÑÈ ÀÌØí¥±±¥ÍÑlÀÌØíát°ÅÕ½Ðì¹Ù¤ÅÕ½Ðì°À¤±ÐìÐìÀ½ÈÍÑÉ¥¹¥¹ÍÑÈ ÀÌØí¥±±¥ÍÑlÀÌØíát°ÅÕ½Ðì¹µÁÅÕ½Ðì°À¤±ÐìÐìÀ½ÈÍÑÉ¥¹¥¹ÍÑÈ ÀÌØí¥±±¥ÍÑlÀÌØíát°ÅÕ½Ðì¹µÁÅÕ½Ðì°À¤±ÐìÐìÀ½ÈÍÑÉ¥¹¥¹ÍÑÈ ÀÌØí¥±±¥ÍÑlÀÌØíát°ÅÕ½Ðì¹ÝµØÅÕ½Ðì°À¤±ÐìÐìÀ¤Q¡¸($$%¥ÀÌØíàôÀÌØíɹ¹ÍÑÉ¥¹¥¹ÍÑÈ ÀÌØí¹ÕµÉÍ¡­°ÅÕ½ÐíìÅÕ½ÐìµÀìÀÌØíàµÀìÅÕ½ÐíôÅÕ½Ðì°À¤ôÀQ¡¸($$$$ÀÌØí¹ÕµÉÍ¡­ôÀÌØí¹ÕµÉÍ¡­µÀìÅÕ½ÐíìÅÕ½ÐìµÀìÀÌØíàµÀìÅÕ½ÐíôÅÕ½Ðì($$$$ÀÌØí¹¸ôÀÌØí¹¸¬Ä($$$$ÀÌØí¥±¹µlÀÌØí¹¹tôÀÌØí¥±±¥ÍÑlÀÌØíát($$$%¥±]É¥Ñ1¥¹ ÀÌØíQáÑ¥±9µ°ÅÕ½Ðí¥±ÅÕ½ÐìµÀìÀÌØí¹¸µÀìÅÕ½ÐìôÅÕ½ÐìµÀìÀÌØí¥ÈµÀìÀÌØí¥±¹µlÀÌØí¹¹t¤($$%¹%($%±Í($$$ÀÌØí¹½¥±ôÀÌØí¹½¥±¬Ä($%¹%($$$(%9áÐ(%¥ÀÌØí¹¸ôÀÌØí¥É½Õ¹Ð½ÈÀÌØí¹½¥±ÐìôÀÌØí¥É½Õ¹ÐQ¡¸($$%á¥Ñ1½½À(%¹%(%]¹)¹%)¹%)¹Õ¹((

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0