| 1 | UNIT Unit12;
|
|---|
| 2 |
|
|---|
| 3 | INTERFACE
|
|---|
| 4 |
|
|---|
| 5 | USES
|
|---|
| 6 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|---|
| 7 | Dialogs, StdCtrls, ExtCtrls, StrUtils;
|
|---|
| 8 |
|
|---|
| 9 | TYPE
|
|---|
| 10 | TForm12 = Class(TForm)
|
|---|
| 11 | label_colors: TLabel;
|
|---|
| 12 | Message_Edit: TEdit;
|
|---|
| 13 | send_message: TButton;
|
|---|
| 14 | timer_check: TTimer;
|
|---|
| 15 | Label1: TLabel;
|
|---|
| 16 | Label2: TLabel;
|
|---|
| 17 | PROCEDURE FormShow(Sender: TObject);
|
|---|
| 18 | PROCEDURE timer_checkTimer(Sender: TObject);
|
|---|
| 19 | PROCEDURE send_messageClick(Sender: TObject);
|
|---|
| 20 | PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|---|
| 21 | PRIVATE
|
|---|
| 22 | PUBLIC
|
|---|
| 23 | END;
|
|---|
| 24 |
|
|---|
| 25 | VAR
|
|---|
| 26 | Form12: TForm12;
|
|---|
| 27 |
|
|---|
| 28 | IMPLEMENTATION
|
|---|
| 29 |
|
|---|
| 30 | USES Unit1,Unit2,Unit3,Unit5,Unit6,Unit7,Unit8,Unit9,Unit10,Unit11;
|
|---|
| 31 |
|
|---|
| 32 | {$R *.dfm}
|
|---|
| 33 |
|
|---|
| 34 | PROCEDURE TForm12.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|---|
| 35 | BEGIN
|
|---|
| 36 | Self.Visible:=False;
|
|---|
| 37 | CanClose:=False;
|
|---|
| 38 | Form1.Menu_Patch_Messages.Checked:=False;
|
|---|
| 39 | END;
|
|---|
| 40 |
|
|---|
| 41 | PROCEDURE TForm12.send_messageClick(Sender: TObject);
|
|---|
| 42 | VAR adr_message:LongWord;
|
|---|
| 43 | BEGIN
|
|---|
| 44 | IF _connected AND patch_messages_loaded THEN BEGIN
|
|---|
| 45 | adr_message:=Decode_Int(ReadMem(address_message_pointer,4));
|
|---|
| 46 |
|
|---|
| 47 | IF adr_message=0 THEN BEGIN
|
|---|
| 48 | MessageBox(Form12.Handle,PChar('You have to load a level to which you added the script'+Chr(13)+Chr(10)+'before using this stuff.'),PChar('Error'),MB_OK);
|
|---|
| 49 | END ELSE BEGIN
|
|---|
| 50 | SendMessageToOni(Form12.Message_Edit.Text);
|
|---|
| 51 | END;
|
|---|
| 52 | END ELSE BEGIN
|
|---|
| 53 | IF _connected THEN BEGIN
|
|---|
| 54 | MessageBox(Form12.Handle,PChar('You have to apply the patch before using this stuff.'),PChar('Error'),MB_OK);
|
|---|
| 55 | END;
|
|---|
| 56 | END;
|
|---|
| 57 | END;
|
|---|
| 58 |
|
|---|
| 59 | PROCEDURE TForm12.timer_checkTimer(Sender: TObject);
|
|---|
| 60 | VAR buffer:byte_array;
|
|---|
| 61 | adr_message:LongWord;
|
|---|
| 62 | BEGIN
|
|---|
| 63 | IF _connected AND patch_messages_loaded THEN BEGIN
|
|---|
| 64 | adr_message:=Decode_Int(ReadMem(address_message_pointer,4));
|
|---|
| 65 |
|
|---|
| 66 | buffer:=ReadMem(adr_message,200);
|
|---|
| 67 | IF NOT Message_Edit.Focused THEN BEGIN
|
|---|
| 68 | Message_Edit.Text:=Decode_Str(buffer);
|
|---|
| 69 | END;
|
|---|
| 70 | END;
|
|---|
| 71 | END;
|
|---|
| 72 |
|
|---|
| 73 | PROCEDURE TForm12.FormShow(Sender: TObject);
|
|---|
| 74 | BEGIN
|
|---|
| 75 | Send_Message.SetFocus;
|
|---|
| 76 | Form12.timer_checkTimer(Self);
|
|---|
| 77 | label_colors.Caption:='Color-Codes:'+Chr(13)+Chr(10)+
|
|---|
| 78 | 'b. = blue'+Chr(13)+Chr(10)+
|
|---|
| 79 | 'c. = cyan (lighter blue)'+Chr(13)+Chr(10)+
|
|---|
| 80 | 'g. = green'+Chr(13)+Chr(10)+
|
|---|
| 81 | 'l. = purple'+Chr(13)+Chr(10)+
|
|---|
| 82 | 'o. = orange'+Chr(13)+Chr(10)+
|
|---|
| 83 | 'r. = red'+Chr(13)+Chr(10)+
|
|---|
| 84 | 'u. = umber (some brown :D )'+Chr(13)+Chr(10)+
|
|---|
| 85 | 'y. = yellow';
|
|---|
| 86 | END;
|
|---|
| 87 |
|
|---|
| 88 | END.
|
|---|
