All pastes #618917 Raw Edit

Untitled

public text v1 · immutable
·published 2007-07-14 08:47 UTC
rendered paste body
Dialog eMP3 { 
  Title "iPod V1 BETA door de geweldige dani" 
  size -1 -1 150 150 
  option dbu 
  Button "Nieuwe afspeellijst", 1, 20 1 110 14
  List 2, 20 20 110 100, vsbar
  Button "Play", 8, 13 115 30 10
  Button "Pauze", 10, 43 115 30 10
  Button "Stop", 9, 73 115 30 10
  Button "Afspelen", 11, 103 115 30 10
  Button "+", 50, 35 129 10 10
  Edit "1", 51, 47 129 50 10, center read
  Button "-", 52, 100 129 10 10
  Check "Amsg", 123, 75 140 80 12
  Check "Mute", 124, 45 140 23 12
}
#####################
###FIX THIS PLEASE###
#####################
on *:mp3end:{ if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On }
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,))
  if (%AmSG == on) {  /Amsg ×» (Dani's ripped MP3 :D) «× $did(eMP3,2).seltext }
}
#####################
###FIX THIS PLEASE###
#####################

on *:DIALOG:emp3:dclick:2:{ if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On }
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,))
  if (%AmSG == on) {  /Amsg ×» (Dani's ripped MP3 :D) «× $did(eMP3,2).seltext }
}
ON *:DIALOG:emp3:init:*:{ 
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4))) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
on *:Dialog:eMP3:sclick:1: {
  did -r eMp3 2
  .writeini mp3player.ini Directory Playlist1 $sdir(*,Selecteer je muziek bestand)
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4)))
}
ON *:DIALOG:eMP3:sclick:8:{ 
  if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On }
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,))
  if (%AmSG == on) {  /Amsg ×» (Dani's ripped MP3 :D) «× $did(eMP3,2).seltext  }
}
ON *:DIALOG:eMP3:Sclick:9:{ 
  /splay stop
}

on *:dialog:eMP3:sclick:50:{ 
  /vol -v $calc( $vol(master) + 5000) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
} 
on *:dialog:eMP3:sclick:123: { 
  if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On }
}
ON *:DIALOG:eMP3:sclick:124:{ 
  if ($did(eMP3,124).state == 0) { vol -vu2 }
  if ($did(eMP3,124).state == 1) {  vol -vu1
  }
}

on *:dialog:eMP3:sclick:52:{ 
  /vol -v  $calc( $vol(master) - 5000) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
ON *:DIALOG:eMP3:sclick:*:{ 
  if ($did == 10) { /splay pause } 
  if ($did == 11) { /splay resume } 
}