From: willie2oo8
you dont need to disable smart to type, you just select the smart client try to type minimize (without disabling it) and click on it again and type and it works fine :S at least for me it does.
But there is no explanation as to why it doesn't work for everyone.. Only some people.
As for pressing a button to open SmartChat try this:
program SMARTchat;
function GetName : string;
begin;
result := 'SMARTchat';
end;
function GetVersion : string;
begin;
result := '0.1a';
end;
var
MainMenuItem, MenuSMARTForm: TMenuItem;
//{$ifndef PS_EXTENSION}
//var
// Client: TClient;
// Simba_MainMenu: TMainMenu;
//{$endif}
//{$i mml.simba}
procedure SMARTReadLine(Sender: TObject);
var
TheLine: string;
begin
inputQuery('SMARTchat', 'Say :', TheLine);
if (Length(TheLine) > 0) then
begin
WriteINI('Changed', 'Changed', 'True', IncludePath+'SRL/SRL/SmartSendLine.INI');
WriteINI('SMART', 'SMART', TheLine, IncludePath+'SRL/SRL/SmartSendLine.INI');
writeln('::SMARTchat:: Sending > '+TheLine+' < To Client Chat')
end;
end;
//type TKeyPressEvent = procedure (Sender: TObject; var Key: Char) of object;
{
procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
TheLine: string;
begin
if (Key = VK_F12) then
begin
inputQuery('SMARTchat', 'Say :', TheLine);
if (Length(TheLine) > 0) then
begin
WriteINI('Changed', 'Changed', 'True', IncludePath+'SRL/SRL/SmartSendLine.INI');
WriteINI('SMART', 'SMART', TheLine, IncludePath+'SRL/SRL/SmartSendLine.INI');
writeln('::SMARTchat:: Sending > '+TheLine+' < To Client Chat')
end;
end;
end;
}
procedure Init;
var
TheLine: string;
begin
MainMenuItem := TMenuItem.Create(Simba_MainMenu);
MainMenuItem.Caption := 'SMARTchat';
Simba_MainMenu.Items.Add(MainMenuItem);
MenuSMARTForm := TMenuItem.Create(MainMenuItem);
MenuSMARTForm.Caption := 'SMARTChat';
MenuSMARTForm.ShortCut := 123;
MenuSMARTForm.OnClick := @SMARTReadLine;
MainMenuItem.Add(MenuSMARTForm);
end;
procedure Free;
begin
end;
procedure Attach;
begin
writeln(' SMARTchat By Sm0k3 ');
Writeln('# SMARTchat Simba Extension #');
Writeln('# Allows you to Enter Text #');
Writeln('# Into The SMART client #');
Writeln('# Without Having Mess about #');
end;
Procedure Detach;
begin
Writeln('SMARTchat: > Goodbye ...');
Writeln('SMARTchat : : Sm0k3 ');
end;
Begin
End.
Basically with simba open, u press the F12 button and the Smartchat thing opens and allows u to type.. But I cant get it to work on simba itself.. Maybe if I had the knowledge to add buttons to simba's debug kinda like how RSbot does it then it would be easier.
As for fixing the deleting upon update.. Just make a File called SChat.simba and add the procedure to it.. add this file to:
Includes/Srl/srl/Custom. <–That is a folder..
Then in the script u include it like so:
{$I SRL/SRL/Custom/SChat.simba}
Now when srl updates, it wont be deleted.
P.S.
Maybe when someone presses the Debug button, it opens the menu :S or puts a popup.. Dunno if that can be done.