🚀 go-pugleaf

Taaa, śmiem twierdzić, że to jest nawet lepsze... 
Jak działa? Pyta się, jaką listę załadować, puszczą losowy plik, czeka
aż się skończy, zapisuje do pliku. ;D No i teraz, zależnie od czytnika,
wstawiam to przez Ctrl+Shift+S (OE) albo Ctrl+I (P. newsreader).
O tak:
Is's really lovely: Lady Pank -- Mała Wojna
Mógłbym to dodawać do pliku z sygnaturką, ale wszystkie maile i posty
edytuję naraz, więc to by się nie sprawdziło w takiej postaci...
poza tym nie zawsze chcę pokazywać światu czego właśnie słucham. :P

SKrypt ma bugi, nie przeczę, ale ja go będę używał tak,
że nic się złego nie stanie, nie wyburaczy się.

/begin/rnd-pls.hsc/now playin'/=-.
#!hs2
#!load hamster.hsm
#!load addons.hsm

varset( $plsts, ListAlloc )
 ListSetText( $plsts, "Jazda" + chr( 13 ) + chr( 10 ) + "Jazda!" + chr( 13 ) + chr( 10 ) +_
  "Wolne" + chr( 13 ) + chr( 10 ) + "Wolne!" + chr( 13 ) + chr( 10 ) )

varset( $mood, ListBox( $plsts, "What mood are You today?", "pls generator", 0 ) )

varset( $intro_str, icase( $mood, 0, "The beat goes: ", 1, "Keep the vibes: ",_
  2, "Melancholic today... ", 3, "Is's really lovely: " ) )

varset( $pls, ListAlloc )
 ListLoad( $pls, HamPath + "Scripts\"_
   + icase( $mood, 0, "jazda", 1, "jazda!", 2, "wolne", 3, "wolne!" ) + ".pls" )
  varset( $max, ListGetKey( $pls, "NumberOfEntries" ) )

varset( $now_playin, ListAlloc )

 do
   varset( $i, RandomInt( $max )+1 )
    varset( $file, ListGetKey( $pls, "file" + $i ) )
     varset( $title, ListGetKey( $pls, "title" + $i ) )
      varset( $length, ListGetKey( $pls, "Length" + $i ) )

    if( !RE_Match( $file, "^(C|D|E):" ) )
     set( $file, "C:" + $file )
    endif

   print( $title + ": " + $length )
    ListSetText( $now_playin, $intro_str + $title )
     ListSave( $now_playin, HamPath + "Scripts\play.now" )
   if( FileExists( $file ) )
    execute( "C:\Program Files\Winamp\winamp.exe """ + $file + """" )
    sleep( int( str( $length ) + "000" ) - 1000 )
   endif
 loop
 
ListFree( $plsts )
ListFree( $now_playin )
ListFree( $pls )

quit
.-=/rnd-pls.hsc/end/
-- 
<< Puck  gg#937829  phn#+48600986485  mailto:puck@go2.pl >>
<< Najlepszym  przyjacielem  jest ten, kto nie pytając o >>
<< powód twego  smutku, potrafi  sprawić, że znów  wraca >>
<< radość.                              św. Jan  Bosko   >>