נושא?
בעקבות שיחרור הסקריפט שלי קיבלתי הרבה תגובות על זה שנעלתי את הרימוט. אז אני אכתוב כאן כמה קטעי קוד, ואפשר להתחיל מהנגן.
בעקבות שיחרור הסקריפט שלי קיבלתי הרבה תגובות על זה שנעלתי את הרימוט. אז אני אכתוב כאן כמה קטעי קוד, ואפשר להתחיל מהנגן.
alias mload { if (%mp3.dir == $null ) { set %var $input(עליך לבחור קודם ספרית קבצים,12) } set %mp3.song " $+ $file="בחר שיר" %mp3.dir $+ " } alias play { .splay -p $shortfn(%mp3.song) set %mptrig %mp3.dir %mp3.song ame 2Is Listening To: 4[2 $nopath(%mp3.song) 4]2 - Length: 4[2 $asctime($mp3(%mp3.song).length,hh:nn) 4]2 - Size: 4[2 $round($calc($lof(%mp3.song)/1000000),2) $+ mb 4]2 $logo if (%mp3.short == on) { halt } else { } } alias stop { /splay -p stop } alias dirc { set %mp3.dir $sdir="היכן קבצי ה MP3 שלך?" } on *:dialog:mp3dia:sclick:5:{ play } on *:dialog:mp3dia:sclick:4:{ mload did -ra mp3dia 1 :IST: %mp3.song } on *:dialog:mp3dia:sclick:6:{ stop } on *:dialog:mp3dia:sclick:7:{ stop } on *:dialog:mp3dia:sclick:3:{ dirc did -ra mp3dia 2 %mp3.dir } on *:dialog:mp3dia:init:0:{ did -ra mp3dia 2 %mp3.dir did -ra mp3dia 1 :IST: %mp3.song } dialog mp3dia { title "MP3 Player" size -1 -1 153 69 option dbu edit "", 1, 2 3 149 10, read center edit "", 2, 2 15 88 11, read center button "שנה ספריה", 3, 92 16 59 9, flat button "בחר שיר", 4, 97 42 37 10, flat button "השמע", 5, 56 42 37 10, flat button "עצור", 6, 15 42 37 10, flat button "סגור", 7, 90 57 37 10, flat multi ok link "MP3 Player1.12 by ReactoR.", 8, 3 59 69 8 }
איך מפעילים? dialog -md mp3dia mp3dia Enjoy =)