1112 vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true); |
1112 vgear:= AddVisualGear(0, 0, vgtSpeechBubble, s, true); |
1113 if vgear <> nil then |
1113 if vgear <> nil then |
1114 begin |
1114 begin |
1115 if Gear^.Kind = gtHedgehog then |
1115 if Gear^.Kind = gtHedgehog then |
1116 begin |
1116 begin |
|
1117 vgear^.Text:= lua_tostring(L, 2); |
1117 AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text); |
1118 AddChatString(#1+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text); |
1118 vgear^.Hedgehog:= gear^.Hedgehog |
1119 vgear^.Hedgehog:= gear^.Hedgehog |
1119 end |
1120 end |
1120 else vgear^.Frame:= gear^.uid; |
1121 else vgear^.Frame:= gear^.uid; |
1121 |
1122 |
1122 vgear^.Text:= lua_tostring(L, 2); |
|
1123 vgear^.FrameTicks:= lua_tointeger(L, 3); |
1123 vgear^.FrameTicks:= lua_tointeger(L, 3); |
1124 if (vgear^.FrameTicks < 1) or (vgear^.FrameTicks > 3) then |
1124 if (vgear^.FrameTicks < 1) or (vgear^.FrameTicks > 3) then |
1125 vgear^.FrameTicks:= 1; |
1125 vgear^.FrameTicks:= 1; |
1126 lua_pushinteger(L, vgear^.Uid); |
1126 lua_pushinteger(L, vgear^.Uid); |
1127 end |
1127 end |