ah, yes it is pretty simple. You have if (...) then begin but no end before else.
How is this treating you:
function OnCommand(ID: Byte; Text: string): boolean;
begin
Result := false;
if (Text = '/m79') then begin
Result := true;
Admin := GetPlayerStat(ID,'Name');
AdminID := ID
DrawText(0,Admin + ' has initiated m79 training',330,RGB(255,255,255),0.1,40,240);
SayToPlayer(ID,'Go Postal!');
Rape := 1;
ForceWeapon(ID, 7, 11, 0);
end else if (Text = '/trained') AND (Rape = 1) then begin
Result := true;
Admin := GetPlayerStat(ID,'Name');
AdminID := ID
DrawText(0,Admin + ' is now scoring!',330,RGB(255,255,255),0.1,40,240);
SayToPlayer(ID,'Now start getting points!');
Rape := 0;
ForceWeapon(ID, 8, 11, 0);
end;
end;