Home » Archimedes archive » Acorn User » AU 1994-07.adf » !StarInfo_StarInfo » King/!Fighter/!RunImage
King/!Fighter/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-07.adf » !StarInfo_StarInfo |
| Filename: | King/!Fighter/!RunImage |
| Read OK: | ✔ |
| File size: | 28D3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Acknowledgement
20REM Program Developed with routines
30REM written by A. P. Senior
40REM as provided with the book
50REM BASIC Wimp Programming
60REM published by Dabs Press.
70:
80REM Program Written by
90REM Richard and John King
100:
110 ON ERROR REPORT:PRINT" at line ";ERL DIV10:END
120:
130 PROCdefine_arrays
140:
150 PROCdefine_variables
160:
170 ON ERROR PROCerror(ERR,REPORT$):PROCquit
180:
190 task_handle%=FNtask_initialise(app_name$)
200:
210 PROCinstall_icon
220:
230 PROCload_windows
240:
250 PROCinfo
260:
270 PROCmenus
280:
290 ON ERROR PROCerror(ERR,REPORT$)
300:
310 PROCwimp_poll
320:
330 PROCquit
340:
350DEFPROCdefine_arrays
360LOCAL blk_size%
370:
380 blk_size%=&800
390 DIM blk% blk_size%
400:
410 DIM temp_blk% blk_size%
420:
430 DIM errorblk% &100
440:
450 DIM workstart% &400
460 workfree%=workstart%
470 workend%=workstart%+&400
480:
490DEFPROCmore_arrays
500DIM event_count%(19)
510DIM name$(1),weapon%(1),magic%(1),power%(1)
520DIM mgcskl%(1),wepskl%(1),powskl%(1),loses%(1)
530ENDPROC
540:
550DEFPROCdefine_variables
560 app_sprite$ ="!Fighter"
570 app_name$ ="Fighter"
580 app_purpose$ ="To Fight Files"
590 app_author$ ="R. J. & J. C. King 1994"
600 app_version$ ="Version 1.50, 17/Feb/94"
610:
620 LIBRARY "<Obey$Dir>.Library.WimpLib"
630:
640 app_directory$=FNsystem_variable("Obey$Dir")
650:
660 errorcount%=0
670 menufile%=0
680 icon_bar%=-2
690 select_click%=4
700 adjust_click%=1
710 select_drag%=64
720 adjust_drag%=16
730 menu_click%=2
740 poll_mask%=0
750 poll_time%=0
760 quit%=FALSE
770:
780 PROCmore_variables
790:
800ENDPROC
810:
820DEFPROCmore_variables
830 num_fls=0
840 fight_icon%=15
850 wepskl%(0)=1
860 mgcskl%(0)=2
870 powskl%(0)=3
880 name1%=13
890 wepskl%(1)=4
900 mgcskl%(1)=5
910 powskl%(1)=6
920 name2%=14
930 winner%=18
940 cstnt$="bcdfghjklmnprstvwxz"
950 strtcstntpr$="blbrchclcrdrflfrghgrplprquslspsrscsksmsnstsw"
960 endcstntpr$="ckghlnlmngntrkrcrtrbrdrgrlrmrnrpshskslspst"
970 vowel$="aeiou"
980 loses%(0)=0
990 loses%(1)=0
1000ENDPROC
1010:
1020DEFPROCinstall_icon
1030 icon_bar_handle%=FNput_icon_on_bar(app_sprite$,"RIGHT")
1040ENDPROC
1050:
1060DEFPROCload_windows
1070 info%=FNnew_template(app_directory$+".Templates","info%",workfree%,workend%)
1080 ff%=FNnew_template(app_directory$+".Templates","ff%",workfree%,workend%)
1090ENDPROC
1100:
1110DEFPROCinfo
1120 PROCput_info_text(info%,app_name$,app_purpose$,app_author$,app_version$)
1130ENDPROC
1140:
1150DEFPROCmenus
1160 DIM menu%(1):menu%(1)=FNmenu_info_quit(info%,app_name$)
1170ENDPROC
1180:
1190DEFPROCwimp_poll
1200REPEAT
1210SYS"Wimp_PollIdle",poll_mask%,blk%,poll_time% TO event%
1220CASE event% OF
1230 WHEN 0: PROCnull
1240 WHEN 1: PROCredraw_window
1250 WHEN 2: PROCopen_window_event
1260 WHEN 3: window%=!blk%:PROCclose_window(window%)
1270 WHEN 6: PROCmouse_button
1280 WHEN 9: PROCmenu_selection
1290 WHEN17: PROCmessage
1300 WHEN18: PROCmessage
1310ENDCASE
1320UNTIL quit%
1330 PROCquit
1340ENDPROC
1350:
1360DEFPROCnull
1370 SYS "OS_ReadMonotonicTime" TO poll_time%
1380 poll_time%+=100
1390ENDPROC
1400:
1410DEFPROCredraw_window
1420LOCAL redraw_window%,redraw_more%
1430SYS"Wimp_RedrawWindow",,blk% TO redraw_more%
1440 WHILE redraw_more%
1450 redraw_window%=!blk%
1460 CASE redraw_window% OF
1470 WHEN pyth%
1480 PROCredraw_print_window(blk%)
1490 ENDCASE
1500 !blk%=redraw_window%:SYS"Wimp_GetRectangle",,blk% TO redraw_more%
1510 ENDWHILE
1520ENDPROC
1530:
1540DEFPROCopen_window_event
1550 SYS "Wimp_OpenWindow",,blk%
1560ENDPROC
1570:
1580DEFPROCclose_window(window%)
1590 !blk%=window%
1600 SYS "Wimp_CloseWindow",,blk%
1610ENDPROC
1620:
1630DEF PROCmouse_button
1640 mousex%=blk%!0
1650 mousey%=blk%!4
1660 mousebut%=blk%!8
1670 window_handle%=blk%!12
1680 icon_handle%=blk%!16
1690 CASE window_handle% OF
1700 WHEN icon_bar%
1710 PROCicon_bar_click
1720 WHEN ff%
1730 PROCprint_window_click
1740 ENDCASE
1750ENDPROC
1760:
1770DEFPROCmenu_selection
1780LOCAL menu_path$,menu_item$
1790 menu_path$=FNdecode_menu(current_menu%,blk%)
1800 menu_item$=FNleaf(menu_path$)
1810 CASE current_menu% OF
1820 WHEN menu%(1)
1830 PROCmain_menu(menu_item$)
1840 ENDCASE
1850SYS"Wimp_GetPointerInfo",,blk%
1860IFblk%!8=1 SYS"Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
1870ENDPROC
1880:
1890DEFPROCmessage
1900LOCAL message_type%
1910message_type%=blk%!16
1920 CASE message_type% OF
1930 WHEN 0
1940 quit%=TRUE
1950 WHEN 3
1960 file_type%=blk%!40
1970 file_name$=FNget_string(blk%+44,255)
1980 PROCchrcdtls(file_name$)
1990 ENDCASE
2000ENDPROC
2010:
2020DEFPROCicon_bar_click
2030 CASE mousebut% OF
2040 WHEN menu_click%
2050 menu_context$="icon_bar"
2060 current_menu%=menu%(1)
2070 menu_x%=mousex%-64
2080 menu_y%=FNmenu_height(menu%(1))+96
2090 SYS "Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
2100 WHEN select_click%
2110 PROCopen_window(ff%)
2120 WHEN adjust_click%
2130 PROCshow_value(0,"HIMEM-END")
2140 PROCshow_value(1,"workfree%-workstart%")
2150 ENDCASE
2160ENDPROC
2170:
2180DEFPROCprint_window_click
2190 CASE mousebut% OF
2200 WHEN select_click%
2210 CASE icon_handle% OF
2220 WHEN fight_icon%
2230 IF num_fls=2 THEN
2240 PROCdo_fight_calc
2250 ELSE
2260 VDU7,7,7
2270 IF num_fls=0 THEN mess$="You need to drag on two files"
2280 IF num_fls=1 THEN mess$="You need to drag on another file"
2290 PROCreport_error(mess$,"Error from File Fighter")
2300 ENDIF
2310 ENDCASE
2320 ENDCASE
2330ENDPROC
2340:
2350DEFPROCmain_menu(item$)
2360 CASE item$ OF
2370 WHEN "Quit"
2380 quit%=TRUE
2390 ENDCASE
2400ENDPROC
2410:
2420DEFPROCerror(!errorblk%,error$)
2430:
2440errorcount%+=1
2450IF errorcount%>5:ERROR EXT 0,"Too many errors!"
2460:
2470IF ERR<200 error$+=" at line "+STR$(ERL DIV10)
2480IF ERR=200 error$="*** Error in menu file! *** "+error$
2490IF ERR=201 error$="*** Menu error *** "+error$
2500IF ERR=202 error$="*** Icon error *** "+error$
2510IF ERR=203 error$="*** File error *** "+error$
2520IF ERR=204 error$="*** Window error *** "+error$
2530:
2540SYS"XOS_Find",0,menufile%
2550SYS"XWimp_CloseTemplate"
2560:
2570$(errorblk%+4)=error$
2580SYS "Wimp_ReportError",errorblk%,1,app_name$
2590:
2600ENDPROC
2610:
2620DEFPROCquit
2630SYS "Wimp_CloseDown"
2640END:ENDPROC
2650:
2660DEFPROCchrcdtls(file_name$)
2670 LOCAL X%,BN%,NB%,BWmx$,BMmx%,BPmx%,BW%,BM%,BP%,wp%,mc%,pw%,w$,m$,p$,extent%
2680 IF num_fls<2 THEN
2690 X%=OPENIN(file_name$)
2700 extent%=EXT#X%
2710 PTR#X%=INT(extent%/3)
2720 BN%=BGET#X%
2730 PTR#X%=RND(extent%)
2740 BW%=BGET#X%
2750 PTR#X%=RND(extent%)
2760 BM%=BGET#X%
2770 PTR#X%=RND(extent%)
2780 BP%=BGET#X%
2790 CLOSE#X%
2800 num_fls=num_fls+1
2810 CASE num_fls OF
2820 WHEN 1
2830 PROCput_icon_text(ff%,winner%,"")
2840 name$(0)=FNchname(BN%)
2850 PROCput_icon_text(ff%,name1%,name$(0))
2860 wp%=FNmxstrgth(BN%)
2870 NB%=(BN% AND 240)/16+(BN% AND 15)*16
2880 mc%=FNmxstrgth(NB%)
2890 pw%=FNmxstrgth(INT(BN%+NB%)/2)
2900 weapon%(0)=FNstrgth(BW%,wp%)
2910 magic%(0)=FNstrgth(BM%,mc%)
2920 power%(0)=FNstrgth(BP%,pw%)
2930 w$=STR$(weapon%(0))
2940 PROCput_icon_text(ff%,wepskl%(0),w$)
2950 m$=STR$(magic%(0))
2960 PROCput_icon_text(ff%,mgcskl%(0),m$)
2970 p$=STR$(weapon%(0))
2980 PROCput_icon_text(ff%,powskl%(0),p$)
2990 PROCopen_window(ff%)
3000 WHEN 2
3010 name$(1)=FNchname(BN%)
3020 IF name$(0)=name$(1) THEN
3030 name$(1)=name$(1)+"tuu"
3040 ENDIF
3050 PROCput_icon_text(ff%,name2%,name$(1))
3060 wp%=FNmxstrgth(BN%)
3070 NB%=(BN% AND 240)/16+(BN% AND 15)*16
3080 mc%=FNmxstrgth(NB%)
3090 pw%=FNmxstrgth(INT(BN%+NB%)/2)
3100 weapon%(1)=FNstrgth(BW%,wp%)
3110 magic%(1)=FNstrgth(BM%,mc%)
3120 power%(1)=FNstrgth(BP%,pw%)
3130 w$=STR$(weapon%(1))
3140 PROCput_icon_text(ff%,wepskl%(1),w$)
3150 m$=STR$(magic%(1))
3160 PROCput_icon_text(ff%,mgcskl%(1),m$)
3170 p$=STR$(weapon%(1))
3180 PROCput_icon_text(ff%,powskl%(1),p$)
3190 PROCopen_window(ff%)
3200 ENDCASE
3210 ENDIF
3220ENDPROC
3230 :
3240DEFFNchname(b1%)
3250 LOCAL fpart$,spart$,f$,f%
3260 fpart$=FNblock(b1%)
3270 spart$=FNblock((b1% AND 240)/16+(b1% AND 15)*16)
3280 f$=LEFT$(fpart$,1)
3290 f%=ASC(f$)-32
3300 f$=CHR$(f%)
3310 fpart$=f$+MID$(fpart$,2)
3320=fpart$+spart$
3330:
3340DEFFNblock(b%)
3350 LOCAL w$, w%
3360 w%=b% MOD 3
3370 CASE w% OF
3380 WHEN 0
3390 w$=""
3400 WHEN 1
3410 w$=MID$(vowel$,(b% MOD 5)+1,1)
3420 WHEN 2
3430 w$=MID$(vowel$,(b% MOD 5)+1,1)+MID$(vowel$,((b%*5) MOD 5)+1,1)
3440 ENDCASE
3450 w%=b% MOD 2
3460 CASE w% OF
3470 WHEN 0
3480 w$=w$+MID$(cstnt$,(b% MOD 19)+1,1)
3490 WHEN 1
3500 w$=w$+MID$(strtcstntpr$,((b% MOD 22)+1)*2-1,2)
3510 ENDCASE
3520 IF b%<=127 THEN
3530 w$=w$+MID$(vowel$,(b% MOD 5)+1,1)
3540 ELSE
3550 w$=w$+MID$(vowel$,(b% MOD 5)+1,1)+MID$(vowel$,((b%*5) MOD 5)+1,1)
3560 ENDIF
3570 IF b%<=80 THEN
3580 w$=w$+MID$(cstnt$,((b%*19) MOD 19)+1,1)
3590 ELSE
3600 w$=w$+MID$(endcstntpr$,((b% MOD 21)+1)*2-1,2)
3610 ENDIF
3620=w$
3630 :
3640DEF FNmxstrgth(b%)
3650=INT(90*(b%-80)*(b%-80)/(175*175)+10)
3660 :
3670DEF FNstrgth(b%,m%)
3680=INT((m%-0.8*m%)*b%/255+0.8*m%)
3690 :
3700DEFPROCdo_fight_calc
3710 LOCAL attck%,def%,attckskl$,defskl$,attckval,defval,lose%,tmp%,r
3720 IF weapon%(0)+magic%(0)+power%(0)>weapon%(1)+magic%(1)+power%(1) THEN
3730 attck%=0
3740 def%=1
3750 ELSE
3760 attck%=1
3770 def%=0
3780 ENDIF
3790 REPEAT
3800 attckskl$=FNchskill(attck%)
3810 defskl$=FNchskill(def%)
3820 attckval=FNskillval(attck%,attckskl$)
3830 defval=FNskillval(def%,defskl$)
3840 r=RND(1)
3850 IF r<attckval/(attckval+defval) THEN
3860 lose%=FNdecdef(def%,defskl$)
3870 ELSE
3880 tmp%=def%
3890 def%=attck%
3900 attck%=tmp%
3910 ENDIF
3920 PROCicon_bg_colour(ff%,mgcskl%(0),12)
3930 PROCicon_bg_colour(ff%,mgcskl%(1),12)
3940 PROCicon_bg_colour(ff%,wepskl%(0),12)
3950 PROCicon_bg_colour(ff%,wepskl%(1),12)
3960 UNTIL lose%
3970 PROCput_icon_text(ff%,winner%,name$(attck%))
3980 num_fls=0
3990ENDPROC
4000 :
4010DEFFNchskill(n%)
4020 LOCAL cs$,split,r
4030 IF weapon%(n%)<>0 AND magic%(n%)<>0 THEN
4040 IF power%(n%)<=50 THEN
4050 split=0.5
4060 ELSE
4070 split=power%(n%)/100
4080 ENDIF
4090 r=RND(1)
4100 IF r<split THEN
4110 IF weapon%(n%)>magic%(n%) THEN
4120 cs$="weapon"
4130 PROCicon_bg_colour(ff%,wepskl%(n%),11)
4140 ELSE
4150 cs$="magic"
4160 PROCicon_bg_colour(ff%,mgcskl%(n%),11)
4170 ENDIF
4180 ELSE
4190 IF weapon%(n%)<magic%(n%) THEN
4200 cs$="weapon"
4210 PROCicon_bg_colour(ff%,wepskl%(n%),11)
4220 ELSE
4230 cs$="magic"
4240 PROCicon_bg_colour(ff%,mgcskl%(n%),11)
4250 ENDIF
4260 ENDIF
4270 ELSE
4280 IF weapon%(n%)=0 THEN
4290 cs$="magic"
4300 PROCicon_bg_colour(ff%,mgcskl%(n%),11)
4310 ELSE
4320 cs$="weapon"
4330 PROCicon_bg_colour(ff%,wepskl%(n%),11)
4340 ENDIF
4350 ENDIF
4360=cs$
4370 :
4380DEFFNskillval(n%,n$)
4390 LOCAL s
4400 IF n$="weapon" THEN
4410 s=weapon%(n%)+power%(n%)
4420 ELSE
4430 s=magic%(n%)+power%(n%)
4440 ENDIF
4450=s
4460 :
4470DEFFNdecdef(n%,n$)
4480 LOCAL BLN%,w$
4490 IF n$="weapon" THEN
4500 weapon%(n%)=weapon%(n%)-1
4510 w$=STR$(weapon%(n%))
4520 PROCput_icon_text(ff%,wepskl%(n%),w$)
4530 ELSE
4540 magic%(n%)=magic%(n%)-1
4550 w$=STR$(magic%(n%))
4560 PROCput_icon_text(ff%,mgcskl%(n%),w$)
4570 ENDIF
4580 loses%(n%)=loses%(n%)+1
4590 IF loses%(n%)=10 THEN
4600 power%(n%)=power%(n%)-1
4610 w$=STR$(power%(n%))
4620 PROCput_icon_text(ff%,powskl%(n%),w$)
4630 loses%(n%)=0
4640 ENDIF
4650 IF (weapon%(n%)=0 AND magic%(n%)=0) OR power%(n%)=0 THEN
4660 BLN%=TRUE
4670 ELSE
4680 BLN%=FALSE
4690 ENDIF
4700=BLN%
4710:
4720
� Acknowledgement
%� Program Developed with routines
� written by A. P. Senior
( � as provided with the book
2 � BASIC Wimp Programming
< � published by Dabs Press.
F:
P� Program Written by
Z� Richard and John King
d:
n � � �:�" at line ";� �10:�
x:
� �define_arrays
�:
� �define_variables
�:
� � � �error(�,�$):�quit
�:
�- task_handle%=�task_initialise(app_name$)
�:
� �install_icon
�:
� �load_windows
�:
�
�info
:
�menus
:
" � � �error(�,�$)
,:
6 �wimp_poll
@:
J
�quit
T:
^��define_arrays
h� blk_size%
r:
| blk_size%=&800
� � blk% blk_size%
�:
� � temp_blk% blk_size%
�:
� � errorblk% &100
�:
� � workstart% &400
� workfree%=workstart%
� workend%=workstart%+&400
�:
���more_arrays
�� event_count%(19)
�-� name$(1),weapon%(1),magic%(1),power%(1)
0� mgcskl%(1),wepskl%(1),powskl%(1),loses%(1)
�
:
&��define_variables
0 app_sprite$ ="!Fighter"
: app_name$ ="Fighter"
D$ app_purpose$ ="To Fight Files"
N- app_author$ ="R. J. & J. C. King 1994"
X- app_version$ ="Version 1.50, 17/Feb/94"
b:
l$ ț "<Obey$Dir>.Library.WimpLib"
v:
�0 app_directory$=�system_variable("Obey$Dir")
�:
� errorcount%=0
� menufile%=0
� icon_bar%=-2
� select_click%=4
� adjust_click%=1
� select_drag%=64
� adjust_drag%=16
� menu_click%=2
� poll_mask%=0
� poll_time%=0
� quit%=�
:
�more_variables
:
�
*:
4��more_variables
> num_fls=0
H fight_icon%=15
R wepskl%(0)=1
\ mgcskl%(0)=2
f powskl%(0)=3
p name1%=13
z wepskl%(1)=4
� mgcskl%(1)=5
� powskl%(1)=6
� name2%=14
� winner%=18
�! cstnt$="bcdfghjklmnprstvwxz"
�@ strtcstntpr$="blbrchclcrdrflfrghgrplprquslspsrscsksmsnstsw"
�= endcstntpr$="ckghlnlmngntrkrcrtrbrdrgrlrmrnrpshskslspst"
� vowel$="aeiou"
� loses%(0)=0
� loses%(1)=0
��
�:
���install_icon
; icon_bar_handle%=�put_icon_on_bar(app_sprite$,"RIGHT")
�
:
$��load_windows
.P info%=�new_template(app_directory$+".Templates","info%",workfree%,workend%)
8L ff%=�new_template(app_directory$+".Templates","ff%",workfree%,workend%)
B�
L:
V
��info
`J �put_info_text(info%,app_name$,app_purpose$,app_author$,app_version$)
j�
t:
~ ��menus
�9 � menu%(1):menu%(1)=�menu_info_quit(info%,app_name$)
��
�:
���wimp_poll
��
�9ș"Wimp_PollIdle",poll_mask%,blk%,poll_time% � event%
�Ȏ event% �
� � 0: �null
�! � 1: �redraw_window
�% � 2: �open_window_event
�7 � 3: window%=!blk%:�close_window(window%)
� � 6: �mouse_button
" � 9: �menu_selection
�17: �message
�18: �message
�
( � quit%
2
�quit
<�
F:
P
��null
Z+ ș "OS_ReadMonotonicTime" � poll_time%
d poll_time%+=100
n�
x:
���redraw_window
�!� redraw_window%,redraw_more%
�.ș"Wimp_RedrawWindow",,blk% � redraw_more%
� ȕ redraw_more%
� redraw_window%=!blk%
� Ȏ redraw_window% �
� � pyth%
�( �redraw_print_window(blk%)
� �
�G !blk%=redraw_window%:ș"Wimp_GetRectangle",,blk% � redraw_more%
� �
��
�:
��open_window_event
" ș "Wimp_OpenWindow",,blk%
�
":
,��close_window(window%)
6 !blk%=window%
@# ș "Wimp_CloseWindow",,blk%
J�
T:
^� �mouse_button
h mousex%=blk%!0
r mousey%=blk%!4
| mousebut%=blk%!8
� window_handle%=blk%!12
� icon_handle%=blk%!16
� Ȏ window_handle% �
� � icon_bar%
� �icon_bar_click
�
� ff%
�# �print_window_click
� �
��
�:
���menu_selection
�� menu_path$,menu_item$
�0 menu_path$=�decode_menu(current_menu%,blk%)
! menu_item$=�leaf(menu_path$)
Ȏ current_menu% �
� menu%(1)
&& �main_menu(menu_item$)
0 �
:!ș"Wimp_GetPointerInfo",,blk%
D@�blk%!8=1 ș"Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
N�
X:
b
��message
l� message_type%
vmessage_type%=blk%!16
� Ȏ message_type% �
� � 0
� quit%=�
� � 3
� file_type%=blk%!40
�- file_name$=�get_string(blk%+44,255)
� �chrcdtls(file_name$)
� �
��
�:
���icon_bar_click
� Ȏ mousebut% �
� � menu_click%
" menu_context$="icon_bar"
current_menu%=menu%(1)
" menu_x%=mousex%-64
1 menu_y%=�menu_height(menu%(1))+96
*C ș "Wimp_CreateMenu",,current_menu%,menu_x%,menu_y%
4 � select_click%
>! �open_window(ff%)
H � adjust_click%
R* �show_value(0,"HIMEM-END")
\/ �show_value(1,"workfree%-workstart%")
f �
p�
z:
���print_window_click
� Ȏ mousebut% �
� � select_click%
�# Ȏ icon_handle% �
� � fight_icon%
� � num_fls=2 �
�# �do_fight_calc
� �
� �7,7,7
�H � num_fls=0 � mess$="You need to drag on two files"
�K � num_fls=1 � mess$="You need to drag on another file"
�C �report_error(mess$,"Error from File Fighter")
� �
�
�
�
$:
.��main_menu(item$)
8 Ȏ item$ �
B � "Quit"
L quit%=�
V �
`�
j:
t ��error(!errorblk%,error$)
~:
�errorcount%+=1
�,� errorcount%>5:� � 0,"Too many errors!"
�:
�(� �<200 error$+=" at line "+�(� �10)
�8� �=200 error$="*** Error in menu file! *** "+error$
�8� �=201 error$="*** Menu error *** "+error$
�8� �=202 error$="*** Icon error *** "+error$
�8� �=203 error$="*** File error *** "+error$
�8� �=204 error$="*** Window error *** "+error$
�:
� ș"XOS_Find",0,menufile%
�ș"XWimp_CloseTemplate"
:
$(errorblk%+4)=error$
/ș "Wimp_ReportError",errorblk%,1,app_name$
:
(�
2:
<
��quit
Fș "Wimp_CloseDown"
P�:�
Z:
d��chrcdtls(file_name$)
nL � X%,BN%,NB%,BWmx$,BMmx%,BPmx%,BW%,BM%,BP%,wp%,mc%,pw%,w$,m$,p$,extent%
x � num_fls<2 �
� X%=�(file_name$)
� extent%=�#X%
� �#X%=�(extent%/3)
� BN%=�#X%
� �#X%=�(extent%)
� BW%=�#X%
� �#X%=�(extent%)
� BM%=�#X%
� �#X%=�(extent%)
� BP%=�#X%
�
�#X%
� num_fls=num_fls+1
� Ȏ num_fls �
� 1
& �put_icon_text(ff%,winner%,"")
name$(0)=�chname(BN%)
"+ �put_icon_text(ff%,name1%,name$(0))
, wp%=�mxstrgth(BN%)
6( NB%=(BN% � 240)/16+(BN% � 15)*16
@ mc%=�mxstrgth(NB%)
J# pw%=�mxstrgth(�(BN%+NB%)/2)
T# weapon%(0)=�strgth(BW%,wp%)
^" magic%(0)=�strgth(BM%,mc%)
h" power%(0)=�strgth(BP%,pw%)
r w$=�(weapon%(0))
|) �put_icon_text(ff%,wepskl%(0),w$)
� m$=�(magic%(0))
�) �put_icon_text(ff%,mgcskl%(0),m$)
� p$=�(weapon%(0))
�) �put_icon_text(ff%,powskl%(0),p$)
� �open_window(ff%)
�
� 2
� name$(1)=�chname(BN%)
� � name$(0)=name$(1) �
� name$(1)=name$(1)+"tuu"
� �
�+ �put_icon_text(ff%,name2%,name$(1))
� wp%=�mxstrgth(BN%)
�( NB%=(BN% � 240)/16+(BN% � 15)*16
mc%=�mxstrgth(NB%)
# pw%=�mxstrgth(�(BN%+NB%)/2)
# weapon%(1)=�strgth(BW%,wp%)
&" magic%(1)=�strgth(BM%,mc%)
0" power%(1)=�strgth(BP%,pw%)
: w$=�(weapon%(1))
D) �put_icon_text(ff%,wepskl%(1),w$)
N m$=�(magic%(1))
X) �put_icon_text(ff%,mgcskl%(1),m$)
b p$=�(weapon%(1))
l) �put_icon_text(ff%,powskl%(1),p$)
v �open_window(ff%)
� �
� �
��
� :
�ݤchname(b1%)
� � fpart$,spart$,f$,f%
� fpart$=�block(b1%)
�0 spart$=�block((b1% � 240)/16+(b1% � 15)*16)
� f$=�fpart$,1)
� f%=�(f$)-32
�
f$=�(f%)
� fpart$=f$+�fpart$,2)
�=fpart$+spart$
:
ݤblock(b%)
� w$, w%
w%=b% � 3
* Ȏ w% �
4 � 0
> w$=""
H � 1
R w$=�vowel$,(b% � 5)+1,1)
\ � 2
f9 w$=�vowel$,(b% � 5)+1,1)+�vowel$,((b%*5) � 5)+1,1)
p �
z w%=b% � 2
� Ȏ w% �
� � 0
�# w$=w$+�cstnt$,(b% � 19)+1,1)
� � 1
�/ w$=w$+�strtcstntpr$,((b% � 22)+1)*2-1,2)
� �
� � b%<=127 �
�! w$=w$+�vowel$,(b% � 5)+1,1)
� �
�; w$=w$+�vowel$,(b% � 5)+1,1)+�vowel$,((b%*5) � 5)+1,1)
� �
� � b%<=80 �
�' w$=w$+�cstnt$,((b%*19) � 19)+1,1)
�
- w$=w$+�endcstntpr$,((b% � 21)+1)*2-1,2)
�
$=w$
. :
8� �mxstrgth(b%)
B'=�(90*(b%-80)*(b%-80)/(175*175)+10)
L :
V� �strgth(b%,m%)
`!=�((m%-0.8*m%)*b%/255+0.8*m%)
j :
t��do_fight_calc
~A � attck%,def%,attckskl$,defskl$,attckval,defval,lose%,tmp%,r
�F � weapon%(0)+magic%(0)+power%(0)>weapon%(1)+magic%(1)+power%(1) �
� attck%=0
� def%=1
� �
� attck%=1
� def%=0
� �
� �
� attckskl$=�chskill(attck%)
� defskl$=�chskill(def%)
�* attckval=�skillval(attck%,attckskl$)
�$ defval=�skillval(def%,defskl$)
r=�(1)
& � r<attckval/(attckval+defval) �
" lose%=�decdef(def%,defskl$)
�
( tmp%=def%
2 def%=attck%
< attck%=tmp%
F �
P( �icon_bg_colour(ff%,mgcskl%(0),12)
Z( �icon_bg_colour(ff%,mgcskl%(1),12)
d( �icon_bg_colour(ff%,wepskl%(0),12)
n( �icon_bg_colour(ff%,wepskl%(1),12)
x � lose%
�. �put_icon_text(ff%,winner%,name$(attck%))
� num_fls=0
��
� :
�ݤchskill(n%)
� � cs$,split,r
�' � weapon%(n%)<>0 � magic%(n%)<>0 �
� � power%(n%)<=50 �
� split=0.5
� �
� split=power%(n%)/100
� �
�
r=�(1)
� r<split �
# � weapon%(n%)>magic%(n%) �
cs$="weapon"
". �icon_bg_colour(ff%,wepskl%(n%),11)
,
�
6 cs$="magic"
@. �icon_bg_colour(ff%,mgcskl%(n%),11)
J
�
T �
^# � weapon%(n%)<magic%(n%) �
h cs$="weapon"
r. �icon_bg_colour(ff%,wepskl%(n%),11)
|
�
� cs$="magic"
�. �icon_bg_colour(ff%,mgcskl%(n%),11)
�
�
� �
� �
� � weapon%(n%)=0 �
� cs$="magic"
�, �icon_bg_colour(ff%,mgcskl%(n%),11)
� �
� cs$="weapon"
�, �icon_bg_colour(ff%,wepskl%(n%),11)
� �
� �
=cs$
:
ݤskillval(n%,n$)
& � s
0 � n$="weapon" �
: s=weapon%(n%)+power%(n%)
D �
N s=magic%(n%)+power%(n%)
X �
b=s
l :
vݤdecdef(n%,n$)
� � BLN%,w$
� � n$="weapon" �
� weapon%(n%)=weapon%(n%)-1
� w$=�(weapon%(n%))
�) �put_icon_text(ff%,wepskl%(n%),w$)
� �
� magic%(n%)=magic%(n%)-1
� w$=�(magic%(n%))
�) �put_icon_text(ff%,mgcskl%(n%),w$)
� �
� loses%(n%)=loses%(n%)+1
� � loses%(n%)=10 �
� power%(n%)=power%(n%)-1
w$=�(power%(n%))
) �put_icon_text(ff%,powskl%(n%),w$)
loses%(n%)=0
�
*6 � (weapon%(n%)=0 � magic%(n%)=0) � power%(n%)=0 �
4
BLN%=�
> �
H
BLN%=�
R �
\ =BLN%
f:
p
� 00000000 0d 00 0a 15 f4 20 41 63 6b 6e 6f 77 6c 65 64 67 |..... Acknowledg|
00000010 65 6d 65 6e 74 0d 00 14 25 f4 20 50 72 6f 67 72 |ement...%. Progr|
00000020 61 6d 20 44 65 76 65 6c 6f 70 65 64 20 77 69 74 |am Developed wit|
00000030 68 20 72 6f 75 74 69 6e 65 73 0d 00 1e 1d f4 20 |h routines..... |
00000040 77 72 69 74 74 65 6e 20 62 79 20 41 2e 20 50 2e |written by A. P.|
00000050 20 53 65 6e 69 6f 72 0d 00 28 1f f4 20 61 73 20 | Senior..(.. as |
00000060 70 72 6f 76 69 64 65 64 20 77 69 74 68 20 74 68 |provided with th|
00000070 65 20 62 6f 6f 6b 0d 00 32 1c f4 20 42 41 53 49 |e book..2.. BASI|
00000080 43 20 57 69 6d 70 20 50 72 6f 67 72 61 6d 6d 69 |C Wimp Programmi|
00000090 6e 67 0d 00 3c 1e f4 20 70 75 62 6c 69 73 68 65 |ng..<.. publishe|
000000a0 64 20 62 79 20 44 61 62 73 20 50 72 65 73 73 2e |d by Dabs Press.|
000000b0 0d 00 46 05 3a 0d 00 50 18 f4 20 50 72 6f 67 72 |..F.:..P.. Progr|
000000c0 61 6d 20 57 72 69 74 74 65 6e 20 62 79 0d 00 5a |am Written by..Z|
000000d0 1b f4 20 52 69 63 68 61 72 64 20 61 6e 64 20 4a |.. Richard and J|
000000e0 6f 68 6e 20 4b 69 6e 67 0d 00 64 05 3a 0d 00 6e |ohn King..d.:..n|
000000f0 1f 20 ee 20 85 20 f6 3a f1 22 20 61 74 20 6c 69 |. . . .:." at li|
00000100 6e 65 20 22 3b 9e 20 81 31 30 3a e0 0d 00 78 05 |ne ";. .10:...x.|
00000110 3a 0d 00 82 13 20 f2 64 65 66 69 6e 65 5f 61 72 |:.... .define_ar|
00000120 72 61 79 73 0d 00 8c 05 3a 0d 00 96 16 20 f2 64 |rays....:.... .d|
00000130 65 66 69 6e 65 5f 76 61 72 69 61 62 6c 65 73 0d |efine_variables.|
00000140 00 a0 05 3a 0d 00 aa 1b 20 ee 20 85 20 f2 65 72 |...:.... . . .er|
00000150 72 6f 72 28 9f 2c f6 24 29 3a f2 71 75 69 74 0d |ror(.,.$):.quit.|
00000160 00 b4 05 3a 0d 00 be 2d 20 74 61 73 6b 5f 68 61 |...:...- task_ha|
00000170 6e 64 6c 65 25 3d a4 74 61 73 6b 5f 69 6e 69 74 |ndle%=.task_init|
00000180 69 61 6c 69 73 65 28 61 70 70 5f 6e 61 6d 65 24 |ialise(app_name$|
00000190 29 0d 00 c8 05 3a 0d 00 d2 12 20 f2 69 6e 73 74 |)....:.... .inst|
000001a0 61 6c 6c 5f 69 63 6f 6e 0d 00 dc 05 3a 0d 00 e6 |all_icon....:...|
000001b0 12 20 f2 6c 6f 61 64 5f 77 69 6e 64 6f 77 73 0d |. .load_windows.|
000001c0 00 f0 05 3a 0d 00 fa 0a 20 f2 69 6e 66 6f 0d 01 |...:.... .info..|
000001d0 04 05 3a 0d 01 0e 0b 20 f2 6d 65 6e 75 73 0d 01 |..:.... .menus..|
000001e0 18 05 3a 0d 01 22 15 20 ee 20 85 20 f2 65 72 72 |..:..". . . .err|
000001f0 6f 72 28 9f 2c f6 24 29 0d 01 2c 05 3a 0d 01 36 |or(.,.$)..,.:..6|
00000200 0f 20 f2 77 69 6d 70 5f 70 6f 6c 6c 0d 01 40 05 |. .wimp_poll..@.|
00000210 3a 0d 01 4a 0a 20 f2 71 75 69 74 0d 01 54 05 3a |:..J. .quit..T.:|
00000220 0d 01 5e 13 dd f2 64 65 66 69 6e 65 5f 61 72 72 |..^...define_arr|
00000230 61 79 73 0d 01 68 0f ea 20 62 6c 6b 5f 73 69 7a |ays..h.. blk_siz|
00000240 65 25 0d 01 72 05 3a 0d 01 7c 13 20 62 6c 6b 5f |e%..r.:..|. blk_|
00000250 73 69 7a 65 25 3d 26 38 30 30 0d 01 86 15 20 de |size%=&800.... .|
00000260 20 62 6c 6b 25 20 62 6c 6b 5f 73 69 7a 65 25 0d | blk% blk_size%.|
00000270 01 90 05 3a 0d 01 9a 1a 20 de 20 74 65 6d 70 5f |...:.... . temp_|
00000280 62 6c 6b 25 20 62 6c 6b 5f 73 69 7a 65 25 0d 01 |blk% blk_size%..|
00000290 a4 05 3a 0d 01 ae 15 20 de 20 65 72 72 6f 72 62 |..:.... . errorb|
000002a0 6c 6b 25 20 26 31 30 30 0d 01 b8 05 3a 0d 01 c2 |lk% &100....:...|
000002b0 16 20 de 20 77 6f 72 6b 73 74 61 72 74 25 20 26 |. . workstart% &|
000002c0 34 30 30 0d 01 cc 19 20 77 6f 72 6b 66 72 65 65 |400.... workfree|
000002d0 25 3d 77 6f 72 6b 73 74 61 72 74 25 0d 01 d6 1d |%=workstart%....|
000002e0 20 77 6f 72 6b 65 6e 64 25 3d 77 6f 72 6b 73 74 | workend%=workst|
000002f0 61 72 74 25 2b 26 34 30 30 0d 01 e0 05 3a 0d 01 |art%+&400....:..|
00000300 ea 11 dd f2 6d 6f 72 65 5f 61 72 72 61 79 73 0d |....more_arrays.|
00000310 01 f4 16 de 20 65 76 65 6e 74 5f 63 6f 75 6e 74 |.... event_count|
00000320 25 28 31 39 29 0d 01 fe 2d de 20 6e 61 6d 65 24 |%(19)...-. name$|
00000330 28 31 29 2c 77 65 61 70 6f 6e 25 28 31 29 2c 6d |(1),weapon%(1),m|
00000340 61 67 69 63 25 28 31 29 2c 70 6f 77 65 72 25 28 |agic%(1),power%(|
00000350 31 29 0d 02 08 30 de 20 6d 67 63 73 6b 6c 25 28 |1)...0. mgcskl%(|
00000360 31 29 2c 77 65 70 73 6b 6c 25 28 31 29 2c 70 6f |1),wepskl%(1),po|
00000370 77 73 6b 6c 25 28 31 29 2c 6c 6f 73 65 73 25 28 |wskl%(1),loses%(|
00000380 31 29 0d 02 12 05 e1 0d 02 1c 05 3a 0d 02 26 16 |1).........:..&.|
00000390 dd f2 64 65 66 69 6e 65 5f 76 61 72 69 61 62 6c |..define_variabl|
000003a0 65 73 0d 02 30 1e 20 61 70 70 5f 73 70 72 69 74 |es..0. app_sprit|
000003b0 65 24 20 20 20 3d 22 21 46 69 67 68 74 65 72 22 |e$ ="!Fighter"|
000003c0 0d 02 3a 1d 20 61 70 70 5f 6e 61 6d 65 24 20 20 |..:. app_name$ |
000003d0 20 20 20 3d 22 46 69 67 68 74 65 72 22 0d 02 44 | ="Fighter"..D|
000003e0 24 20 61 70 70 5f 70 75 72 70 6f 73 65 24 20 20 |$ app_purpose$ |
000003f0 3d 22 54 6f 20 46 69 67 68 74 20 46 69 6c 65 73 |="To Fight Files|
00000400 22 0d 02 4e 2d 20 61 70 70 5f 61 75 74 68 6f 72 |"..N- app_author|
00000410 24 20 20 20 3d 22 52 2e 20 4a 2e 20 26 20 4a 2e |$ ="R. J. & J.|
00000420 20 43 2e 20 4b 69 6e 67 20 31 39 39 34 22 0d 02 | C. King 1994"..|
00000430 58 2d 20 61 70 70 5f 76 65 72 73 69 6f 6e 24 20 |X- app_version$ |
00000440 20 3d 22 56 65 72 73 69 6f 6e 20 31 2e 35 30 2c | ="Version 1.50,|
00000450 20 31 37 2f 46 65 62 2f 39 34 22 0d 02 62 05 3a | 17/Feb/94"..b.:|
00000460 0d 02 6c 24 20 c8 9b 20 22 3c 4f 62 65 79 24 44 |..l$ .. "<Obey$D|
00000470 69 72 3e 2e 4c 69 62 72 61 72 79 2e 57 69 6d 70 |ir>.Library.Wimp|
00000480 4c 69 62 22 0d 02 76 05 3a 0d 02 80 30 20 61 70 |Lib"..v.:...0 ap|
00000490 70 5f 64 69 72 65 63 74 6f 72 79 24 3d a4 73 79 |p_directory$=.sy|
000004a0 73 74 65 6d 5f 76 61 72 69 61 62 6c 65 28 22 4f |stem_variable("O|
000004b0 62 65 79 24 44 69 72 22 29 0d 02 8a 05 3a 0d 02 |bey$Dir")....:..|
000004c0 94 12 20 65 72 72 6f 72 63 6f 75 6e 74 25 3d 30 |.. errorcount%=0|
000004d0 0d 02 9e 10 20 6d 65 6e 75 66 69 6c 65 25 3d 30 |.... menufile%=0|
000004e0 0d 02 a8 11 20 69 63 6f 6e 5f 62 61 72 25 3d 2d |.... icon_bar%=-|
000004f0 32 0d 02 b2 14 20 73 65 6c 65 63 74 5f 63 6c 69 |2.... select_cli|
00000500 63 6b 25 3d 34 0d 02 bc 14 20 61 64 6a 75 73 74 |ck%=4.... adjust|
00000510 5f 63 6c 69 63 6b 25 3d 31 0d 02 c6 14 20 73 65 |_click%=1.... se|
00000520 6c 65 63 74 5f 64 72 61 67 25 3d 36 34 0d 02 d0 |lect_drag%=64...|
00000530 14 20 61 64 6a 75 73 74 5f 64 72 61 67 25 3d 31 |. adjust_drag%=1|
00000540 36 0d 02 da 12 20 6d 65 6e 75 5f 63 6c 69 63 6b |6.... menu_click|
00000550 25 3d 32 0d 02 e4 11 20 70 6f 6c 6c 5f 6d 61 73 |%=2.... poll_mas|
00000560 6b 25 3d 30 0d 02 ee 11 20 70 6f 6c 6c 5f 74 69 |k%=0.... poll_ti|
00000570 6d 65 25 3d 30 0d 02 f8 0c 20 71 75 69 74 25 3d |me%=0.... quit%=|
00000580 a3 0d 03 02 05 3a 0d 03 0c 14 20 f2 6d 6f 72 65 |.....:.... .more|
00000590 5f 76 61 72 69 61 62 6c 65 73 0d 03 16 05 3a 0d |_variables....:.|
000005a0 03 20 05 e1 0d 03 2a 05 3a 0d 03 34 14 dd f2 6d |. ....*.:..4...m|
000005b0 6f 72 65 5f 76 61 72 69 61 62 6c 65 73 0d 03 3e |ore_variables..>|
000005c0 0e 20 6e 75 6d 5f 66 6c 73 3d 30 0d 03 48 13 20 |. num_fls=0..H. |
000005d0 66 69 67 68 74 5f 69 63 6f 6e 25 3d 31 35 0d 03 |fight_icon%=15..|
000005e0 52 11 20 77 65 70 73 6b 6c 25 28 30 29 3d 31 0d |R. wepskl%(0)=1.|
000005f0 03 5c 11 20 6d 67 63 73 6b 6c 25 28 30 29 3d 32 |.\. mgcskl%(0)=2|
00000600 0d 03 66 11 20 70 6f 77 73 6b 6c 25 28 30 29 3d |..f. powskl%(0)=|
00000610 33 0d 03 70 0e 20 6e 61 6d 65 31 25 3d 31 33 0d |3..p. name1%=13.|
00000620 03 7a 11 20 77 65 70 73 6b 6c 25 28 31 29 3d 34 |.z. wepskl%(1)=4|
00000630 0d 03 84 11 20 6d 67 63 73 6b 6c 25 28 31 29 3d |.... mgcskl%(1)=|
00000640 35 0d 03 8e 11 20 70 6f 77 73 6b 6c 25 28 31 29 |5.... powskl%(1)|
00000650 3d 36 0d 03 98 0e 20 6e 61 6d 65 32 25 3d 31 34 |=6.... name2%=14|
00000660 0d 03 a2 0f 20 77 69 6e 6e 65 72 25 3d 31 38 0d |.... winner%=18.|
00000670 03 ac 21 20 63 73 74 6e 74 24 3d 22 62 63 64 66 |..! cstnt$="bcdf|
00000680 67 68 6a 6b 6c 6d 6e 70 72 73 74 76 77 78 7a 22 |ghjklmnprstvwxz"|
00000690 0d 03 b6 40 20 73 74 72 74 63 73 74 6e 74 70 72 |...@ strtcstntpr|
000006a0 24 3d 22 62 6c 62 72 63 68 63 6c 63 72 64 72 66 |$="blbrchclcrdrf|
000006b0 6c 66 72 67 68 67 72 70 6c 70 72 71 75 73 6c 73 |lfrghgrplprqusls|
000006c0 70 73 72 73 63 73 6b 73 6d 73 6e 73 74 73 77 22 |psrscsksmsnstsw"|
000006d0 0d 03 c0 3d 20 65 6e 64 63 73 74 6e 74 70 72 24 |...= endcstntpr$|
000006e0 3d 22 63 6b 67 68 6c 6e 6c 6d 6e 67 6e 74 72 6b |="ckghlnlmngntrk|
000006f0 72 63 72 74 72 62 72 64 72 67 72 6c 72 6d 72 6e |rcrtrbrdrgrlrmrn|
00000700 72 70 73 68 73 6b 73 6c 73 70 73 74 22 0d 03 ca |rpshskslspst"...|
00000710 13 20 76 6f 77 65 6c 24 3d 22 61 65 69 6f 75 22 |. vowel$="aeiou"|
00000720 0d 03 d4 10 20 6c 6f 73 65 73 25 28 30 29 3d 30 |.... loses%(0)=0|
00000730 0d 03 de 10 20 6c 6f 73 65 73 25 28 31 29 3d 30 |.... loses%(1)=0|
00000740 0d 03 e8 05 e1 0d 03 f2 05 3a 0d 03 fc 12 dd f2 |.........:......|
00000750 69 6e 73 74 61 6c 6c 5f 69 63 6f 6e 0d 04 06 3b |install_icon...;|
00000760 20 69 63 6f 6e 5f 62 61 72 5f 68 61 6e 64 6c 65 | icon_bar_handle|
00000770 25 3d a4 70 75 74 5f 69 63 6f 6e 5f 6f 6e 5f 62 |%=.put_icon_on_b|
00000780 61 72 28 61 70 70 5f 73 70 72 69 74 65 24 2c 22 |ar(app_sprite$,"|
00000790 52 49 47 48 54 22 29 0d 04 10 05 e1 0d 04 1a 05 |RIGHT").........|
000007a0 3a 0d 04 24 12 dd f2 6c 6f 61 64 5f 77 69 6e 64 |:..$...load_wind|
000007b0 6f 77 73 0d 04 2e 50 20 69 6e 66 6f 25 3d a4 6e |ows...P info%=.n|
000007c0 65 77 5f 74 65 6d 70 6c 61 74 65 28 61 70 70 5f |ew_template(app_|
000007d0 64 69 72 65 63 74 6f 72 79 24 2b 22 2e 54 65 6d |directory$+".Tem|
000007e0 70 6c 61 74 65 73 22 2c 22 69 6e 66 6f 25 22 2c |plates","info%",|
000007f0 77 6f 72 6b 66 72 65 65 25 2c 77 6f 72 6b 65 6e |workfree%,worken|
00000800 64 25 29 0d 04 38 4c 20 66 66 25 3d a4 6e 65 77 |d%)..8L ff%=.new|
00000810 5f 74 65 6d 70 6c 61 74 65 28 61 70 70 5f 64 69 |_template(app_di|
00000820 72 65 63 74 6f 72 79 24 2b 22 2e 54 65 6d 70 6c |rectory$+".Templ|
00000830 61 74 65 73 22 2c 22 66 66 25 22 2c 77 6f 72 6b |ates","ff%",work|
00000840 66 72 65 65 25 2c 77 6f 72 6b 65 6e 64 25 29 0d |free%,workend%).|
00000850 04 42 05 e1 0d 04 4c 05 3a 0d 04 56 0a dd f2 69 |.B....L.:..V...i|
00000860 6e 66 6f 0d 04 60 4a 20 f2 70 75 74 5f 69 6e 66 |nfo..`J .put_inf|
00000870 6f 5f 74 65 78 74 28 69 6e 66 6f 25 2c 61 70 70 |o_text(info%,app|
00000880 5f 6e 61 6d 65 24 2c 61 70 70 5f 70 75 72 70 6f |_name$,app_purpo|
00000890 73 65 24 2c 61 70 70 5f 61 75 74 68 6f 72 24 2c |se$,app_author$,|
000008a0 61 70 70 5f 76 65 72 73 69 6f 6e 24 29 0d 04 6a |app_version$)..j|
000008b0 05 e1 0d 04 74 05 3a 0d 04 7e 0b dd f2 6d 65 6e |....t.:..~...men|
000008c0 75 73 0d 04 88 39 20 de 20 6d 65 6e 75 25 28 31 |us...9 . menu%(1|
000008d0 29 3a 6d 65 6e 75 25 28 31 29 3d a4 6d 65 6e 75 |):menu%(1)=.menu|
000008e0 5f 69 6e 66 6f 5f 71 75 69 74 28 69 6e 66 6f 25 |_info_quit(info%|
000008f0 2c 61 70 70 5f 6e 61 6d 65 24 29 0d 04 92 05 e1 |,app_name$).....|
00000900 0d 04 9c 05 3a 0d 04 a6 0f dd f2 77 69 6d 70 5f |....:......wimp_|
00000910 70 6f 6c 6c 0d 04 b0 05 f5 0d 04 ba 39 c8 99 22 |poll........9.."|
00000920 57 69 6d 70 5f 50 6f 6c 6c 49 64 6c 65 22 2c 70 |Wimp_PollIdle",p|
00000930 6f 6c 6c 5f 6d 61 73 6b 25 2c 62 6c 6b 25 2c 70 |oll_mask%,blk%,p|
00000940 6f 6c 6c 5f 74 69 6d 65 25 20 b8 20 65 76 65 6e |oll_time% . even|
00000950 74 25 0d 04 c4 0f c8 8e 20 65 76 65 6e 74 25 20 |t%...... event% |
00000960 ca 0d 04 ce 18 20 20 c9 20 30 3a 20 20 20 20 20 |..... . 0: |
00000970 20 20 20 20 f2 6e 75 6c 6c 0d 04 d8 21 20 20 c9 | .null...! .|
00000980 20 31 3a 20 20 20 20 20 20 20 20 20 f2 72 65 64 | 1: .red|
00000990 72 61 77 5f 77 69 6e 64 6f 77 0d 04 e2 25 20 20 |raw_window...% |
000009a0 c9 20 32 3a 20 20 20 20 20 20 20 20 20 f2 6f 70 |. 2: .op|
000009b0 65 6e 5f 77 69 6e 64 6f 77 5f 65 76 65 6e 74 0d |en_window_event.|
000009c0 04 ec 37 20 20 c9 20 33 3a 20 20 20 20 20 20 20 |..7 . 3: |
000009d0 20 20 77 69 6e 64 6f 77 25 3d 21 62 6c 6b 25 3a | window%=!blk%:|
000009e0 f2 63 6c 6f 73 65 5f 77 69 6e 64 6f 77 28 77 69 |.close_window(wi|
000009f0 6e 64 6f 77 25 29 0d 04 f6 20 20 20 c9 20 36 3a |ndow%)... . 6:|
00000a00 20 20 20 20 20 20 20 20 20 f2 6d 6f 75 73 65 5f | .mouse_|
00000a10 62 75 74 74 6f 6e 0d 05 00 22 20 20 c9 20 39 3a |button..." . 9:|
00000a20 20 20 20 20 20 20 20 20 20 f2 6d 65 6e 75 5f 73 | .menu_s|
00000a30 65 6c 65 63 74 69 6f 6e 0d 05 0a 1b 20 20 c9 31 |election.... .1|
00000a40 37 3a 20 20 20 20 20 20 20 20 20 f2 6d 65 73 73 |7: .mess|
00000a50 61 67 65 0d 05 14 1b 20 20 c9 31 38 3a 20 20 20 |age.... .18: |
00000a60 20 20 20 20 20 20 f2 6d 65 73 73 61 67 65 0d 05 | .message..|
00000a70 1e 05 cb 0d 05 28 0b fd 20 71 75 69 74 25 0d 05 |.....(.. quit%..|
00000a80 32 0a 20 f2 71 75 69 74 0d 05 3c 05 e1 0d 05 46 |2. .quit..<....F|
00000a90 05 3a 0d 05 50 0a dd f2 6e 75 6c 6c 0d 05 5a 2b |.:..P...null..Z+|
00000aa0 20 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f | .. "OS_ReadMono|
00000ab0 74 6f 6e 69 63 54 69 6d 65 22 20 b8 20 70 6f 6c |tonicTime" . pol|
00000ac0 6c 5f 74 69 6d 65 25 0d 05 64 14 20 70 6f 6c 6c |l_time%..d. poll|
00000ad0 5f 74 69 6d 65 25 2b 3d 31 30 30 0d 05 6e 05 e1 |_time%+=100..n..|
00000ae0 0d 05 78 05 3a 0d 05 82 13 dd f2 72 65 64 72 61 |..x.:......redra|
00000af0 77 5f 77 69 6e 64 6f 77 0d 05 8c 21 ea 20 72 65 |w_window...!. re|
00000b00 64 72 61 77 5f 77 69 6e 64 6f 77 25 2c 72 65 64 |draw_window%,red|
00000b10 72 61 77 5f 6d 6f 72 65 25 0d 05 96 2e c8 99 22 |raw_more%......"|
00000b20 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f |Wimp_RedrawWindo|
00000b30 77 22 2c 2c 62 6c 6b 25 20 b8 20 72 65 64 72 61 |w",,blk% . redra|
00000b40 77 5f 6d 6f 72 65 25 0d 05 a0 15 20 20 c8 95 20 |w_more%.... .. |
00000b50 72 65 64 72 61 77 5f 6d 6f 72 65 25 0d 05 aa 1c |redraw_more%....|
00000b60 20 20 20 20 72 65 64 72 61 77 5f 77 69 6e 64 6f | redraw_windo|
00000b70 77 25 3d 21 62 6c 6b 25 0d 05 b4 1d 20 20 20 20 |w%=!blk%.... |
00000b80 20 20 c8 8e 20 72 65 64 72 61 77 5f 77 69 6e 64 | .. redraw_wind|
00000b90 6f 77 25 20 ca 0d 05 be 13 20 20 20 20 20 20 20 |ow% ..... |
00000ba0 20 c9 20 70 79 74 68 25 0d 05 c8 28 20 20 20 20 | . pyth%...( |
00000bb0 20 20 20 20 20 20 f2 72 65 64 72 61 77 5f 70 72 | .redraw_pr|
00000bc0 69 6e 74 5f 77 69 6e 64 6f 77 28 62 6c 6b 25 29 |int_window(blk%)|
00000bd0 0d 05 d2 0b 20 20 20 20 20 20 cb 0d 05 dc 47 20 |.... ....G |
00000be0 20 20 20 21 62 6c 6b 25 3d 72 65 64 72 61 77 5f | !blk%=redraw_|
00000bf0 77 69 6e 64 6f 77 25 3a c8 99 22 57 69 6d 70 5f |window%:.."Wimp_|
00000c00 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 |GetRectangle",,b|
00000c10 6c 6b 25 20 b8 20 72 65 64 72 61 77 5f 6d 6f 72 |lk% . redraw_mor|
00000c20 65 25 0d 05 e6 07 20 20 ce 0d 05 f0 05 e1 0d 05 |e%.... ........|
00000c30 fa 05 3a 0d 06 04 17 dd f2 6f 70 65 6e 5f 77 69 |..:......open_wi|
00000c40 6e 64 6f 77 5f 65 76 65 6e 74 0d 06 0e 22 20 20 |ndow_event..." |
00000c50 20 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 | .. "Wimp_OpenW|
00000c60 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 06 18 05 |indow",,blk%....|
00000c70 e1 0d 06 22 05 3a 0d 06 2c 1b dd f2 63 6c 6f 73 |...".:..,...clos|
00000c80 65 5f 77 69 6e 64 6f 77 28 77 69 6e 64 6f 77 25 |e_window(window%|
00000c90 29 0d 06 36 15 20 20 20 20 21 62 6c 6b 25 3d 77 |)..6. !blk%=w|
00000ca0 69 6e 64 6f 77 25 0d 06 40 23 20 20 20 20 c8 99 |indow%..@# ..|
00000cb0 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 | "Wimp_CloseWind|
00000cc0 6f 77 22 2c 2c 62 6c 6b 25 0d 06 4a 05 e1 0d 06 |ow",,blk%..J....|
00000cd0 54 05 3a 0d 06 5e 13 dd 20 f2 6d 6f 75 73 65 5f |T.:..^.. .mouse_|
00000ce0 62 75 74 74 6f 6e 0d 06 68 13 20 6d 6f 75 73 65 |button..h. mouse|
00000cf0 78 25 3d 62 6c 6b 25 21 30 0d 06 72 13 20 6d 6f |x%=blk%!0..r. mo|
00000d00 75 73 65 79 25 3d 62 6c 6b 25 21 34 0d 06 7c 15 |usey%=blk%!4..|.|
00000d10 20 6d 6f 75 73 65 62 75 74 25 3d 62 6c 6b 25 21 | mousebut%=blk%!|
00000d20 38 0d 06 86 1b 20 77 69 6e 64 6f 77 5f 68 61 6e |8.... window_han|
00000d30 64 6c 65 25 3d 62 6c 6b 25 21 31 32 0d 06 90 19 |dle%=blk%!12....|
00000d40 20 69 63 6f 6e 5f 68 61 6e 64 6c 65 25 3d 62 6c | icon_handle%=bl|
00000d50 6b 25 21 31 36 0d 06 9a 19 20 20 c8 8e 20 77 69 |k%!16.... .. wi|
00000d60 6e 64 6f 77 5f 68 61 6e 64 6c 65 25 20 ca 0d 06 |ndow_handle% ...|
00000d70 a4 13 20 20 20 20 c9 20 69 63 6f 6e 5f 62 61 72 |.. . icon_bar|
00000d80 25 0d 06 ae 1f 20 20 20 20 20 20 20 20 20 20 20 |%.... |
00000d90 20 f2 69 63 6f 6e 5f 62 61 72 5f 63 6c 69 63 6b | .icon_bar_click|
00000da0 0d 06 b8 0d 20 20 20 20 c9 20 66 66 25 0d 06 c2 |.... . ff%...|
00000db0 23 20 20 20 20 20 20 20 20 20 20 20 20 f2 70 72 |# .pr|
00000dc0 69 6e 74 5f 77 69 6e 64 6f 77 5f 63 6c 69 63 6b |int_window_click|
00000dd0 0d 06 cc 09 20 20 20 20 cb 0d 06 d6 05 e1 0d 06 |.... ........|
00000de0 e0 05 3a 0d 06 ea 14 dd f2 6d 65 6e 75 5f 73 65 |..:......menu_se|
00000df0 6c 65 63 74 69 6f 6e 0d 06 f4 1b ea 20 6d 65 6e |lection..... men|
00000e00 75 5f 70 61 74 68 24 2c 6d 65 6e 75 5f 69 74 65 |u_path$,menu_ite|
00000e10 6d 24 0d 06 fe 30 20 6d 65 6e 75 5f 70 61 74 68 |m$...0 menu_path|
00000e20 24 3d a4 64 65 63 6f 64 65 5f 6d 65 6e 75 28 63 |$=.decode_menu(c|
00000e30 75 72 72 65 6e 74 5f 6d 65 6e 75 25 2c 62 6c 6b |urrent_menu%,blk|
00000e40 25 29 0d 07 08 21 20 6d 65 6e 75 5f 69 74 65 6d |%)...! menu_item|
00000e50 24 3d a4 6c 65 61 66 28 6d 65 6e 75 5f 70 61 74 |$=.leaf(menu_pat|
00000e60 68 24 29 0d 07 12 18 20 20 c8 8e 20 63 75 72 72 |h$).... .. curr|
00000e70 65 6e 74 5f 6d 65 6e 75 25 20 ca 0d 07 1c 12 20 |ent_menu% ..... |
00000e80 20 20 20 c9 20 6d 65 6e 75 25 28 31 29 0d 07 26 | . menu%(1)..&|
00000e90 26 20 20 20 20 20 20 20 20 20 20 20 20 f2 6d 61 |& .ma|
00000ea0 69 6e 5f 6d 65 6e 75 28 6d 65 6e 75 5f 69 74 65 |in_menu(menu_ite|
00000eb0 6d 24 29 0d 07 30 07 20 20 cb 0d 07 3a 21 c8 99 |m$)..0. ...:!..|
00000ec0 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 |"Wimp_GetPointer|
00000ed0 49 6e 66 6f 22 2c 2c 62 6c 6b 25 0d 07 44 40 e7 |Info",,blk%..D@.|
00000ee0 62 6c 6b 25 21 38 3d 31 20 c8 99 22 57 69 6d 70 |blk%!8=1 .."Wimp|
00000ef0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 63 75 |_CreateMenu",,cu|
00000f00 72 72 65 6e 74 5f 6d 65 6e 75 25 2c 6d 65 6e 75 |rrent_menu%,menu|
00000f10 5f 78 25 2c 6d 65 6e 75 5f 79 25 0d 07 4e 05 e1 |_x%,menu_y%..N..|
00000f20 0d 07 58 05 3a 0d 07 62 0d dd f2 6d 65 73 73 61 |..X.:..b...messa|
00000f30 67 65 0d 07 6c 13 ea 20 6d 65 73 73 61 67 65 5f |ge..l.. message_|
00000f40 74 79 70 65 25 0d 07 76 19 6d 65 73 73 61 67 65 |type%..v.message|
00000f50 5f 74 79 70 65 25 3d 62 6c 6b 25 21 31 36 0d 07 |_type%=blk%!16..|
00000f60 80 18 20 20 c8 8e 20 6d 65 73 73 61 67 65 5f 74 |.. .. message_t|
00000f70 79 70 65 25 20 ca 0d 07 8a 0b 20 20 20 20 c9 20 |ype% ..... . |
00000f80 30 0d 07 94 11 20 20 20 20 20 20 71 75 69 74 25 |0.... quit%|
00000f90 3d b9 0d 07 9e 0b 20 20 20 20 c9 20 33 0d 07 a8 |=..... . 3...|
00000fa0 1c 20 20 20 20 20 20 66 69 6c 65 5f 74 79 70 65 |. file_type|
00000fb0 25 3d 62 6c 6b 25 21 34 30 0d 07 b2 2d 20 20 20 |%=blk%!40...- |
00000fc0 20 20 20 66 69 6c 65 5f 6e 61 6d 65 24 3d a4 67 | file_name$=.g|
00000fd0 65 74 5f 73 74 72 69 6e 67 28 62 6c 6b 25 2b 34 |et_string(blk%+4|
00000fe0 34 2c 32 35 35 29 0d 07 bc 1f 20 20 20 20 20 20 |4,255).... |
00000ff0 f2 63 68 72 63 64 74 6c 73 28 66 69 6c 65 5f 6e |.chrcdtls(file_n|
00001000 61 6d 65 24 29 0d 07 c6 07 20 20 cb 0d 07 d0 05 |ame$).... .....|
00001010 e1 0d 07 da 05 3a 0d 07 e4 14 dd f2 69 63 6f 6e |.....:......icon|
00001020 5f 62 61 72 5f 63 6c 69 63 6b 0d 07 ee 14 20 20 |_bar_click.... |
00001030 c8 8e 20 6d 6f 75 73 65 62 75 74 25 20 ca 0d 07 |.. mousebut% ...|
00001040 f8 15 20 20 20 20 c9 20 6d 65 6e 75 5f 63 6c 69 |.. . menu_cli|
00001050 63 6b 25 0d 08 02 22 20 20 20 20 20 20 6d 65 6e |ck%..." men|
00001060 75 5f 63 6f 6e 74 65 78 74 24 3d 22 69 63 6f 6e |u_context$="icon|
00001070 5f 62 61 72 22 0d 08 0c 20 20 20 20 20 20 20 63 |_bar"... c|
00001080 75 72 72 65 6e 74 5f 6d 65 6e 75 25 3d 6d 65 6e |urrent_menu%=men|
00001090 75 25 28 31 29 0d 08 16 22 20 20 20 20 20 20 20 |u%(1)..." |
000010a0 20 20 20 20 20 6d 65 6e 75 5f 78 25 3d 6d 6f 75 | menu_x%=mou|
000010b0 73 65 78 25 2d 36 34 0d 08 20 31 20 20 20 20 20 |sex%-64.. 1 |
000010c0 20 20 20 20 20 20 20 6d 65 6e 75 5f 79 25 3d a4 | menu_y%=.|
000010d0 6d 65 6e 75 5f 68 65 69 67 68 74 28 6d 65 6e 75 |menu_height(menu|
000010e0 25 28 31 29 29 2b 39 36 0d 08 2a 43 20 20 20 20 |%(1))+96..*C |
000010f0 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 | .. "Wimp|
00001100 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 63 75 |_CreateMenu",,cu|
00001110 72 72 65 6e 74 5f 6d 65 6e 75 25 2c 6d 65 6e 75 |rrent_menu%,menu|
00001120 5f 78 25 2c 6d 65 6e 75 5f 79 25 0d 08 34 17 20 |_x%,menu_y%..4. |
00001130 20 20 20 c9 20 73 65 6c 65 63 74 5f 63 6c 69 63 | . select_clic|
00001140 6b 25 0d 08 3e 21 20 20 20 20 20 20 20 20 20 20 |k%..>! |
00001150 20 20 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 66 | .open_window(f|
00001160 66 25 29 0d 08 48 17 20 20 20 20 c9 20 61 64 6a |f%)..H. . adj|
00001170 75 73 74 5f 63 6c 69 63 6b 25 0d 08 52 2a 20 20 |ust_click%..R* |
00001180 20 20 20 20 20 20 20 20 20 20 f2 73 68 6f 77 5f | .show_|
00001190 76 61 6c 75 65 28 30 2c 22 48 49 4d 45 4d 2d 45 |value(0,"HIMEM-E|
000011a0 4e 44 22 29 0d 08 5c 2f 20 20 20 20 20 20 f2 73 |ND")..\/ .s|
000011b0 68 6f 77 5f 76 61 6c 75 65 28 31 2c 22 77 6f 72 |how_value(1,"wor|
000011c0 6b 66 72 65 65 25 2d 77 6f 72 6b 73 74 61 72 74 |kfree%-workstart|
000011d0 25 22 29 0d 08 66 07 20 20 cb 0d 08 70 05 e1 0d |%")..f. ...p...|
000011e0 08 7a 05 3a 0d 08 84 18 dd f2 70 72 69 6e 74 5f |.z.:......print_|
000011f0 77 69 6e 64 6f 77 5f 63 6c 69 63 6b 0d 08 8e 14 |window_click....|
00001200 20 20 c8 8e 20 6d 6f 75 73 65 62 75 74 25 20 ca | .. mousebut% .|
00001210 0d 08 98 17 20 20 20 20 c9 20 73 65 6c 65 63 74 |.... . select|
00001220 5f 63 6c 69 63 6b 25 0d 08 a2 23 20 20 20 20 20 |_click%...# |
00001230 20 20 20 20 20 20 20 20 20 c8 8e 20 69 63 6f 6e | .. icon|
00001240 5f 68 61 6e 64 6c 65 25 20 ca 0d 08 ac 1b 20 20 |_handle% ..... |
00001250 20 20 20 20 20 20 20 20 c9 20 66 69 67 68 74 5f | . fight_|
00001260 69 63 6f 6e 25 0d 08 b6 20 20 20 20 20 20 20 20 |icon%... |
00001270 20 20 20 20 20 20 20 20 e7 20 6e 75 6d 5f 66 6c | . num_fl|
00001280 73 3d 32 20 8c 0d 08 c0 23 20 20 20 20 20 20 20 |s=2 ....# |
00001290 20 20 20 20 20 20 20 20 20 20 f2 64 6f 5f 66 69 | .do_fi|
000012a0 67 68 74 5f 63 61 6c 63 0d 08 ca 14 20 20 20 20 |ght_calc.... |
000012b0 20 20 20 20 20 20 20 20 20 20 20 cc 0d 08 d4 1b | .....|
000012c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012d0 20 ef 37 2c 37 2c 37 0d 08 de 48 20 20 20 20 20 | .7,7,7...H |
000012e0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 6e 75 | . nu|
000012f0 6d 5f 66 6c 73 3d 30 20 8c 20 6d 65 73 73 24 3d |m_fls=0 . mess$=|
00001300 22 59 6f 75 20 6e 65 65 64 20 74 6f 20 64 72 61 |"You need to dra|
00001310 67 20 6f 6e 20 74 77 6f 20 66 69 6c 65 73 22 0d |g on two files".|
00001320 08 e8 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 |..K |
00001330 20 20 20 20 e7 20 6e 75 6d 5f 66 6c 73 3d 31 20 | . num_fls=1 |
00001340 8c 20 6d 65 73 73 24 3d 22 59 6f 75 20 6e 65 65 |. mess$="You nee|
00001350 64 20 74 6f 20 64 72 61 67 20 6f 6e 20 61 6e 6f |d to drag on ano|
00001360 74 68 65 72 20 66 69 6c 65 22 0d 08 f2 43 20 20 |ther file"...C |
00001370 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 | .|
00001380 72 65 70 6f 72 74 5f 65 72 72 6f 72 28 6d 65 73 |report_error(mes|
00001390 73 24 2c 22 45 72 72 6f 72 20 66 72 6f 6d 20 46 |s$,"Error from F|
000013a0 69 6c 65 20 46 69 67 68 74 65 72 22 29 0d 08 fc |ile Fighter")...|
000013b0 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000013c0 cd 0d 09 06 0d 20 20 20 20 20 20 20 20 cb 0d 09 |..... ...|
000013d0 10 07 20 20 cb 0d 09 1a 05 e1 0d 09 24 05 3a 0d |.. ........$.:.|
000013e0 09 2e 16 dd f2 6d 61 69 6e 5f 6d 65 6e 75 28 69 |.....main_menu(i|
000013f0 74 65 6d 24 29 0d 09 38 10 20 20 c8 8e 20 69 74 |tem$)..8. .. it|
00001400 65 6d 24 20 ca 0d 09 42 10 20 20 20 20 c9 20 22 |em$ ...B. . "|
00001410 51 75 69 74 22 0d 09 4c 11 20 20 20 20 20 20 71 |Quit"..L. q|
00001420 75 69 74 25 3d b9 0d 09 56 07 20 20 cb 0d 09 60 |uit%=...V. ...`|
00001430 05 e1 0d 09 6a 05 3a 0d 09 74 1e dd f2 65 72 72 |....j.:..t...err|
00001440 6f 72 28 21 65 72 72 6f 72 62 6c 6b 25 2c 65 72 |or(!errorblk%,er|
00001450 72 6f 72 24 29 0d 09 7e 05 3a 0d 09 88 12 65 72 |ror$)..~.:....er|
00001460 72 6f 72 63 6f 75 6e 74 25 2b 3d 31 0d 09 92 2c |rorcount%+=1...,|
00001470 e7 20 65 72 72 6f 72 63 6f 75 6e 74 25 3e 35 3a |. errorcount%>5:|
00001480 85 20 a2 20 30 2c 22 54 6f 6f 20 6d 61 6e 79 20 |. . 0,"Too many |
00001490 65 72 72 6f 72 73 21 22 0d 09 9c 05 3a 0d 09 a6 |errors!"....:...|
000014a0 28 e7 20 9f 3c 32 30 30 20 65 72 72 6f 72 24 2b |(. .<200 error$+|
000014b0 3d 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 9e |=" at line "+.(.|
000014c0 20 81 31 30 29 0d 09 b0 38 e7 20 9f 3d 32 30 30 | .10)...8. .=200|
000014d0 20 65 72 72 6f 72 24 3d 22 2a 2a 2a 20 45 72 72 | error$="*** Err|
000014e0 6f 72 20 69 6e 20 6d 65 6e 75 20 66 69 6c 65 21 |or in menu file!|
000014f0 20 2a 2a 2a 20 22 2b 65 72 72 6f 72 24 0d 09 ba | *** "+error$...|
00001500 38 e7 20 9f 3d 32 30 31 20 65 72 72 6f 72 24 3d |8. .=201 error$=|
00001510 22 2a 2a 2a 20 20 20 20 20 4d 65 6e 75 20 65 72 |"*** Menu er|
00001520 72 6f 72 20 20 20 20 20 20 2a 2a 2a 20 22 2b 65 |ror *** "+e|
00001530 72 72 6f 72 24 0d 09 c4 38 e7 20 9f 3d 32 30 32 |rror$...8. .=202|
00001540 20 65 72 72 6f 72 24 3d 22 2a 2a 2a 20 20 20 20 | error$="*** |
00001550 20 49 63 6f 6e 20 65 72 72 6f 72 20 20 20 20 20 | Icon error |
00001560 20 2a 2a 2a 20 22 2b 65 72 72 6f 72 24 0d 09 ce | *** "+error$...|
00001570 38 e7 20 9f 3d 32 30 33 20 65 72 72 6f 72 24 3d |8. .=203 error$=|
00001580 22 2a 2a 2a 20 20 20 20 20 46 69 6c 65 20 65 72 |"*** File er|
00001590 72 6f 72 20 20 20 20 20 20 2a 2a 2a 20 22 2b 65 |ror *** "+e|
000015a0 72 72 6f 72 24 0d 09 d8 38 e7 20 9f 3d 32 30 34 |rror$...8. .=204|
000015b0 20 65 72 72 6f 72 24 3d 22 2a 2a 2a 20 20 20 20 | error$="*** |
000015c0 57 69 6e 64 6f 77 20 65 72 72 6f 72 20 20 20 20 |Window error |
000015d0 20 2a 2a 2a 20 22 2b 65 72 72 6f 72 24 0d 09 e2 | *** "+error$...|
000015e0 05 3a 0d 09 ec 1c c8 99 22 58 4f 53 5f 46 69 6e |.:......"XOS_Fin|
000015f0 64 22 2c 30 2c 6d 65 6e 75 66 69 6c 65 25 0d 09 |d",0,menufile%..|
00001600 f6 1b c8 99 22 58 57 69 6d 70 5f 43 6c 6f 73 65 |...."XWimp_Close|
00001610 54 65 6d 70 6c 61 74 65 22 0d 0a 00 05 3a 0d 0a |Template"....:..|
00001620 0a 19 24 28 65 72 72 6f 72 62 6c 6b 25 2b 34 29 |..$(errorblk%+4)|
00001630 3d 65 72 72 6f 72 24 0d 0a 14 2f c8 99 20 22 57 |=error$.../.. "W|
00001640 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 |imp_ReportError"|
00001650 2c 65 72 72 6f 72 62 6c 6b 25 2c 31 2c 61 70 70 |,errorblk%,1,app|
00001660 5f 6e 61 6d 65 24 0d 0a 1e 05 3a 0d 0a 28 05 e1 |_name$....:..(..|
00001670 0d 0a 32 05 3a 0d 0a 3c 0a dd f2 71 75 69 74 0d |..2.:..<...quit.|
00001680 0a 46 17 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |.F... "Wimp_Clos|
00001690 65 44 6f 77 6e 22 0d 0a 50 07 e0 3a e1 0d 0a 5a |eDown"..P..:...Z|
000016a0 05 3a 0d 0a 64 1a dd f2 63 68 72 63 64 74 6c 73 |.:..d...chrcdtls|
000016b0 28 66 69 6c 65 5f 6e 61 6d 65 24 29 0d 0a 6e 4c |(file_name$)..nL|
000016c0 20 ea 20 58 25 2c 42 4e 25 2c 4e 42 25 2c 42 57 | . X%,BN%,NB%,BW|
000016d0 6d 78 24 2c 42 4d 6d 78 25 2c 42 50 6d 78 25 2c |mx$,BMmx%,BPmx%,|
000016e0 42 57 25 2c 42 4d 25 2c 42 50 25 2c 77 70 25 2c |BW%,BM%,BP%,wp%,|
000016f0 6d 63 25 2c 70 77 25 2c 77 24 2c 6d 24 2c 70 24 |mc%,pw%,w$,m$,p$|
00001700 2c 65 78 74 65 6e 74 25 0d 0a 78 12 20 e7 20 6e |,extent%..x. . n|
00001710 75 6d 5f 66 6c 73 3c 32 20 8c 0d 0a 82 16 20 20 |um_fls<2 ..... |
00001720 58 25 3d 8e 28 66 69 6c 65 5f 6e 61 6d 65 24 29 |X%=.(file_name$)|
00001730 0d 0a 8c 12 20 20 65 78 74 65 6e 74 25 3d a2 23 |.... extent%=.#|
00001740 58 25 0d 0a 96 17 20 20 cf 23 58 25 3d a8 28 65 |X%.... .#X%=.(e|
00001750 78 74 65 6e 74 25 2f 33 29 0d 0a a0 0e 20 20 42 |xtent%/3).... B|
00001760 4e 25 3d 9a 23 58 25 0d 0a aa 15 20 20 cf 23 58 |N%=.#X%.... .#X|
00001770 25 3d b3 28 65 78 74 65 6e 74 25 29 0d 0a b4 0e |%=.(extent%)....|
00001780 20 20 42 57 25 3d 9a 23 58 25 0d 0a be 15 20 20 | BW%=.#X%.... |
00001790 cf 23 58 25 3d b3 28 65 78 74 65 6e 74 25 29 0d |.#X%=.(extent%).|
000017a0 0a c8 0e 20 20 42 4d 25 3d 9a 23 58 25 0d 0a d2 |... BM%=.#X%...|
000017b0 15 20 20 cf 23 58 25 3d b3 28 65 78 74 65 6e 74 |. .#X%=.(extent|
000017c0 25 29 0d 0a dc 0e 20 20 42 50 25 3d 9a 23 58 25 |%).... BP%=.#X%|
000017d0 0d 0a e6 0a 20 20 d9 23 58 25 0d 0a f0 17 20 20 |.... .#X%.... |
000017e0 6e 75 6d 5f 66 6c 73 3d 6e 75 6d 5f 66 6c 73 2b |num_fls=num_fls+|
000017f0 31 0d 0a fa 12 20 20 c8 8e 20 6e 75 6d 5f 66 6c |1.... .. num_fl|
00001800 73 20 ca 0d 0b 04 0a 20 20 20 c9 20 31 0d 0b 0e |s ..... . 1...|
00001810 26 20 20 20 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 |& .put_icon_t|
00001820 65 78 74 28 66 66 25 2c 77 69 6e 6e 65 72 25 2c |ext(ff%,winner%,|
00001830 22 22 29 0d 0b 18 1d 20 20 20 20 6e 61 6d 65 24 |"").... name$|
00001840 28 30 29 3d a4 63 68 6e 61 6d 65 28 42 4e 25 29 |(0)=.chname(BN%)|
00001850 0d 0b 22 2b 20 20 20 20 f2 70 75 74 5f 69 63 6f |.."+ .put_ico|
00001860 6e 5f 74 65 78 74 28 66 66 25 2c 6e 61 6d 65 31 |n_text(ff%,name1|
00001870 25 2c 6e 61 6d 65 24 28 30 29 29 0d 0b 2c 1a 20 |%,name$(0))..,. |
00001880 20 20 20 77 70 25 3d a4 6d 78 73 74 72 67 74 68 | wp%=.mxstrgth|
00001890 28 42 4e 25 29 0d 0b 36 28 20 20 20 20 4e 42 25 |(BN%)..6( NB%|
000018a0 3d 28 42 4e 25 20 80 20 32 34 30 29 2f 31 36 2b |=(BN% . 240)/16+|
000018b0 28 42 4e 25 20 80 20 31 35 29 2a 31 36 0d 0b 40 |(BN% . 15)*16..@|
000018c0 1a 20 20 20 20 6d 63 25 3d a4 6d 78 73 74 72 67 |. mc%=.mxstrg|
000018d0 74 68 28 4e 42 25 29 0d 0b 4a 23 20 20 20 20 70 |th(NB%)..J# p|
000018e0 77 25 3d a4 6d 78 73 74 72 67 74 68 28 a8 28 42 |w%=.mxstrgth(.(B|
000018f0 4e 25 2b 4e 42 25 29 2f 32 29 0d 0b 54 23 20 20 |N%+NB%)/2)..T# |
00001900 20 20 77 65 61 70 6f 6e 25 28 30 29 3d a4 73 74 | weapon%(0)=.st|
00001910 72 67 74 68 28 42 57 25 2c 77 70 25 29 0d 0b 5e |rgth(BW%,wp%)..^|
00001920 22 20 20 20 20 6d 61 67 69 63 25 28 30 29 3d a4 |" magic%(0)=.|
00001930 73 74 72 67 74 68 28 42 4d 25 2c 6d 63 25 29 0d |strgth(BM%,mc%).|
00001940 0b 68 22 20 20 20 20 70 6f 77 65 72 25 28 30 29 |.h" power%(0)|
00001950 3d a4 73 74 72 67 74 68 28 42 50 25 2c 70 77 25 |=.strgth(BP%,pw%|
00001960 29 0d 0b 72 18 20 20 20 20 77 24 3d c3 28 77 65 |)..r. w$=.(we|
00001970 61 70 6f 6e 25 28 30 29 29 0d 0b 7c 29 20 20 20 |apon%(0))..|) |
00001980 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 28 | .put_icon_text(|
00001990 66 66 25 2c 77 65 70 73 6b 6c 25 28 30 29 2c 77 |ff%,wepskl%(0),w|
000019a0 24 29 0d 0b 86 17 20 20 20 20 6d 24 3d c3 28 6d |$).... m$=.(m|
000019b0 61 67 69 63 25 28 30 29 29 0d 0b 90 29 20 20 20 |agic%(0))...) |
000019c0 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 28 | .put_icon_text(|
000019d0 66 66 25 2c 6d 67 63 73 6b 6c 25 28 30 29 2c 6d |ff%,mgcskl%(0),m|
000019e0 24 29 0d 0b 9a 18 20 20 20 20 70 24 3d c3 28 77 |$).... p$=.(w|
000019f0 65 61 70 6f 6e 25 28 30 29 29 0d 0b a4 29 20 20 |eapon%(0))...) |
00001a00 20 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 | .put_icon_text|
00001a10 28 66 66 25 2c 70 6f 77 73 6b 6c 25 28 30 29 2c |(ff%,powskl%(0),|
00001a20 70 24 29 0d 0b ae 19 20 20 20 20 f2 6f 70 65 6e |p$).... .open|
00001a30 5f 77 69 6e 64 6f 77 28 66 66 25 29 0d 0b b8 0a |_window(ff%)....|
00001a40 20 20 20 c9 20 32 0d 0b c2 1d 20 20 20 20 6e 61 | . 2.... na|
00001a50 6d 65 24 28 31 29 3d a4 63 68 6e 61 6d 65 28 42 |me$(1)=.chname(B|
00001a60 4e 25 29 0d 0b cc 1d 20 20 20 20 e7 20 6e 61 6d |N%).... . nam|
00001a70 65 24 28 30 29 3d 6e 61 6d 65 24 28 31 29 20 8c |e$(0)=name$(1) .|
00001a80 0d 0b d6 20 20 20 20 20 20 6e 61 6d 65 24 28 31 |... name$(1|
00001a90 29 3d 6e 61 6d 65 24 28 31 29 2b 22 74 75 75 22 |)=name$(1)+"tuu"|
00001aa0 0d 0b e0 09 20 20 20 20 cd 0d 0b ea 2b 20 20 20 |.... ....+ |
00001ab0 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 28 | .put_icon_text(|
00001ac0 66 66 25 2c 6e 61 6d 65 32 25 2c 6e 61 6d 65 24 |ff%,name2%,name$|
00001ad0 28 31 29 29 0d 0b f4 1a 20 20 20 20 77 70 25 3d |(1)).... wp%=|
00001ae0 a4 6d 78 73 74 72 67 74 68 28 42 4e 25 29 0d 0b |.mxstrgth(BN%)..|
00001af0 fe 28 20 20 20 20 4e 42 25 3d 28 42 4e 25 20 80 |.( NB%=(BN% .|
00001b00 20 32 34 30 29 2f 31 36 2b 28 42 4e 25 20 80 20 | 240)/16+(BN% . |
00001b10 31 35 29 2a 31 36 0d 0c 08 1a 20 20 20 20 6d 63 |15)*16.... mc|
00001b20 25 3d a4 6d 78 73 74 72 67 74 68 28 4e 42 25 29 |%=.mxstrgth(NB%)|
00001b30 0d 0c 12 23 20 20 20 20 70 77 25 3d a4 6d 78 73 |...# pw%=.mxs|
00001b40 74 72 67 74 68 28 a8 28 42 4e 25 2b 4e 42 25 29 |trgth(.(BN%+NB%)|
00001b50 2f 32 29 0d 0c 1c 23 20 20 20 20 77 65 61 70 6f |/2)...# weapo|
00001b60 6e 25 28 31 29 3d a4 73 74 72 67 74 68 28 42 57 |n%(1)=.strgth(BW|
00001b70 25 2c 77 70 25 29 0d 0c 26 22 20 20 20 20 6d 61 |%,wp%)..&" ma|
00001b80 67 69 63 25 28 31 29 3d a4 73 74 72 67 74 68 28 |gic%(1)=.strgth(|
00001b90 42 4d 25 2c 6d 63 25 29 0d 0c 30 22 20 20 20 20 |BM%,mc%)..0" |
00001ba0 70 6f 77 65 72 25 28 31 29 3d a4 73 74 72 67 74 |power%(1)=.strgt|
00001bb0 68 28 42 50 25 2c 70 77 25 29 0d 0c 3a 18 20 20 |h(BP%,pw%)..:. |
00001bc0 20 20 77 24 3d c3 28 77 65 61 70 6f 6e 25 28 31 | w$=.(weapon%(1|
00001bd0 29 29 0d 0c 44 29 20 20 20 20 f2 70 75 74 5f 69 |))..D) .put_i|
00001be0 63 6f 6e 5f 74 65 78 74 28 66 66 25 2c 77 65 70 |con_text(ff%,wep|
00001bf0 73 6b 6c 25 28 31 29 2c 77 24 29 0d 0c 4e 17 20 |skl%(1),w$)..N. |
00001c00 20 20 20 6d 24 3d c3 28 6d 61 67 69 63 25 28 31 | m$=.(magic%(1|
00001c10 29 29 0d 0c 58 29 20 20 20 20 f2 70 75 74 5f 69 |))..X) .put_i|
00001c20 63 6f 6e 5f 74 65 78 74 28 66 66 25 2c 6d 67 63 |con_text(ff%,mgc|
00001c30 73 6b 6c 25 28 31 29 2c 6d 24 29 0d 0c 62 18 20 |skl%(1),m$)..b. |
00001c40 20 20 20 70 24 3d c3 28 77 65 61 70 6f 6e 25 28 | p$=.(weapon%(|
00001c50 31 29 29 0d 0c 6c 29 20 20 20 20 f2 70 75 74 5f |1))..l) .put_|
00001c60 69 63 6f 6e 5f 74 65 78 74 28 66 66 25 2c 70 6f |icon_text(ff%,po|
00001c70 77 73 6b 6c 25 28 31 29 2c 70 24 29 0d 0c 76 19 |wskl%(1),p$)..v.|
00001c80 20 20 20 20 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 | .open_window|
00001c90 28 66 66 25 29 0d 0c 80 07 20 20 cb 0d 0c 8a 06 |(ff%).... .....|
00001ca0 20 cd 0d 0c 94 05 e1 0d 0c 9e 06 20 3a 0d 0c a8 | .......... :...|
00001cb0 11 dd a4 63 68 6e 61 6d 65 28 62 31 25 29 0d 0c |...chname(b1%)..|
00001cc0 b2 1a 20 ea 20 66 70 61 72 74 24 2c 73 70 61 72 |.. . fpart$,spar|
00001cd0 74 24 2c 66 24 2c 66 25 0d 0c bc 17 20 66 70 61 |t$,f$,f%.... fpa|
00001ce0 72 74 24 3d a4 62 6c 6f 63 6b 28 62 31 25 29 0d |rt$=.block(b1%).|
00001cf0 0c c6 30 20 73 70 61 72 74 24 3d a4 62 6c 6f 63 |..0 spart$=.bloc|
00001d00 6b 28 28 62 31 25 20 80 20 32 34 30 29 2f 31 36 |k((b1% . 240)/16|
00001d10 2b 28 62 31 25 20 80 20 31 35 29 2a 31 36 29 0d |+(b1% . 15)*16).|
00001d20 0c d0 12 20 66 24 3d c0 66 70 61 72 74 24 2c 31 |... f$=.fpart$,1|
00001d30 29 0d 0c da 10 20 66 25 3d 97 28 66 24 29 2d 33 |).... f%=.(f$)-3|
00001d40 32 0d 0c e4 0d 20 66 24 3d bd 28 66 25 29 0d 0c |2.... f$=.(f%)..|
00001d50 ee 19 20 66 70 61 72 74 24 3d 66 24 2b c1 66 70 |.. fpart$=f$+.fp|
00001d60 61 72 74 24 2c 32 29 0d 0c f8 12 3d 66 70 61 72 |art$,2)....=fpar|
00001d70 74 24 2b 73 70 61 72 74 24 0d 0d 02 05 3a 0d 0d |t$+spart$....:..|
00001d80 0c 0f dd a4 62 6c 6f 63 6b 28 62 25 29 0d 0d 16 |....block(b%)...|
00001d90 0d 20 ea 20 77 24 2c 20 77 25 0d 0d 20 0e 20 77 |. . w$, w%.. . w|
00001da0 25 3d 62 25 20 83 20 33 0d 0d 2a 0c 20 c8 8e 20 |%=b% . 3..*. .. |
00001db0 77 25 20 ca 0d 0d 34 09 20 20 c9 20 30 0d 0d 3e |w% ...4. . 0..>|
00001dc0 0c 20 20 20 77 24 3d 22 22 0d 0d 48 09 20 20 c9 |. w$=""..H. .|
00001dd0 20 31 0d 0d 52 1f 20 20 20 77 24 3d c1 76 6f 77 | 1..R. w$=.vow|
00001de0 65 6c 24 2c 28 62 25 20 83 20 35 29 2b 31 2c 31 |el$,(b% . 5)+1,1|
00001df0 29 0d 0d 5c 09 20 20 c9 20 32 0d 0d 66 39 20 20 |)..\. . 2..f9 |
00001e00 20 77 24 3d c1 76 6f 77 65 6c 24 2c 28 62 25 20 | w$=.vowel$,(b% |
00001e10 83 20 35 29 2b 31 2c 31 29 2b c1 76 6f 77 65 6c |. 5)+1,1)+.vowel|
00001e20 24 2c 28 28 62 25 2a 35 29 20 83 20 35 29 2b 31 |$,((b%*5) . 5)+1|
00001e30 2c 31 29 0d 0d 70 06 20 cb 0d 0d 7a 0e 20 77 25 |,1)..p. ...z. w%|
00001e40 3d 62 25 20 83 20 32 0d 0d 84 0c 20 c8 8e 20 77 |=b% . 2.... .. w|
00001e50 25 20 ca 0d 0d 8e 09 20 20 c9 20 30 0d 0d 98 23 |% ..... . 0...#|
00001e60 20 20 20 77 24 3d 77 24 2b c1 63 73 74 6e 74 24 | w$=w$+.cstnt$|
00001e70 2c 28 62 25 20 83 20 31 39 29 2b 31 2c 31 29 0d |,(b% . 19)+1,1).|
00001e80 0d a2 09 20 20 c9 20 31 0d 0d ac 2f 20 20 20 77 |... . 1.../ w|
00001e90 24 3d 77 24 2b c1 73 74 72 74 63 73 74 6e 74 70 |$=w$+.strtcstntp|
00001ea0 72 24 2c 28 28 62 25 20 83 20 32 32 29 2b 31 29 |r$,((b% . 22)+1)|
00001eb0 2a 32 2d 31 2c 32 29 0d 0d b6 06 20 cb 0d 0d c0 |*2-1,2).... ....|
00001ec0 10 20 e7 20 62 25 3c 3d 31 32 37 20 8c 0d 0d ca |. . b%<=127 ....|
00001ed0 21 20 20 77 24 3d 77 24 2b c1 76 6f 77 65 6c 24 |! w$=w$+.vowel$|
00001ee0 2c 28 62 25 20 83 20 35 29 2b 31 2c 31 29 0d 0d |,(b% . 5)+1,1)..|
00001ef0 d4 06 20 cc 0d 0d de 3b 20 20 77 24 3d 77 24 2b |.. ....; w$=w$+|
00001f00 c1 76 6f 77 65 6c 24 2c 28 62 25 20 83 20 35 29 |.vowel$,(b% . 5)|
00001f10 2b 31 2c 31 29 2b c1 76 6f 77 65 6c 24 2c 28 28 |+1,1)+.vowel$,((|
00001f20 62 25 2a 35 29 20 83 20 35 29 2b 31 2c 31 29 0d |b%*5) . 5)+1,1).|
00001f30 0d e8 06 20 cd 0d 0d f2 0f 20 e7 20 62 25 3c 3d |... ..... . b%<=|
00001f40 38 30 20 8c 0d 0d fc 27 20 20 77 24 3d 77 24 2b |80 ....' w$=w$+|
00001f50 c1 63 73 74 6e 74 24 2c 28 28 62 25 2a 31 39 29 |.cstnt$,((b%*19)|
00001f60 20 83 20 31 39 29 2b 31 2c 31 29 0d 0e 06 06 20 | . 19)+1,1).... |
00001f70 cc 0d 0e 10 2d 20 20 77 24 3d 77 24 2b c1 65 6e |....- w$=w$+.en|
00001f80 64 63 73 74 6e 74 70 72 24 2c 28 28 62 25 20 83 |dcstntpr$,((b% .|
00001f90 20 32 31 29 2b 31 29 2a 32 2d 31 2c 32 29 0d 0e | 21)+1)*2-1,2)..|
00001fa0 1a 06 20 cd 0d 0e 24 07 3d 77 24 0d 0e 2e 06 20 |.. ...$.=w$.... |
00001fb0 3a 0d 0e 38 13 dd 20 a4 6d 78 73 74 72 67 74 68 |:..8.. .mxstrgth|
00001fc0 28 62 25 29 0d 0e 42 27 3d a8 28 39 30 2a 28 62 |(b%)..B'=.(90*(b|
00001fd0 25 2d 38 30 29 2a 28 62 25 2d 38 30 29 2f 28 31 |%-80)*(b%-80)/(1|
00001fe0 37 35 2a 31 37 35 29 2b 31 30 29 0d 0e 4c 06 20 |75*175)+10)..L. |
00001ff0 3a 0d 0e 56 14 dd 20 a4 73 74 72 67 74 68 28 62 |:..V.. .strgth(b|
00002000 25 2c 6d 25 29 0d 0e 60 21 3d a8 28 28 6d 25 2d |%,m%)..`!=.((m%-|
00002010 30 2e 38 2a 6d 25 29 2a 62 25 2f 32 35 35 2b 30 |0.8*m%)*b%/255+0|
00002020 2e 38 2a 6d 25 29 0d 0e 6a 06 20 3a 0d 0e 74 13 |.8*m%)..j. :..t.|
00002030 dd f2 64 6f 5f 66 69 67 68 74 5f 63 61 6c 63 0d |..do_fight_calc.|
00002040 0e 7e 41 20 ea 20 61 74 74 63 6b 25 2c 64 65 66 |.~A . attck%,def|
00002050 25 2c 61 74 74 63 6b 73 6b 6c 24 2c 64 65 66 73 |%,attckskl$,defs|
00002060 6b 6c 24 2c 61 74 74 63 6b 76 61 6c 2c 64 65 66 |kl$,attckval,def|
00002070 76 61 6c 2c 6c 6f 73 65 25 2c 74 6d 70 25 2c 72 |val,lose%,tmp%,r|
00002080 0d 0e 88 46 20 e7 20 77 65 61 70 6f 6e 25 28 30 |...F . weapon%(0|
00002090 29 2b 6d 61 67 69 63 25 28 30 29 2b 70 6f 77 65 |)+magic%(0)+powe|
000020a0 72 25 28 30 29 3e 77 65 61 70 6f 6e 25 28 31 29 |r%(0)>weapon%(1)|
000020b0 2b 6d 61 67 69 63 25 28 31 29 2b 70 6f 77 65 72 |+magic%(1)+power|
000020c0 25 28 31 29 20 8c 0d 0e 92 0e 20 20 61 74 74 63 |%(1) ..... attc|
000020d0 6b 25 3d 30 0d 0e 9c 0c 20 20 64 65 66 25 3d 31 |k%=0.... def%=1|
000020e0 0d 0e a6 06 20 cc 0d 0e b0 0e 20 20 61 74 74 63 |.... ..... attc|
000020f0 6b 25 3d 31 0d 0e ba 0c 20 20 64 65 66 25 3d 30 |k%=1.... def%=0|
00002100 0d 0e c4 06 20 cd 0d 0e ce 06 20 f5 0d 0e d8 20 |.... ..... .... |
00002110 20 20 61 74 74 63 6b 73 6b 6c 24 3d a4 63 68 73 | attckskl$=.chs|
00002120 6b 69 6c 6c 28 61 74 74 63 6b 25 29 0d 0e e2 1c |kill(attck%)....|
00002130 20 20 64 65 66 73 6b 6c 24 3d a4 63 68 73 6b 69 | defskl$=.chski|
00002140 6c 6c 28 64 65 66 25 29 0d 0e ec 2a 20 20 61 74 |ll(def%)...* at|
00002150 74 63 6b 76 61 6c 3d a4 73 6b 69 6c 6c 76 61 6c |tckval=.skillval|
00002160 28 61 74 74 63 6b 25 2c 61 74 74 63 6b 73 6b 6c |(attck%,attckskl|
00002170 24 29 0d 0e f6 24 20 20 64 65 66 76 61 6c 3d a4 |$)...$ defval=.|
00002180 73 6b 69 6c 6c 76 61 6c 28 64 65 66 25 2c 64 65 |skillval(def%,de|
00002190 66 73 6b 6c 24 29 0d 0f 00 0c 20 20 72 3d b3 28 |fskl$).... r=.(|
000021a0 31 29 0d 0f 0a 26 20 20 e7 20 72 3c 61 74 74 63 |1)...& . r<attc|
000021b0 6b 76 61 6c 2f 28 61 74 74 63 6b 76 61 6c 2b 64 |kval/(attckval+d|
000021c0 65 66 76 61 6c 29 20 8c 0d 0f 14 22 20 20 20 6c |efval) ...." l|
000021d0 6f 73 65 25 3d a4 64 65 63 64 65 66 28 64 65 66 |ose%=.decdef(def|
000021e0 25 2c 64 65 66 73 6b 6c 24 29 0d 0f 1e 07 20 20 |%,defskl$).... |
000021f0 cc 0d 0f 28 10 20 20 20 74 6d 70 25 3d 64 65 66 |...(. tmp%=def|
00002200 25 0d 0f 32 12 20 20 20 64 65 66 25 3d 61 74 74 |%..2. def%=att|
00002210 63 6b 25 0d 0f 3c 12 20 20 20 61 74 74 63 6b 25 |ck%..<. attck%|
00002220 3d 74 6d 70 25 0d 0f 46 07 20 20 cd 0d 0f 50 28 |=tmp%..F. ...P(|
00002230 20 20 f2 69 63 6f 6e 5f 62 67 5f 63 6f 6c 6f 75 | .icon_bg_colou|
00002240 72 28 66 66 25 2c 6d 67 63 73 6b 6c 25 28 30 29 |r(ff%,mgcskl%(0)|
00002250 2c 31 32 29 0d 0f 5a 28 20 20 f2 69 63 6f 6e 5f |,12)..Z( .icon_|
00002260 62 67 5f 63 6f 6c 6f 75 72 28 66 66 25 2c 6d 67 |bg_colour(ff%,mg|
00002270 63 73 6b 6c 25 28 31 29 2c 31 32 29 0d 0f 64 28 |cskl%(1),12)..d(|
00002280 20 20 f2 69 63 6f 6e 5f 62 67 5f 63 6f 6c 6f 75 | .icon_bg_colou|
00002290 72 28 66 66 25 2c 77 65 70 73 6b 6c 25 28 30 29 |r(ff%,wepskl%(0)|
000022a0 2c 31 32 29 0d 0f 6e 28 20 20 f2 69 63 6f 6e 5f |,12)..n( .icon_|
000022b0 62 67 5f 63 6f 6c 6f 75 72 28 66 66 25 2c 77 65 |bg_colour(ff%,we|
000022c0 70 73 6b 6c 25 28 31 29 2c 31 32 29 0d 0f 78 0c |pskl%(1),12)..x.|
000022d0 20 fd 20 6c 6f 73 65 25 0d 0f 82 2e 20 f2 70 75 | . lose%.... .pu|
000022e0 74 5f 69 63 6f 6e 5f 74 65 78 74 28 66 66 25 2c |t_icon_text(ff%,|
000022f0 77 69 6e 6e 65 72 25 2c 6e 61 6d 65 24 28 61 74 |winner%,name$(at|
00002300 74 63 6b 25 29 29 0d 0f 8c 0e 20 6e 75 6d 5f 66 |tck%)).... num_f|
00002310 6c 73 3d 30 0d 0f 96 05 e1 0d 0f a0 06 20 3a 0d |ls=0......... :.|
00002320 0f aa 11 dd a4 63 68 73 6b 69 6c 6c 28 6e 25 29 |.....chskill(n%)|
00002330 0d 0f b4 12 20 ea 20 63 73 24 2c 73 70 6c 69 74 |.... . cs$,split|
00002340 2c 72 0d 0f be 27 20 e7 20 77 65 61 70 6f 6e 25 |,r...' . weapon%|
00002350 28 6e 25 29 3c 3e 30 20 80 20 6d 61 67 69 63 25 |(n%)<>0 . magic%|
00002360 28 6e 25 29 3c 3e 30 20 8c 0d 0f c8 19 20 20 20 |(n%)<>0 ..... |
00002370 e7 20 70 6f 77 65 72 25 28 6e 25 29 3c 3d 35 30 |. power%(n%)<=50|
00002380 20 8c 0d 0f d2 12 20 20 20 20 20 73 70 6c 69 74 | ..... split|
00002390 3d 30 2e 35 0d 0f dc 08 20 20 20 cc 0d 0f e6 1d |=0.5.... .....|
000023a0 20 20 20 20 20 73 70 6c 69 74 3d 70 6f 77 65 72 | split=power|
000023b0 25 28 6e 25 29 2f 31 30 30 0d 0f f0 08 20 20 20 |%(n%)/100.... |
000023c0 cd 0d 0f fa 0d 20 20 20 72 3d b3 28 31 29 0d 10 |..... r=.(1)..|
000023d0 04 12 20 20 20 e7 20 72 3c 73 70 6c 69 74 20 8c |.. . r<split .|
000023e0 0d 10 0e 23 20 20 20 20 20 e7 20 77 65 61 70 6f |...# . weapo|
000023f0 6e 25 28 6e 25 29 3e 6d 61 67 69 63 25 28 6e 25 |n%(n%)>magic%(n%|
00002400 29 20 8c 0d 10 18 17 20 20 20 20 20 20 20 63 73 |) ..... cs|
00002410 24 3d 22 77 65 61 70 6f 6e 22 0d 10 22 2e 20 20 |$="weapon"..". |
00002420 20 20 20 20 20 f2 69 63 6f 6e 5f 62 67 5f 63 6f | .icon_bg_co|
00002430 6c 6f 75 72 28 66 66 25 2c 77 65 70 73 6b 6c 25 |lour(ff%,wepskl%|
00002440 28 6e 25 29 2c 31 31 29 0d 10 2c 0a 20 20 20 20 |(n%),11)..,. |
00002450 20 cc 0d 10 36 16 20 20 20 20 20 20 20 63 73 24 | ...6. cs$|
00002460 3d 22 6d 61 67 69 63 22 0d 10 40 2e 20 20 20 20 |="magic"..@. |
00002470 20 20 20 f2 69 63 6f 6e 5f 62 67 5f 63 6f 6c 6f | .icon_bg_colo|
00002480 75 72 28 66 66 25 2c 6d 67 63 73 6b 6c 25 28 6e |ur(ff%,mgcskl%(n|
00002490 25 29 2c 31 31 29 0d 10 4a 0a 20 20 20 20 20 cd |%),11)..J. .|
000024a0 0d 10 54 08 20 20 20 cc 0d 10 5e 23 20 20 20 20 |..T. ...^# |
000024b0 20 e7 20 77 65 61 70 6f 6e 25 28 6e 25 29 3c 6d | . weapon%(n%)<m|
000024c0 61 67 69 63 25 28 6e 25 29 20 8c 0d 10 68 17 20 |agic%(n%) ...h. |
000024d0 20 20 20 20 20 20 63 73 24 3d 22 77 65 61 70 6f | cs$="weapo|
000024e0 6e 22 0d 10 72 2e 20 20 20 20 20 20 20 f2 69 63 |n"..r. .ic|
000024f0 6f 6e 5f 62 67 5f 63 6f 6c 6f 75 72 28 66 66 25 |on_bg_colour(ff%|
00002500 2c 77 65 70 73 6b 6c 25 28 6e 25 29 2c 31 31 29 |,wepskl%(n%),11)|
00002510 0d 10 7c 0a 20 20 20 20 20 cc 0d 10 86 16 20 20 |..|. ..... |
00002520 20 20 20 20 20 63 73 24 3d 22 6d 61 67 69 63 22 | cs$="magic"|
00002530 0d 10 90 2e 20 20 20 20 20 20 20 f2 69 63 6f 6e |.... .icon|
00002540 5f 62 67 5f 63 6f 6c 6f 75 72 28 66 66 25 2c 6d |_bg_colour(ff%,m|
00002550 67 63 73 6b 6c 25 28 6e 25 29 2c 31 31 29 0d 10 |gcskl%(n%),11)..|
00002560 9a 0a 20 20 20 20 20 cd 0d 10 a4 08 20 20 20 cd |.. ..... .|
00002570 0d 10 ae 06 20 cc 0d 10 b8 18 20 20 20 e7 20 77 |.... ..... . w|
00002580 65 61 70 6f 6e 25 28 6e 25 29 3d 30 20 8c 0d 10 |eapon%(n%)=0 ...|
00002590 c2 14 20 20 20 20 20 63 73 24 3d 22 6d 61 67 69 |.. cs$="magi|
000025a0 63 22 0d 10 cc 2c 20 20 20 20 20 f2 69 63 6f 6e |c"..., .icon|
000025b0 5f 62 67 5f 63 6f 6c 6f 75 72 28 66 66 25 2c 6d |_bg_colour(ff%,m|
000025c0 67 63 73 6b 6c 25 28 6e 25 29 2c 31 31 29 0d 10 |gcskl%(n%),11)..|
000025d0 d6 08 20 20 20 cc 0d 10 e0 15 20 20 20 20 20 63 |.. ..... c|
000025e0 73 24 3d 22 77 65 61 70 6f 6e 22 0d 10 ea 2c 20 |s$="weapon"..., |
000025f0 20 20 20 20 f2 69 63 6f 6e 5f 62 67 5f 63 6f 6c | .icon_bg_col|
00002600 6f 75 72 28 66 66 25 2c 77 65 70 73 6b 6c 25 28 |our(ff%,wepskl%(|
00002610 6e 25 29 2c 31 31 29 0d 10 f4 08 20 20 20 cd 0d |n%),11).... ..|
00002620 10 fe 06 20 cd 0d 11 08 08 3d 63 73 24 0d 11 12 |... .....=cs$...|
00002630 06 20 3a 0d 11 1c 15 dd a4 73 6b 69 6c 6c 76 61 |. :......skillva|
00002640 6c 28 6e 25 2c 6e 24 29 0d 11 26 08 20 ea 20 73 |l(n%,n$)..&. . s|
00002650 0d 11 30 14 20 e7 20 6e 24 3d 22 77 65 61 70 6f |..0. . n$="weapo|
00002660 6e 22 20 8c 0d 11 3a 20 20 20 20 20 73 3d 77 65 |n" ...: s=we|
00002670 61 70 6f 6e 25 28 6e 25 29 2b 70 6f 77 65 72 25 |apon%(n%)+power%|
00002680 28 6e 25 29 0d 11 44 06 20 cc 0d 11 4e 1e 20 20 |(n%)..D. ...N. |
00002690 20 73 3d 6d 61 67 69 63 25 28 6e 25 29 2b 70 6f | s=magic%(n%)+po|
000026a0 77 65 72 25 28 6e 25 29 0d 11 58 06 20 cd 0d 11 |wer%(n%)..X. ...|
000026b0 62 06 3d 73 0d 11 6c 06 20 3a 0d 11 76 13 dd a4 |b.=s..l. :..v...|
000026c0 64 65 63 64 65 66 28 6e 25 2c 6e 24 29 0d 11 80 |decdef(n%,n$)...|
000026d0 0e 20 ea 20 42 4c 4e 25 2c 77 24 0d 11 8a 14 20 |. . BLN%,w$.... |
000026e0 e7 20 6e 24 3d 22 77 65 61 70 6f 6e 22 20 8c 0d |. n$="weapon" ..|
000026f0 11 94 20 20 20 20 77 65 61 70 6f 6e 25 28 6e 25 |.. weapon%(n%|
00002700 29 3d 77 65 61 70 6f 6e 25 28 6e 25 29 2d 31 0d |)=weapon%(n%)-1.|
00002710 11 9e 18 20 20 20 77 24 3d c3 28 77 65 61 70 6f |... w$=.(weapo|
00002720 6e 25 28 6e 25 29 29 0d 11 a8 29 20 20 20 f2 70 |n%(n%))...) .p|
00002730 75 74 5f 69 63 6f 6e 5f 74 65 78 74 28 66 66 25 |ut_icon_text(ff%|
00002740 2c 77 65 70 73 6b 6c 25 28 6e 25 29 2c 77 24 29 |,wepskl%(n%),w$)|
00002750 0d 11 b2 06 20 cc 0d 11 bc 1e 20 20 20 6d 61 67 |.... ..... mag|
00002760 69 63 25 28 6e 25 29 3d 6d 61 67 69 63 25 28 6e |ic%(n%)=magic%(n|
00002770 25 29 2d 31 0d 11 c6 17 20 20 20 77 24 3d c3 28 |%)-1.... w$=.(|
00002780 6d 61 67 69 63 25 28 6e 25 29 29 0d 11 d0 29 20 |magic%(n%))...) |
00002790 20 20 f2 70 75 74 5f 69 63 6f 6e 5f 74 65 78 74 | .put_icon_text|
000027a0 28 66 66 25 2c 6d 67 63 73 6b 6c 25 28 6e 25 29 |(ff%,mgcskl%(n%)|
000027b0 2c 77 24 29 0d 11 da 06 20 cd 0d 11 e4 1c 20 6c |,w$).... ..... l|
000027c0 6f 73 65 73 25 28 6e 25 29 3d 6c 6f 73 65 73 25 |oses%(n%)=loses%|
000027d0 28 6e 25 29 2b 31 0d 11 ee 16 20 e7 20 6c 6f 73 |(n%)+1.... . los|
000027e0 65 73 25 28 6e 25 29 3d 31 30 20 8c 0d 11 f8 1e |es%(n%)=10 .....|
000027f0 20 20 20 70 6f 77 65 72 25 28 6e 25 29 3d 70 6f | power%(n%)=po|
00002800 77 65 72 25 28 6e 25 29 2d 31 0d 12 02 17 20 20 |wer%(n%)-1.... |
00002810 20 77 24 3d c3 28 70 6f 77 65 72 25 28 6e 25 29 | w$=.(power%(n%)|
00002820 29 0d 12 0c 29 20 20 20 f2 70 75 74 5f 69 63 6f |)...) .put_ico|
00002830 6e 5f 74 65 78 74 28 66 66 25 2c 70 6f 77 73 6b |n_text(ff%,powsk|
00002840 6c 25 28 6e 25 29 2c 77 24 29 0d 12 16 13 20 20 |l%(n%),w$).... |
00002850 20 6c 6f 73 65 73 25 28 6e 25 29 3d 30 0d 12 20 | loses%(n%)=0.. |
00002860 06 20 cd 0d 12 2a 36 20 e7 20 28 77 65 61 70 6f |. ...*6 . (weapo|
00002870 6e 25 28 6e 25 29 3d 30 20 80 20 6d 61 67 69 63 |n%(n%)=0 . magic|
00002880 25 28 6e 25 29 3d 30 29 20 84 20 70 6f 77 65 72 |%(n%)=0) . power|
00002890 25 28 6e 25 29 3d 30 20 8c 0d 12 34 0d 20 20 20 |%(n%)=0 ...4. |
000028a0 42 4c 4e 25 3d b9 0d 12 3e 06 20 cc 0d 12 48 0d |BLN%=...>. ...H.|
000028b0 20 20 20 42 4c 4e 25 3d a3 0d 12 52 06 20 cd 0d | BLN%=...R. ..|
000028c0 12 5c 09 3d 42 4c 4e 25 0d 12 66 05 3a 0d 12 70 |.\.=BLN%..f.:..p|
000028d0 04 0d ff |...|
000028d3 
.