equal
deleted
inserted
replaced
31 * |
31 * |
32 * Note: Gears that do not have an effect on the game but are just visual |
32 * Note: Gears that do not have an effect on the game but are just visual |
33 * effects are called "Visual Gears" and defined in the respective unit! |
33 * effects are called "Visual Gears" and defined in the respective unit! |
34 *) |
34 *) |
35 interface |
35 interface |
36 uses uConsts, uFloat, uTypes; |
36 uses uConsts, uFloat, uTypes, uChat; |
37 |
37 |
38 procedure initModule; |
38 procedure initModule; |
39 procedure freeModule; |
39 procedure freeModule; |
40 function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear; |
40 function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear; |
41 function SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear; |
41 function SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear; |
883 begin |
883 begin |
884 Gear^.Hedgehog:= hh; |
884 Gear^.Hedgehog:= hh; |
885 Gear^.Text:= text; |
885 Gear^.Text:= text; |
886 Gear^.FrameTicks:= x |
886 Gear^.FrameTicks:= x |
887 end; |
887 end; |
888 ParseCommand('/say [' + hh^.Name + '] '+text, true) |
888 //ParseCommand('/say [' + hh^.Name + '] '+text, true) |
|
889 //AddChatString(#1+'[' + HH^.Name + '] '+text); |
889 end |
890 end |
890 end |
891 end |
891 else if (x >= 4) then |
892 else if (x >= 4) then |
892 begin |
893 begin |
893 SpeechType:= x-3; |
894 SpeechType:= x-3; |