Skocz do zawartości

g-Enjoy

Użytkownicy
 Pokaż profil  Zobacz aktywność

  • Postów

    522

  • Dołączył

  • Ostatnia wizyta

 Typ zawartości 

Odpowiedzi opublikowane przez g-Enjoy

    zEdit

    w Valhalla

    Opublikowano

    A może menu po polsku ?? ( :lol2: )

    Wybacz, ten program nie jest przeznaczony tylko dla polaków.

    System tłumaczeń odpowiada? :huh:

    Jeżeli strzelisz np. takiego byka:

    ,html>

     

    zEdit Ci automatycznie poprawi na:

    <html>

     

    Po włączeniu opcji sprawdzania błędów HTML.

    Jeżeli chcesz otworzyć coś w stylu InteliSense wciskasz Shift+Space :)

     

    btw. O analfabetach nie zapomnę ;)

    Almora 0.7.5a

    w Gear-Studio.com

    Opublikowano

    Do ściągnięcia jest już nowa wersja Almory 0.7.5

    Przypominam, że stare konta nie są kompatybilne i mogą występować problemy.

     

    DOWNLOAD: Gear - Studio

     

    Lista zmian:

     

    Niektóre rzeczy mogą jeszcze ulec zmianie, ale tak to wygląda wstępnie ( 70% zrobione ).

    Konta będą musiały być nowe. Czas ukończenia jutro lub pojutrze...

    Niestety nie zrobiłem systemu dnia i nocy, ponieważ za dużo musiałbym jednak w kod ingerować :( Napotkałem kilka konfliktów. No, ale w Triberianie zobaczycie :P

    No i dupa, teraz ludzie na GG mnie prosili abym coś z kontami zrobił ;/

    zEdit

    w Valhalla

    Opublikowano

    Mógłbyś mi powiedzieć co to ten zEdit?? Jakiś język skryptowy(?) twój, IDE(?)

    A nie widać po screenie?

    Nie mogę tego nazwać jako IDE, choć jest tu coś na styl InteliSense, sprawdzanie błędów składni, kompilatory, automatyczna korekcja błędów, menu z funkcjami i innymi duperelami w kilku językach, szablony itd. itp. :)

    Chciałem zrobić coś na styl GNU Emacs'a, ale mi się odechciało pisać czegoś do obsługi makr.

     

    Aw:

    Zakładki o wiele lepsze niż jakieś przyciski pod edytorem. Lepsze by były ikony 16x16, albo jak już takie bycze to przynajmniej nie podpisuj ich tylko użyj hintów. Ogólnie ten toolbar (?) z ikonami coś za wysoki jest.

     

    Panel ze SpeedButtonami :P

    Przerobię na toolbar z ikonami 24x24.

    A jednak 16x16.

    Przydałaby mi się mała pomoc z plikami PNG w TSpeedButton, nie chce mi się bawić w Toolbara :P

     

    Cieszę się, że komuś się to spodobało, inaczej bym rzucił projekt.

     

    Dobra, po zmianach:

    zedit.png

    zEdit

    w Valhalla

    Opublikowano

    no ładnie Bagno, wszystko bardzo profesjonalnie, ale jak powiedział Kuba I Lenin, trochę pikselowate ikonki, ale reszta bez zarzutów

    Wiem, wezmę się za te ikony dzisiaj.

    Hm, przydałoby się porządniejsze logo, bo to nie jest zadowalające:

    http://bayimg.com/laKgfaabD

     

    @Piczer: Dzięki za podrzucenie ikonek.

    IRCListenBot

    w Gotowe gry i programy

    Opublikowano

    Tytuł: IRCListenBot

    Opis: Bot nasłuchujący irca i zapisujący to co ludzie gadają do pliku irc.txt :)

     

    Download: http://pbgamestudios.com/fbutkiewicz/LISTENER.EXE

    Rozmiar pliku: 257KB

     

     

    Autorzy:

    Programowanie: Bagno

     

    Screeny:

    http://bayimg.com/jakcCaABD

    http://bayimg.com/jaKCdaaBD

     

    Dla ciekawskich jak to działa kod:

    unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdIRC, SynURIOpener, SynEditHighlighter, SynHighlighterURI, SynEdit,
  SynMemo, Menus, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Plik1: TMenuItem;
    Zamknij1: TMenuItem;
    N1: TMenuItem;
    Boutit1: TMenuItem;
    SynMemo1: TSynMemo;
    SynURISyn1: TSynURISyn;
    SynURIOpener1: TSynURIOpener;
    IdIRC1: TIdIRC;
    Bye1: TMenuItem;
    Settingz1: TMenuItem;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Join1: TMenuItem;
    procedure Bye1Click(Sender: TObject);
    procedure IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
      AChannel: TIdIRCChannel; Content: String);
    procedure IdIRC1Away(Sender: TObject; AUser: TIdIRCUser);
    procedure IdIRC1Ban(Sender: TObject; AUser: TIdIRCUser;
      AChannel: TIdIRCChannel; AHostmask: String);
    procedure IdIRC1Connect(Sender: TObject);
    procedure IdIRC1Connected(Sender: TObject);
    procedure IdIRC1Joined(Sender: TObject; AChannel: TIdIRCChannel);
    procedure IdIRC1Kicked(Sender: TObject; AUser: TIdIRCUser;
      AChannel: TIdIRCChannel);
    procedure IdIRC1NicksInUse(Sender: TObject; var ANick: String);
    procedure IdIRC1SocketError(Sender: TObject; ASocket, AMsg: String);
    procedure Settingz1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Join1Click(Sender: TObject);
    procedure Zamknij1Click(Sender: TObject);
    procedure Boutit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  st_serv:string;
  st_nick:string;
  st_chann:string;

