/ Chip 2000 June / Chip_06_2000.iso / games / WheelofTime / WoTDemo.exe / System / UWindow.u / UWindowWindow_UWindowConsoleWindow_ScriptText.TextBuffer

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 6a 25 63 6c 61 73 73 20 |........|j%class |
|00000010| 55 57 69 6e 64 6f 77 43 | 6f 6e 73 6f 6c 65 57 69 |UWindowC|onsoleWi|
|00000020| 6e 64 6f 77 20 65 78 74 | 65 6e 64 73 20 55 57 69 |ndow ext|ends UWi|
|00000030| 6e 64 6f 77 46 72 61 6d | 65 64 57 69 6e 64 6f 77 |ndowFram|edWindow|
|00000040| 3b 0d 0a 0d 0a 76 61 72 | 20 66 6c 6f 61 74 20 4f |;....var| float O|
|00000050| 6c 64 50 61 72 65 6e 74 | 57 69 64 74 68 2c 20 4f |ldParent|Width, O|
|00000060| 6c 64 50 61 72 65 6e 74 | 48 65 69 67 68 74 3b 0d |ldParent|Height;.|
|00000070| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 42 65 67 69 |...funct|ion Begi|
|00000080| 6e 50 6c 61 79 28 29 20 | 0d 0a 7b 0d 0a 09 53 75 |nPlay() |..{...Su|
|00000090| 70 65 72 2e 42 65 67 69 | 6e 50 6c 61 79 28 29 3b |per.Begi|nPlay();|
|000000a0| 0d 0a 0d 0a 09 43 6c 69 | 65 6e 74 43 6c 61 73 73 |.....Cli|entClass|
|000000b0| 20 3d 20 63 6c 61 73 73 | 27 55 57 69 6e 64 6f 77 | = class|'UWindow|
|000000c0| 43 6f 6e 73 6f 6c 65 43 | 6c 69 65 6e 74 57 69 6e |ConsoleC|lientWin|
|000000d0| 64 6f 77 27 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |dow';..}|....func|
|000000e0| 74 69 6f 6e 20 43 72 65 | 61 74 65 64 28 29 20 0d |tion Cre|ated() .|
|000000f0| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 43 72 65 61 74 |.{...Sup|er.Creat|
|00000100| 65 64 28 29 3b 0d 0a 09 | 62 53 69 7a 61 62 6c 65 |ed();...|bSizable|
|00000110| 20 3d 20 54 72 75 65 3b | 0d 0a 09 62 53 74 61 74 | = True;|...bStat|
|00000120| 75 73 42 61 72 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |usBar = |True;...|
|00000130| 62 4c 65 61 76 65 4f 6e | 53 63 72 65 65 6e 20 3d |bLeaveOn|Screen =|
|00000140| 20 54 72 75 65 3b 0d 0a | 0d 0a 09 4f 6c 64 50 61 | True;..|...OldPa|
|00000150| 72 65 6e 74 57 69 64 74 | 68 20 3d 20 50 61 72 65 |rentWidt|h = Pare|
|00000160| 6e 74 57 69 6e 64 6f 77 | 2e 57 69 6e 57 69 64 74 |ntWindow|.WinWidt|
|00000170| 68 3b 0d 0a 09 4f 6c 64 | 50 61 72 65 6e 74 48 65 |h;...Old|ParentHe|
|00000180| 69 67 68 74 20 3d 20 50 | 61 72 65 6e 74 57 69 6e |ight = P|arentWin|
|00000190| 64 6f 77 2e 57 69 6e 48 | 65 69 67 68 74 3b 0d 0a |dow.WinH|eight;..|
|000001a0| 0d 0a 09 53 65 74 44 69 | 6d 65 6e 73 69 6f 6e 73 |...SetDi|mensions|
|000001b0| 28 29 3b 0d 0a 0d 0a 09 | 53 65 74 41 63 63 65 70 |();.....|SetAccep|
|000001c0| 74 73 46 6f 63 75 73 28 | 29 3b 0d 0a 7d 0d 0a 0d |tsFocus(|);..}...|
|000001d0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 53 68 6f 77 |...funct|ion Show|
|000001e0| 57 69 6e 64 6f 77 28 29 | 0d 0a 7b 0d 0a 09 53 75 |Window()|..{...Su|
|000001f0| 70 65 72 2e 53 68 6f 77 | 57 69 6e 64 6f 77 28 29 |per.Show|Window()|
|00000200| 3b 0d 0a 0d 0a 09 69 66 | 28 50 61 72 65 6e 74 57 |;.....if|(ParentW|
|00000210| 69 6e 64 6f 77 2e 57 69 | 6e 57 69 64 74 68 20 21 |indow.Wi|nWidth !|
|00000220| 3d 20 4f 6c 64 50 61 72 | 65 6e 74 57 69 64 74 68 |= OldPar|entWidth|
|00000230| 20 7c 7c 20 50 61 72 65 | 6e 74 57 69 6e 64 6f 77 | || Pare|ntWindow|
|00000240| 2e 57 69 6e 48 65 69 67 | 68 74 20 21 3d 20 4f 6c |.WinHeig|ht != Ol|
|00000250| 64 50 61 72 65 6e 74 48 | 65 69 67 68 74 29 0d 0a |dParentH|eight)..|
|00000260| 09 7b 0d 0a 09 09 53 65 | 74 44 69 6d 65 6e 73 69 |.{....Se|tDimensi|
|00000270| 6f 6e 73 28 29 3b 0d 0a | 09 09 4f 6c 64 50 61 72 |ons();..|..OldPar|
|00000280| 65 6e 74 57 69 64 74 68 | 20 3d 20 50 61 72 65 6e |entWidth| = Paren|
|00000290| 74 57 69 6e 64 6f 77 2e | 57 69 6e 57 69 64 74 68 |tWindow.|WinWidth|
|000002a0| 3b 0d 0a 09 09 4f 6c 64 | 50 61 72 65 6e 74 48 65 |;....Old|ParentHe|
|000002b0| 69 67 68 74 20 3d 20 50 | 61 72 65 6e 74 57 69 6e |ight = P|arentWin|
|000002c0| 64 6f 77 2e 57 69 6e 48 | 65 69 67 68 74 3b 0d 0a |dow.WinH|eight;..|
|000002d0| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|000002e0| 6e 20 52 65 73 6f 6c 75 | 74 69 6f 6e 43 68 61 6e |n Resolu|tionChan|
|000002f0| 67 65 64 28 66 6c 6f 61 | 74 20 57 2c 20 66 6c 6f |ged(floa|t W, flo|
|00000300| 61 74 20 48 29 0d 0a 7b | 0d 0a 09 53 65 74 44 69 |at H)..{|...SetDi|
|00000310| 6d 65 6e 73 69 6f 6e 73 | 28 29 3b 0d 0a 7d 0d 0a |mensions|();..}..|
|00000320| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|00000330| 44 69 6d 65 6e 73 69 6f | 6e 73 28 29 0d 0a 7b 0d |Dimensio|ns()..{.|
|00000340| 0a 09 4c 6f 67 28 22 43 | 65 6e 74 65 72 69 6e 67 |..Log("C|entering|
|00000350| 20 43 6f 6e 73 6f 6c 65 | 20 57 69 6e 64 6f 77 22 | Console| Window"|
|00000360| 29 3b 0d 0a 0d 0a 09 69 | 66 20 28 50 61 72 65 6e |);.....i|f (Paren|
|00000370| 74 57 69 6e 64 6f 77 2e | 57 69 6e 57 69 64 74 68 |tWindow.|WinWidth|
|00000380| 20 3c 20 35 30 30 29 0d | 0a 09 7b 0d 0a 09 09 53 | < 500).|..{....S|
|00000390| 65 74 53 69 7a 65 28 32 | 30 30 2c 20 31 35 30 29 |etSize(2|00, 150)|
|000003a0| 3b 0d 0a 09 7d 20 65 6c | 73 65 20 7b 0d 0a 09 09 |;...} el|se {....|
|000003b0| 53 65 74 53 69 7a 65 28 | 34 31 30 2c 20 33 31 30 |SetSize(|410, 310|
|000003c0| 29 3b 0d 0a 09 7d 0d 0a | 09 57 69 6e 4c 65 66 74 |);...}..|.WinLeft|
|000003d0| 20 3d 20 50 61 72 65 6e | 74 57 69 6e 64 6f 77 2e | = Paren|tWindow.|
|000003e0| 57 69 6e 57 69 64 74 68 | 2f 32 20 2d 20 57 69 6e |WinWidth|/2 - Win|
|000003f0| 57 69 64 74 68 2f 32 3b | 0d 0a 09 57 69 6e 54 6f |Width/2;|...WinTo|
|00000400| 70 20 3d 20 50 61 72 65 | 6e 74 57 69 6e 64 6f 77 |p = Pare|ntWindow|
|00000410| 2e 57 69 6e 48 65 69 67 | 68 74 2f 32 20 2d 20 57 |.WinHeig|ht/2 - W|
|00000420| 69 6e 48 65 69 67 68 74 | 2f 32 3b 0d 0a 7d 0d 0a |inHeight|/2;..}..|
|00000430| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 4b 65 79 54 79 |..functi|on KeyTy|
|00000440| 70 65 28 20 69 6e 74 20 | 4b 65 79 2c 20 66 6c 6f |pe( int |Key, flo|
|00000450| 61 74 20 4d 6f 75 73 65 | 58 2c 20 66 6c 6f 61 74 |at Mouse|X, float|
|00000460| 20 4d 6f 75 73 65 59 20 | 29 0d 0a 7b 0d 0a 09 6c | MouseY |)..{...l|
|00000470| 6f 63 61 6c 20 57 69 6e | 64 6f 77 43 6f 6e 73 6f |ocal Win|dowConso|
|00000480| 6c 65 20 43 6f 6e 3b 0d | 0a 0d 0a 0d 0a 09 69 66 |le Con;.|......if|
|00000490| 28 20 4b 65 79 3e 3d 30 | 78 32 30 20 26 26 20 4b |( Key>=0|x20 && K|
|000004a0| 65 79 3c 30 78 38 30 20 | 26 26 20 4b 65 79 21 3d |ey<0x80 |&& Key!=|
|000004b0| 41 73 63 28 22 60 22 29 | 20 26 26 20 4b 65 79 21 |Asc("`")| && Key!|
|000004c0| 3d 41 73 63 28 22 7e 22 | 29 20 29 0d 0a 09 7b 0d |=Asc("~"|) )...{.|
|000004d0| 0a 09 09 43 6f 6e 20 3d | 20 52 6f 6f 74 2e 43 6f |...Con =| Root.Co|
|000004e0| 6e 73 6f 6c 65 3b 0d 0a | 09 09 43 6f 6e 2e 54 79 |nsole;..|..Con.Ty|
|000004f0| 70 65 64 53 74 72 20 3d | 20 43 6f 6e 2e 54 79 70 |pedStr =| Con.Typ|
|00000500| 65 64 53 74 72 20 24 20 | 43 68 72 28 4b 65 79 29 |edStr $ |Chr(Key)|
|00000510| 3b 0d 0a 09 7d 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |;...}..}|....func|
|00000520| 74 69 6f 6e 20 4b 65 79 | 44 6f 77 6e 28 69 6e 74 |tion Key|Down(int|
|00000530| 20 4b 65 79 2c 20 66 6c | 6f 61 74 20 58 2c 20 66 | Key, fl|oat X, f|
|00000540| 6c 6f 61 74 20 59 29 20 | 7b 0d 0a 09 6c 6f 63 61 |loat Y) |{...loca|
|00000550| 6c 20 73 74 72 69 6e 67 | 20 54 65 6d 70 3b 0d 0a |l string| Temp;..|
|00000560| 09 6c 6f 63 61 6c 20 57 | 69 6e 64 6f 77 43 6f 6e |.local W|indowCon|
|00000570| 73 6f 6c 65 20 43 6f 6e | 3b 0d 0a 09 6c 6f 63 61 |sole Con|;...loca|
|00000580| 6c 20 50 6c 61 79 65 72 | 50 61 77 6e 20 50 3b 0d |l Player|Pawn P;.|
|00000590| 0a 0d 0a 09 43 6f 6e 20 | 3d 20 52 6f 6f 74 2e 43 |....Con |= Root.C|
|000005a0| 6f 6e 73 6f 6c 65 3b 0d | 0a 0d 0a 09 50 20 3d 20 |onsole;.|....P = |
|000005b0| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|000005c0| 3b 0d 0a 09 73 77 69 74 | 63 68 20 28 4b 65 79 29 |;...swit|ch (Key)|
|000005d0| 0d 0a 09 7b 0d 0a 09 09 | 63 61 73 65 20 50 2e 45 |...{....|case P.E|
|000005e0| 49 6e 70 75 74 4b 65 79 | 2e 49 4b 5f 45 73 63 61 |InputKey|.IK_Esca|
|000005f0| 70 65 3a 0d 0a 09 09 09 | 69 66 28 20 43 6f 6e 2e |pe:.....|if( Con.|
|00000600| 54 79 70 65 64 53 74 72 | 21 3d 22 22 20 29 0d 0a |TypedStr|!="" )..|
|00000610| 09 09 09 09 43 6f 6e 2e | 54 79 70 65 64 53 74 72 |....Con.|TypedStr|
|00000620| 3d 22 22 3b 0d 0a 09 09 | 09 62 72 65 61 6b 3b 0d |="";....|.break;.|
|00000630| 0a 09 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|00000640| 4b 65 79 2e 49 4b 5f 45 | 6e 74 65 72 3a 0d 0a 09 |Key.IK_E|nter:...|
|00000650| 09 09 69 66 28 20 43 6f | 6e 2e 54 79 70 65 64 53 |..if( Co|n.TypedS|
|00000660| 74 72 21 3d 22 22 20 29 | 0d 0a 09 09 09 7b 0d 0a |tr!="" )|.....{..|
|00000670| 09 09 09 09 43 6f 6e 2e | 4d 65 73 73 61 67 65 28 |....Con.|Message(|
|00000680| 20 4e 6f 6e 65 2c 20 22 | 28 3e 20 22 24 43 6f 6e | None, "|(> "$Con|
|00000690| 2e 54 79 70 65 64 53 74 | 72 2c 20 27 43 6f 6e 73 |.TypedSt|r, 'Cons|
|000006a0| 6f 6c 65 27 20 29 3b 0d | 0a 0d 0a 09 09 09 09 2f |ole' );.|......./|
|000006b0| 2f 20 55 70 64 61 74 65 | 20 68 69 73 74 6f 72 79 |/ Update| history|
|000006c0| 20 62 75 66 66 65 72 2e | 0d 0a 09 09 09 09 43 6f | buffer.|......Co|
|000006d0| 6e 2e 55 70 64 61 74 65 | 48 69 73 74 6f 72 79 28 |n.Update|History(|
|000006e0| 29 3b 0d 0a 0d 0a 09 09 | 09 09 2f 2f 20 4d 61 6b |);......|..// Mak|
|000006f0| 65 20 61 20 6c 6f 63 61 | 6c 20 63 6f 70 79 20 6f |e a loca|l copy o|
|00000700| 66 20 74 68 65 20 73 74 | 72 69 6e 67 2e 0d 0a 09 |f the st|ring....|
|00000710| 09 09 09 54 65 6d 70 3d | 43 6f 6e 2e 54 79 70 65 |...Temp=|Con.Type|
|00000720| 64 53 74 72 3b 0d 0a 09 | 09 09 09 43 6f 6e 2e 54 |dStr;...|...Con.T|
|00000730| 79 70 65 64 53 74 72 3d | 22 22 3b 0d 0a 09 09 09 |ypedStr=|"";.....|
|00000740| 09 69 66 28 20 21 43 6f | 6e 2e 43 6f 6e 73 6f 6c |.if( !Co|n.Consol|
|00000750| 65 43 6f 6d 6d 61 6e 64 | 28 20 54 65 6d 70 20 29 |eCommand|( Temp )|
|00000760| 20 29 0d 0a 09 09 09 09 | 09 43 6f 6e 2e 4d 65 73 | )......|.Con.Mes|
|00000770| 73 61 67 65 28 20 4e 6f | 6e 65 2c 20 4c 6f 63 61 |sage( No|ne, Loca|
|00000780| 6c 69 7a 65 28 22 45 72 | 72 6f 72 73 22 2c 22 45 |lize("Er|rors","E|
|00000790| 78 65 63 22 2c 22 43 6f | 72 65 22 29 2c 20 27 43 |xec","Co|re"), 'C|
|000007a0| 6f 6e 73 6f 6c 65 27 20 | 29 3b 0d 0a 09 09 09 09 |onsole' |);......|
|000007b0| 43 6f 6e 2e 4d 65 73 73 | 61 67 65 28 20 4e 6f 6e |Con.Mess|age( Non|
|000007c0| 65 2c 20 22 22 2c 20 27 | 43 6f 6e 73 6f 6c 65 27 |e, "", '|Console'|
|000007d0| 20 29 3b 0d 0a 09 09 09 | 7d 0d 0a 09 09 09 62 72 | );.....|}.....br|
|000007e0| 65 61 6b 3b 0d 0a 09 09 | 63 61 73 65 20 50 2e 45 |eak;....|case P.E|
|000007f0| 49 6e 70 75 74 4b 65 79 | 2e 49 4b 5f 55 70 3a 0d |InputKey|.IK_Up:.|
|00000800| 0a 09 09 09 43 6f 6e 2e | 48 69 73 74 6f 72 79 55 |....Con.|HistoryU|
|00000810| 70 28 29 3b 0d 0a 09 09 | 09 62 72 65 61 6b 3b 0d |p();....|.break;.|
|00000820| 0a 09 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|00000830| 4b 65 79 2e 49 4b 5f 44 | 6f 77 6e 3a 0d 0a 09 09 |Key.IK_D|own:....|
|00000840| 09 43 6f 6e 2e 48 69 73 | 74 6f 72 79 44 6f 77 6e |.Con.His|toryDown|
|00000850| 28 29 3b 0d 0a 09 09 09 | 62 72 65 61 6b 3b 0d 0a |();.....|break;..|
|00000860| 09 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|00000870| 65 79 2e 49 4b 5f 42 61 | 63 6b 73 70 61 63 65 3a |ey.IK_Ba|ckspace:|
|00000880| 0d 0a 09 09 63 61 73 65 | 20 50 2e 45 49 6e 70 75 |....case| P.EInpu|
|00000890| 74 4b 65 79 2e 49 4b 5f | 4c 65 66 74 3a 0d 0a 09 |tKey.IK_|Left:...|
|000008a0| 09 09 69 66 28 20 4c 65 | 6e 28 43 6f 6e 2e 54 79 |..if( Le|n(Con.Ty|
|000008b0| 70 65 64 53 74 72 29 3e | 30 20 29 0d 0a 09 09 09 |pedStr)>|0 ).....|
|000008c0| 09 43 6f 6e 2e 54 79 70 | 65 64 53 74 72 20 3d 20 |.Con.Typ|edStr = |
|000008d0| 4c 65 66 74 28 43 6f 6e | 2e 54 79 70 65 64 53 74 |Left(Con|.TypedSt|
|000008e0| 72 2c 4c 65 6e 28 43 6f | 6e 2e 54 79 70 65 64 53 |r,Len(Co|n.TypedS|
|000008f0| 74 72 29 2d 31 29 3b 0d | 0a 09 09 09 62 72 65 61 |tr)-1);.|....brea|
|00000900| 6b 3b 0d 0a 09 09 64 65 | 66 61 75 6c 74 3a 0d 0a |k;....de|fault:..|
|00000910| 09 09 09 62 72 65 61 6b | 3b 0d 0a 09 7d 0d 0a 7d |...break|;...}..}|
|00000920| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 43 6c 6f |....func|tion Clo|
|00000930| 73 65 28 6f 70 74 69 6f | 6e 61 6c 20 62 6f 6f 6c |se(optio|nal bool|
|00000940| 20 62 42 79 50 61 72 65 | 6e 74 29 0d 0a 7b 0d 0a | bByPare|nt)..{..|
|00000950| 09 52 6f 6f 74 2e 43 6f | 6e 73 6f 6c 65 2e 48 69 |.Root.Co|nsole.Hi|
|00000960| 64 65 43 6f 6e 73 6f 6c | 65 28 29 3b 0d 0a 7d 0d |deConsol|e();..}.|
|00000970| 0a 0d 0a 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+