g-Enjoy

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: 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:

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.

Prawdopodobnie jutro rzucę wam pierwszą betą. Zobaczymy.

http://pl.wikipedia.org/wiki/IRC

Mi się podoba, mogę poprosić o tapetę?

http://bayimg.com/LAKehAAbd Jutro dam screena z OSX

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 ;)

Nie martw się, będzie więcej. @I am vader: To nie jest cool luz, super extra ziomal forum tylko gmclan,

Opisałem Ci wszystkie sposoby jakie znam.

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

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.

Po prostu piszę, czego jako ja człowiek nie toleruję.

Uff, no to czytaj sobie. - Rejestracja - Dodaj platformę reklamową, wybierz ustawienia. - Wyszukaj partnera i wyślij zgłoszenie. - Czekaj - Jeżeli się uda, wstaw kod z wybranym banerem/linkiem na stronę.

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.

Tak, możesz.

Albo AdKontekst, tudzież: tradedoubler.com zanox.pl

Hm, są też takie strony jak bux.to, ale długo się zbiera.

@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.

Niestety nie, zacytować Ci kilka wypowiedzi na mój temat? Na temat PBGS? :]

Zaraz, Ranmus, jest tu choć jedna osoba, która popiera moje zdanie i spokojnie może powiedzieć, że nawet jestem w porządku? Nie. Potrafią nazwać mnie Trollem, choć myślę, że to mój charakter, tak samo się zachowuję wszędzie, ten Bagno, którego widzicie na GMC, to Bagno, który istnieje gdzie się nie pojawi. Nie toleruję sztucznej powagi, i wypowiedzi typu: "Nub", "Już skończyłeś?", "lolololol, ale lama". Uważam to za internetowy syf.

Ban BYŁ słuszny, po małej... ekhem się poprzewracało w główce. Najśmieszniejsze w tym to gdy przeglądałem ten temat od założenia były teksty typu "BAGNO GO HOME!!!", "Ja też nie lubię bagna (By tuxman)" userów , którzy liżą wszystkim dupy by ich nie tyrać. Za przeproszeniem, ja mam w d*pie to co o mnie ktoś mówi, wiem swoje i tego się trzymam. Masz problem? Bluzgaj, niestety mówi to źle o Tobie, mnie to nawet nie rusza.

Ja nie mówię akurat o Ranmusie. Ale myślę, że ta powaga jest tylko dlatego, że jest adminem. No ba, admin musi dawać przykład userom. Tak samo jak z dziadkiem, jaki był przed otrzymaniem moda? A teraz? User != admin or mod And I am so sorry, dlaczego dostałem ostrzeżenia aż od dwóch członków administracji, za tą samą sprawę?

No słuchaj Yoda, ja uważam, że są ludzie w wieku 20 lat i więcej z umysłem 10-cio latka. Są ludzie w wieku naszym, którzy już mają klepki poukładane w głowie i są, którzy nie. W większości przypadków takich 20-sto latków wygląda to następująco: "Ja jestem starszy, jestem dorosły i wiem lepiej, zamknij mordę smarkaczu bo będzie ban.". Do tego, wpadają w beznadziejne konfrontacje z osobami od siebie o wiele starszymi. Na przykład Pieter, w jego wieku stuliłbym pysk, jeżeli coś by mu się we mnie nie podobało, a nie obrażałbym "smarkacza".

Tak to prawda, już przestaję :] Ale w sumie i tak popieram Yoho, bez względu na to co myślisz Ranmus. Czarni muszą się wspierać nawzajem. Mam napisać coś od siebie, ok: Po pierwsze nie podoba mi się to, jeżeli administracja pierdzieli bzdury na forum i spamuje. Po drugie, myślę, że jeżeli ktoś coś przegrzebie, trzeba mu ukrócić nogi i pokarać. Po trzecie, forum to nie chat, nie podoba mi się takie offtopowanie jakie wystąpiło w tym temacie. Po czwarte, to forum Ranmusa, on robi co chce, ale nie ma do jasnej k*rwy tak, że daje komuś ostrzeżenia o treści: "To moje forum więc daję Ci warna za tego posta". Dalej? Nie chce mi się pisać, jakieś prośby rozwinięcia tego posta na PM, dziękuję. I Ranmus zapamiętaj, ja ZAWSZE mam swoje zdanie. Nie chciałbyś ze mną gadać w 4 oczy, bo jestem naprawdę irytujący i wk*rwiający.

Może i też za to oberwę, ale masz rację, popieram Cię w 100%.