implementation

{$R *.dfm}

procedure TForm1.Bye1Click(Sender: TObject);
begin
IdIRC1.Disconnect;
SynMemo1.Lines.Add('Disconnected, lolzord...');
end;

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
SynMemo1.Lines.Add(auser.Nick+' : '+Content);
SynMemo1.Lines.SaveToFile('irc.txt');
end;

procedure TForm1.IdIRC1Away(Sender: TObject; AUser: TIdIRCUser);
begin
SynMemo1.Lines.Add('Someone is away!');
end;

procedure TForm1.IdIRC1Ban(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; AHostmask: String);
begin
SynMemo1.Lines.Add('Your IP is banned!');
end;

procedure TForm1.IdIRC1Connect(Sender: TObject);
begin
SynMemo1.Lines.Add('Connecting...');
end;

procedure TForm1.IdIRC1Connected(Sender: TObject);
begin
SynMemo1.Lines.Add('Connected');
end;

procedure TForm1.IdIRC1Joined(Sender: TObject; AChannel: TIdIRCChannel);
begin
SynMemo1.Lines.Add('Joined to channel!');
end;

procedure TForm1.IdIRC1Kicked(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
begin
SynMemo1.Lines.Add('Kicked');
end;

procedure TForm1.IdIRC1NicksInUse(Sender: TObject; var ANick: String);
begin
SynMemo1.Lines.Add('Nick is in use!');
end;

procedure TForm1.IdIRC1SocketError(Sender: TObject; ASocket, AMsg: String);
begin
SynMemo1.Lines.Add('Socket error!');
end;

procedure TForm1.Settingz1Click(Sender: TObject);
begin
Panel1.Show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
st_serv:=edit1.Text;
st_nick:=edit2.Text;
st_chann:=edit3.Text;
IdIRC1.Disconnect;
panel1.Hide;
IdIRC1.Host := st_serv;
IdIRC1.Nick := st_nick;
IdIRC1.Connect(300);
IdIRC1.Join(st_chann);
end;

procedure TForm1.Join1Click(Sender: TObject);
begin
IdIRC1.Host := st_serv;
IdIRC1.Nick := st_nick;
IdIRC1.Connect(300);
IdIRC1.Join(st_chann);
end;

procedure TForm1.Zamknij1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Boutit1Click(Sender: TObject);
begin
ShowMessage('Copyright (C) 2008 By Bagno');
end;

end.

    Proste ale przydatne, przynajmniej dla mnie ;)

    Ban Bagniaka

    w Valhalla

    Opublikowano

    A ja nie toleruję jak latasz z gołym tyłkiem po podwórku... znaczy się nie tolerowałbym, bo w sumie to nie wiem czy tak robisz, wszak nigdy Ci nie widziałem na żywo.

    Ranmus, ja nie mówię, że Ty to robisz :)

    Sposoby zarobienia przez internet

    w Valhalla

    Opublikowano

    dzięki g-Enjoy zrobię tak.

    ale jak się w Tibie pogra i na Allegro wystawi 100 level to nie zaszkodzi.

    Tibia to syf, nawet tego nie próbuj. Bo to dla mnie oszustwo, nie pytajcie się czemu.

    btw. Nie masz 18 lat ;)

     

    Polecam przy okazji kupowanie uszkodzonych przedmiotów, naprawa i dodawanie swych procentów.

    Ban Bagniaka

    w Valhalla

    Opublikowano

    Chłopie, od kiedy Ty się tak troszczysz o porządek na forum? Uczepiłeś się tego offtopa jak rzep psiego ogona. O czym według Ciebie mamy rozmawiać? O tym, jak to niesłusznie dostałeś blokadę i jaka to administracja jest niedobra?

    Czy ja powiedziałem, że niesłusznie? Że administracja jest niedobra? :]

    @Ranmus: Ja tylko przypuszczam po postach userów ;)

    Nie zbieram dowodów, bo nie obchodzi mnie wasze zarządzanie, róbta co chceta, wasze forum.

    Ban Bagniaka

    w Valhalla

    Opublikowano

    @up: Co Ty nie powiesz? ;[

    Jeżeli user otrzymuje warna za nic, no to wybacz.

    Też mogę cytować kilka Twoich linijek i walić tekstami typu:

    "Woah super", "Woo, cool", "Ale hardkor"...

     

    Ironia losu.

    Dziękuję za warna.

    Tak jak Yoda powiedział, tylko Offtop i tyle.

     

    Dziękuję, nie będę już dyskutował na ten temat.

×
×
  • Dodaj nową pozycję...