> .!RunImage Copyright 1994,95 Chris Rutter, DIGITAL DREAM > Hello people, I m 14. I m also very very sad. error setup_prevariables do_preprocessing "Wimp_Initialise",310,&4b534154,"QTM Player",block% os_version%,task% create_windows find_icons do_postprocessing create_menus read_from_file%= #0:!error%=0:$(error%+4)= msg("ChoicesCorrupt"): "Wimp_ReportError",error%,1, msg("LongTask"):read_from_file%= :error_occured%= setup_variables error put_choices tune_loaded%= tune_loaded%= tune_loaded% intercept_loaded error wimp_error read_mode_variables set_postvariables "Wimp_Poll",0,block% wimp_action% deal_with(wimp_action%) do_tickeractions quit% tidy_exit deal_with(action%) action% 1 : poll_redraw .# thumbtack% block%!28=-1 /$ "Wimp_OpenWindow",,block% 11 !block%<>qtmplay_handle% menu_open%= 2% "Wimp_CloseWindow",,block% 3; block%!0=control_handle% control_window_open%= 6 : poll_mouse 7 : poll_stopdrag 8 : poll_key 9 : poll_menu 17,18 block%!16 0 : quit%= ;% 2 : poll_finalsave <$ 3 : poll_loadfile =% 5 : intercept_load >$ 6 : poll_ramfetch ?' &502 : acknowledge_help @* &400C1 : read_mode_variables A poll_mouse mx%=block%!0 my%=block%!4 mb%=block%!8 whan%=block%!12 ihan%=block%!16 menu_open%= whan% qtmplay_handle% lastdrag%=2 lastdrag%<>2 PF block%!24=qtmplay_handle%: "Wimp_GetWindowState",,block%+24 QD block%!8=4 block%!52=-1: "Wimp_OpenWindow",,block%+24 R. block%!20=qtmplay_handle%:block%!24=1 S% "Wimp_DragBox",,block%+20 Tk !block%=qtmplay_handle%: "Wimp_GetWindowState",,block%:wyd%=block%!16-block%!8:myd%=my%-block%!8 lastdrag%=2 V W mb% ihan% mb% ]7 4 : tune_loaded% "QTM_Start" _& carousel_play%=1 `P carousel$(1)="" carousel_play%= next_carousel_track(1) aG carousel_play%>0 play_carousel(carousel_play%) dO block%!24=qtmplay_handle%: "Wimp_GetWindowState",,block%+24 eH mb%=4 block%!52=-1: "Wimp_OpenWindow",,block%+24 fT block%!20=qtmplay_handle%:block%!24=1: "Wimp_DragBox",,block%+20 gF 2 : tune_loaded% "QTM_Stop":carousel_playing%= i, thumbtack%=thumbtack% jE thumbtack% set_icon_state(qtmplay_handle%,3) kE thumbtack% clear_icon_state(qtmplay_handle%,3) mP "XOS_CLI","Cat "+track_directory$+" { > null: }" ;worked% n[ worked% notify( msg("SillyTrackDir")+" "+track_directory$): oa trackdirheight%<=0 notify( msg("SillyTrackHeight")+" "+ (trackdirheight%)) p^ trackdirwidth%<=0 notify( msg("SillyTrackWidth")+" "+ (trackdirwidth%)) q} tail$=track_directory$+" "+ (mx%+20)+" "+ (my%)+" "+ (trackdirwidth%)+" "+ (trackdirheight%)+" -SmallIcons" r+ ("Filer_OpenDir "+tail$) s/ open_window(qtmplay_handle%) u/ open_window(control_handle%) v( control_window_open%= w* update_position_display zP "Wimp_CreateMenu",,menu%,mx%-75,my%+8:menu_open%= :menu_time%=0 | control_handle% ihan% 9 ctrl_pause% : tune_loaded% "QTM_Pause" ctrl_rewind% mb% ! tune_loaded% , "QTM_Pos",-1,-1 cseq% & cseq%>0 cseq%-=1 & "QTM_Pos",cseq%,0 xseq%-=1 ( carousel_playing%>0 E lasttrack%= last_carousel_track(carousel_playing%) < lasttrack%>0 play_carousel(lasttrack%) ctrl_forward% mb% ! tune_loaded% , "QTM_Pos",-1,-1 cseq% 1 "QTM_ReadSongLength" mseq% , cseq%0 E nexttrack%= next_carousel_track(carousel_playing%) < nexttrack%>0 play_carousel(nexttrack%) ctrl_carouselpath% . play_carousel(carousel_pointer%) ctrl_viewing% , carousel$(carousel_pointer%)="" - set_carousel(carousel_pointer%) ctrl_carouselleft% E carousel_pointer%>1 set_carousel(carousel_pointer%-1) ctrl_carouselright% G carousel_pointer%<255 set_carousel(carousel_pointer%+1) ctrl_download% save_drag_initiate ctrl_samplesopen% * open_window(samples_handle%) ctrl_toolbar% + open_window(carousel_handle%) block%!0=whan% - "Wimp_GetWindowState",,block% winx%=block%!4 winy%=block%!16 mx%>volminx%+winx%-block%!20 mx%winy%+volminy%-block%!24 my%0 cvol%-=1 2 set_icon(carousel_handle%,2, (cvol%)) - play_carousel(carousel_pointer%) + carousel$(carousel_pointer%)="" , set_carousel(carousel_pointer%) oldvol%= volume M carousel_vol%(carousel_pointer%)= get_icon(carousel_handle%,2)) U carousel_vol%(carousel_pointer%)=0 carousel_vol%(carousel_pointer%)=1 J (carousel_playing%=carousel_pointer%) set_volume(oldvol%) 5 mb%=4 close_window(carousel_handle%) poll_menu menu_open%= (block%!0)+1 2 : open_window(choices_handle%) menu_items% : quit%= error ("Error Error in error trapping procedure : "+ $+" at line "+ ("Error "+ $+" at line "+ wimp_error ("Error Error in error trapping procedure : "+ $+" at line "+ !error%= L$(error%+4)= $+" at line "+ )+" (OK to continue, Cancel to quit)"+ "Wimp_ReportError",error%,(1<<0) (1<<1),"QTM Player" ,selected% selected%=2 quit%= tidy_exit: open_window(window_handle%) !block%=window_handle% "Wimp_GetWindowState",,block% block%!28=-1 "Wimp_OpenWindow",,block% close_window(window_handle%) !block%=window_handle% "Wimp_GetWindowState",,block% "Wimp_CloseWindow",,block% load_and_play(file$) Hfile%= (file$): file%=0 msg("WhereIsIt")+" "+file$ #file% "QTM_Load",file$,0 tune_loaded%= "QTM_Start" "QTM_Info" track_address%,author_address% set_icon(control_handle%,ctrl_tunepath%,file$) set_icon(control_handle%,ctrl_tunename%, string_address(track_address%)) author_address%=0 set_icon(control_handle%,ctrl_tuneauthor%,"Author unknown") set_icon(control_handle%,ctrl_tuneauthor%, string_address(author_address%)) update_position_display xseq%=0 "Wimp_ForceRedraw",samples_handle%,-(1<<29),-(1<<29),1<<29,1<<29 intercept_loaded "QTM_Info" track_address%,author_address% set_icon(control_handle%,ctrl_tunename%, string_address(track_address%)) set_icon(control_handle%,ctrl_tunepath%,"") author_address%=0 set_icon(control_handle%,ctrl_tuneauthor%,"Author unknown") set_icon(control_handle%,ctrl_tuneauthor%, string_address(author_address%)) update_position_display xseq%=0 tune_loaded%= intercept_load track_type(block%!40) block%!12,block%!8 block%!16=4 "Wimp_SendMessage",19,block%,block%!4 load_and_play( string_address(block%+44)) carousel_playing%= track_type(type%) type%=&CB6 type%=0 type%=1 type%=&CC5 setup_variables 0&track_directory$=".^" thumbtack%= tss%= sound_quality%=32 quit_savecarouseltrack%= quit_savevolume%= quit_savewindowpos%= ovolume%=64 volume%=64 9*trackdirheight%=186:trackdirwidth%=468 read_from_file% ;0 file%= (".Resources.Choices") #file% line$= #file% >% option$= line$, line$,"=")-1) ?( parameter$= line$, line$,"=")+1) option$ A= "TrackDirectory" : track_directory$=parameter$ BD "Thumbtack" : thumbtack%= truefalseq(parameter$) CX "Volume" : volume%= (parameter$):ovolume%=volume%:newvol%=volume% D> "TrackDirWidth" : trackdirwidth%= (parameter$) E? "TrackDirHeight" : trackdirheight%= (parameter$) F> "TSS" : tss%= truefalseq(parameter$) G> "SoundQuality" : sound_quality%= (parameter$) HQ "SaveCarouselTrack" : quit_savecarouseltrack%= truefalseq(parameter$) IJ "SaveVolume" : quit_savevolume%= truefalseq(parameter$) JM "SaveWindowPos" : quit_savewindowpos%= truefalseq(parameter$) K "QTM_Volume",volume% #file% set_choices read_from_file% save_config_file save_config_file U.file%= (".Resources.Choices") volume%= volume #file%,"TrackDirectory="+track_directory$ #file%,"TrackDirWidth="+ (trackdirwidth%) #file%,"TrackDirHeight="+ (trackdirheight%) #file%,"Thumbtack="+ truefalsea(thumbtack%) quit%= quit_savevolume%= #file%,"Volume="+ (ovolume%) #file%,"Volume="+ (volume%) #file%,"TSS="+ truefalsea(tss%) #file%,"SoundQuality="+ (sound_quality%) #file%,"SaveCarouselTrack="+ truefalsea(quit_savecarouseltrack%) #file%,"SaveVolume="+ truefalsea(quit_savevolume%) #file%,"SaveWindowPos="+ truefalsea(quit_savewindowpos%) #file% ("SetType .Resources.Choices Text") set_icon_state(window%,icon%) block%!0=window% block%!4=icon% block%!8=1<<21 block%!12=1<<21 "Wimp_SetIconState",,block% clear_icon_state(window%,icon%) block%!0=window% block%!4=icon% block%!8=0 block%!12=1<<21 "Wimp_SetIconState",,block% poll_loadfile track_type(block%!40) block%!40=&FFF block%!40=&FFF load_carousel( string_address(block%+44)): block%!20=control_handle% block%!24=ctrl_download% }? carousel$(carousel_pointer%)= string_address(block%+44) ~\ carousel_pointer%=carousel_playing% : load_and_play(carousel$(carousel_pointer%)) ! carousel_pointer%<255 , set_carousel(carousel_pointer%+1) * set_carousel(carousel_pointer%) carousel_unaltered%= 2 load_and_play( string_address(block%+44)) carousel_playing%= block%!40=&1000 1 track_directory$= string_address(block%+44) block%!20=choices_handle% (block%!24=14 block%!24=10 block%!24=11 block%!24=12 block%!24=13 block%!24=9 block%!24=7 block%!24=8) 5 set_icon(choices_handle%,9,track_directory$) string_address(address%) string$ string$="" ?address%>31:string$+= (?address%):address%+=1: =string$ update_position_display tune_loaded% "QTM_ReadSongLength" mseq% "QTM_Pos",-1,-1 cseq% set_icon(control_handle%,ctrl_currentpos%, cseq%) set_icon(control_handle%,ctrl_finalpos%, mseq%) set_icon(window%,icon%,text$) block%!0=window% block%!4=icon% "Wimp_GetIconState",,block% ((block%!24) &100)=0 msg("NotI") $(block%!28)=text$ block%!0=window% block%!4=icon% block%!8=0 block%!12=0 "Wimp_SetIconState",,block% investigate_update tune_loaded% "QTM_Pos",-1,-1 nseq% nseq%<>cseq% update_position_display poll_redraw "Wimp_RedrawWindow",,block% flag% winx%=block%!4 winy%=block%!16 winuy%=block%!24 winx%-=block%!20 winy%-=block%!24 volume%= volume flag% P window%=block%!0:vissy%=-(winy%-block%!32)-48:vismy%=-(winy%-block%!40)+48 window% control_handle% : draw_volume_slider(volume%) samples_handle% plot%=-10 sample%=1 6 plot%>vissy% plot%0 "Wimp_SetColour",11 volume%<64 volminx%+winx%,volminy%+winy%,volume%*10,volheight%-2 volminx%+winx%,volminy%+winy%,volume%*10-2,volheight%-2 volume%<64 "Wimp_SetColour",0 volminx%+winx%+(volume%*10),volminy%+winy%,638-(volume%*10),volheight%-2 volume%>0 volume%<64 "Wimp_SetColour",2 volminx%+winx%+(volume%*10),volminy%+winy%,1,volheight%-2 update_slider block%!0=control_handle% "Wimp_GetWindowState",,block% winminx%=block%!4-block%!20 winminy%=block%!8-block%!24 winmaxx%=block%!12-block%!20 winmaxy%=block%!16-block%!24 winx%=winminx% winy%=winmaxy% winminx%+volminx%,my%,640,0 xp%=-1 yp%=-1 x%,y%,b% x%<>xp% ) newvol%=(x%-(winminx%+volminx%))/10 block%!0=control_handle% block%!4=volminx%-4 block%!8=volminy%-4 block%!12=volmaxx%+4 block%!16=volmaxy%+4 "Wimp_UpdateWindow",,block% flag% flag%= flag% $ draw_volume_slider(newvol%) . "Wimp_GetRectangle",,block% flag% set_volume(newvol%) xp%=x%:yp%=y% b%=0 "OS_ReadModeVariable",-1,11 ,,top_x% "OS_ReadModeVariable",-1,12 ,,top_y% "OS_ReadModeVariable",-1,4 ,,x_shift% "OS_ReadModeVariable",-1,5 ,,y_shift% top_x%+=1:top_y%+=1 top_x%=top_x%<"" oldvol%= volume carousel_playing%=track% load_and_play(carousel$(carousel_playing%)) set_icon(control_handle%,ctrl_playing%, (track%)) set_volume(oldvol%) next_carousel_track(track%) found%= trackfound%=-1 track%<255 checktrack%=track%+1 :R found% carousel$(checktrack%)<>"" found%= :trackfound%=checktrack% checktrack% found% checktrack%=1 track%-1 ?R found% carousel$(checktrack%)<>"" found%= :trackfound%=checktrack% checktrack% found% =trackfound% last_carousel_track(track%) found%= trackfound%=-1 track%<255 checktrack%=track%-1 IR found% carousel$(checktrack%)<>"" found%= :trackfound%=checktrack% checktrack% found% checktrack%=255 track%+1 NR found% carousel$(checktrack%)<>"" found%= :trackfound%=checktrack% checktrack% found% =trackfound% create_windows "Wimp_OpenTemplate",0,".Resources.Templates" U+qtmplay_handle%= load_window("QTMPlay") V%info_handle%= load_window("Info") W+control_handle%= load_window("Control") X-xfersend_handle%= load_window("XferSend") Y+samples_handle%= load_window("Samples") Z+choices_handle%= load_window("Choices") [-carousel_handle%= load_window("Carousel") "Wimp_CloseTemplate" set_icon(info_handle%,4, msg("Version")+" ("+ msg("Date")+")") load_window(window$) ind% "Wimp_LoadTemplate",,-1,-1,-1,-1,window$,0 ,,inds% ind% inds% memory_needed%+=inds% "Wimp_LoadTemplate",,block%,ind%,ind%+inds%,-1,window$,0 block%!64=sprite_pool% "Wimp_CreateWindow",,block% window% =window% save_drag_initiate lastdrag%=1 os_version%<316 save%=control_handle% window%=save% !block%=window% "Wimp_GetWindowState",,block% q0x%=block%!4-block%!20:y%=block%!16-block%!24 block%!4=ctrl_download% "Wimp_GetIconState",,block% !block%=window% block%!4=5 v/block%!8=x%+block%!8:block%!12=y%+block%!12 w1block%!16=x%+block%!16:block%!20=y%+block%!20 block%!24=0:block%!28=0 y+block%!32=&7FFFFFFF:block%!36=&7FFFFFFF "Wimp_DragBox",,block% lastdrag%=1 block%!0=control_handle% "Wimp_GetWindowState",,block% bounding_box%!0=block%!4 bounding_box%!4=block%!16 bounding_box%!8=block%!4 bounding_box%!12=block%!16 bounding_box%!0-=block%!20 bounding_box%!4-=block%!24 bounding_box%!8-=block%!20 bounding_box%!12-=block%!24 4block%!0=control_handle%:block%!4=ctrl_download% "Wimp_GetIconState",,block% bounding_box%!0+=block%!8 bounding_box%!4+=block%!12 bounding_box%!8+=block%!16 bounding_box%!12+=block%!20 "DragASprite_Start",%01000001,1,"file_fff",bounding_box% lastdrag%=1 PROCdelete_icon(save_handle%,2) file_size(file$) "OS_File",5,file$ ,,,,length% =length% poll_stopdrag lastdrag%=1 os_version%>=316 "DragASprite_Stop" PROCreinstate_icon(save_handle%,2) "Wimp_GetPointerInfo",,block% ? window%=block%!12:icon%=block%!16:x%=block%!0:y%=block%!4 block%!20=window% block%!24=icon% block%!28=x%:block%!32=y% % block%!36= carousel_file_length block%!0=64 block%!12=0 block%!16=1 block%!40=&FFF $(block%+44)="QTMFile" "Wimp_SendMessage",17,block%,block%!20,block%!24 lastdrag%=0 0,0,scx%,scy% lastdrag%=0 poll_key block%!0 xfersend_handle% block%!4 block%!24=&D , close_window(xfersend_handle%) J csave_file$=csave_pathname$+"."+ get_icon(xfersend_handle%,0) save_carousel choices_handle% block%!24=&D block%!0=0:block%!4=0:block%!8=4:block%!12=choices_handle%:block%!16=23: poll_mouse "Wimp_ProcessKey",block%!24 save_carousel msg("SaveCarousel")+" "+ $+" at line "+ filename$=csave_file$ cfile%= (filename$) cfile%=0 msg("WhereSave") #cfile%,"QTMP"; #cfile%, (version%); carousel_playing% #cfile%,carousel_playing% #cfile%,1 c%=1 255: #cfile%,carousel$(c%)+ (0);: #cfile%, (carousel_vol%(c%));: #cfile% ("SetType "+filename$+" Text") assemble_carousel_file(address%) write% $address%="QTMP" address%?4=version% carousel_playing% address%?5=carousel_playing% address%?5=1 write%=address%+6 c%=1 255:$write%=carousel$(c%)+ (0):write%+= (carousel$(c%))+1:?write%=carousel_vol%(c%):write%+=1: get_icon(window%,icon%) block%!0=window% block%!4=icon% "Wimp_GetIconState",,block% ((block%!24) &100)=0 = string_address(block%+8+20) string_address(block%!28) repos_xfer(x%,y%) set_icon(xfersend_handle%,0,"") block%!0=xfersend_handle% "Wimp_GetWindowState",,block% w%=block%!12-block%!4 h%=block%!16-block%!8 lw%=w%/2 rw%=w%-lw% lh%=h%/2 rh%=h%-lh% block%!4=x%-lw% block%!8=y%-lh% block%!12=x%+rw% block%!16=y%+rh% "Wimp_OpenWindow",,block% "Wimp_SetCaretPosition",xfersend_handle%,0,0,0,-1,-1 load_carousel(file$) file%= (file$) file%=0 notify( msg("WhereIsIt")): #file%: #file%<5 notify( msg("NotQTMFile")): #file%: 7header$= #file%)+ #file%)+ #file%)+ #file%) header$<>"QTMP" notify( msg("NotQTMFile")): #file%: fversion%= #file% carousel_playing%= #file% fversion%>version% notify( msg("LaterVersion")) track$= read_file carousel$(c%)=track$ #file%= carousel_vol%(c%)= #file% fversion%256 notify( msg("MoreData")) #file% set_carousel(carousel_playing%) play_carousel(carousel_playing%) tune_loaded%= carousel_unaltered%= lastloaded$=file$ read_file #file% g%<>0 s$+= g%=0 #file% notify(text$) !error%=0 $(error%+4)=text$ "Wimp_ReportError",error%,1 (1<<4),"Warning from QTMPlay" save_track_status file%= (lastloaded$) #file%=5 #file%,carousel_playing% #file% msg(token_to_find$) "XMessageTrans_Lookup",message_desc%,token_to_find$,message_buff%,256 ,,,message_size%;message_found% message_found% message_size%=0 &"message_buff%?message_size%=13 =$message_buff% tidy_exit "Wimp_CloseDown",task%,&4b534154 save_config_file "MessageTrans_CloseFile",message_desc% carousel_playing% carousel_unaltered% quit_savecarouseltrack% save_track_status acknowledge_help whan%=block%!32 ihan%=block%!36 add%= whan% -1 : add%= : token$="WSrc" -2 : ihan%=bar_icon_handle% add%= : token$="BarI" info_handle% : token$="In" xfersend_handle% : token$="Xf" control_handle% : token$="Cn" samples_handle% : token$="Sm" qtmplay_handle% : token$="Qt" choices_handle% : token$="Ch" >6 "Wimp_GetMenuState",1,block%+80,whan%,ihan% token$="Mn" block%!80<>-1 tok_add%=0 C) token$+= (block%!(80+tok_add%)) D3 block%!(80+tok_add%+4)<>-1 :token$+="|" E% block%!(80+tok_add%+4)=-1 F add%= ihan%=-1 add%= add%= token$=token$+ (ihan%) block%!0=256 help_handle%=block%!4 block%!4=task% block%!8,block%!12 block%!16=&503 $(block%+20)= msg(token$) $(block%+20),1)="<" $(block%+20),1)=">" $(block%+20)= $(block%+20),2, ($(block%+20))-2)) "Wimp_SendMessage",17,block%,help_handle% truefalseq(string$) string$ "True" : = : = truefalsea(value%) value% : ="True" : ="False" set_choices tss%= "QTM_SoundControl",-1,1,-1 "QTM_SoundControl",-1,0,-1 thumbtack% set_icon_state(qtmplay_handle%,3) sound_quality%<16 sound_quality%>99 notify( msg("SoundQuality")) "XQTM_SetSampleSpeed",sound_quality% get_choices m:quit_savecarouseltrack%= truefalsew(choices_handle%,3) n3quit_savevolume%= truefalsew(choices_handle%,4) o6quit_savewindowpos%= truefalsew(choices_handle%,5) p1track_directory$= get_icon(choices_handle%,9) q3trackdirwidth%= get_icon(choices_handle%,11)) r4trackdirheight%= get_icon(choices_handle%,13)) s(tss%= truefalsew(choices_handle%,18) t3sound_quality%= get_icon(choices_handle%,20)) put_choices truefalses(choices_handle%,3,quit_savecarouseltrack%) truefalses(choices_handle%,4,quit_savevolume%) truefalses(choices_handle%,5,quit_savewindowpos%) set_icon(choices_handle%,9,track_directory$) set_icon(choices_handle%,11, (trackdirwidth%)) set_icon(choices_handle%,13, (trackdirheight%)) truefalses(choices_handle%,18,tss%) set_icon(choices_handle%,20, (sound_quality%)) truefalsew(window%,icon%) #block%!0=window%:block%!4=icon% "Wimp_GetIconState",,block% (block%!(8+16) (1<<21))=(1<<21) truefalses(window%,icon%,state%) #block%!0=window%:block%!4=icon% state%= block%!8=1<<21:block%!12=1<<21 state%= block%!8=0:block%!12=1<<21 "Wimp_SetIconState",,block% poll_finalsave .csave_pathname$= string_address(block%+44) csave_pathname$,7)="QTMFile" < csave_pathname$= csave_pathname$, (csave_pathname$)-8) repos_xfer(block%!28,block%!32) ! csave_file$=csave_pathname$ save_carousel filename(pathname$) answer$,done% done%= pathname$,".")=0 =pathname$ pos%= (pathname$) pathname$,pos%,1))="." done% answer$= pathname$,pos%+1):done%= =answer$ poll_ramfetch assemble_carousel_file(block%+128) /carousel_file_length%= carousel_file_length theirhandle%=block%!4 "Wimp_TransferBlock",task%,block%+128,block%!4,block%!20,carousel_file_length% block%!0=64 block%!12,block%!8 block%!16=7 #block%!24=carousel_file_length% "Wimp_SendMessage",18,block%,theirhandle% carousel_file_length length%,n% length%=4+1+1 n%=1 255:length%+= (carousel$(n%))+1+1: =length% volume volume% carousel_playing% =newvol% "QTM_Volume",-1 volume% =volume% set_volume(volume%) carousel_playing%) "XQTM_Volume",volume% carousel_playing% Hsetvol=newvol%*(carousel_vol%(carousel_playing%)/100):setvol%=setvol setvol%>64 setvol%=64: notify( msg("IllegalVolume")) setvol%<0 notify( msg("IllegalVolume")) setvol%<=0 setvol%=1 "XQTM_Volume",setvol% find_icons "Wimp_WhichIcon",control_handle%,block%,1<<8,1<<8 icon%=block% 2valid$= get_icon_valid(control_handle%,!icon%) valid$,";")>0 found%= pos%= (valid$) valid$,pos%,1)=";" found% found%= :define$= valid$,pos%+1) pos% define$ "tunepath" : ctrl_tunepath%=!icon% "tunename" : ctrl_tunename%=!icon% "tuneauthor" : ctrl_tuneauthor%=!icon% "samplesopen" : ctrl_samplesopen%=!icon% "currentpos" : ctrl_currentpos%=!icon% "finalpos" : ctrl_finalpos%=!icon% "rewind" : ctrl_rewind%=!icon% "pause" : ctrl_pause%=!icon% "forward" : ctrl_forward%=!icon% "viewing" : ctrl_viewing%=!icon% "carouselleft" : ctrl_carouselleft%=!icon% "carouselright" : ctrl_carouselright%=!icon% "toolbar" : ctrl_toolbar%=!icon% "playing" : ctrl_playing%=!icon% "carouselpath" : ctrl_carouselpath%=!icon% "volumebar" : ctrl_volumebar%=!icon% "download" : ctrl_download%=!icon% icon%+=4 !icon%=-1 get_icon_valid(window%,icon%) block2%=block%+512 block2%!0=window% block2%!4=icon% "Wimp_GetIconState",,block2% ((block2%!24) &100)=0 1,"Icon "+ (icon%)+" is not indirected" (block2%!24 contains_sprite%= contains_sprite%= (block2%!24 contains_text%= contains_text%= contains_text% contains_sprite% string_address(block2%!(20+8+4)) contains_text% contains_sprite% string_address(block2%!(20+8+4)) string_address(block2%!32) read_mode_variables "OS_ReadModeVariable",-1,4 ,,xeig% "OS_ReadModeVariable",-1,5 ,,yeig% "OS_ReadModeVariable",-1,11 ,,xs% "OS_ReadModeVariable",-1,12 ,,ys% scx%=(xs%+1)<0 load_and_play( tail$, tail$,"-file")+6)) open_window(qtmplay_handle%) create_menus memory_needed%+=128 menu% 128 $(menu%)="QTM Player" menu%?12=7 menu%?13=2 menu%?14=7 menu%?15=0 menu%!16=220 menu%!20=44 menu%!24=0 mf%=&7000011 m%=menu%+28 m%!0=0 m%!4=info_handle% m%!8=mf% $(m%+12)="Info"+ m%+=24 m%!0=0 m%!4=-1 m%!8=mf% $(m%+12)="Choices..."+ m%+=24 m%!0=1<<7 m%!4=-1 m%!8=mf% $(m%+12)="Quit"+ menu_items%=(m%-menu%)/24 do_preprocessing "MessageTrans_OpenFile",message_desc%,".Resources.Messages",message_filebuff% taskname$= msg("Task") E#version%= msg("Version"))*100 "OS_ReadModeVariable",-1,4 ,,xeig% "OS_ReadModeVariable",-1,5 ,,yeig% xeig%>1 yeig%>1 sprites$="Sprites" sprites$="Sprites22" Jafile%= (".Resources."+sprites$): file%=0 msg("SpritesMissing") #file% "OS_File",5,".Resources."+sprites$ ,,,,len% sprite_pool% len%+4 memory_needed%+=len%+4 !sprite_pool%=len%+4 "OS_File",255,".Resources."+sprites$,sprite_pool%+4 Qkblock%!0=2:block%!4=3:block%!8=5:block%!12=&502:block%!16=&503:block%!20=6:block%!24=&400C1:block%!28=0 set_postvariables set_carousel(1) carousel_pointer%=1 carousel_playing%= xseq%=0 control_window_open%= polls%=0 menu_open%= do_tickeractions polls%+=1 polls% 50=0 (thumbtack% carousel_playing% control_window_open%) polls%=0 thumbtack% !block%=qtmplay_handle% d( "Wimp_GetWindowState",,block% eR block%!28<>-1 menu_open% block%!28=-1: "Wimp_OpenWindow",,block% fB menu_open% menu_time%+=1: menu_time%>5 menu_open%= control_window_open% investigate_update carousel_playing% j" "QTM_Pos",-1,-1 pseq% pseq%0 play_carousel(nexttrack%) pseq%=0 o xseq%=pseq% lastdrag%=2 "Wimp_GetPointerInfo",,block% stickdrag%>0 w& 0,reclevel%,scx%,0 x2 0,0,scx%,scy%:stickdrag%=0 stickdrag% form_stickdrag "Wimp_DragBox",,-1: poll_stopdrag block%!8=0 "Wimp_DragBox",,-1: poll_stopdrag form_stickdrag block%!4<=(scy%/2) reclevel%=iconbar_top%+myd% reclevel%=scy%+myd%-wyd% stickdrag%=1