/ CyberMycha 2004 August / CyberMycha 08-2004 (Poland).bin / Spiderman2 / MainApp.cab / GUI.u / ScriptText21.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 68 20 2f 2f 20 47 55 49 |........|h // GUI|
|00000010| 49 6d 61 67 65 4c 69 73 | 74 20 69 73 20 73 69 6d |ImageLis|t is sim|
|00000020| 70 6c 79 20 61 20 47 55 | 49 49 6d 61 67 65 20 74 |ply a GU|IImage t|
|00000030| 68 61 74 20 68 61 73 20 | 69 74 73 20 63 75 72 72 |hat has |its curr|
|00000040| 65 6e 74 20 69 6d 61 67 | 65 20 73 65 6c 65 63 74 |ent imag|e select|
|00000050| 65 64 20 66 72 6f 6d 20 | 61 6e 20 61 72 72 61 79 |ed from |an array|
|00000060| 0d 0a 2f 2f 20 49 74 20 | 72 6f 74 61 74 65 73 20 |..// It |rotates |
|00000070| 75 73 69 6e 67 20 6d 6f | 75 73 65 20 77 68 65 65 |using mo|use whee|
|00000080| 6c 2f 61 72 72 6f 77 20 | 6b 65 79 73 0d 0a 0d 0a |l/arrow |keys....|
|00000090| 63 6c 61 73 73 20 47 55 | 49 49 6d 61 67 65 4c 69 |class GU|IImageLi|
|000000a0| 73 74 20 65 78 74 65 6e | 64 73 20 47 55 49 49 6d |st exten|ds GUIIm|
|000000b0| 61 67 65 3b 0d 0a 2f 2f | 09 4e 61 74 69 76 65 3b |age;..//|.Native;|
|000000c0| 0d 0a 0d 0a 76 61 72 20 | 61 72 72 61 79 3c 73 74 |....var |array<st|
|000000d0| 72 69 6e 67 3e 20 4d 61 | 74 4e 61 6d 65 73 3b 0d |ring> Ma|tNames;.|
|000000e0| 0a 76 61 72 20 61 72 72 | 61 79 3c 4d 61 74 65 72 |.var arr|ay<Mater|
|000000f0| 69 61 6c 3e 20 4d 61 74 | 65 72 69 61 6c 73 3b 0d |ial> Mat|erials;.|
|00000100| 0a 76 61 72 20 69 6e 74 | 20 43 75 72 49 6e 64 65 |.var int| CurInde|
|00000110| 78 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 20 62 57 72 |x;..var |bool bWr|
|00000120| 61 70 3b 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |ap;....f|unction |
|00000130| 49 6e 69 74 43 6f 6d 70 | 6f 6e 65 6e 74 28 47 55 |InitComp|onent(GU|
|00000140| 49 43 6f 6e 74 72 6f 6c | 6c 65 72 20 4d 79 43 6f |IControl|ler MyCo|
|00000150| 6e 74 72 6f 6c 6c 65 72 | 2c 20 47 55 49 43 6f 6d |ntroller|, GUICom|
|00000160| 70 6f 6e 65 6e 74 20 4d | 79 4f 77 6e 65 72 29 0d |ponent M|yOwner).|
|00000170| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 49 6e 69 74 63 |.{...Sup|er.Initc|
|00000180| 6f 6d 70 6f 6e 65 6e 74 | 28 4d 79 43 6f 6e 74 72 |omponent|(MyContr|
|00000190| 6f 6c 6c 65 72 2c 20 4d | 79 4f 77 6e 65 72 29 3b |oller, M|yOwner);|
|000001a0| 0d 0a 09 4f 6e 4b 65 79 | 45 76 65 6e 74 3d 69 6e |...OnKey|Event=in|
|000001b0| 74 65 72 6e 61 6c 4b 65 | 79 45 76 65 6e 74 3b 0d |ternalKe|yEvent;.|
|000001c0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 41 |.}....fu|nction A|
|000001d0| 64 64 4d 61 74 65 72 69 | 61 6c 28 73 74 72 69 6e |ddMateri|al(strin|
|000001e0| 67 20 4d 61 74 4e 61 6d | 65 2c 20 6f 75 74 20 4d |g MatNam|e, out M|
|000001f0| 61 74 65 72 69 61 6c 20 | 4d 61 74 29 0d 0a 7b 0d |aterial |Mat)..{.|
|00000200| 0a 6c 6f 63 61 6c 20 69 | 6e 74 20 69 3b 0d 0a 0d |.local i|nt i;...|
|00000210| 0a 09 69 66 20 28 4d 61 | 74 20 21 3d 20 4e 6f 6e |..if (Ma|t != Non|
|00000220| 65 29 0d 0a 09 7b 0d 0a | 09 09 69 20 3d 20 4d 61 |e)...{..|..i = Ma|
|00000230| 74 65 72 69 61 6c 73 2e | 4c 65 6e 67 74 68 3b 0d |terials.|Length;.|
|00000240| 0a 09 09 4d 61 74 65 72 | 69 61 6c 73 5b 69 5d 3d |...Mater|ials[i]=|
|00000250| 4d 61 74 3b 0d 0a 09 09 | 4d 61 74 4e 61 6d 65 73 |Mat;....|MatNames|
|00000260| 5b 69 5d 3d 4d 61 74 4e | 61 6d 65 3b 0d 0a 09 7d |[i]=MatN|ame;...}|
|00000270| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000280| 73 74 72 69 6e 67 20 47 | 65 74 43 75 72 4d 61 74 |string G|etCurMat|
|00000290| 4e 61 6d 65 28 29 0d 0a | 7b 0d 0a 09 69 66 20 28 |Name()..|{...if (|
|000002a0| 43 75 72 49 6e 64 65 78 | 20 3e 3d 20 30 20 26 26 |CurIndex| >= 0 &&|
|000002b0| 20 43 75 72 49 6e 64 65 | 78 20 3c 20 4d 61 74 65 | CurInde|x < Mate|
|000002c0| 72 69 61 6c 73 2e 4c 65 | 6e 67 74 68 29 0d 0a 09 |rials.Le|ngth)...|
|000002d0| 09 72 65 74 75 72 6e 20 | 4d 61 74 4e 61 6d 65 73 |.return |MatNames|
|000002e0| 5b 43 75 72 49 6e 64 65 | 78 5d 3b 0d 0a 0d 0a 09 |[CurInde|x];.....|
|000002f0| 72 65 74 75 72 6e 20 22 | 22 3b 0d 0a 7d 0d 0a 0d |return "|";..}...|
|00000300| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 49 6e 64 |.functio|n SetInd|
|00000310| 65 78 28 69 6e 74 20 69 | 6e 64 65 78 29 0d 0a 7b |ex(int i|ndex)..{|
|00000320| 0d 0a 09 69 66 20 28 69 | 6e 64 65 78 20 3e 3d 20 |...if (i|ndex >= |
|00000330| 30 20 26 26 20 69 6e 64 | 65 78 20 3c 20 4d 61 74 |0 && ind|ex < Mat|
|00000340| 65 72 69 61 6c 73 2e 4c | 65 6e 67 74 68 29 0d 0a |erials.L|ength)..|
|00000350| 09 7b 0d 0a 09 09 43 75 | 72 49 6e 64 65 78 20 3d |.{....Cu|rIndex =|
|00000360| 20 69 6e 64 65 78 3b 0d | 0a 09 09 49 6d 61 67 65 | index;.|...Image|
|00000370| 20 3d 20 4d 61 74 65 72 | 69 61 6c 73 5b 69 6e 64 | = Mater|ials[ind|
|00000380| 65 78 5d 3b 0d 0a 09 7d | 0d 0a 09 65 6c 73 65 0d |ex];...}|...else.|
|00000390| 0a 09 7b 0d 0a 09 09 49 | 6d 61 67 65 20 3d 20 4e |..{....I|mage = N|
|000003a0| 6f 6e 65 3b 0d 0a 09 09 | 43 75 72 49 6e 64 65 78 |one;....|CurIndex|
|000003b0| 20 3d 20 2d 31 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d | = -1;..|.}..}...|
|000003c0| 0a 66 75 6e 63 74 69 6f | 6e 20 62 6f 6f 6c 20 69 |.functio|n bool i|
|000003d0| 6e 74 65 72 6e 61 6c 4b | 65 79 45 76 65 6e 74 28 |nternalK|eyEvent(|
|000003e0| 6f 75 74 20 62 79 74 65 | 20 4b 65 79 2c 20 6f 75 |out byte| Key, ou|
|000003f0| 74 20 62 79 74 65 20 53 | 74 61 74 65 2c 20 66 6c |t byte S|tate, fl|
|00000400| 6f 61 74 20 64 65 6c 74 | 61 29 0d 0a 7b 0d 0a 09 |oat delt|a)..{...|
|00000410| 69 66 20 28 20 28 28 4b | 65 79 3d 3d 30 78 32 36 |if ( ((K|ey==0x26|
|00000420| 20 7c 7c 20 4b 65 79 3d | 3d 30 78 36 38 20 7c 7c | || Key=|=0x68 |||
|00000430| 20 4b 65 79 3d 3d 30 78 | 32 35 20 7c 7c 20 4b 65 | Key==0x|25 || Ke|
|00000440| 79 3d 3d 30 78 36 34 29 | 20 26 26 20 28 53 74 61 |y==0x64)| && (Sta|
|00000450| 74 65 3d 3d 31 29 29 20 | 7c 7c 20 28 6b 65 79 3d |te==1)) ||| (key=|
|00000460| 3d 30 78 45 43 20 26 26 | 20 53 74 61 74 65 3d 3d |=0xEC &&| State==|
|00000470| 33 29 20 29 09 2f 2f 20 | 55 70 2f 4c 65 66 74 2f |3) ).// |Up/Left/|
|00000480| 4d 6f 75 73 65 57 68 65 | 65 6c 55 70 0d 0a 09 7b |MouseWhe|elUp...{|
|00000490| 0d 0a 09 09 50 72 65 76 | 49 6d 61 67 65 28 29 3b |....Prev|Image();|
|000004a0| 0d 0a 09 09 72 65 74 75 | 72 6e 20 74 72 75 65 3b |....retu|rn true;|
|000004b0| 0d 0a 09 7d 0d 0a 09 0d | 0a 09 69 66 20 28 20 28 |...}....|..if ( (|
|000004c0| 28 4b 65 79 3d 3d 30 78 | 32 38 20 7c 7c 20 4b 65 |(Key==0x|28 || Ke|
|000004d0| 79 3d 3d 30 78 36 32 20 | 7c 7c 20 4b 65 79 3d 3d |y==0x62 ||| Key==|
|000004e0| 30 78 32 37 20 7c 7c 20 | 4b 65 79 3d 3d 30 78 36 |0x27 || |Key==0x6|
|000004f0| 36 29 20 26 26 20 28 53 | 74 61 74 65 3d 3d 31 29 |6) && (S|tate==1)|
|00000500| 29 20 7c 7c 20 28 6b 65 | 79 3d 3d 30 78 45 44 20 |) || (ke|y==0xED |
|00000510| 26 26 20 53 74 61 74 65 | 3d 3d 33 29 20 29 20 20 |&& State|==3) )  |
|00000520| 2f 2f 20 44 6f 77 6e 2f | 52 69 67 68 74 2f 4d 6f |// Down/|Right/Mo|
|00000530| 75 73 65 57 68 65 65 6c | 44 6e 0d 0a 09 7b 0d 0a |useWheel|Dn...{..|
|00000540| 09 09 4e 65 78 74 49 6d | 61 67 65 28 29 3b 0d 0a |..NextIm|age();..|
|00000550| 09 09 72 65 74 75 72 6e | 20 74 72 75 65 3b 0d 0a |..return| true;..|
|00000560| 09 7d 0d 0a 09 0d 0a 09 | 69 66 20 28 20 28 4b 65 |.}......|if ( (Ke|
|00000570| 79 3d 3d 30 78 32 34 20 | 7c 7c 20 4b 65 79 3d 3d |y==0x24 ||| Key==|
|00000580| 30 78 36 37 29 20 26 26 | 20 28 53 74 61 74 65 3d |0x67) &&| (State=|
|00000590| 3d 31 29 20 29 20 2f 2f | 20 48 6f 6d 65 0d 0a 09 |=1) ) //| Home...|
|000005a0| 7b 0d 0a 09 09 46 69 72 | 73 74 49 6d 61 67 65 28 |{....Fir|stImage(|
|000005b0| 29 3b 0d 0a 09 09 72 65 | 74 75 72 6e 20 74 72 75 |);....re|turn tru|
|000005c0| 65 3b 0d 0a 09 7d 0d 0a | 09 0d 0a 09 69 66 20 28 |e;...}..|....if (|
|000005d0| 20 28 4b 65 79 3d 3d 30 | 78 32 33 20 7c 7c 20 4b | (Key==0|x23 || K|
|000005e0| 65 79 3d 3d 30 78 36 31 | 29 20 26 26 20 28 53 74 |ey==0x61|) && (St|
|000005f0| 61 74 65 3d 3d 31 29 20 | 29 20 2f 2f 20 45 6e 64 |ate==1) |) // End|
|00000600| 0d 0a 09 7b 0d 0a 09 09 | 4c 61 73 74 49 6d 61 67 |...{....|LastImag|
|00000610| 65 28 29 3b 0d 0a 09 09 | 72 65 74 75 72 6e 20 74 |e();....|return t|
|00000620| 72 75 65 3b 0d 0a 09 7d | 0d 0a 0d 0a 09 72 65 74 |rue;...}|.....ret|
|00000630| 75 72 6e 20 66 61 6c 73 | 65 3b 0d 0a 7d 0d 0a 0d |urn fals|e;..}...|
|00000640| 0a 66 75 6e 63 74 69 6f | 6e 20 50 72 65 76 49 6d |.functio|n PrevIm|
|00000650| 61 67 65 28 29 0d 0a 7b | 0d 0a 09 69 66 20 28 43 |age()..{|...if (C|
|00000660| 75 72 49 6e 64 65 78 20 | 3c 20 31 29 0d 0a 09 7b |urIndex |< 1)...{|
|00000670| 0d 0a 09 09 69 66 20 28 | 62 57 72 61 70 29 0d 0a |....if (|bWrap)..|
|00000680| 09 09 09 53 65 74 49 6e | 64 65 78 28 4d 61 74 65 |...SetIn|dex(Mate|
|00000690| 72 69 61 6c 73 2e 4c 65 | 6e 67 74 68 20 2d 20 31 |rials.Le|ngth - 1|
|000006a0| 29 3b 0d 0a 09 7d 0d 0a | 09 65 6c 73 65 0d 0a 09 |);...}..|.else...|
|000006b0| 09 53 65 74 49 6e 64 65 | 78 28 43 75 72 49 6e 64 |.SetInde|x(CurInd|
|000006c0| 65 78 20 2d 20 31 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |ex - 1);|..}....f|
|000006d0| 75 6e 63 74 69 6f 6e 20 | 4e 65 78 74 49 6d 61 67 |unction |NextImag|
|000006e0| 65 28 29 0d 0a 7b 0d 0a | 09 69 66 20 28 43 75 72 |e()..{..|.if (Cur|
|000006f0| 49 6e 64 65 78 20 3c 20 | 30 29 0d 0a 09 09 53 65 |Index < |0)....Se|
|00000700| 74 49 6e 64 65 78 28 30 | 29 3b 0d 0a 09 65 6c 73 |tIndex(0|);...els|
|00000710| 65 20 69 66 20 28 28 43 | 75 72 49 6e 64 65 78 20 |e if ((C|urIndex |
|00000720| 2b 20 31 29 20 3e 3d 20 | 4d 61 74 65 72 69 61 6c |+ 1) >= |Material|
|00000730| 73 2e 4c 65 6e 67 74 68 | 29 0d 0a 09 7b 0d 0a 09 |s.Length|)...{...|
|00000740| 09 69 66 20 28 62 57 72 | 61 70 29 0d 0a 09 09 09 |.if (bWr|ap).....|
|00000750| 53 65 74 49 6e 64 65 78 | 28 30 29 3b 0d 0a 09 7d |SetIndex|(0);...}|
|00000760| 0d 0a 09 65 6c 73 65 0d | 0a 09 09 53 65 74 49 6e |...else.|...SetIn|
|00000770| 64 65 78 28 43 75 72 49 | 6e 64 65 78 20 2b 20 31 |dex(CurI|ndex + 1|
|00000780| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00000790| 6e 20 46 69 72 73 74 49 | 6d 61 67 65 28 29 0d 0a |n FirstI|mage()..|
|000007a0| 7b 0d 0a 09 69 66 20 28 | 4d 61 74 65 72 69 61 6c |{...if (|Material|
|000007b0| 73 2e 4c 65 6e 67 74 68 | 20 3e 20 30 29 0d 0a 09 |s.Length| > 0)...|
|000007c0| 09 53 65 74 49 6e 64 65 | 78 28 30 29 3b 0d 0a 7d |.SetInde|x(0);..}|
|000007d0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 4c 61 73 |....func|tion Las|
|000007e0| 74 49 6d 61 67 65 28 29 | 0d 0a 7b 0d 0a 09 69 66 |tImage()|..{...if|
|000007f0| 20 28 4d 61 74 65 72 69 | 61 6c 73 2e 4c 65 6e 67 | (Materi|als.Leng|
|00000800| 74 68 20 3e 20 30 29 0d | 0a 09 09 53 65 74 49 6e |th > 0).|...SetIn|
|00000810| 64 65 78 28 4d 61 74 65 | 72 69 61 6c 73 2e 4c 65 |dex(Mate|rials.Le|
|00000820| 6e 67 74 68 20 2d 20 31 | 29 3b 0d 0a 7d 0d 0a 0d |ngth - 1|);..}...|
|00000830| 0a 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+