1 COMPUTER SCHOOL Számítástechnikai Szakközépiskola RsHun Sun RuneScape Toolkit Konzulens: Imre Zsolt! Készítette: Fürst Péter Számítástechnikai progr...
Készítette: Fürst Péter Számítástechnikai programozó
2009 Budapest
Ta r t a l o m j e g y z é k Bevezetés!..............................................................................................4 Rendszerkövetelmény!............................................................................6 Fejleszt"i környezet!................................................................................7 CodeGear Delphi 2009!.......................................................................7 Felhasználói dokumentáció!....................................................................9 Az RsHun Sun program telepítése!.....................................................9 Az RsHun Sun program eltávolítása!................................................11 Az RsHun Sun program indítása!......................................................11 Fejleszt"i dokumentáció!.......................................................................18 A program szerkezete!.......................................................................18 A program m#ködése!.......................................................................19 Adat letöltés és feltöltés TIdHTTP segítségével!.......................19 Adatfeldolgozás REGEXP segítségével!...................................20 JSON tömb feldolgozása!.........................................................21 Automatikus kiegészítés - találati lista!.....................................23 Keresés késleltetése billenty# lenyomása után!........................24 Képerny"kép készítése!............................................................25 Saját lapfülek rendelése TPageControl komponenshez!..........27 Egyéni számológép!..................................................................29 Gyorskeres" funkciók!...............................................................31 Wiki rendszerekben való keresés!.............................................32 Program és számítógép inaktivitásának ideje!..........................34 Játékid" feltöltése, eltárolása!...................................................35 TCheckListBox elemére való kattintás!.....................................36 Súgó „ment"övek” elhelyezése!................................................37 TMaskEdit értéktartományának lekorlátozása!.........................39 Jelszó titkosított tárolása!..........................................................39
Bevezetés Szakdolgozatom témájának megválasztásakor fontosnak találtam, hogy olyan programot készítsek ami témájában közel áll az érdekl!dési körömhöz illetve múlt-, és jelenbeli tevékenységeimhez, illetve az elkészülte után közzétehet! legyen, és hasznos kiegészít! sokak számára. Olyan egyszer", könnyen használható program elkészítésére törekedtem, ami interneten keresztül gyorsan letölthet!, tehát nem nagy méret". A felhasználói grafikus felület is rendhagyó, hiszen elrugaszkodtam a hagyományos szürke, Windows stílusú kinézett!l, helyette egy webes kinézetet kölcsönöztem a program minden részének, így különleges hangulatot kölcsönözve neki, illetve a kezelését is megkönnyítve. Fejleszt!i környezetnek a Code Gear Delphi 2009-et választottam, amely egy 4. generációs fejleszt!i környezet. A Delphi programnyelve az Object Pascal, amely egy strukturált és objektum orientált nyelv. A hatékonyabb programfejlesztéshez vizuális fejleszt!környezetet is tartalmaz, mely a VCL, a vizuális komponensek könyvtára segítségével kifejezetten magas szint" és hatékony fejlesztést tesz lehet!vé. A programban sokszor használom az Internet Direct (Indy) komponenseket, kiváltképp az IdHTTP komponenst, weboldalak és egyéb webes adatok letöltéséhez. Az Indy egy nyílt forráskódú internet komponens csomag, amely népszer" internet protokollokat tartalmaz Delphiben megírva. Delphi 6-tól fölfelé a telepít! része. Az IdHTTP komponens a HTTP protokollon keresztül tölti le a weboldalak forráskódját, egy böngész!t szimulálva a webkiszolgáló felé. A HTTP (HyperText Transfer Protocol) egy információátviteli protokoll a világhálón. Az eredeti célja a HTML lapok publikálása és fogadása volt. A szakdolgozat témájának középpontjában egy, az Egyesült Királyságban és az Egyesült Államokban a második legnépszer"bb
4
interneten keresztül játszható, Java-alapú MMORPG 1 áll, a RuneScape, a Jagex Ltd. els! számú játéka. A játék népszer"sége részben köszönhet! annak, hogy a legtöbb Internetes böngész!n keresztül játszható, függetlenül a platformtól (Windows, MAC OS, Linux, stb.), a lényeg a Java környezet megléte. Az általam elkészített program, egy beépített Mozilla Gecko2
alapú
böngész!ben futtatja a játékot, illetve segédkezet ad a játékosnak több, kulcs témakörben a játékhoz kapcsolódóan.
1
A MMORPG (Massively Multiplayer Online Role-Playing Game – nagyon sok szerepl"s online szerepjáték) interneten, online játszható szerepjáték. 2
A Gecko egy nyílt forráskódú böngész"motor, melyet a Mozilla családba tartozó szoftverek, és azok leszármazottjai (beleértve a Netscape kés"bbi változatait) a webes tartalmak megjelenítéséhez használnak. 5
Rendszerkövetelmény Minimális rendszerkövetelmény: • Legalább 500 MHz sebesség" processzor • 128 MB memória • 30 MB szabad lemezterület • Windows XP SP2 vagy újabb • 56k vagy jobb internet kapcsolat • Billenty"zet • Egér • Legalább 1024x768-as felbontást támogató monitor Ajánlott rendszerkövetelmény: • 1,5 GHz sebesség" processzor • 512 MB memória • Windows XP SP3 vagy újabb • Sun Java Version 6 Update 12 vagy újabb • legalább Nvidia Gforce 3 vagy jobb videokártya • 1Mbit vagy gyorsabb internet kapcsolat • Billenty"zet • Egér • Legalább 1024x768-as felbontást támogató monitor
6
F e j l e s z t !i környezet CodeGear Delphi 2009 A Delphi egy szoftver fejleszt! környezet Microsoft Windows programok készítéséhez. A Delphi Pascal-alapú programozási nyelvet használ, ez az Object Pascal. A Delphi forráskódot natív x86-os kódra fordítja. Kezeli a VCL/CLX (Vizuális Komponens Könyvtár) komponenseket, és harmadik fél által készített komponenseket is. El!nye a Delphinek, hogy egy magas szint" programozási nyelv, ugyan akkor relatív könny" használni valamint a kiforrott Pascal nyelven alapul. A Delphit a Pascalhoz képest els!sorban nem oktatási célból készítették, de a magas szint" nyelvi lehet!ségek mellett szintén támogatja az egyszer"bb, alacsonyabb szint" programozást. A nyelv objektum orientáltsága teszi lehet!vé, hogy a programok még átláthatóbbak legyenek más nyelven írt programoknál, amik többszörös örökl!dést engedélyeznek. A Delphi hátránya, hogy önmagában nem egy több platformos fejleszt! eszköz. Viszont, a Delphi.NET kompatibilis a .NET keretrendszerrel, ami több platformosnak terveztetett. A Kylix-ot, ami Delphi program Linuxra való portolását tette lehet!vé, már nem fejlesztik. Minden újabb Delphi verzió nagy figyelmet szentel arra, hogy megtartsa a kompatibilitását az el!z! verziókhoz, amennyire ez lehetséges. Ez lehet!vé teszi a felhasználó számára, hogy a kódját úgy írhassa meg, hogy a kés!bbiekben ne kelljen aggódjon a hibás felületek és funkciók miatt. A Delphi 2009-es verziója sok újdonságot tartalmaz a tervez! felületen a felhasználó számára. Több ponton is megkönnyíti a tervezést, és a kód írást. Ebben a verzióban, a régebbi verziókhoz képest lehet!ség van keresni a komponens könyvtárban, így sokkal könnyebb megtalálni a keresett eszközt, mindamellett nagyobb teret is kapott ez a panel, így átláthatóbbá vált. A form pozicionálására egy kis téglalap ad teret, így az egész 7
képerny!höz képest lehetséges elhelyezni az ablakot anélkül, hogy az minket zavarna a fejlesztésben. A program kód szerkeszt! is megújult, hiszen automatikusan kiteszi a lezáró „end”-eket, illetve magától tabulálja a kódot. A felhasználónak megkönnyíti a munkáját azzal, hogy nem kell a forráskód szépségével tör!dnie, és fölösleges ráfordítás nélkül könnyen átlátható is lesz a kód mások számára is. Az automatikus kiegészítés is megújult, gyorsabb és informatívabb. A hibakeresés számomra kicsit frissebbnek t"nt, hiszen most már a figyel! (Watches) résznél lehet!ség van nem csak változók, hanem függvények értékének figyelésére is, ez sok esetben hasznos lehet. Ezek mellett sok új, hasznos hiba keres! eszköz került a helyi menübe. Ezek mellett a helyi menü tartalmaz több, kommentári lehet!séget, példának okáért, egy kattintásra kommentárrá teszi a kijelölt forrás részt. Ez ugyan úgy remekül m"ködik billenty" kombinációval is. A Delphi 2009 már támogatja a modern karakterkódolásokat is, mint például az interneten egyre jobban elterjedt unicode-ot. Fontos kiemelni, hogy a tervez! felület már Windows Vista Aero kompatibilis, tehát nem szükséges semmi külön komponens használata, hogy natív felületet kapjunk, ám megmaradt az „XP manifest” komponens, feltehet!leg a visszamen!leges kompatibilitás miatt. A Delphi 2009 alapból tartalmazza a Microsoft új, az Office 2007-es csomagban használt „Ribbon” grafikus felületét, egy egyszer" licence letöltésével máris használható az összes „Ribbon” komponens, ami a megszokottól eltér! kezelést nyújt a felhasználónak a programban. Szokatlan lehet els!re, de bizonyára megszokható.
8
Felhasználói dokumentáció Az RsHun Sun program telepítése A CD-n található telepít! csomagra való
dupla
egérkattintással indítható a telepítés. A
telepít!
indulásakor a telepít! nyelvének kiválasztása után, a s z o k á s o s üdvözl!képerny! jelenik meg, ahol a Tovább gomb lenyomásával lehet továbblépni. A
„Válasszon
telepítési helyet” címszóval ellátott ablakban kell megadni azt a mappát vagy elérési utat, ahová a program települni fog. A „ Ta l l ó z á s . . . ” gombbal lehetséges kiválasztani a kívánt könyvtárat. Az itt megadott mappába kerül telepítésre a program, ha létezik az adott könyvtár akkor a program megkérdezi, hogy biztosan oda kívánja-e telepíteni.
9
A következ! ablakban a Start menü parancsikon helyét lehet szintén Tallózással kiválasztani, vagy a jelöl! négyzettel lehet!ség van kihagyni ezt.
A To v á b b g o m b u t á n beállítható, hogy létrehozásra kerüljön-e Asztal illetve Gyorsindítás parancsikon eszköztáron.
To v á b b
után,
megtekinthet!k a kiválasztott beállítások, m a j d a „ Te l e p í t é s ” gombra kattintva megkezdhet!
a
telepítés folyamata.
10
az
A telepítés végeztével az utolsó ablakban lehet!ség van a program azonnali i n d í t á s á n a k kiválasztására, majd a „Befejezés” gombra a telepít! bezárul.
Az RsHun Sun program eltávolítása A programot eltávolítani vagy a Start menüben lév! Uninstall program, vagy a program könyvtárában található unins000.exe futtatásával lehetséges. A telepít! automatikusan eltávolítja a program minden összetev!jét a számítógépr!l.
Az RsHun Sun program indítása Az
RsHun
Sun
(továbbiakban: Sun) indításakor a „Tölt! képerny!” után a Frissít! panel jelenik meg, ahol az „Indít” gombra kattintva az interneten keresztül
frissebb
adatbázisokat keres a program. Amennyiben található frissítés, akkor Az el!bbi gomb helyén egy „Frissít” gomb jelenik meg, erre kattintva letölt!dik a frissítés, majd elindul a program. Amennyiben nem található frissítés rögtön elindul. A jobb alsó sarokban található jelöl!négyzet
11
bejelölésével a frissítés automatikusan végrehajtásra kerül a program következ! indításától kezdve. Els! induláskor a „Beállítások” panel jelenik meg. Itt tanácsos elvégezni a fontosabb beállításokat els! kézb!l. Amennyiben rendelkezik felhasználói fiókkal az RsHun F ó r u m á n3 , a k k o r i t t lehet!ség van a belépési adatok megadására. Proxy szerveren keresztül történ! internetre való kapcsolódás esetén ez is megadható itt. A „További beállítások” lapfülön megadható a képerny!mentések helye a „Tallózás...” gomb segítéségével. A fontosabb beállítások végeztével az „Oké” gombra kattintva megnyílik a f! program ablak.
3
RsHun Magyar Runescape Közösség és Klán http://rshun.hu 12
A f! ablak három nagy részre tagolható: • Menüsáv A menüsávon található menüpontok: !Beállítások Megnyitja a „Beállítások” panelt. !Nézet Program nézetére vonatkozó beállításokat tartalmazza. !Könyvjelz!k A felhasználó számára hasznos internetes könyvjelz!ket tartalmazza. Az alapértelmezett böngész!ben nyílik meg.
13
!Képerny!mentések Megnyitja a „Képerny!mentések” panelt !Képerny! lementése Játék közben a gombra kattintva, vagy a Print Screen billenty" lenyomásával használható. Képet készít a játékablakról. Inaktív, amikor nem fut a játék. !Súgó A Súgó tartalomjegyzékét és a program névjegyét nyitja meg. !Óra Az aktuális id!t jeleníti meg, lenyitva pedig a dátumot. • Játékterület A játékterületen indításkor a program kezd!oldala tölt!dik be az internetr!l. A tetején található gomb segítségével lehet!ség van továbblépni a játék oldalára4, onnan elindítani a játékot, illetve alatta találhatóak a programra vonatkozó friss hírek. A játékterület a „RuneScape” nev" fül.
4
RuneScape - Massive Online Adventure Game http://www.runescape.com 14
További fülek találhatóak még a játékterület mellett: !Szörnyek Egy szörny keresés eredményét jeleníti meg. Az oldalsávon való keresésben kiválasztott szörny részletes adatait jeleníti meg képpel. A bal fels! sarokban található nagyító ikonnal közvetlen odaugrik az oldalsávon a szörny keresése részhez. !Tárgyak A Szörnyek a második a fülek sorában. Egy tárgy keresés eredményét jeleníti meg. Az oldalsávon való keresésben kiválasztott tárgy részletes adatait jeleníti meg képpel. A bal fels! sarokban található nagyító ikonnal közvetlen odaugrik az oldalsávon a tárgy keresése részhez. !Játékid!k Az Egyéni játékid!ket jeleníti meg grafikonon, illetve napi, heti és havi toplistában. Lehet!ség van innen a játékid! visszaállítására is, amennyiben az nem 0. !Wiki keresés A Wiki keresés fülön különböz! wikikben lehet keresni. A Magyar RuneScape Wiki mellett a The RuneScape Wiki-ben, illetve a Wikipedia 15 különböz! nyelv" oldala kereshet!. A wiki kiválasztása a nevére való kattintással történik. • Oldalsáv Az oldalsávon találhatóak a játékhoz hasznos eszközök, információ források. !Gyorskeres! A gyorskeres! egy multifunkcionális keres!. Több
15
funkciója is van, és minden elérhet! a keresés gomb vagy az enter lenyomása nélkül. F! funkciók: ! Számológép ! Hiscores Lekérdez! ! Combat Kalkulátor ! Grand Exchange Lekérdez! ! World Lekérdez! ! Klán Lekérdez! ! Szinthez szükséges !Hiscores Lekérdez! A keresett karakter adatait jeleníti meg az internetr!l. !Combat Kalkulátor A keresett karakter combat /harci/ skilljei /képességei/ alapján megmutatja a szintjét. Manuálisan is beállíthatók a szintek. !Grand Exchange Lekérdez! Tárgy árának való Grand Exchangeb!l5
való
lekérdezéshez ad lehet!séget. A keresés eredményében kiválasztott tárgy adatai alul jelennek meg. !Szörny-, és Tárgykeres! Ezen a részen szörny és tárgy részletes adatait lehet megtekinteni. A "Keresés" helyettesít! szöveget tartalmazó mez!t!l jobbra található a választó. A lefelé nyílra kattintva megjelenik a lista, amiben kijelölend! a kívánt keresési
5
RuneScape Grand Exchange http://itemdb-rs.runescape.com/frontpage.ws 16
cél. A cél megjelölése után a "Keresés" helyettesít! szöveggel ellátott mez!be írandó a kiválasztott cél neve, tárgy vagy szörny. A név beírás után, enter billenty" lenyomásával elindítható a keresés. A keresési találatok az alatta található mez!ben jelennek meg mindkét esetben. Részletes adatok a találati mez!ben való dupla kattintással jeleníthet!ek meg. !Koordináta lokátor A játékban található kincskereséshez nyújt segítséget, a keresett koordinátát megjeleníti a térképen. !Üres lap Az Üres lap egy egyszer" szöveges mez!, lehet!séget ad szöveges információk eltárolására. Ez az információ mindig ott lesz. A tartalom automatikusan mentésre kerül a módosítást követ!en, nehogy bármi fontos is elvesszék. !Id!mér!k Az id!mér!k sávon található stopperóra, egyszer" id!zít!, játékban található „halálfej” illetve sír elt"néséig való visszaszámláló. A programban több helyen található egy-egy kis „ment!öv”. Ennek segítségével érhet! el a programrészhez kapcsolódó részletes súgó.
17
F e j l e s z t !i dokumentáció A program szerkezete
settingsFrm
loadScreen
frmAbout
frmMain
frmScreenshots
frmSunHelp
frmImageView
18
A program m"ködése Adat letöltés és feltöltés TIdHTTP segítségével A TIdHTTP egy Indy komponens. Ezt használtam weboldalak forrásának, illetve egyéb internetes szövegek letöltésére, valamint kép feltöltésére internetes formon keresztül. A komponens kezeli mind a POST és a GET HTTP adattovábbítást illetve lekérést. Az egyszer" weboldal forrás lekéréséhez a GET metódust használtam, ehhez külön függvényt is tartalmaz. A els!, kötelez! paraméterként a weboldal url címét várja, második opcionális paramétere, pedig egy TStrings típus, amibe visszaadja a letöltött adatot. Amennyiben ez a TStrings típusú változó nem kerül megadásra abban az esetben a forrás a visszatérési string értékb!l kapható meg. Legtöbb esetben én ezt a megoldást használtam. procedure downloadWebSource; var source : string; begin with TIdHTTP.Create do try source := get(‘http://rshun.hu’); finally Free; end; end;
A POST metódust a kép feltöltésénél használtam. Ugyan úgy m"ködik mint egy weboldalon található feltölt! form, csak itt nekem kellett megadnom a különböz! inputokat és értékeit. Ezeknek a paramétereknek a megadásához létezik egy TIdMultiPartFormDataStream típus, amihez hozzáadható file vagy text típusú input, akár csak HTML-ben. Amint elkészültek a paraméterek egy TIdMultiPartFormDataStream típusú változóban, a feltöltés a TIdHTTP post függvényével kezdhet! meg. Els! paraméterként meg kell adni az url címet, másodiknak pedig az input paramétereket. procedure TfrmScreenshots.RsHunUpload(scr : TScreenshot); var Params: TIdMultiPartFormDataStream; url : string; data : string; begin url := 'http://rshun.hu/forum/sunReq.php';
19
Params := TIdMultiPartForm!
DataStream.Create;
Params.AddFile('image',iSettings.ReadString('Screenshot','path','') + '/' + String(scr.filename),'application/octet-stream'); Params.AddFormField('mod','upload'); try imUpload.Request.Username := settingsFrm.eRHUser.Text; imUpload.Request.Password := settingsFrm.eRHPwd.Text; imUpload.Request.BasicAuthentication := True; try data := imUpload.Post(url,Params); except on exception do end; finally Params.Free; if ExecRegExpr('^http:\/\/[\w\d\.\/\-_]+$',data) then setImUrl(String(scr.filename),data) else ShowMessage('Nem sikerült a feltöltés.'); imUpload.Request.Username := ''; imUpload.Request.Password := ''; imUpload.Request.BasicAuthentication := False; end; end;
screenshot.pas (554 - 581)
A proxy szerveren keresztüli internet kapcsolat esetén lehet!ség van a beállításokban annak beállítása, amit minden TIdHTTP kapcsolat használ is ezek után. A feltöltésnél illetve más internetes adattovábbításoknál is alkalmazok HTTP autentikációt a weboldal felé, így a felhasználónév és jelszót is itt adom meg a TIdHTTP-nek. A weboldal ezzel megkapja a nevet és a jelszót ami alapján be tudja azonosítani a felhasználót, ez alapján a bejelentkezés alapján tárolja el a képet vagy egyéb adatokat, például a játékid!t. Adatfeldolgozás REGEXP segítségével A program több részén is használtam úgynevezett REGEXP-t, vagyis szabályos kifejezéseket (Regular Expressions). A szabályos kifejezés egy olyan, bizonyos szintaktikai szabályok szerint leírt string, amivel meghatározható stringek egy halmaza. Több helyen internetes weboldalak forráskódjából kell kiszednem több adatot, erre írtam regexp-t. Így a kért adatokat egyszer"en visszaadja az algoritmus. A regexp használatához küls! unitot használtam. Delphibe egyel!re nincs beépítve. 20
([0-9.,]+)([km ]*)<\/td>'; if Exec (data) then REPEAT SetLength(matches,Length(matches)+1); matches[High(matches)].id := StrToInt(Match[1]); matches[High(matches)].name := Match[2]; matches[High(matches)].price := StrToFloat(string(ReplaceStr(ReplaceStr(AnsiString (Match[3]),',',''),'.',','))); matches[High(matches)].modif := string(Match[4]); UNTIL not ExecNext; finally Free; prepareMatches end;
procedure requestItemsAll; var data : WideString; Params: TStringStream; js:TlkJSONobject; xs:TlkJSONbase; I : integer; begin {$ifdef USE_D2009} ReportMemoryLeaksOnShutdown := True; {$endif} Params := TStringStream.Create(''); Params.WriteString('all=' + '1'); try data := dataRequest.post(itemListURL, Params); xs := TlkJSON.ParseText(data); finally js := TlkJSONobject(xs); if assigned(js) then begin for I := 0 to js.Count - 2 do begin SetLength(itemList,Length(itemList) + 1); itemList[I] := shortstring(js.Child[I].Field['item_name'].Value); end; end; if assigned(xs) then FreeAndNil(xs); end;
end; end; procedure prepareMatches; var I:integer; begin for I := 0 to High(matches) do begin if matches[I].modif <> '' then begin case matches[I].modif[1] of 'k': matches[I].price := matches[I].price * 1000; 'm': matches[I].price := matches[I].price * 1000 *1000; end; matches[I].modif := ''; end; end; end;
end; procedure saveItemsToFile; var I : integer; begin ReWrite(itemsSave); for I := 0 to Length(itemList) - 1 do Write(itemsSave, itemList[I]); CloseFile(itemsSave); end;
procedure exactMatch(var item:Titem); begin data := dataRequest.Get(viewItemURL + intToStr(item.id)); with TRegExpr.Create do try Expression := '[\s]+'+ '([a-zA-Z0-9()\-+.,\?!''\/ ]+)[\s]+ [\s]+ [\s]+'+ 'Current market price range:<\/b> [\s]+<span>[\s]+Minimum price:<\/b>'+ ' ([0-9.,km ]+)[\s]+<\/span>[\s]+<span class="spaced_span">[\s]+Market price:<\/b>'+ ' [0-9.,km ]+[\s]+<\/span>[\s]+<span>[\s]+Maximum price:<\/b>' + ' ([0-9.,km ]+)[\s]+<\/span>[\s]+
[\s]+Change in price:<\/b> [\s]+<span>[\s]+'+ '7 Days:<\/b> <span class="[\w]{4}">([\+\-0-9%.]+)<\/span>[\s]+<\/span >[\s]+<span class="spaced_span">[\s]+'+
procedure getItemsFromFile; var C:integer; val : shortString; begin FileMode := fmOpenRead; C := 0; Reset(itemsSave); itemList := nil; while not Eof(itemsSave) do begin SetLength(itemList,length(itemList)+1); Read(itemsSave, val); itemList[C] := val; inc(C); end; CloseFile(itemsSave); end; procedure getItemMatch(itemName:string); var I, C : integer; begin if Length(itemList) = 0 then getItemsFromFile;
52
C := 0; itemMatches := nil;
for I := 0 to Length(itemList) - 1 do userGTURL : string = begin 'http://rshun.hu/forum/gameTime.php?mod=0&uid='; if getTop10URL : string = pos(AnsiString(LowerCase(itemName)),AnsiString(Low 'http://rshun.hu/forum/gameTime.php?mod=2'; erCase(itemList[I]))) = 1 then protected begin procedure getUsers; function getTop10Data : TTop10Arr; SetLength(itemMatches,length(itemMatches)+1); procedure drawTop10Results(list : itemMatches[C] := itemList[I]; TListView); inc(C); public end; procedure getUserGT(rsn : string); end; procedure fillList(lb : TComboBox); procedure drawChart(rsn : string; tfrom, tto : TDateTime); procedure setWeekSelector; end; procedure setMonthSelector; procedure getDailyTop10(dailyStart : initialization TDateTime); _construct; procedure top10Select(Sender : TObject); procedure getGameTimeStart(ASender: TObject; end. AWorkMode: TWorkMode; AWorkCountMax: Int64); overload; procedure getGameTimeStart(Sender : TObject); overload; procedure getGameTimeEnd(ASender: TObject; AWorkMode: TWorkMode); procedure getTimeProgress(ASender: TObject; unit getGameTime; AWorkMode: TWorkMode; (* AWorkCount: Int64); Játékid# betöltéséért felel#s unit. Az public intervallum és név vagy top lista keresés var startd, endd : TDateTime; alapján adja vissza típusos tömbben a onDownloadProgress : boolean; találatokat. constructor Create(mainChart : TChart; *) top10dayLv,top10wemoLv : TListView; interface datepicker : TDateTimePicker; top10dayLabl, top10wemoLabl : TLabel; uses ulkjson, IdHTTP, SysUtils, StdCtrls, Chart, comboWeek, comboMonth : TComboBox; loaderIm : DateUtils, Series, TeeProcs, TImage; btnShow : TButton); TeEngine, Classes, ComCtrls, IdComponent, end; ExtCtrls, GIFImg, pngimage, settings; implementation Type TUser = record constructor TGameTimeGetter.Create(mainChart : userName, TChart; top10dayLv,top10wemoLv : TListView; profileName : string; datepicker : TDateTimePicker; top10dayLabl, uid : integer; top10wemoLabl : TLabel; end; comboWeek, comboMonth : TComboBox; loaderIm : TImage; btnShow : TButton); TUserGT = record begin dateof, dataRequest := TIdHTTP.Create(nil); timeof : string; with dataRequest do uid : integer; begin end; Request.ContentType := 'text/json'; Request.ContentEncoding := 'UTF-8'; TTop10Data = record if iSettings.ReadBool('Proxy','sProxy',false) username : string; then uid : integer; begin gstime : string; ProxyParams.ProxyServer := end; iSettings.ReadString('Proxy','sProxyAddress',''); ProxyParams.ProxyPort := TTimeSpan = class(TObject) iSettings.ReadInteger('Proxy','sProxyPort',0); public ConnectTimeout := 5000; var sstartd, end; sendd : TDateTime; OnWorkBegin := getGameTimeStart; end; OnWorkEnd := getGameTimeEnd; OnWork := getTimeProgress; end; TTop10Arr = array[0..9] of TTop10Data;
spinner := TGIFImage.Create; with spinner do begin Animate := True; Transparent := True; GIFMaximumDelay := 3; LoadFromFile('.\images\gtLoader.gif'); end;
53
reloadim := TPngImage.Create; with reloadim do begin Transparent := True; LoadFromFile('.\images\reloadGT.png'); iload.Picture.Assign(reloadim); end; end;
cb : TComboBox; begin getGameTimeStart(Sender); cb := (Sender as TComboBox);
timesp := TTimeSpan(cb.Items.Objects[cb.ItemIndex]); startd := timesp.sstartd; endd := timesp.sendd; drawTop10Results(top10ListWM); procedure TGameTimeGetter.getTimeProgress(ASender: top10WMInterval.Caption := DateToStr(startd) + ' TObject; AWorkMode: TWorkMode; - ' + DateToStr(endd); AWorkCount: Int64); end; begin if (not onDownloadProgress) then procedure TGameTimeGetter.getDailyTop10(dailyStart Abort; : TDateTime); end; begin startd := dailyStart; procedure TGameTimeGetter.getGameTimeStart(Sender endd := dailyStart; : TObject); drawTop10Results(top10ListD); begin top10DInterval.Caption := DateToStr(startd); if Assigned(weekCbox) then end; weekCbox.Enabled := False; if Assigned(monthCbox) then procedure TGameTimeGetter.setMonthSelector; monthCbox.Enabled := False; var I : integer; if Assigned(dateBox) then yearStart, yearEnd : TDate; dateBox.Enabled := False; timespn : TTimeSpan; if Assigned(showBtn) then thisYearEnd : TDateTime; showBtn.Enabled := False; begin if Assigned(cUsersList) then cUsersList.Enabled := False; DateSeparator := '.'; if Assigned(iload) and Assigned(spinner) then yearStart := StrToDateTime('2009.02.01. begin 23:59:59'); iload.Picture.Assign(spinner); yearEnd := Now; iload.Hint := 'Folyamat leállítása'; thisYearEnd := yearStart; end; for I := 0 to integer(MonthOfTheYear(yearEnd)) onDownloadProgress := True; integer(MonthOfTheYear(yearStart)) do end; begin timespn := TTimeSpan.Create; procedure timespn.sstartd := thisYearEnd; TGameTimeGetter.getGameTimeStart(ASender: TObject; timespn.sendd := thisYearEnd + AWorkMode: TWorkMode; (StrToTime('23:59:59') * AWorkCountMax: Int64); (integer(DaysInAMonth(YearOf(thisYearEnd),MonthOf( begin thisYearEnd)))-1)); if Assigned(weekCbox) then thisYearEnd := timespn.sendd + weekCbox.Enabled := False; StrToTime('23:59:59'); if Assigned(monthCbox) then monthCbox.Enabled := False; monthCbox.Items.AddObject(FormatDateTime('mmmm, if Assigned(dateBox) then yyyy.',timespn.sendd),TObject(timespn)); dateBox.Enabled := False; end; if Assigned(showBtn) then showBtn.Enabled := False; monthCbox.OnSelect := top10Select; if Assigned(cUsersList) then cUsersList.Enabled := False; if Assigned(iload) and Assigned(spinner) then end; begin iload.Picture.Assign(spinner); procedure TGameTimeGetter.setWeekSelector; iload.Hint := 'Folyamat leállítása'; var I : integer; end; weekStart, weekEnd : TDate; onDownloadProgress := True; timespn : TTimeSpan; end; thisWeekEnd : TDateTime; begin procedure TGameTimeGetter.getGameTimeEnd(ASender: TObject; AWorkMode: TWorkMode); DateSeparator := '.'; begin weekStart := StrToDate('2009.02.09.'); if Assigned(weekCbox) then weekEnd := Now; weekCbox.Enabled := True; thisWeekEnd := weekStart; if Assigned(monthCbox) then for I := 0 to integer(WeekOfTheYear(weekEnd)) monthCbox.Enabled := True; integer(WeekOfTheYear(weekStart)) do if Assigned(dateBox) then begin dateBox.Enabled := True; timespn := TTimeSpan.Create; if Assigned(showBtn) then timespn.sstartd := thisWeekEnd; showBtn.Enabled := True; timespn.sendd := weekStart + if Assigned(cUsersList) then ((StrToTime('23:59:59')* 7) * (I+1)); cUsersList.Enabled := True; thisWeekEnd := timespn.sendd + if Assigned(iload) and Assigned(reloadim) then strToTime('23:59:59'); begin iload.Enabled := True; weekCbox.Items.AddObject(Format('%d.hét',[WeekOfTh iload.Picture.Assign(reloadim); eYear(timespn.sendd)]),TObject(timespn)); iload.Hint := 'Felhasználók frissítése'; end; end; onDownloadProgress := False; weekCbox.OnSelect := top10Select; end; end; procedure TGameTimeGetter.top10Select(Sender: TObject); procedure TGameTimeGetter.drawTop10Results(list : var timesp : TTimeSpan; TListView);
54
var I : integer; top10 : TTop10Arr; begin top10 := getTop10Data; list.Items.Clear; for I := 0 to High(top10) do with list.Items.Add do begin Caption := Format('%d.',[I+1]); SubItems.Add(top10[I].username); SubItems.Add(top10[I].gstime); end; end;
procedure TGameTimeGetter.getUsers; var data : widestring; js:TlkJSONobject; xs:TlkJSONbase; I : integer; begin function TGameTimeGetter.getTop10Data : TTop10Arr; try var data : widestring; try js:TlkJSONobject; data := dataRequest.Get(userListURL); xs:TlkJSONbase; except on exception do I : integer; end; top10 : TTop10Arr; xs := TlkJSON.ParseText(data); begin finally try js := TlkJSONobject(xs); try if assigned(js) then data := dataRequest.Get(getTop10URL + begin '&date_start=' + userList := nil; FloatToStr(DateTimeToUnix(startd)) + '&date_end=' for I := 0 to js.Count - 1 do + FloatToStr(DateTimeToUnix(endd))); begin except on exception do setLength(userList,Length(userList) + 1); end; userList[High(userList)].userName := xs := TlkJSON.ParseText(data); js.Child[I].Field['pf_rs_nick'].Value; finally userList[High(userList)].profileName := js := TlkJSONobject(xs); js.Child[I].Field['username'].Value; if assigned(js) then userList[High(userList)].uid := begin strToInt(js.Child[I].Field['user_id'].Value); for I := 0 to js.Count - 1 do end; begin end; top10[I].username := end; js.Child[I].Field['username'].Value; end; top10[I].uid := StrToInt(js.Child[I].Field['user_id'].Value); procedure TGameTimeGetter.getUserGT(rsn : string); top10[I].gstime := var I, uid : integer; js.Child[I].Field['stime'].Value; data : widestring; end; js:TlkJSONobject; end; xs:TlkJSONbase; end; begin result := top10; for I := 0 to High(userList) do end; begin if userList[I].userName = rsn then procedure TGameTimeGetter.fillList(lb : begin TComboBox); uid := userList[I].uid; var I : integer; break; begin end; cUsersList := lb; end; lb.Items.Clear; if uid <> 0 then getUsers; begin try if Length(userList) > 0 then try lb.Enabled := True data := dataRequest.Get(userGTURL + else IntToStr(uid) + '&date_start=' + lb.Enabled := False; FloatToStr(DateTimeToUnix(startd)) + '&date_end=' + FloatToStr(DateTimeToUnix(endd))); for I := 0 to High(userList) do except on exception do begin end; lb.Items.Add(userList[I].userName); xs := TlkJSON.ParseText(data); end; finally js := TlkJSONobject(xs); end; if assigned(js) then begin procedure TGameTimeGetter.drawChart(rsn : string; userGTList := nil; tfrom, tto : TDateTime); for I := 0 to js.Count - 1 do var I : integer; begin begin SetLength(userGTList, startd := tfrom; Length(userGTList)+1); endd := tto; userGTList[High(userGTList)].dateof := js.Child[I].Field['date'].Value; DateSeparator := '-'; userGTList[High(userGTList)].timeof := getUserGT(rsn); js.Child[I].Field['time'].Value; chrt.Title.Text[0] := rsn; userGTList[High(userGTList)].uid := if Length(userGTList) > 0 then StrToInt(js.Child[I].Field['user_id'].Value); begin end; chrt.Series[0].Clear; end; for I := 0 to High(userGTList) do end; begin end; chrt.Series[0].AddXY(StrToDate(userGTList[I].dateo end;
55
end.
ImageView unit ImageView; (* Képerny#mentésekt#l megjeleníti a kiválasztott képet. Az ablakot a kép méretéhez igazítja, amennyiben a kép nagyobb a képerny#nél, ez esetben a képet egérrel lehet mozgatni az ablakon belül. *) interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TfrmImageView = class(TForm) pImage: TPanel; iImageWatch: TImage; procedure FormActivate(Sender: TObject); procedure FormDeactivate(Sender: TObject); procedure iImageWatchMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure iImageWatchMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var frmImageView: TfrmImageView; TheSpot : TPoint; implementation {$R *.dfm} procedure TfrmImageView.FormActivate(Sender: TObject); begin if iImageWatch.Width > Screen.DesktopWidth then Width := Screen.DesktopWidth else ClientWidth := iImageWatch.Width; if iImageWatch.Height > Screen.DesktopHeight then Height := Screen.DesktopHeight - 50 else ClientHeight := iImageWatch.Height; Top := (Screen.DesktopHeight - Height) div 2; Left := (Screen.DesktopWidth - Width) div 2; iImageWatch.Top := 0; iImageWatch.Left := 0; TheSpot.X:=0; TheSpot.Y:=0; //Position := poDesktopCenter; end; procedure TfrmImageView.FormDeactivate(Sender: TObject); begin iImageWatch.Picture := nil; end; procedure TfrmImageView.iImageWatchMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Shift = [ssLeft] then begin if (TheSpot.X <> 0) and (TheSpot.Y <> 0) then begin
itemdb unit itemdb; (* Tárgy keresést végzi. Letölti a keresett tárgy listáját, majd a weboldalból kifejti REGEXP segítségével az adatokat. Az adatok ezután típusos tömbbe kerülnek eltárolásra. A tömböt megkapja utána a main form, ebb#l jeleníti meg azokat. *) interface uses IdHTTP, IdURI, IdComponent, RegExpr, SysUtils, DateUtils, StdCtrls, ComCtrls, Dialogs, settings; type TAttackBonuses = record stab, slash, crush, magic, range : string; end; TDefenceBonuses = record stab, slash, crush, magic, range, summoning : string; end; TOtherBonuses = record strength, prayer, rangedStr : string; end; TItemMatch = record name, link, image, weight, quest, examine, highAlch, lowAlch, obtain, notes, droppedBy, keepDrop, retrieval, questUse : string; members, tradeable,
(.[^<>]+)<\/td><\/tr>'; ModifierI := True; ModifierM := True; if Exec(data) then repeat SetLength(zitemMatches,Length(zitemMatches) + 1); zitemMatches[High(zitemMatches)].image := Match[1]; zitemMatches[High(zitemMatches)].link := Match[2]; zitemMatches[High(zitemMatches)].name := Match[3]; if Match[4] = 'Yes' then zitemMatches[High(zitemMatches)].members := True else zitemMatches[High(zitemMatches)].members := False; if Match[5] = 'Yes' then zitemMatches[High(zitemMatches)].tradeable := True else zitemMatches[High(zitemMatches)].tradeable := False; zitemMatches[High(zitemMatches)].quest := Match[6]; until not ExecNext; finally Free; end; end; end; end; procedure TEventHandlers.itemSearchBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); begin if Assigned(editForItem) then editForItem.Enabled := False; if Assigned(listForItems) then listForItems.Enabled := False;
58
end;
implementation
procedure TEventHandlers.itemSearchEnd(ASender: TObject; AWorkMode: TWorkMode); begin if Assigned(editForItem) then editForItem.Enabled := True; if Assigned(listForItems) then listForItems.Enabled := True; end;
{$R *.dfm} procedure TloadScreen.CreateParams(var Params: TCreateParams); begin inherited; Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; Params.WndParent := GetDesktopWindow; end; procedure TloadScreen.updateClick; begin if not updateStarted then begin if tracker.updateNeeded then begin paintProgress(pprogressB,0,1,lprogressT,'Karaktern év adatbázis'); updBtnState(1); end else paintProgress(pprogressB,0,0,lprogressT,'Karaktern év adatbázis'); if ge_lookup.updateNeeded then begin paintProgress(pprogressB,0,1,lprogressT,'Tárgynév adatbázis'); updBtnState(1); end else paintProgress(pprogressB,0,0,lprogressT,'Tárgynév adatbázis'); // if updateMap.updateNeeded then begin // paintProgress(pprogressB,0,1,lprogressT,'RuneScape térkép'); // updBtnState(1); // end // else // paintProgress(pprogressB,0,0,lprogressT,'RuneScape térkép'); updateStarted := True; updateTimer.Enabled := True; end else begin iupdateBtn.Visible := false; cAutoUpdate.Enabled := False; if tracker.updateNeeded then tracker.updateProgress; if ge_lookup.updateNeeded then ge_lookup.updateProgress; // if updateMap.updateNeeded then // updateMap.updateProgress; end; end; procedure TloadScreen.updBtnState(start : integer); begin iupdateBtn.Picture := Nil; loadBtns.GetIcon(start,iupdateBtn.Picture.Icon) end; procedure TloadScreen.paintProgress(dest: TPaintBox; progress: integer; max: integer; capt : TLabel; captText : string); begin if captText <> '' then capt.Caption := captText; with dest.Canvas do begin Brush.Color := clWhite; FillRect(Rect(0,0,dest.Width,dest.Height)); if max <> 0 then begin
var loadScreen: TloadScreen; updateStarted : boolean = false;
59
Brush.Color := $204E1AD1;
if (not tracker.updateNeeded) and (not ge_lookup.updateNeeded) FillRect(Rect(Point(floor((dest.Width/max)*progres (* s),dest.Height),Point(0,0))); Brush.Color := RGB(170,35,70); and (not updateMap.updateNeeded) Brush.Style := bsSolid; FrameRect(Rect(0,0,dest.Width,dest.Height)); *) then begin Font := capt.Font; updateTimer.Enabled := False; if progress <> 0 then self.Close; begin end; Font.Color := clWhite; end; Brush.Color := $204E1AD1; procedure TloadScreen.tProgressBar(ASender: TObject; AWorkMode: TWorkMode; TextOut(round((dest.Width/max)*progress)-TextWidth AWorkCount: Int64); (intToStr(round((100/max)*progress)) + begin '%')-2,0,intToStr(round((100/max)*progress)) + '%'); paintProgress(pprogressB,AWorkCount,tracker.progre end; ss,lprogressT,'Karakternév adatbázis'); end end; else begin procedure TloadScreen.gProgressStart(ASender: Brush.Color := RGB(153,222,97); TObject; AWorkMode: TWorkMode; FillRect(Rect(0,0,dest.Width,dest.Height)); AWorkCountMax: Int64); Brush.Color := RGB(83,173,10); begin FrameRect(Rect(0,0,dest.Width,dest.Height)); ge_lookup.progress := AWorkCountMax; end; end; end; procedure TloadScreen.iupdateBtnClick(Sender: end; TObject); begin procedure TloadScreen.cAutoUpdateClick(Sender: updateClick; TObject); end; begin procedure TloadScreen.gProgressBar(ASender: iSettings.WriteBool('Download','auto',cAutoUpdate. TObject; AWorkMode: TWorkMode; Checked); AWorkCount: Int64); settingsFrm.cAutoUpdate.Checked := begin cAutoUpdate.Checked; end; paintProgress(pprogressB,AWorkCount,ge_lookup.prog ress,lprogressT,'Tárgynév adatbázis'); procedure TloadScreen.FormCreate(Sender: TObject); end; begin tracker.dataRequest.OnWork := tProgressBar; tracker.dataRequest.OnWorkBegin := tProgressStart; ge_lookup.dataRequest.OnWork := gProgressBar; ge_lookup.dataRequest.OnWorkBegin := gProgressStart; // updateMap.dataRequest.OnWork := mProgressBar; // updateMap.dataRequest.OnWorkBegin := mProgressStart; lVersion.Caption := 'verzió ' + GetAppVersion; end; procedure TloadScreen.FormShow(Sender: TObject); begin AutoUpdSetting; if cAutoUpdate.Checked then begin cAutoUpdate.Enabled := False; try updateClick; finally updateClick; end; end else updBtnState(0); end; procedure TloadScreen.tProgressStart(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); begin tracker.progress := AWorkCountMax; end; procedure TloadScreen.updateTimerTimer(Sender: TObject); begin
3972294,4385776,4842295,5346332,5902831,6517253,71 95629,7944614,8771558,9684577, 10692629,11805606,13034431,14391160); var // skill szintlépéshez szükséges xp-k sorban frmMain: TfrmMain; textEditFilename : string = 'textEdit.dat'; cmbSks : TCmb; //üres lap tartalmát ebbe a fileba meni stats, cmbStats: SkillsArry; tabs : array[0..6] of string = adat, ('ihsTab','icmbTab','igeTab','iZybezTab','ilocTab' anounceTimerText : string; ,'itextTab','iWatchTab'); //oldalsáv lapfüleinek wikiHtmlList: array of widestring; nevei ON_START : boolean = true; gtTabs : array[0..1] of string = HOMEPAGE : string = 'http://sun.rshun.hu/start'; ('igtTabSingle','igtTabTop10'); //program kezd#lapja //játékid# lapfülei mapLoaded : boolean = false; flagIndex : array[1..16] of string = coordFile : File of TCoordinates; ('au','be','br','ca','de','dk','fi','fr','ie','mx' coordList : Array of TCoordinates; ,'nl','no','nz','se','ukgb','us'); //runescape //koordináta lokátor összes koordinátáját worldök zászlóinak neve sorban tartalmazza wikipediaShorts : array [0..14] of string = Coordinate : TCoordinates; ('en','bg','cs','fi','fr','pl','hu','de','it','ru' autocList, itemNameList, userNameList : ,'pt','ro','es','sh','sk'); //wiki keres# TListBox; nyelveinek rövidítése textEditSaved, gameStarted, gameTimeElapsed, getInactive, SearchKey, timeStopWatch : TDateTime; implementation idleTime, progress : integer; textEditChanged : boolean = False; {$R *.dfm} inGameT : boolean = False; formDeact : boolean = False; procedure TfrmMain.wmHotkey( Var msg: TWMHotkey ); loader : TGIFImage; //képerny#mentéshez a prnt scrn gombot lefoglalja clearSB : TPngImage; begin screenshotType: integer = 1; if msg.HotKey = IDHOT_SNAPWINDOW Then rsStatus : integer; aScreenShotExecute(self); RHevents : TRHEvents; end; elapsedStopWatch : double = 0; countTimerTo : double = 0; procedure TfrmMain.TabKey(var msg: TCMDialogKey); skullTimerTo : double = 0; //TAB billenty"t foglalja le a program számára graveTimerTo : double = 0; begin stopWatchRun : boolean = False; if (msg.Charcode <> VK_TAB)then counterTimerRun : boolean = False; inherited skullTimerRun : boolean = False; else if ((not Assigned(autocList) or not graveTimerRun : boolean = False; autocList.Visible) zybezSearch : char = 'm'; and (not Assigned(itemNameList) or not screenshotTaken : boolean = False; itemNameList.Visible) anouncementTimer : TDateTime = 0; and (not Assigned(userNameList) or not gameTimeHandler : TGameTimeGetter; userNameList.Visible) wikiUri : array[1..3] of string = and (not Assigned(SBList) or not ('wiki.rshun.hu','.wikipedia.org/w','runescape.wik SBList.Visible)) then ia.com'); //wiki keres# oldalai inherited; wikicssSource, wikijsSource: TStringStream; end; mainTabCtrl : TCustomTab; wikipediaLng : string = 'hu'; procedure TfrmMain.ZybezMatchBoxClick(Sender: timemenu : TMenuItem; TObject); //szöry-, és tárgykeres# találati listában való kattintás const begin skills: array[1..25] of string = //el#hozza a szörny adatait ('Total','Attack','Defence','Strength', if (Assigned(ZybezMatchBox.Selected)) then case zybezSearch of 'Hitpoints','Ranged','Prayer','Magic','Cooking','W 'm' : begin oodcutting','Fletching', if (Length(monsterMatches) > 1) then begin 'Fishing','Firemaking','Crafting','Smithing','Mini ng','Herblore','Agility', fillMonsterData(monsterMatches[ZybezMatchBox.Selec ted.Index]); 'Thieving','Slayer','Farming','Runecrafting','Hunt end; er','Construction','Summoning'); //skillek nevei end; sorban, ahogy hiscoresban van end; lvls! : TLvlzAry = end; (0,83,174,276,388,512,650,801,969,1154,1358,1584,1 833,2107,
65
procedure TfrmMain.ZybezMatchBoxDblClick(Sender: TObject); //szörny-, és tárgykeres# találati listában való kattintás begin //el#hozza a szörny és tárgy részletes adatait if (Assigned(ZybezMatchBox.Selected)) then case zybezSearch of 'm' : begin if (Length(monsterMatches) > 1) then begin if Length(monsterMatches[ZybezMatchBox.Selected.Index ].examine) = 0 then
end; end; end; end; end;
procedure TfrmMain.ZybezMatchBoxKeyUp(Sender: TObject; var Key: Word; //szörny-, és tárgykeres#ben kurzor mozgató Shift: TShiftState); //billenty"kkel való válogatás begin getExactMonster(monsterMatches[ZybezMatchBox.Selec if ((Key = VK_UP) or (Key = VK_DOWN)) and ted.Index],monsterMatches[ZybezMatchBox.Selected.I (Assigned(ZybezMatchBox.Selected)) then ndex].link); case zybezSearch of 'm' : begin if (Length(monsterMatches) <> 0) then fillMonsterDetails(monsterMatches[ZybezMatchBox.Se begin lected.Index]); fillMonsterData(monsterMatches[ZybezMatchBox.Selec end; ted.Index]); end; end; 'i' : begin end; if (Length(zitemMatches) > 1) then end; begin end; if Length(zitemMatches[ZybezMatchBox.Selected.Index]. function TfrmMain.boolToString(b : boolean) : examine) = 0 then string; //lefordítja a boolean értéket magyarra a megjelenítéshez getExactItem(zitemMatches[ZybezMatchBox.Selected.I begin ndex],zitemMatches[ZybezMatchBox.Selected.Index].l case b of ink); true : result := 'Igen'; false : result := 'Nem'; end; fillItemDetails(zitemMatches[ZybezMatchBox.Selecte d.Index]); end; end; end; end; end; procedure TfrmMain.ZybezMatchBoxKeyDown(Sender: TObject; var Key: Word; //szörny-, és tárgykeres# találati listájában Shift: TShiftState); //enterrel való részletes adatmegtekintés begin if Key = VK_RETURN then begin if (Assigned(ZybezMatchBox.Selected)) then case zybezSearch of 'm' : begin if (Length(monsterMatches) > 1) then begin if Length(monsterMatches[ZybezMatchBox.Selected.Index ].examine) = 0 then
procedure TfrmMain.bgtGraphUpdateClick(Sender: TObject); //lekérdezi a keresett játékid#t és megjeleníti az adatokat var cb : TComboBox; // a grafikonon begin cb := cgameTGraphUser; if (cb.Items[cb.ItemIndex] <> '') then begin gameTimeHandler.getGameTimeStart(nil); gameTimeHandler.drawChart(cb.Items[cb.ItemIndex],g tFrom.DateTime,gtTo.DateTime); end; end; procedure TfrmMain.cgameTGraphUserKeyDown(Sender: TObject; var Key: Word; //a felhasználónév keresésnél enter lenyomásra keres Shift: TShiftState); var cb : TComboBox; begin cb := (Sender as TComboBox);
getExactMonster(monsterMatches[ZybezMatchBox.Selec if (Key = VK_RETURN) and (cb.Items[cb.ItemIndex] ted.Index],monsterMatches[ZybezMatchBox.Selected.I <> '') then ndex].link); begin gameTimeHandler.getGameTimeStart(nil); fillMonsterDetails(monsterMatches[ZybezMatchBox.Se gameTimeHandler.drawChart(cb.Items[cb.ItemIndex],g lected.Index]); tFrom.DateTime,gtTo.DateTime); end; end; end; end; 'i' : begin if (Length(zitemMatches) > 1) then procedure TfrmMain.fillItemDetails(item : begin TItemMatch); //tárgy részletes adatait jeleníti if meg Length(zitemMatches[ZybezMatchBox.Selected.Index]. var imgName : string; examine) = 0 then begin if item.image <> '' then getExactItem(zitemMatches[ZybezMatchBox.Selected.I begin ndex],zitemMatches[ZybezMatchBox.Selected.Index].l imgName := 'http://www.zybez.net' + ink); item.image; if ExecRegExpr('\.png$',item.image) then imgName := fillItemDetails(zitemMatches[ZybezMatchBox.Selecte 'http://sun.rshun.hu/pngtojpg.php?img=' + imgName; d.Index]);
66
end; wItemImage.WebPicture.LoadFromURL(TIdURI.URLEncode lMonsterLocation.Caption := monster.location; (imgName)) end; end else procedure TfrmMain.fillMonsterDetails(monster : TMonsterMatch); //szörny részletes adatait wItemImage.WebPicture.LoadFromFile('./images/imBla jeleníti meg nk.gif'); begin if monster.img <> '' then lItemName.Caption := item.name; lItemMembers.Caption := wMonsterImage.WebPicture.LoadFromURL('http://www.z boolToString(item.members); ybez.net' + monster.img) lItemTradeable.Caption := else boolToString(item.tradeable); lItemDropedBy.Caption := item.droppedBy; wMonsterImage.WebPicture.LoadFromFile('./images/im lItemLAlchemy.Caption := item.lowAlch; Blank.gif'); lItemHAlchemy.Caption := item.highAlch; lItemExamine.Caption := item.examine; lMonsterName.Caption := monster.name; if Length(item.retrieval) > 1 then lMonsterdCmb.Caption := item.obtain := item.obtain + #13#10 + IntToStr(monster.combat); 'Visszaszerzés: ' + item.retrieval; lMonsterdHp.Caption := IntToStr(monster.hp); lItemObtain.Caption := item.obtain; lMonsterMaxHit.Caption := lItemEquipable.Caption := IntToStr(monster.maxHit); boolToString(item.equipable); lMonsterRace.Caption := monster.race; lItemStackable.Caption := case monster.members of boolToString(item.stackable); true : lMonsterdMember.Caption := 'Igen'; lItemQuest.Caption := item.quest; false : lMonsterdMember.Caption := 'Nem'; lItemWeight.Caption := item.weight; end; if Length(item.questUse) > 1 then if monster.quest = 'No' then item.notes := 'Küldetésbeni használat: ' + lMonsterQuest.Caption := 'nincs' item.questUse + #13#10 + item.notes; else if Length(item.keepDrop) > 1 then lMonsterQuest.Caption := monster.quest; begin if monster.nature = 'Aggressive' then if item.keepDrop = 'Keep' then lMonsterNature.Caption := 'agresszív' item.notes := 'Küldetés után megtartandó.' + else #13#10 + item.notes lMonsterNature.Caption := 'nem agresszív'; else lMonsterAttackStyle.Caption := item.notes := 'Küldetés után nem monster.attackStyle; alkalmazható.' + #13#10 + item.notes; end; lMonsterExamine.Caption := monster.examine; lMonsterdLocation.Caption := monster.location; mItemNotes.Text := item.notes; lMonsterDrop.Caption := monster.drops; lItemAttStab.Caption := item.attackBonus.stab; lMonsterTopDrop.Caption := monster.topDrops; lItemAttSlash.Caption := item.attackBonus.slash; mMonsterTactic.Text := monster.tactic; lItemAttMage.Caption := item.attackBonus.magic; mMonsterNotes.Text := monster.notes; lItemAttRange.Caption := item.attackBonus.range; mainTabCtrl.tabList[1].activeSwitchToTab; lItemAttCrush.Caption := item.attackBonus.crush; end; lItemDefStab.Caption := item.defenceBonus.stab; lItemDefSlash.Caption := procedure TfrmMain.WikiKeresésShow(Sender: item.defenceBonus.slash; TObject); //wiki keresésbe való els# belépéskor lItemDefCrush.Caption := var wikiLoadGif : TGIFImage; item.defenceBonus.crush; //elvégzi a szükséges kép és file betöltéseket lItemDefMage.Caption := item.defenceBonus.magic; begin lItemDefRange.Caption := if wikiBrowser.LocationURL = '' then item.defenceBonus.range; wikiBrowser.Navigate('about:blank'); lItemDefSum.Caption := if iwikiLoader.Picture.Width = 0 then item.defenceBonus.summoning; begin lItemOtherStr.Caption := wikiLoadGif := TGIFImage.Create; item.otherBonus.strength; lItemOtherRangedStr.Caption := wikiLoadGif.LoadFromFile('./images/big_loader.gif' item.otherBonus.rangedStr; ); lItemOtherPray.Caption := wikiLoadGif.Animate := True; item.otherBonus.prayer; iwikiLoader.Picture.Assign(wikiLoadGif); mainTabCtrl.tabList[2].activeSwitchToTab; end; end; if not Assigned(wikicssSource) or not Assigned(wikijsSource) then procedure TfrmMain.fillMonsterData(monster : begin TMonsterMatch); //szörny nem részletes adatait wikicssSource := TStringStream.Create; jeleníti meg wikicssSource.LoadFromFile('./user.css'); begin wikijsSource := TStringStream.Create; monster := wikijsSource.LoadFromFile('./user.js'); monsterMatches[ZybezMatchBox.Selected.Index]; end; if monster.img <> '' then end; wZybezImage.WebPicture.LoadFromURL('http://www.zyb procedure TfrmMain.WMActivate( Var msg: ez.net' + monster.img) TWMActivate ); //a screenshot buttont foglalja le else begin If msg.Active <> WA_INACTIVE Then wZybezImage.WebPicture.LoadFromFile('./images/imBl RegisterHotkey( Handle, IDHOT_SNAPWINDOW, 0, ank.gif'); VK_SNAPSHOT ) Else begin lMonsterCmb.Caption := UnRegisterHotkey( Handle, IDHOT_SNAPWINDOW ); IntToStr(monster.combat); end; lMonsterHp.Caption := IntToStr(monster.hp); inherited; case monster.members of end; true : lMonsterMember.Caption := 'Igen'; false : lMonsterMember.Caption := 'Nem';
67
function TfrmMain.StatSet(adat:string) : SkillsArry; //beállítja a skill statokat az adat string alapján var I : integer; //visszatérési értéke az adat tömb totalxp, nonRanked : integer; stats : SkillsArry; begin I := 1; totalxp := 0; nonRanked := 0;
procedure TfrmMain.apanelSideShowExecute(Sender: TObject); //megjeleníti vagy eltünteti az oldalsávot begin if apanelSideShow.Checked then begin apanelSideShow.Checked := False; panelRight.Hide; end else begin apanelSideShow.Checked := True; panelRight.Show; end;
with TRegExpr.Create do try Expression := '([\-\d]+),([\-\d]+),([\-\d]+)[\s]+'; if Exec(adat) then repeat with stats[I] do begin Name := skills[I]; Rank := StrToInt(Match[1]); Lvl := StrToInt(Match[2]); Xp := StrToInt(Match[3]); if I <> 1 then begin if Lvl <> -1 then totalxp := totalxp + Xp else if (Lvl = -1) and (nonRanked = 0) then nonRanked := I else if (Lvl = -1) and (nonRanked > 1) then nonRanked := -1;
setShowingPanelDirection; end; procedure TfrmMain.ApplicationEventsDeactivate(Sender: TObject); //programból való átváltáskor jelzi azt az óra felé begin formDeact := True; end; procedure TfrmMain.cropIfNeeded(var bmp : TBitmap); //képerny# mentéskor levágja a fekete részeket ha szükséges var sdSize : TPoint; //illetve ráteszi a program logot és az aktuális dátumot Dest, Sour : TRect; logo, datum : TPngImage; datumNow : String; begin sdSize.X := 765; sdSize.Y := 503;
Remainder := lvls[Lvl + 1] - Xp; NextLvl := lvls[Lvl + 1]; end; if Lvl = -1 then Lvl := 1; end; inc(I); until (not ExecNext) and (I > 25); finally Free; if nonRanked > 1 then begin with stats[nonRanked] do begin Xp := stats[1].Xp - totalxp; Lvl := getLvl(Xp); Remainder := lvls[Lvl + 1] - Xp; NextLvl := lvls[Lvl + 1]; end; end; end; result := stats; end;
with bmp do begin if (Canvas.Pixels[5,Height-5] = TColor(RGB(0,0,0))) and (Canvas.Pixels[Width-5,Height-5] = TColor(RGB(0,0,0))) then begin Sour := Rect((Width - sdSize.X) div 2,0,((Width - sdSize.X) div 2) + sdSize.X, sdSize.Y); Dest := Rect(0,0,sdSize.X, sdSize.Y); Canvas.CopyRect(Dest,bmp.Canvas,Sour); Width := sdSize.X; Height := sdSize.Y; end; end;
function TfrmMain.getLvl(exp : integer) : integer; //xp alapján visszaadja a hozzá tartozó szintet var e, v, k : integer; tom : TLvlzAry; begin ! !
if(exp = 0) then ! result := 0;
! ! ! !
tom := lvls; e := 1; v := High(tom); k := 0;
! !
repeat !
k := (e + v) div 2;
! !
! !
if(exp < tom[k]) then ! v := k - 1;
! !
! !
if(exp >= tom[k]) then ! e := k + 1;
!
until (e >= v);
!
result := v - 1;
end;
logo := TPngImage.Create; with logo do try LoadFromFile('./images/mini_logo.png'); bmp.Canvas.Draw(bmp.Width - 23,0,logo); finally Free; end; datumNow := FormatDateTime('yyyy.mm.dd.',Now); datum := TPngImage.Create; with datum do try LoadFromFile('./images/datumPanel.png'); with bmp.Canvas do begin Draw(426,bmp.Height - 16,logo); Brush.Style := bsClear; Font.Color := clWhite; TextOut((110-TextWidth(datumNow)) div 2 + 404 ,bmp.Height - ((22 + TextHeight(datumNow)) div 2),datumNow); end; finally Free; end; end;
68
procedure TfrmMain.aScreenShotExecute(Sender: TObject); //képerny#mentésért felel#s var // hDC of Desktop bmp: TBitmap; fileName : string; browserPos : TPoint;
begin {allocate memory for a logical palette} GetMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY))); {zero it out to be neat} FillChar(lpPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0); {fill in the palette version} lpPal^.palVersion := $300; {grab the system palette entries} lpPal^.palNumEntries :=GetSystemPaletteEntries(dc,0,256,lpPal^.palPalEn try); if (lpPal^.PalNumEntries <> 0) then begin {create the palette} bm.Palette := CreatePalette(lpPal^); end; FreeMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY))); end; {copy from the screen to the bitmap}
begin if inGameT then begin browserPos.X := mozRSPlay.ClientOrigin.X; browserPos.Y := mozRSPlay.ClientOrigin.Y; fileName := settingsFrm.eSavePath.Text + '\RSkep_' + FormatDateTime('yy-mm-dd-hh-nn-ss-z',Now); {Create a bitmap} bmp := TBitmap.Create; {Set a bitmap sizes} bmp.Height := mozRSPlay.Height; bmp.Width := mozRSPlay.Width;
if rsStatus = 0 then begin bmp.Height := bmp.Height - 96; browserPos.Y := browserPos.Y + 96; end;
procedure TfrmMain.aScreenshotWindowExecute(Sender: TObject); //megjeleníti vagy elrejti a képerny#mentések ablakot begin frmScreenshots.Visible := not frmScreenshots.Visible; end;
{Copy to any canvas, here canvas of an image} ScreenShot(browserPos.X, browserPos.Y, bmp.Width, bmp.Height,bmp); screenshotTaken := True; cropIfNeeded(bmp); case screenshotType of 2: begin bmp.SaveToFile(fileName + '.bmp'); end; 0: begin with TJPEGImage.Create do try Assign(bmp); Performance := jpBestQuality; CompressionQuality := 100; Compress; SaveToFile(fileName + '.jpg'); finally Free; end; end; 1: begin with TPngImage.Create do try Assign(bmp); SaveToFile(fileName + '.png'); finally Free; end; end; end;
procedure TfrmMain.aSetCmbBoxesExecute(Sender: TObject); //beállítja a combat kalkulátor editboxainak értékét begin ! eAttack.Text := IntToStr(cmbSks.Attack); eDefence.Text := IntToStr(cmbSks.Defence); eStrength.Text := IntToStr(cmbSks.Strength); eHitpoints.Text := IntToStr(cmbSks.Hitpoints); eRanged.Text := IntToStr(cmbSks.Ranged); ePrayer.Text := IntToStr(cmbSks.Prayer); eMagic.Text := IntToStr(cmbSks.Magic); eSummoning.Text := IntToStr(cmbSks.Summoning); end; procedure TfrmMain.aSettingsMenuExecute(Sender: TObject); //megjeleníti a beállítások panelt, majd begin //mrOK visszatérésnél elmenti és alkalmazza a beállításokat if(settingsFrm.ShowModal = mrOk) then begin ProxySettings; screenshotType := settingsFrm.cImageType.ItemIndex; setWikipediaLangChooser; setWindowSizePos; end; end;
{Release a bitmap} bmp.Free; end; end; procedure TfrmMain.ScreenShot(x : integer; y : integer; Width : integer; Height : integer; bm : TBitMap); //elkészíti a képerny#képet var dc: HDC; lpPal : PLOGPALETTE; begin {test width and height} if ((Width = 0) OR (Height = 0)) then exit; bm.Width := Width; bm.Height := Height; {get the screen dc} dc := GetWindowDC(GetDesktopWindow); if (dc = 0) then exit; {do we have a palette device?} if (GetDeviceCaps(dc, RASTERCAPS) AND RC_PALETTE = RC_PALETTE) then
procedure TfrmMain.aTabBarsDisableExecute(Sender: TObject); //zárolja a fölösleges félrekattintási lehet#ségeket var I : integer; //illetve megnyitja azokat begin if aTabBarsDisable.Checked then begin aTabBarsDisable.Checked := False; iLockedTabs.Hide; for I := 0 to High(mainTabCtrl.tabList) do mainTabCtrl.tabList[I].tTab.Enabled := True; panelRight.Show; apanelSideShow.Enabled := True; apanelSideShow.Checked := True; panelHideRight.Show; panelHideRight.Align := alNone; setShowingPanelDirection; end else begin aTabBarsDisable.Checked := True; iLockedTabs.Show; for I := 0 to High(mainTabCtrl.tabList) do mainTabCtrl.tabList[I].tTab.Enabled := False; panelRight.Hide; apanelSideShow.Enabled := False; apanelSideShow.Checked := False; panelHideRight.Hide; end; end; procedure TfrmMain.aTabChangeExecute(Sender: TObject); //az oldalsáv tabjai között vált var i :integer; begin for I := 0 to High(tabs) do begin if tabs[I] = (Sender as TImage).Name then begin switchToTab(I); break; end end; end;
procedure TfrmMain.switchToTab(tabInd:integer); //oldalsáv lapfülre képes váltani var I : integer; begin ToolPages.ActivePageIndex := tabInd; for I := 0 to High(tabs) do begin if I = tabInd then begin (FindComponent(tabs[I]) as TImage).Picture := nil; tabAll.GetIcon(I+High(Tabs)+1,(FindComponent(tabs[ I]) as TImage).Picture.Icon); end else begin (FindComponent(tabs[I]) as TImage).Picture := nil; tabAll.GetIcon(I,(FindComponent(tabs[I]) as TImage).Picture.Icon); end end; end; procedure TfrmMain.pmzybezSearchClick(Sender: TObject); //szörny-, és tárgykeres#ben való keresés megkezdése begin changeZybezSearch((Sender as TMenuItem).tag); end;
procedure TfrmMain.changeZybezSearch(searchType : integer); //szörny-, és tárgykeres#ben való téma váltást kezeli begin case searchType of 0 : begin zybezSearch := 'm'; lZybezSearchIn.Caption := 'szörny'; pMonsterSmallData.Show; end; 1 : begin zybezSearch := 'i'; procedure TfrmMain.stopperTimerTimer(Sender: lZybezSearchIn.Caption := 'tárgy'; TObject); //stopperóra id#zít#je pMonsterSmallData.Hide; begin end; if stopWatchRun then end; lStopWatch.Caption := ZybezMatchBox.Items.Clear; FormatDateTime('hh:nn:ss.z',elapsedStopWatch + Now end; - timeStopWatch); end; function TfrmMain.Combat(tipus:char = 'p'):Double; //kiszámolja a combat szintet, beállítja a procedure TfrmMain.switchToGTTab(tabInd:integer); recordban és vissza is adja azt //játékid# lapfül váltást kezeli var attack, defence, strength, hitpoints, prayer, var I : integer; magic, ranged, summoning : integer; //a tipus a begin f2p vagy p2p-t jelöli ! base_f, base_p, melee, ranger, cmb, mage gameTimePageC.ActivePageIndex := tabInd; : currency; begin for I := 0 to High(gtTabs) do ! ! attack := cmbSks.Attack; begin ! ! defence := cmbSks.Defence; if I = tabInd then ! ! strength := cmbSks.Strength; begin ! ! hitpoints := cmbSks.Hitpoints; (FindComponent(gtTabs[I]) as TImage).Picture ! ! prayer := cmbSks.Prayer; := nil; ! ! magic := cmbSks.Magic; ! ! ranged := cmbSks.Ranged; ilGametimeTabs.GetIcon(I+High(gtTabs)+3,(FindCompo ! ! summoning := cmbSks.Summoning; nent(gtTabs[I]) as TImage).Picture.Icon); cmb := 0.0; end else base_f := (defence + hitpoints + floor(prayer begin / 2)) * 0.25; (FindComponent(gtTabs[I]) as TImage).Picture ! base_p := (defence + hitpoints + := nil; floor(prayer / 2) + floor(summoning / 2)) * 0.25; ilGametimeTabs.GetIcon(I,(FindComponent(gtTabs[I]) melee := base_f + (attack + strength) * 0.325; as TImage).Picture.Icon); ! ! ranger := base_f + floor(ranged * end 1.5) * 0.325;
70
! ! 1.5) * 0.325;
mage := base_f + floor(magic *
begin timemenu := TMenuItem.Create(mainMenuBar); dateMenu := TMenuItem.Create(timemenu); cmbSks.cmb_lvl_f := max(max(melee, ranger), dateMenu.Caption := strDate; mage); dateMenu.Enabled := False; with timemenu do melee := base_p + (attack + strength) * 0.325; begin ! ! ranger := base_p + floor(ranged * Name := 'mTimeMenu'; 1.5) * 0.325; Enabled := True; ! ! mage := base_p + floor(magic * AutoHotkeys := maManual; 1.5) * 0.325; Caption := strTime; Add(dateMenu); cmbSks.cmb_w := melee; end; cmbSks.cmb_r := ranger; mainMenuBar.Items.Add(timemenu); cmbSks.cmb_m := mage; end; end; cmbSks.cmb_lvl_p := max(max(melee, ranger), begin mage); if ((SearchKey <> 0) and (MilliSecondsBetween(Now,SearchKey) > 1000)) or case tipus of not ! ! ! 'f': ((settingsFrm.cSettingsFastSearch.Checked[4]) and ! cmb := cmbSks.cmb_lvl_f; (settingsFrm.cSettingsFastSearch.Checked[3])) then ! ! ! 'p': begin ! ! ! ! cmb := SBResult(self); cmbSks.cmb_lvl_p; sbClear.Picture.Assign(clearSB); ! ! end; SearchKey := 0; result := cmb; end; end; if (textEditChanged) and (MinutesBetween(Now,textEditSaved) > 5) then procedure TfrmMain.eAttackKeyUp(Sender: TObject; begin var Key: Word; //combat skillek manuális mTextEdit.Lines.SaveToFile(textEditFilename); átírásakor elvégzi a számolást textEditChanged := False; Shift: TShiftState); textEditSaved := Now; begin end; if((Sender as TEdit).Text <> '') then aCmbShowExecute(self); if (inGameT = false) and (secondsInactive = 0) end; and (SecondsIdle = 0) and (gameStarted <> 0) then begin procedure TfrmMain.eCmbUsernameKeyDown(Sender: gameStarted := Now; TObject; var Key: Word; //combat kalkulátor név inGameT := True; beírásnál az enter billenty" end Shift: TShiftState); else //lenyomására elindítja a keresést if (inGameT) and ((SecondsIdle > 60*5) or begin (idleTime > 60*5)) then if(Key = VK_RETURN) then begin begin inGameT := False; aCmbLekerExecute(Sender); end; userNameList.Hide; end; if (inGameT) and (TimeToStr(Time) = '00:00:01') end; then begin procedure TfrmMain.eCmbUsernameKeyUp(Sender: uploadGameTime; TObject; var Key: Word; //combat kalkulátor név end; automatikus kiegészítés listában keres Shift: TShiftState); if (inGameT) and (gameStarted <> 0) then begin begin if ((Key = VK_DOWN) or (Key = VK_TAB)) and gameTimeElapsed := gameTimeElapsed + (Assigned(userNameList) and userNameList.Visible) StrToTime('00:00:01'); then ltimeElapsed.Caption := begin FormatDateTime('hh:nn:ss',gameTimeElapsed); userNameList.SetFocus; Caption := 'RsHun Sun <' + userNameList.ItemIndex := 0; FormatDateTime('hh:nn:ss',gameTimeElapsed) + '>'; end if not aScreenShot.Enabled then else if Length(eCmbUsername.Text) > 2 then aScreenShot.Enabled := True; userNameComplete(eCmbUsername.Text); end end; else if aScreenShot.Enabled then aScreenShot.Enabled := False; procedure TfrmMain.elapsedTimeTimer(Sender: TObject); //az összes f# id#t kezeli a programban if (screenshotTaken) and (anouncementTimer = 0) procedure rightMenuTime; //beállítja a menüben then az órát és a dátumot begin var strTime, anouncementTimer := Now; strDate : string; pAnouncement.Repaint; dateMenu : TMenuItem; end begin else if (screenshotTaken) and (anouncementTimer strTime := FormatDateTime('hh:nn',Time); <> 0) and (SecondsBetween(Now,anouncementTimer) > strDate := FormatDateTime('yyyy. mmmm dd., 3) then dddd',Now); begin if (Assigned(timemenu)) and screenshotTaken := False; (ReplaceStr(timemenu.Caption,'&','') <> strTime) anouncementTimer := 0; then pAnouncement.Repaint; begin end; timemenu.Caption := strTime; timemenu.Items[0].Caption := strDate; RightMenuTime; end else if (not Assigned(timemenu)) then end;
71
procedure TfrmMain.uploadGameTime; //feltölti és lenullázza a játékid#t begin saveActual(timeStart,gameTimeElapsed); gameTimeElapsed := 0; gameStarted := Now; ltimeElapsed.Caption := FormatDateTime('hh:nn:ss',gameTimeElapsed); Caption := 'RsHun Sun <' + FormatDateTime('hh:nn:ss',gameTimeElapsed) + '>'; end; procedure TfrmMain.AnounceThis(text: string); //kiírja a lapfül sávra az adott üzenetet begin with pAnouncement.Canvas do begin Font := ltimeElapsed.Font; pAnouncement.Width := TextWidth(text) + 10; Brush.Style := bsSolid; Brush.Color := RGB(172,168,161); FillRect(ClipRect); if Length(text) >0 then begin Pen.Style := psClear; Brush.Color := RGB(202,220,235); RoundRect(ClipRect,3,3);
with userNameList do begin case ToolPages.ActivePageIndex of 0 : Parent := panelHS; 1 : Parent := panelCMB; end; Items.Clear; if Length(geUserNameS) > 2 then begin getUserMatch(geUserNameS); for I := 0 to High(userMatches) do if string(userMatches[I]) <> geUserNameS then AddItem(String(userMatches[I]),TObject(I)); end; if (Items.Count > 0) then begin Height := Items.Count * 18; Show; end else Hide; end;
Brush.Style := bsClear; end; TextOut(3,((pAnouncement.Height TextHeight(text)) div 2),text); end; Update; end; end; function TfrmMain.SecondsIdle: DWord; //visszaadja a programtól távol töltött id#t var liInfo: TLastInputInfo; begin liInfo.cbSize := SizeOf(TLastInputInfo) ; GetLastInputInfo(liInfo) ; Result := (GetTickCount - liInfo.dwTime) DIV 1000; end; function TfrmMain.secondsInactive:integer; //visszaadja a számítógépt#l távol töltött id#t begin if formDeact then inc(idleTime) else idleTime := 0; result := idleTime; end; procedure TfrmMain.userNameComplete(geUserNameS:string); //létrehozza a név kiegészít# listát ha nem létezik, var I :integer; //illetve feltölti a keresésnek megfelel# találatokkal begin if userNameList = nil then begin userNameList := TListBox.Create(self); with userNameList do begin Parent := panelHS; Hide; Width := 201; Left := 5; Top := 25; BevelInner := bvNone; BevelOuter := bvNone; onExit := TTAutocDestr; OnKeyDown := userNameFill; OnDblClick := userNameFillClick; Font.Name := 'Terbuchet MS'; end; end;
procedure TfrmMain.userNameFillClick(Sender: TObject); //a találati listában való begin //kattintásra feltölti azzal a névvel a keresést with (Sender as TListBox) do begin case ToolPages.ActivePageIndex of 0: begin eUsername.Text := Items[ItemIndex]; aHSLekerExecute(Sender); end; 1 : begin eCmbUsername.Text := Items[ItemIndex]; aCmbLekerExecute(Sender); end; end; Hide; end; end; procedure TfrmMain.userNameFill(Sender: TObject; var Key: Word; //találati listában való enter ütésére feltölti a névvel a keresést Shift: TShiftState); //vagy ESC nyomására bezárja a találati listát begin if (Key = VK_RETURN) and ((Sender as TListBox).ItemIndex <> -1) then begin with (Sender as TListBox) do begin case ToolPages.ActivePageIndex of 0: begin eUsername.Text := Items[ItemIndex]; aHSLekerExecute(Sender); end; 1 : begin eCmbUsername.Text := Items[ItemIndex]; aCmbLekerExecute(Sender); end; end; Hide; end; end else if Key = VK_ESCAPE then begin (Sender as TListBox).Hide; end else if (Key = VK_TAB) and ((Sender as TListBox).Items.Count > (Sender as TListBox).ItemIndex) then begin (Sender as TListBox).ItemIndex := (Sender as TListBox).ItemIndex + 1; end;
72
end; procedure TfrmMain.geNameComplete(geItemNameS:string); //tárgynév listát hozza létre és tölti föl a keresett tárgy alapján var I :integer; begin if itemNameList = nil then begin itemNameList := TListBox.Create(self); with itemNameList do begin Parent := panelGE; Hide; Width := 201; Left := 4; Top := 25; BevelInner := bvNone; BevelOuter := bvNone; onExit := TTAutocDestr; OnKeyDown := geNameFill; Font.Name := 'Terbuchet MS'; end; end; with itemNameList do begin Items.Clear; if Length(geItemNameS) > 2 then begin getItemMatch(geItemNameS); for I := 0 to High(itemMatches) do AddItem(String(itemMatches[I]),TObject(I)); end; if Items.Count > 0 then Show else Hide;
procedure TfrmMain.gtSpinnerClick(Sender: TObject); //a játékid# tölt# spinnerre való kattintást kezeli begin if not gameTimeHandler.onDownloadProgress then begin gameTimeHandler.getGameTimeStart(nil); gameTimeHandler.fillList(cgameTGraphUser); end else begin gameTimeHandler.onDownloadProgress := False; end; end; procedure TfrmMain.gtToChange(Sender: TObject); //játékid# dátumának végét kezeli begin //a kezd# dátumot ehhez állítja if gtFrom.Date > gtTo.DateTime then gtFrom.Date := gtTo.DateTime; gtFrom.MaxDate := gtTo.DateTime; end; procedure TfrmMain.hsLekerWorkBegin(ASender: TObject; AWorkMode: TWorkMode; //hiscores lekérdez# lekérdezésének kezdete AWorkCountMax: Int64); begin eUsername.Enabled := False; eCmbUsername.Enabled := False; end; procedure TfrmMain.hsLekerWorkEnd(ASender: TObject; AWorkMode: TWorkMode); //hiscores lekérdez# lekérdezésének vége begin eUsername.Enabled := True; eCmbUsername.Enabled := True; end;
procedure TfrmMain.geItemCountKeyUp(Sender: TObject; var Key: Word; //Grand Exchange tárgy end; árával számolás Shift: TShiftState); end; begin if Key = VK_ESCAPE then procedure TfrmMain.geNameFill(Sender: TObject; var geItemCount.Text := '0' Key: Word; //tárgy nevét írja a keresési mez#ben else if MatchExact.id <> null then enter nyomására begin Shift: TShiftState); if geItemCount.Text = '' then //ESC-re bezárja a listát geItemCount.Text := '0'; begin geItemPriceSum.Caption:= if Key = VK_RETURN then rsNumber(Calculate(geItemCount.Text) * begin MatchExact.price); with (Sender as TListBox) do end; begin end; geItemSearch.Text := Items[ItemIndex]; searchGE('"'+geItemSearch.Text+'"'); procedure TfrmMain.geItemSearchKeyDown(Sender: geFillMatches; TObject; var Key: Word; //GE keres# mez# billenty" Hide; lenyomásait kezeli end; Shift: TShiftState); end begin else if Key = VK_ESCAPE then if Key = VK_ESCAPE then begin begin (Sender as TListBox).Hide; geItemSearch.Text := ''; geItemSearch.SetFocus; itemNameList.Hide; end end else if (Key = VK_TAB) and ((Sender as else if (Key = VK_RETURN) and TListBox).Items.Count > (Sender as (Length(geItemSearch.Text) > 1) then TListBox).ItemIndex) then begin begin searchGE(geItemSearch.Text); (Sender as TListBox).ItemIndex := (Sender as geFillMatches; TListBox).ItemIndex + 1; end end; else if (Key = VK_DOWN) and end; (geMatchesBox.Items.Count > 0) and (not itemNameList.Visible) then procedure TfrmMain.gtDailyDateCloseUp(Sender: begin TObject); //játékid# nap kiválasztásakor letölti a geMatchesBox.SetFocus; napi top10 listát geMatchesBox.ItemIndex := 0; begin end gameTimeHandler.getGameTimeStart(nil); else if (Key = VK_DOWN) and gameTimeHandler.getDailyTop10((Sender as (itemNameList.Visible) then TDateTimePicker).DateTime); begin end; itemNameList.SetFocus; itemNameList.ItemIndex := 0;
73
end;
tabAll.GetIcon(I+High(Tabs)+1,(Sender as TImage).Picture.Icon); break; end; end; end;
end; procedure TfrmMain.geFillMatches; //feltölti a GE találati listát a talált elemekkel var I:integer; begin if itemNameList <> nil then itemNameList.Hide; geMatchesBox.Clear; blankGEitem; if Length(matches) > 0 then begin for I := 0 to High(matches) do with geMatchesBox.Items.Add do begin Caption := matches[I].name; SubItems.Add(rsNumber(matches[I].price)); end; if Length(matches) = 1 then begin exactMatch(matches[High(matches)]); fillGEitem(matches[High(matches)]); geItemCount.SetFocus; end; end; end; procedure TfrmMain.geItemSearchKeyUp(Sender: TObject; var Key: Word; //GE keres# mez#b#l való kiegészítés listába navigálás Shift: TShiftState); begin if ((Key = VK_DOWN) or (Key = VK_TAB)) and (itemNameList.Visible) then begin itemNameList.SetFocus; itemNameList.ItemIndex := 0; end else geNameComplete(geItemSearch.Text); end;
procedure TfrmMain.geMatchesBoxDblClick(Sender: TObject); //GE találati listában való dupla begin // kattintásra megmutatja a részletes adatait if geMatchesBox.Selected <> nil then begin exactMatch(matches[geMatchesBox.ItemIndex]); fillGEitem(matches[geMatchesBox.ItemIndex]); end; end; procedure TfrmMain.geMatchesBoxKeyDown(Sender: TObject; var Key: Word; //GE találati listában való enter ütésére Shift: TShiftState); // kattintásra megmutatja a részletes adatait begin if (Key = VK_RETURN) and (geMatchesBox.Selected <> nil) then begin exactMatch(matches[geMatchesBox.ItemIndex]); fillGEitem(matches[geMatchesBox.ItemIndex]); end; end; procedure TfrmMain.eUsernameClick(Sender: TObject); //hiscores lekérdez# keres# mez#be begin //való kattintásra kijelöli az egész szöveget benne eUsername.SelectAll; end;
procedure TfrmMain.eUsernameKeyDown(Sender: TObject; var Key: Word; //hiscores lekérdez# keres# mez#ben való Shift: TShiftState); //enter ütésre elindítja a keresést begin procedure TfrmMain.fillGEitem(item:Titem); if(Key = VK_RETURN) then //feltölti a talált tárgyat a GE-b#l az adatokkal, begin megjeleníti azokat aHSLekerExecute(Sender); begin userNameList.Hide; geItemImage.WebPicture.LoadFromURL(item.img); end; geItemName.Caption := item.name; end; geItemDesc.Caption := item.description; geItemPmar.Caption := rsNumber(item.price); procedure TfrmMain.eUsernameKeyUp(Sender: TObject; geItemPmin.Caption := item.minP; var Key: Word; //hisocres lekérdez# keres# geItemPmax.Caption := item.maxP; mez#b#l átnavigál geItemsChange7.Caption := item.change7; Shift: TShiftState); geItemsChange30.Caption := item.change30; //az kiegészít# listába ha létezik geItemCount.Text := '1'; begin geItemPriceSum.Caption := rsNumber(item.price); if ((Key = VK_DOWN) or (Key = VK_TAB)) and end; (Assigned(userNameList) and userNameList.Visible) then procedure TfrmMain.blankGEitem; //kitörli a GE begin adatokat userNameList.SetFocus; begin userNameList.ItemIndex := 0; geItemImage.WebPicture := nil; end geItemName.Caption := ''; else if Length(eUsername.Text) > 2 then geItemDesc.Caption := ''; userNameComplete(eUsername.Text); geItemPmar.Caption := '0'; geItemPmin.Caption := '0'; end; geItemPmax.Caption := '0'; geItemsChange7.Caption := '0%'; procedure TfrmMain.eWikiSearchKeyDown(Sender: geItemsChange30.Caption := '0%'; TObject; var Key: Word; //wiki keresésnél enter geItemCount.Text := '0'; Shift: TShiftState); geItemPriceSum.Caption := '0'; //ütésre elindítja a folyamatot end; begin if (Key = VK_RETURN) and procedure TfrmMain.TabMouseEnter(Sender: TObject); (Length(eWikiSearch.Text) > 0) then //oldalsáv tabfül képének váltása egér begin fölékerülésére searchWikiWord(eWikiSearch.Text); var I : integer; end; begin for I := 0 to High(tabs) do end; begin if (Sender as TImage).Name = tabs[I] then procedure TfrmMain.searchWikiWord(sfor : string); begin //a kiválaszott wikiben a megadott (Sender as TImage).Picture := nil;
74
var js:TlkJSONobject; //szóra keres és megjeleníti a találatokat xs:TlkJSONbase; data : UTF8String; I : integer; root, jsonuri : string; link, ole, head: OleVariant; begin wikiHtmlList := nil; with TIdHTTP.Create(self) do begin try jsonuri := TIdURI.URLEncode('http://' + wikiUri[selWiki] + '/api.php?action=query&list=search&srsearch=' + sfor + '&format=json&srlimit=' + wikiMatchShow); data := UTF8String(Get(jsonuri));
Tag := I; end;
end; end; end; 'i' : begin searchForItem(eZyzbezLookFor.Text); if Length(zitemMatches) = 0 then begin with ZybezMatchBox.Items do begin Clear; with Add do begin Caption := 'Nincs találat'; end; end; end except on exception do else if Length(zitemMatches) = 1 then data := ''; begin end; fillItemDetails(zitemMatches[0]); Free; end end; else if Length(data) > 0 then begin begin with ZybezMatchBox.Items do xs := TlkJSON.ParseText(string(data)); begin js := TlkJSONobject(xs); Clear; if assigned(js) then for I := 0 to High(zitemMatches) do begin with Add do for I := 0 to begin js.Field['query'].Field['search'].Count - 1 do Caption := zitemMatches[I].name; begin Tag := I; end; SetLength(wikiHtmlList,Length(wikiHtmlList) + 1); end; wikiHtmlList[High(wikiHtmlList)] := end; js.Field['query'].Field['search'].Child[I].Field[' end; title'].Value; end; end; end; end; end; GetDir(0,root); link := 'file://' + root + '/result.html'; head := 'Content-type: text/html; charset=utf-8'; wikiBrowser.Navigate(link,ole,ole,ole,head);
procedure TfrmMain.FormActivate(Sender: TObject); //a f# form aktiválásakor a játék begin // böngész#be helyezi a fókuszt amennyiben az látszik if inGameT and RuneScape.Visible then // és megy a játék mozRSPlay.SetFocus; end;
end; end; procedure TfrmMain.eZyzbezLookForKeyDown(Sender: TObject; var Key: Word; //szörny-, és tárgykeres#ben a Shift: TShiftState); //enter ütésre elindítja a keresést var I :integer; //majd megjeleníti a találatokat ha volt begin if (Key = VK_RETURN) and (Length(eZyzbezLookFor.Text) > 2) then begin case zybezSearch of 'm' : begin searchForMonster(eZyzbezLookFor.Text); if Length(monsterMatches) = 0 then begin with ZybezMatchBox.Items do begin Clear; with Add do begin Caption := 'Nincs találat'; end; end; end else if Length(monsterMatches) = 1 then begin fillMonsterDetails(monsterMatches[0]); end else begin with ZybezMatchBox.Items do begin Clear; for I := 0 to High(monsterMatches) do with Add do begin Caption := monsterMatches[I].name;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);// f# form bezárásakor elmenti a méret és pozíciót begin //illetve felküldi a játékid#t ha volt majd bezárja a programot try try mTextEdit.Lines.SaveToFile(textEditFilename); iSettings.WriteInteger('View','width',frmMain.Widt h); iSettings.WriteInteger('View','height',frmMain.Hei ght); iSettings.WriteInteger('View','left',frmMain.Left) ; iSettings.WriteInteger('View','top',frmMain.Top); iSettings.WriteInteger('View','state',Integer(frmM ain.WindowState)); iSettings.WriteBool('View','sidebar',panelRight.Vi sible);
75
mozRSPlay.Stop; mozRSPlay.Quit; except on exception do end; try if gameStarted <> 0 then
begin self.Cursor := crHourGlass; self.BorderIcons := []; elapsedTime.Enabled := False; saveActual(timeStart,gameTimeElapsed); gameTimeElapsed := 0; gameStarted := 0; end; except on exception do Application.Terminate; end; finally end; end;
end; inc(C); end; end; for I := 0 to High(stats) do stats[I].Name := skills[I]; end; procedure TfrmMain.FormDestroy(Sender: TObject); //megsemmisítéskor felszabadítja a segéd állományokat begin wikicssSource.Free; wikijsSource.Free; end;
procedure TfrmMain.FormCloseQuery(Sender: TObject; procedure TfrmMain.FormShow(Sender: TObject); //f# var CanClose: Boolean); //bezárás el#tt rákérdez form megjelenítésekor beállítja az aktív lapfület begin begin //ellenörzi a frissítés szükségességét if MessageBox(Handle,'Biztos, hogy pBrowsers.ActivePage := RuneScape; bezárod?','Bezárás',MB_YESNO) = IDYES then if tracker.updateNeeded or begin ge_lookup.updateNeeded then CanClose := True loadScreen.ShowModal; end if (iSettings.ReadBool('View','setup',true)) else then //els# indításkor megjeleníti a beállítások CanClose := False; panelt end; aSettingsMenuExecute(self); ProxySettings; procedure TfrmMain.FormCreate(Sender: TObject); //majd visszatölti a beállításokat //f# form létrehozásakor visszatölti a ViewSettings; beállításokat createTabBtns; var I,J,C : integer; loaderCreate; //illetve létrehozza a hiscores tstatictexteket setLoaders; begin switchWiki; SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_APPWINDOW); DateSeparator := '.'; gameStarted := 0; //és beállítja a dátum mez#ket az aktuális ToolPages.Pages[0].BorderWidth := 0; dátumhoz ToolPages.Brush.Color := clWhite; gtFrom.MaxDate := Yesterday; ToolPages.Pages[0].Brush.Color := clWhite; gtFrom.DateTime := Today - StrToTime('23:59:59') * 7; MenuStateImages.GetBitmap(0,panelSideSwitch.Pictur gtDailyDate.MaxDate := Tomorrow; e.Bitmap); gtDailyDate.Date := Today; gtTo.MaxDate := Tomorrow; mainTabCtrl := gtTo.Date := Today; TCustomTab.Create(pBrowsers,pBrowserTabs); gameTimeHandler := TGameTimeGetter.Create(gameTimeSingleChart,lvDaily try Top, mTextEdit.Lines.LoadFromFile(textEditFilename); setWindowSizePos;
setSideBarVisibility; except on exception do end; C := 2; for J := 0 to 7 do begin for I := 0 to 2 do begin with TStaticText.Create(self) do begin Parent := panelHS; Width := 27; Height := 35; Caption := '-'; Top := 110 + ceil(J * 34.5); Left := 35 + (I * 72); Color := $00EBDCCA; ParentFont := False; ParentColor := False; Font.Size := 12; Font.Style := [fsBold]; Font.Color := RGB(16,82,137); Alignment := taCenter; FreeOnRelease; name := 'st_' + skills[C]; FreeOnRelease; Tag := C; OnMouseEnter := oneSkillDetailShow; OnMouseLeave := oneSkillDetailHide;
if not FileExists(textEditFilename) then FileClose(FileCreate(textEditFilename)); if ON_START then //betölti a kezd#oldalt a böngész#ben begin mozRSPlay.Navigate(WideString(HOMEPAGE)); end; if EventsMenu then //letölti az eseményeket ha be van kapcsolva RHevents := TRHEvents.Create(mainMenuBar); graveImages.GetIcon(settings.SelectedGraveId,iGrav eImage.Picture.Icon); setGraveTimer; wikipediaLng := wikipediaShorts[iSettings.ReadInteger('Wikipedia', 'selLang',6)]; wikiUri[2] := wikipediaLng + '.wikipedia.org/w'; iselWiki2.Hint := wikipediaLng + '.wikipedia.org'; setWikipediaLangChooser; setHelpBtns; end;
76
procedure TfrmMain.setHelpBtns; //beállítja a súgó ikonokat és megjeleníti azokat begin // amennyiben be vannak kapcsolva if Length(helpBtns) = 0 then begin addHelpBtn(hFastSearch,'Gyorskeres# Súgó','07','01'); addHelpBtn(settingsFrm.hSettings,'Beállítások Súgó','02','01');
procedure TfrmMain.setShowingPanelDirection; // az oldalsáv eltüntet# és megejelnít# nyilakat állítja be begin if panelRight.Align <> panelHideRight.Align then begin case panelRight.Align of alRight: begin panelRight.Align := alNone; panelHideRight.Align := alRight; panelRight.Align := alRight; addHelpBtn(frmScreenshots.hScreenshotDetails,'Képe end; k adatai Súgó','05','02'); alLeft: begin addHelpBtn(hCenterPanels,'Játékterület panelRight.Align := alNone; Súgó','06','01'); panelHideRight.Align := alLeft; addHelpBtn(hMonsterDetails,'Szörnyek panelRight.Align := alLeft; Súgó','06','02'); end; addHelpBtn(hItemDetails,'Tárgyak end; Súgó','06','03'); addHelpBtn(hWikiSearch,'Wiki keresés end; Súgó','06','07'); addHelpBtn(hGameTimeGraph,'Egyéni játékid# Súgó','06','05'); case panelRight.Align of addHelpBtn(hGameTimeTop10,'Játékid# Top10 alRight : begin Súgó','06','06'); if panelRight.Visible then begin addHelpBtn(hHiscores,'Hiscores Lekérdez# iRightPanelHide.Visible := True; Súgó','08','01'); iRightPanelHide.Enabled := True; addHelpBtn(hCombatCalc,'Combat Kalkulátor iRightPanelShow.Visible := False; Súgó','08','02'); iRightPanelShow.Enabled := False; addHelpBtn(hCoordinateLocator,'Koordináta end; Lokátor Súgó','08','05'); if not panelRight.Visible then addHelpBtn(hTextEdit,'Üres Lap begin Súgó','08','06'); iRightPanelHide.Visible := False; addHelpBtn(hTimers,'Id#mér#k Súgó','08','07'); iRightPanelHide.Enabled := False; iRightPanelShow.Visible := True; frmSunHelp.showHelpBtns; iRightPanelShow.Enabled := True; end; frmSunHelp.helpBtnsVisibility(settingsFrm.cHelpBtn iLeftPanelHide.Visible := False; Show.Checked); iLeftPanelHide.Enabled := False; end; iLeftPanelShow.Visible := False; end; iLeftPanelShow.Enabled := False; end; procedure TfrmMain.setWindowSizePos; //alkalmazza alLeft : begin a beállított ablak méretet és pozíciót és állást if panelRight.Visible then begin begin if windowSizePosChanged then iLeftPanelHide.Visible := True; begin iLeftPanelHide.Enabled := True; try iLeftPanelShow.Visible := False; self.Width := iLeftPanelShow.Enabled := False; iSettings.ReadInteger('View','width',self.Width); end; self.Height := if not panelRight.Visible then iSettings.ReadInteger('View','height',self.Height) begin ; iLeftPanelHide.Visible := False; self.Left := iLeftPanelHide.Enabled := False; iSettings.ReadInteger('View','left',self.Left); iLeftPanelShow.Visible := True; self.Top := iLeftPanelShow.Enabled := True; iSettings.ReadInteger('View','top',self.Top); end; self.WindowState := iRightPanelHide.Visible := False; TWindowState(iSettings.ReadInteger('View','state', iRightPanelHide.Enabled := False; Integer(self.WindowState))); iRightPanelShow.Visible := False; if self.WindowState = wsMinimized then iRightPanelShow.Enabled := False; self.WindowState := wsNormal; end; except on exception do end; end; if (Top = 0 ) and (Left = 0) then end; begin Top := (Screen.Height - self.Height ) div 2; procedure TfrmMain.setWikipediaLangChooser; Left := (Screen.Width - self.Width) div 2; //beállítja a wikipedia nyelvválasztó menü elemeit end; var wikipediaLang : TMenuItem; windowSizePosChanged := False; I : integer; end; begin pwikipediaLangs.Items.Clear; end; for I := 0 to settingsFrm.cSettingsWikipedia.Items.Count - 1 do procedure TfrmMain.setSideBarVisibility; if settingsFrm.cSettingsWikipedia.Checked[I] //oldalsáv láthatóságát alkalmazza a beállítás then alapján begin begin wikipediaLang := panelRight.Visible := TMenuItem.Create(pwikipediaLangs); iSettings.ReadBool('View','sidebar',true); with wikipediaLang do begin apanelSideShow.Checked := panelRight.Visible; Caption := settingsFrm.cSettingsWikipedia.Items[I]; end; RadioItem := True; AutoCheck := True; Tag := I;
77
onClick := setWikipediaLng; anounceTimerText := 'Id#zítés: ' + if FormatDateTime('ss',countTimerTo) + ' '; iSettings.ReadInteger('Wikipedia','selLang',6) = I end; then Checked := True; if countTimerTo <= 0 then pwikipediaLangs.Items.Add(wikipediaLang); begin countTimerTo := 0; end; lCountTimer.Visible := False; end; counterTimerRun := False; end; cTimerHour.Visible := True; cTimerMinute.Visible := True; procedure TfrmMain.setWikipediaLng(Sender : cTimerSecond.Visible := True; TObject); //a kiválasztott wikipedia nyelvet lMinute.Visible := True; alkalmazza lHour.Visible := True; begin lSecond.Visible := True; if wikipediaShorts[(Sender as TMenuItem).Tag] <> iStartTimer.Picture := nil; wikipediaLng then begin watchBtnImages.GetBitmap(2,iStartTimer.Picture.Bit wikipediaLng := wikipediaShorts[(Sender as map); TMenuItem).Tag]; anounceTimerText := ''; iselWiki2.Hint := wikipediaLng + pAnouncement.Repaint; '.wikipedia.org'; end; end; iSettings.WriteInteger('Wikipedia','selLang',(Send er as TMenuItem).Tag); if skullTimerRun then wikiUri[2] := wikipediaLng + begin '.wikipedia.org/w'; skullTimerTo := skullTimerTo end StrToTime('00:00:01'); else lSkullTimer.Caption := (Sender as TMenuItem).Checked := True; FormatDateTime('nn:ss',skullTimerTo); end; if skullTimerTo <= StrToTime('00:00:30') then procedure TfrmMain.setLoaders; //beállítja az begin IdHttp lekérésekre a tölt#t if Length(anounceTimerText) > 0 then begin anounceTimerText := anounceTimerText + '| setLoader(worldData.dataRequest); '; setLoader(ge_lookup.dataRequest); anounceTimerText := anounceTimerText + setLoader(clanLists.dataRequest); 'Skull lejár: ' + end; FormatDateTime('ss',skullTimerTo) + ' '; end; procedure TfrmMain.loaderCreate; //betölti fileból a gyorskeres# tölt# spinnerét if skullTimerTo <= 0 then begin //illetve az X begin jelet lSkullTimer.Caption := '20:00'; loader := TGIFImage.Create; skullTimerRun := False; with loader do skullTimerTo := 0; begin iStartSkull.Picture := nil; Animate := True; Transparent := True; watchBtnImages.GetBitmap(4,iStartSkull.Picture.Bit GIFMaximumDelay := 3; map); anounceTimerText := ''; LoadFromFile('.\images\activity_indicator.gif'); pAnouncement.Repaint; FreeOnRelease; end; end; end; clearSB := TPngImage.Create; with clearSB do begin Transparent := True; LoadFromFile('.\images\clearSbar.png'); FreeOnRelease; sbClear.Picture.Assign(clearSB); end; end; procedure TfrmMain.setLoader(var req : TIdHTTP); //beállítja a tölt# eseményeket begin req.OnWorkBegin := assiLoader; req.OnWorkEnd := assiX; end;
if graveTimerRun then begin graveTimerTo := graveTimerTo StrToTime('00:00:01'); lGraveTimer.Caption := FormatDateTime('n:ss',graveTimerTo); if graveTimerTo <= StrToTime('00:00:30') then begin if Length(anounceTimerText) > 0 then anounceTimerText := anounceTimerText + '| '; anounceTimerText := anounceTimerText + 'Sír összeomlik: ' + FormatDateTime('ss',graveTimerTo); end; if graveTimerTo <= 0 then begin setGraveTimer; graveTimerRun := False; iStartGrave.Picture := nil;
procedure TfrmMain.countDownTimerTimer(Sender: TObject); //több id#zító óra egyben begin anounceTimerText := ''; if counterTimerRun then begin countTimerTo := countTimerTo StrToTime('00:00:01'); lCountTimer.Caption := FormatDateTime('hh:nn:ss',countTimerTo);
if countTimerTo <= StrToTime('00:00:30') then begin
if Length(anounceTimerText) > 0 then begin
78
pAnouncement.Repaint; end; end; procedure TfrmMain.createTabBtns; lapfüleket var I : integer; begin
if ((Sender as TImage).Name = gtTabs[I]) and (gameTimePageC.ActivePageIndex <> I) then begin (Sender as TImage).Picture := nil; //létrehozza a ilGametimeTabs.GetIcon(I,(Sender as TImage).Picture.Icon); break; end; end; end;
for I := 0 to High(tabs) do begin (FindComponent(tabs[I]) as TImage).Picture := nil; tabAll.GetIcon(I,(FindComponent(tabs[I]) as TImage).Picture.Icon); end; switchToTab(ToolPages.ActivePageIndex);
procedure TfrmMain.iItemPriceBtnClick(Sender: TObject); //tárgy adatinál lév# ár gombra begin //megkeresi a tárgy árát a GE-ben switchToTab(2); if Length(lItemName.Caption) > 1 then begin geItemSearch.Text := '"' + lItemName.Caption + '"'; searchGE(geItemSearch.Text); geFillMatches; end; end;
for I := 0 to High(gtTabs) do begin (FindComponent(gtTabs[I]) as TImage).Picture := nil; ilGametimeTabs.GetIcon(I,(FindComponent(gtTabs[I]) as TImage).Picture.Icon); end; switchToGTTab(gameTimePageC.ActivePageIndex); end; procedure TfrmMain.iCoordSearchClick(Sender: TObject); //koordináta keresés gombjára való begin //kattintáskor megmutatja azt a térképen TTMap; end;
procedure TfrmMain.iMonsterSearchBtnClick(Sender: TObject); //szörny adatainál való keresés ikonra begin //való kattintásnál az oldalsávon is odavált switchToTab(3); changeZybezSearch((Sender as TImage).Tag); end;
procedure TfrmMain.TabMouseLeave(Sender: TObject); //oldalsáv lapfülek elhagyásakor visszavált a kép var I : integer; begin procedure TfrmMain.iGraveImageClick(Sender: for I := 0 to High(tabs) do TObject); //sír képére való kattintáskor begin megjeleníti a if ((Sender as TImage).Name = tabs[I]) and begin (ToolPages.ActivePageIndex <> I) then //helyi menüt begin (Sender as TImage).Picture := nil; pGraveTypes.Popup(Mouse.CursorPos.X,Mouse.CursorPo tabAll.GetIcon(I,(Sender as s.Y); TImage).Picture.Icon); end; break; end; procedure TfrmMain.igtTabSingleClick(Sender: end; TObject); //játékid# lapfüleg közti váltás end; var I : integer; begin procedure TfrmMain.scaleMapMouseEnter(Sender: for I := 0 to High(gtTabs) do TObject); //a coodináta lokátor nagyító ikonja begin fölé if gtTabs[I] = (Sender as TImage).Name then begin begin //menve megmutatja nagyobban a térképet switchToGTTab(I); if autocList <> nil then break; autocList.Hide; end end; with MapPanel do end; begin Hide; procedure TfrmMain.igtTabSingleMouseEnter(Sender: Anchors := [akBottom,akRight]; TObject); //játékid# lapfül fölé menve vált a kép Parent := Self; var I : integer; Width := 385; begin Height := 385; for I := 0 to High(gtTabs) do Left := panelLeft.Width - 385 + 207; begin Top := 0; if ((Sender as TImage).Name = gtTabs[I]) and Show; (gameTimePageC.ActivePageIndex <> I) then end; begin with imPin do (Sender as TImage).Picture := nil; begin Left := round(MapPanel.Width /2 -19); ilGametimeTabs.GetIcon(I+High(gtTabs)+1,(Sender as Top := round(MapPanel.Height /2 -68); TImage).Picture.Icon); end; break; TTMap; end; end; end; end; procedure TfrmMain.scaleMapMouseLeave(Sender: TObject); //a coodináta lokátor nagyító ikonját procedure TfrmMain.igtTabSingleMouseLeave(Sender: elhagyva TObject); //játékid# lapfület elhagyva visszavált begin a kép //visszakicsinyíti a térképet var I : integer; with MapPanel do begin begin for I := 0 to High(gtTabs) do Anchors := [akBottom,akRight]; begin Parent := panelLoc; Width := 192;
79
Height := 192; Left := 9; Top := 101; end; with imPin do begin Left := round(MapPanel.Width /2 -19); Top := round(MapPanel.Height /2 -68); end; TTMap; end;
case GroupID of 0:begin //Calculator Clipboard.AsText := String(ReplaceStr(AnsiString(Caption),' ','')); end; 1:begin //Hiscores ToolPages.ActivePageIndex := 0; switchToTab(0); eUsername.Text := Caption; aHSLekerExecute(self); end; 2:begin //Combat procedure TfrmMain.searchBarChange(Sender: ToolPages.ActivePageIndex := 1; TObject); //gyorskeres# tartalmának változásakor switchToTab(1); beállítja eCmbUsername.Text := Caption; begin aCmbLekerExecute(self); //az "observernek" az id#t end; SearchKey := Now; 3:begin //GE Lookup end; ToolPages.ActivePageIndex := 2; switchToTab(2); procedure TfrmMain.searchBarKeyUp(Sender: TObject; geItemSearch.Text := Caption; var Key: Word; //gyorskeres# sáv tab vagy nyíl searchGE('"' + geItemSearch.Text + '"'); gombokra geFillMatches; Shift: TShiftState); end; //belenavigál a találati listában ha van 5:begin //Clan Lookup begin navigateURL(SubItems.Text); //ESC-re eltünteti end; if ((Key = VK_DOWN) or (Key = VK_TAB)) and 6:begin //LVL ((sbMatchPanel.Visible) or (SBList.Items.Count > Clipboard.AsText := 0)) then String(ReplaceRegExpr(' |XP',Caption,'',false)); begin end; if not sbMatchPanel.Visible then end; sbMatchPanel.Show; end; SBList.SetFocus; end; SBList.ItemIndex := 0; end procedure TfrmMain.SBResult(Sender: TObject); //a else if (sbMatchPanel.Visible) and (Key = gyorskeres# funkciói sorban VK_ESCAPE) then var val:double; begin sText,lvlText : string; sbMatchPanel.Hide; I,itemCount:integer; end; R: TSmallpoint; end; world, lvl : boolean; begin procedure TfrmMain.SBListDblClick(Sender: TObject); //gyorskeres# találati listában való lvl := False; kattintásra begin if sbMatchPanel.Left = 0 then //az elemhez navigál with sbMatchPanel do if SBList.Selected <> nil then begin begin Left := 10; SBGotoItem; Top := 37; sbMatchPanel.Hide; end; end; end; if searchBar.Text <> '' then begin procedure TfrmMain.SBListExit(Sender: TObject); sText := searchBar.Text; //elrejti a gyors találati listát begin with SBList do sbMatchPanel.Hide; begin end; Items.Clear; procedure TfrmMain.SBListKeyDown(Sender: TObject; world := ExecRegExpr('^world[\d^ var Key: Word; //gyors találati listában ]{0,3}|^w[\d^ ]{1,3}',LowerCase(sText)); Shift: TShiftState); //ESC-re kilép // Calculator method begin val := Calculate(sText); //enterre az elemhez navigál if (valid) and (not world) then if Key = VK_ESCAPE then begin sbMatchPanel.Hide with Items.Add do else if Key = VK_RETURN then begin begin GroupID := 0; SBGotoItem; ImageIndex := 2; sbMatchPanel.Hide; if not isInteger(FloatToStr(val)) then end begin else if (Key = VK_TAB) and (SBList.Items.Count-1 Caption := Format('%n',[val]); > SBList.ItemIndex) then //tabra válogat end begin else SBList.ItemIndex := SBList.ItemIndex + 1; begin end; Caption := Format('%.0n',[val]); end; end; procedure TfrmMain.SBGotoItem; //kiválasztott elemt#l függ#en elvégzi begin // a navigálási m"veletet with SBList.Selected do begin
//
end; end; Calculator method END if RSN(sText) then begin
if (not world) and (ExecRegExpr('^lvl end; [\d]{1,2}$',sText)) and (isInteger(ReplaceRegExpr('lvl ',sText,'',false))) // Combat method END and (StrToInt(ReplaceRegExpr('lvl ',sText,'',false)) > 0) then // Grand Exchange method begin if (Length(sText) > 2) and (not valid) and lvl := True; (settingsFrm.cSettingsFastSearch.Checked[2]) and (not world) and (not lvl) then with Items.Add do begin begin with Items.Add do GroupID := 6; begin Caption := Format('%.0n GroupID := 3; XP',[(lvls[StrToInt(ReplaceRegExpr('lvl ImageIndex := 3; ',sText,'',false))] + 0.0)]); Caption := sText; end; end; end else if (not world) and (ExecRegExpr('^lvl',sText)) then begin with Items.Add do begin GroupID := 6; Caption := 'lvl {szint}'; end; end; //
LVL END
//
Hiscores method if (RSN(sText)) and (settingsFrm.cSettingsFastSearch.Checked[0]) and (not world) and (not lvl) then begin
getItemMatch(sText); itemCount := High(itemMatches); if itemCount > 10 then itemCount := 10; for I := 0 to itemCount do begin if sText <> LowerCase(string(itemMatches[I])) then with Items.Add do begin GroupID := 3; ImageIndex := 3; Caption := string(itemMatches[I]); end; end; end; //
with Items.Add do begin GroupID := 1; ImageIndex := 0; Caption := sText; end; for I := 0 to Length(userMatches) - 1 do begin if sText <> LowerCase(string(userMatches[I])) then with Items.Add do begin GroupID := 1; ImageIndex := 0; Caption := string(userMatches[I]); end; end;
//
end; Hiscores method END
//
Combat method if (RSN(sText)) and (settingsFrm.cSettingsFastSearch.Checked[1]) and (not world) and (not lvl) then begin with Items.Add do begin GroupID := 2; ImageIndex := 1; Caption := sText; end; for I := 0 to Length(userMatches) - 1 do begin if sText <> LowerCase(string(userMatches[I])) then with Items.Add do begin
Grand Exchange method
END
//
World Lookup method if (world) and (ReplaceRegExpr('^world|^w| ',sText,'',true) <> '') and (settingsFrm.cSettingsFastSearch.Checked[3]) and (not worldData.dataRequest.Connected) then begin sText := ReplaceRegExpr('^world|^w',sText,'',true); getWorldList; if ExecRegExpr('^ ([p2f]{3}) ([higlow]{3,4})( pvp)?',sText) then begin addWorldToList(getWorldByCondition(sText),Items); end else if isInteger(sText) then for I := 0 to High(worldList) do begin if worldList[I].number = strToInt(sText) then begin addWorldToList(worldList[I],Items); end; end; end else if (ExecRegExpr('^world|^w',sText)) and (settingsFrm.cSettingsFastSearch.Checked[3]) and (not worldData.dataRequest.Connected) then begin with Items.Add do begin GroupID := 4; ImageIndex := 5; Caption := 'world/w {száma}'; end; with Items.Add do begin GroupID := 4; ImageIndex := 5; Caption := 'world/w f2p/p2p high/low {pvp}'; end; end;
81
//
World Lookup method END
//
Clan Lookup if (Length(sText) > 1) and (not clanLists.isonWork) and (settingsFrm.cSettingsFastSearch.Checked[4]) and (not lvl) then begin searchClan(sText); for I := 0 to High(clanMatch) do begin with Items.Add do begin GroupID := 5; ImageIndex := -1; Caption := clanMatch[I].name; SubItems.Add(clanMatch[I].memberlURL); end; end; end; // Clan Lookup END if(Items.Count < 1 ) then sbMatchPanel.Hide else begin sbMatchPanel.ClientHeight:= (16*Items.Count) + (36 * Groups.Count); sbMatchPanel.Show; end; BringToFront; end;
GroupID := 4; ImageIndex := 23; Caption := 'PVP'; end; end; end; function TfrmMain.RSN(rsNick:string):boolean; //a megadott szövegr#l visszaadja, hogy hisszúság var I, nickLen : integer; //és tartalmazott karakterek alapján érvényes valid : boolean; //runescape karakternév-e az. visszatérési értéke boolean begin valid := true; rsNick := LowerCase(rsNick); nickLen := Length(rsNick); if (nickLen < 3) or (nickLen > 12) then valid := false; if valid then for I := 1 to nickLen do begin case rsNick[I] of 'a'..'z','0'..'9','_',' ': valid := true; else valid := false; end; if not valid then break; end;
end else if sbMatchPanel.Visible then sbMatchPanel.Hide; end;
result := valid;
procedure TfrmMain.addWorldToList(world : TWorld; Items : TListItems); //world keresésnél beilleszt begin // a találati listába egy találatot if (world.number <> 0) and Assigned(Items) then begin with Items.Add do begin GroupID := 4; if world.p2p then ImageIndex := 5 else ImageIndex := 4; Caption := Format('World %d',[world.number]); end; with Items.Add do begin GroupID := 4; ImageIndex := 6+getFlagIndex(flagIndex,world.flag); Caption := Format('%d Játékos',[world.players]); end; with Items.Add do begin GroupID := 4; ImageIndex := -1; Caption := Format('Tevékenység: %s',[world.activity]); end; if world.lootshare then with Items.Add do begin GroupID := 4; ImageIndex := 22; Caption := 'Loot Share'; end; if world.quickchat then with Items.Add do begin GroupID := 4; ImageIndex := 24; Caption := 'Quick Chat'; end; if world.pvp then with Items.Add do begin
end; procedure TfrmMain.RuneScapeKezdlap1Click(Sender: TObject); //menüelemre való kattintással vissza megy a runescape kezd#lapra a begin //játékböngész#ben, el#bb megkérdezi if MessageBox(Handle,'Biztos, hogy elnavigálsz a játékról?','Játékterület',MB_YESNO) = IDYES then mozRSPlay.Navigate((Sender as TMenuItem).Hint); end; procedure TfrmMain.RuneScapeShow(Sender: TObject); //runescape lapfülre való váltáskor aktiválja a böngész#t begin mozRSPlay.SetFocus; end; procedure TfrmMain.sbClearClick(Sender: TObject); //gyorskeres# X-e kitörli a keresést begin searchBar.Text := ''; sbMatchPanel.Hide; end; procedure TfrmMain.setCmbStats(statsA : SkillsArry); //beállítja a combat skillek értékét a rekordban begin ! ! cmbSks.Attack := statsA[2].Lvl; ! cmbSks.Defence := statsA[3].Lvl; ! cmbSks.Strength := statsA[4].Lvl; ! cmbSks.Hitpoints := statsA[5].Lvl; ! cmbSks.Ranged := statsA[6].Lvl; ! cmbSks.Prayer := statsA[7].Lvl; ! cmbSks.Magic := statsA[8].Lvl; ! cmbSks.Summoning := statsA[25].Lvl; end; procedure TfrmMain.statLeker(username:string); //lekérdezi a runescape hiscoresb#l a user adatait begin //ha nincs akkor üres stringet állít be if(username <> '') then ! try adat := hsLeker.Get('http://hiscore.runescape.com/index_li te.ws?player='+username);
82
except ! on exception do begin adat := ''; end; end; end; function TfrmMain.inArray(ary : array of string; searchWhat : string) : integer; //megmondja, hogy a tömb tartalmazza-e var i, res : integer; // a keresett stringet, csak string arrayra m"ködik begin res := -1; for I := Low(ary) to High(ary) do begin if(ary[I] = searchWhat) then begin res := I; break; end; end; result := res; end; procedure TfrmMain.iResetStopWatchClick(Sender: TObject); //visszaállítja a stopper óra idejét begin stopWatchRun := False; timeStopWatch := 0; elapsedStopWatch := 0; iStartStopWatch.Picture := nil;
end; skullTimerRun := not skullTimerRun; end; procedure TfrmMain.iStartStopWatchClick(Sender: TObject); //stoppert állítja meg indítja el begin if timeStopWatch = 0 then timeStopWatch := Now else begin elapsedStopWatch := elapsedStopWatch + Now timeStopWatch; timeStopWatch := 0; end; stopWatchRun := not stopWatchRun; case stopWatchRun of false : begin iStartStopWatch.Picture := nil; watchBtnImages.GetBitmap(0,iStartStopWatch.Picture .Bitmap); end; true : begin iStartStopWatch.Picture := nil; watchBtnImages.GetBitmap(1,iStartStopWatch.Picture .Bitmap); end; end; end;
procedure TfrmMain.iStartTimerClick(Sender: TObject); //id#zít#t indítja állítja meg begin watchBtnImages.GetBitmap(0,iStartStopWatch.Picture case counterTimerRun of .Bitmap); false : begin lStopWatch.Caption := '00:00:00.000'; if (cTimerHour.ItemIndex <> 0) or end; (cTimerMinute.ItemIndex <> 0) or (cTimersecond.ItemIndex <> 0) then procedure TfrmMain.iStartGraveClick(Sender: begin TObject); //elindítja vagy megállítja a sír countTimerTo := visszaszámlálót StrToTime(Format('%d:%d:%d',[cTimerHour.ItemIndex, begin cTimerMinute.ItemIndex,cTimersecond.ItemIndex])); iStartGrave.Picture := nil; iStartTimer.Picture := nil; case graveTimerRun of false : begin
procedure TfrmMain.iWikiNavMouseLeave(Sender: TObject); //wiki el#re hátra navigálás ikont begin //elhagyva visszaáll a kép (Sender as TImage).Center := False; end; procedure TfrmMain.iWikiNavMouseEnter(Sender: TObject); //wiki el#re hátra navigálás ikon begin //fölé menve változik a kép (Sender as TImage).Center := True; end; procedure TfrmMain.iWikiForwardClick(Sender: TObject); //wiki keresés böngész#jében navigál el#re begin wikiBrowser.GoForward; end; procedure TfrmMain.iZybezCreditsMClick(Sender: TObject); //zybez kis bannerre kattintva oda navigálja begin //az alapértelmezett böngész#t navigateURL('http://www.zybez.net/'); end;
pzybezSearchSelect.Popup(lZybezSearchIn.ClientOrig in.X + (eZyzbezLookFor.Width div 2),lZybezSearchIn.ClientOrigin.Y + eZyzbezLookFor.Height); end; procedure TfrmMain.laDegKeyUp(Sender: TObject; var Key: Word; //cordináta lokátorban fok alapján való keresés Shift: TShiftState); var value: integer; begin if (Sender as TLabeledEdit).Text <> '' then begin value := StrToInt((Sender as TLabeledEdit).Text); if value < 0 then value := 0 else if value > 30 then value := 30; (Sender as TLabeledEdit).Text := IntToStr(value); TTAutocomplete(Sender);
if (Key = VK_DOWN) and (autocList <> nil) and (autocList.Visible) then begin autocList.SetFocus; procedure TfrmMain.Játékid#kShow(Sender: TObject); autocList.ItemIndex := 0; //játékid# lapfül els# megjelenítésekor end var I : integer; else if (autocList <> nil) and (Key = //lekéri a felhasználókat VK_ESCAPE) and (autocList.Visible = True) then begin begin if (not cgameTGraphUser.Enabled) and autocList.Hide; (cgameTGraphUser.Items.Count = 0) then end; begin gameTimeHandler.getGameTimeStart(nil); end; gameTimeHandler.fillList(cgameTGraphUser); if RHLoggedIn then end; begin for I := 0 to cgameTGraphUser.Items.Count do procedure TfrmMain.lCoordSearchClick(Sender: begin TObject); //koordináta lokátor keresés gombjára if cgameTGraphUser.Items.Strings[I] = user való kattintás then begin begin TTMap; cgameTGraphUser.ItemIndex := I; TTDescription; break; end; end; procedure TfrmMain.loMinKeyUp(Sender: TObject; var end; Key: Word; //koordináta lokátor perc alapján való end; keresés end; Shift: TShiftState); var value: integer; end; begin if (Sender as TLabeledEdit).Text <> '' then procedure TfrmMain.lselWikiClick(Sender: TObject); begin //wikik közötti váltás kiválasztott wiki alapján value := StrToInt((Sender as begin TLabeledEdit).Text); selWiki := (Sender as TImage).Tag; switchWiki; if value < 0 then value := 0 end; else if value > 60 then value := 60; procedure TfrmMain.switchWiki; //átváltja a wikik (Sender as TLabeledEdit).Text := ikonját kiválasztott és nem kiválasztott között IntToStr(value); var I : integer; TTAutocomplete(Sender); begin for I := 1 to High(wikiUri) do if (Key = VK_DOWN) and (autocList <> nil) and begin (autocList.Visible) then if I = selWiki then begin begin autocList.SetFocus; (FindComponent(Format('iselWiki%d',[I])) as autocList.ItemIndex := 0; TImage).Center := True; end end else if (autocList <> nil) and (Key = else VK_ESCAPE) and (autocList.Visible = True) then begin begin (FindComponent(Format('iselWiki%d',[I])) as autocList.Hide; TImage).Center := False; end; end; end; end; end; end; procedure TfrmMain.lZybezSearchInClick(Sender: TObject); //szörny-és tárgykeres# közti procedure TfrmMain.lResetGameTimeClick(Sender: begin TObject); //játékid# visszaállítás gombjára való // váltás popupját jeleníti meg kattintáskor
84
begin //feltölti a játékid#t ha van if (timeStart > 0) and (gameTimeElapsed > 0) then uploadGameTime; end;
if ExecRegExpr('^http:\/\/world[\d\w]{1,4}\.runescape \.com\/.*m[0,1]{1}$',mozRSPlay.LocationURL) then begin doc := mozRSPlay.Document as IHTMLDocument2; html := doc.all as IHTMLElementCollection; for i := 0 to html.length-1 do procedure TfrmMain.pGraveClick(Sender: TObject); begin //sír kiválasztásakor beállítja a képet és az id#t if ((html.item(i,'') as begin IHTMLElement).tagName = 'BODY') and SelectedGraveId := (Sender as TMenuItem).tag; (ExecRegExpr('m0$',mozRSPlay.LocationURL)) then iGraveImage.Picture := nil; begin (html.item(i,'') as graveImages.GetIcon(SelectedGraveId,iGraveImage.Pi IHTMLElement).setAttribute('style','overflow: cture.Icon); hidden;',1); iGraveImage.Hint := (Sender as end TMenuItem).Caption; else if ((html.item(i,'') as IHTMLElement).tagName = 'DIV') and setGraveTimer; ((html.item(i,'') as IHTMLElement).id = 'menubox') end; then begin procedure TfrmMain.pGraveTypesPopup(Sender: (html.item(i,'') as TObject); //bejelöli a kiválasztott sírt a IHTMLElement).setAttribute('style','display: popupban none;',1); var I : integer; break; begin end; for I := 0 to 13 do end; if SelectedGraveId = pGraveTypes.Items[I].Tag then with TRegExpr.Create do try pGraveTypes.Items[I].Checked := True Expression := else '^http:\/\/world[\d\w]{1,4}\.runescape\.com\/.*m([ pGraveTypes.Items[I].Checked := False; 0,1]{1})$'; end; if Exec(mozRSPlay.LocationURL) then rsStatus := StrToInt(Match[1]); procedure TfrmMain.setGraveTimer; //beállítja a finally kiválasztott sír idejét Free; begin end; case SelectedGraveId of 0..2:begin if gameStarted = 0 then lGraveTimer.Caption := '2:00'; gameStarted := Now; graveTimerTo := StrToTime('00:02:00'); end; elapsedTime.Enabled := True; 3:begin inGameT := True; lGraveTimer.Caption := '3:00'; end graveTimerTo := StrToTime('00:03:00'); else end; begin 4..11:begin inGameT := False; lGraveTimer.Caption := '4:00'; gameStarted := 0; graveTimerTo := StrToTime('00:04:00'); end; end; end; 12:begin lGraveTimer.Caption := '5:00'; procedure graveTimerTo := StrToTime('00:05:00'); TfrmMain.mozRSPlayNavigateComplete2(ASender: end; TObject; //játékra való navigáláskor end; const pDisp: IDispatch; var URL: OleVariant); end; //átirányítja azt begin procedure if TfrmMain.mozRSPlayBeforeNavigate2(ASender: ExecRegExpr('^http:\/\/www.runescape.com\/.*game\. TObject; //játékra való váltáskor megállítja a ws\?.*m=([0,1]{1})(&j=[0,1]{1})?$',mozRSPlay.Locat töltést ionURL) then const pDisp: IDispatch; var URL, Flags, begin TargetFrameName, PostData, mozRSPlay.Navigate(URL); Headers: OleVariant; var Cancel: WordBool); end; begin end; if ExecRegExpr('^http:\/\/www.runescape.com\/.*game\. procedure TfrmMain.mozRSPlayNewWindow2(ASender: ws\?.*m=([0,1]{1})(&j=[0,1]{1})?$',mozRSPlay.Locat TObject; var ppDisp: IDispatch; //új böngész# ionURL) then nyitását akadályozza meg begin var Cancel: WordBool); mozRSPlay.Stop; begin end; Cancel := True; end; end; procedure TfrmMain.mozRSPlayDocumentComplete(ASender: TObject; //játék betölt#dése után const pDisp: IDispatch; var URL: OleVariant); //elvégzi az oldalon a szükséges beállításokat var doc : IHTMLDocument2; //és eltárolja hogy f2p vagy p2p-e html : IHTMLElementCollection; //majd elindítja az órát i : integer; begin
procedure TfrmMain.mTextEditKeyDown(Sender: TObject; var Key: Word; //üres lapba való íráskor jelzi a változást Shift: TShiftState); //így majd mentésre kerül a tartalom begin textEditChanged := True; end; procedure TfrmMain.PanelSideExecute(Sender: TObject); //oldalsáv pozícióját váltja begin if panelRight.Align = alRight then
85
begin var mapW, mapH : integer; panelRight.Align := alLeft; laP, loP : integer; iSettings.WriteInteger('View','panelAlign',1); originX, originY : double; end begin else mapW := MapPanel.Width; begin mapH := MapPanel.Height; panelRight.Align := alRight; laP := -1; iSettings.WriteInteger('View','panelAlign',0); loP := 1; end; case lo.ItemIndex of 0: loP := -1; setShowingPanelDirection; 1: loP := 1; end; end; case la.ItemIndex of procedure 1: laP := -1; TfrmMain.panelSideSwitchMouseEnter(Sender: 0: laP := 1; TObject); //oldalsáv pozíció ikon end; begin panelSideSwitch.Picture := nil; with Coordinate do begin MenuStateImages.GetBitmap(1,panelSideSwitch.Pictur id := 0; e.Bitmap); loDeg := strToInt(self.loDeg.Text); end; loMin := strToInt(self.loMin.Text); lo := loP; procedure laDeg := strToInt(self.laDeg.Text); TfrmMain.panelSideSwitchMouseLeave(Sender: laMin := strToInt(self.laMin.Text); TObject);//oldalsáv pozíció ikon la := laP; begin end; panelSideSwitch.Picture := nil; originX := 1421 + ((strToInt(laDeg.Text) * 64) + MenuStateImages.GetBitmap(0,panelSideSwitch.Pictur (strToInt(laMin.Text) * 1.06)) * laP; e.Bitmap); originY := 1963 + ((strToInt(loDeg.Text) * 64) end; + (strToInt(loMin.Text) * 1.06)) * loP; iMap.Left := - round(originX - (mapW/2)); procedure TfrmMain.pAnouncementPaint(Sender: iMap.Top := - round(originY - (mapH/2)); TObject); //a lapfül sávon lév# üzenetet rajzolja end; ki, veszi le begin procedure TfrmMain.TTDescription; //megjeleníti a if screenshotTaken then koordináta leírását, ha van AnounceThis('A képerny#kép elkészült!') var I:integer; else if Length(anounceTimerText) > 0 then begin AnounceThis(anounceTimerText) for I := 0 to Length(coordList) - 1 do else begin AnounceThis(''); if (Coordinate.loDeg = coordlist[I].loDeg) and end; (Coordinate.loMin = coordlist[I].loMin) and (Coordinate.lo = coordlist[I].lo) and procedure TfrmMain.pCoordLocHide(Sender: TObject); (Coordinate.laDeg = coordlist[I].laDeg) and //koordináta lokátor kiegészít# lista (Coordinate.laMin = coordlist[I].laMin) and eltüntetésekor (Coordinate.la = coordlist[I].la) then begin begin if autocList <> nil then coordDesc.Caption := autocList.Hide; string(coordlist[I].desc); end; break; end procedure TfrmMain.pCoordLocShow(Sender: else TObject);//koordináta lokátor kiegészít# lista coordDesc.Caption := ''; felfedésekor end; var C:integer; begin end; if not mapLoaded then begin procedure TfrmMain.TTAutocomplete(Sender: try TObject); //koordináta lokátor kiegészít# listája iMap.Picture.Create.LoadFromFile('./images/' var I,value:integer; + iSettings.ReadString('Download','map','')); loV,laV:string; except on exception do begin ShowMessage('Térkép nem találaható.'); value := 1; end; if(autocList = nil) then C := 0; begin AssignFile(coordFile, './coord.dat'); autocList := TListBox.Create(self); FileMode := fmOpenRead; with autocList do Reset(coordFile); begin while not Eof(coordFile) do Parent := panelLoc; begin Hide; SetLength(coordList,length(coordlist)+1); Width := 207; Read(coordFile, Coordinate); Left := 1; coordList[C] := Coordinate; BevelInner := bvNone; inc(C); BevelOuter := bvNone; end; onExit := TTAutocDestr; CloseFile(coordFile); OnKeyDown := TTAutocFill; OnDblClick := TTAutocFillDblClick; mapLoaded := True; Font.Name := 'Terbuchet MS'; TTMap; end; end; end; end; procedure TfrmMain.TTMap; pozícióját a kereséshez
//beállítja a térkép
with autocList do begin
86
Top := (Sender as TLabeledEdit).Top + (Sender as TLabeledEdit).Height; Items.Clear;
(Sender as TListBox).Hide; end;
procedure TfrmMain.TTAutocFill(Sender: TObject; var Key: Word; //feltölti a koordináta listát Shift: TShiftState); var selId, I :integer; begin if(Key = VK_RETURN) then begin selId := integer((Sender as TListBox).Items.Objects[(Sender as TListBox).ItemIndex]); try for I := 0 to Length(coordList) - 1 do begin if coordList[I].id = selID then begin loDeg.Text := IntToStr(coordList[I].loDeg); loMin.Text := IntToStr(coordList[I].loMin); laDeg.Text := IntToStr(coordList[I].laDeg); laMin.Text := [coordList[I].loDeg,coordList[I].loMin,loV,coordLi IntToStr(coordList[I].laMin); st[I].laDeg,coordList[I].laMin,laV]),TObject(coord case coordList[I].la of List[I].id)); -1 : la.ItemIndex := 1; end; 1 : la.ItemIndex := 0; end; if(Items.Count < 1 ) then case coordList[I].lo of Hide 1 : lo.ItemIndex := 1; else -1 : lo.ItemIndex := 0; Show; end; BringToFront; end; end; end; finally end; TTAutocDestr(Sender); lCoordSearchClick(self); procedure TfrmMain.ToolPagesChanging(Sender: end; TObject; var AllowChange: Boolean); //lapfül end váltáskor elrejti a else if (Key = VK_ESCAPE) then begin TTAutocDestr(Sender); //név listát end; userNameList.Hide; end; procedure TfrmMain.ProxySettings; //alkalmazza a proxy beállításokat ha vannak procedure TfrmMain.TTAutocFillDblClick(Sender : begin TObject); //koordináta találati listában if(settingsFrm.sProxy.Checked = True) then var selId, I :integer; begin // való kattintásra megmutajta azt hsLeker.ProxyParams.ProxyServer := begin settings.iSettings.ReadString('Proxy','sProxyAddre selId := integer((Sender as ss',''); TListBox).Items.Objects[(Sender as hsLeker.ProxyParams.ProxyPort := TListBox).ItemIndex]); StrToInt(settings.iSettings.ReadString('Proxy','sP try roxyPort','')); for I := 0 to Length(coordList) - 1 do end begin else if coordList[I].id = selID then begin begin hsLeker.ProxyParams.ProxyServer := ''; loDeg.Text := hsLeker.ProxyParams.ProxyPort := 0; IntToStr(coordList[I].loDeg); end; loMin.Text := end; IntToStr(coordList[I].loMin); laDeg.Text := procedure TfrmMain.pWatchesShow(Sender: TObject); IntToStr(coordList[I].laDeg); //id#zít#k els# megjelenítésekor beállítja a laMin.Text := var I : integer; IntToStr(coordList[I].laMin); //az id# listákat case coordList[I].la of begin -1 : la.ItemIndex := 1; if cTimerHour.Items.Count = 0 then 1 : la.ItemIndex := 0; begin end; for I := 0 to 23 do case coordList[I].lo of cTimerHour.Items.Add(Format('%.2d',[I])); 1 : lo.ItemIndex := 1; cTimerHour.ItemIndex := 0; -1 : lo.ItemIndex := 0; end; end; if cTimerMinute.Items.Count = 0 then end; begin end; for I := 0 to 59 do finally cTimerMinute.Items.Add(Format('%.2d',[I])); TTAutocDestr(Sender); cTimerMinute.ItemIndex := 0; lCoordSearchClick(self); end; end; if cTimerSecond.Items.Count = 0 then end; begin for I := 0 to 59 do procedure TfrmMain.TTAutocDestr(Sender: TObject); cTimerSecond.Items.Add(Format('%.2d',[I])); //eltünteti a koordináta listát cTimerSecond.ItemIndex := 0; begin end; for I := 0 to Length(coordList) - 1 do begin case (Sender as TLabeledEdit).TabOrder of 1: value := coordList[I].loDeg; 4: value := coordList[I].laDeg; 2: value := coordList[I].loMin; 5: value := coordList[I].laMin; end; case coordList[I].lo of -1: loV := 'N'; 1: loV := 'S'; end; case coordList[I].la of -1: laV := 'W'; 1: laV := 'E'; end; if value = StrToInt((Sender as TLabeledEdit).Text) then AddItem(Format('%.2d deg. %.2d min. %s, %.2d deg. %.2d min. %s',
87
end;
type="text/css">'); TObject); //szörny-, és játékid# kiválasztását aplikálja htag.insertAdjacentHTML('beforeEnd','<script begin type="text/javascript">'); szrnyek1.Checked := True; break; trgyak1.Checked := False; end; end; end; 'i' : begin szrnyek1.Checked := False; end trgyak1.Checked := True; else end; if end; (ExecRegExpr('result\.html$',wikiBrowser.LocationU end; RL)) then begin procedure TfrmMain.pZybezSearchShow(Sender: for I := 0 to High(wikiHtmlList) do TObject); //szörny-, és tárgykeres# els# begin aktiválásakor htmlList := htmlList + '
'; if not Assigned(editForItem) then htmlList := '
' + begin IntToStr(Length(wikiHtmlList)) + ' találat. A editForItem := eZyzbezLookFor; keresett kifejezés: „' + eWikiSearch.Text + '”' + htmlList; end; ((wikiBrowser.Document as IHTMLDocument2).body end; as IHTMLElement).innerHTML := htmlList; end; procedure TfrmMain.ViewSettings; //nézet beállításokat aplikálja wikiBrowser.Show; begin end; case iSettings.ReadInteger('View','panelAlign',0) of procedure TfrmMain.wikiBrowserNewWindow2(ASender: 0 : panelRight.Align := alRight; TObject; //új böngész# kérésekor megnyitja az 1 : panelRight.Align := alLeft; oldalt end; var ppDisp: IDispatch; var Cancel: WordBool); //az alapértelmezettben, és megállítja a setShowingPanelDirection; folyamatot begin screenshotType := settingsFrm.cImageType.ItemIndex; ShellExecute(Handle, 'open', PChar(wikiBrowser.LocationURL),nil,nil, end; SW_SHOWNORMAL); Cancel := True; procedure TfrmMain.wikiBrowserBeforeNavigate2(ASender: end; TObject; //wiki keres# tölt# képét jeleníti meg const pDisp: IDispatch; var URL, Flags, procedure TfrmMain.aAboutUsExecute(Sender: TargetFrameName, PostData, TObject); //megjeleníti a névjegy ablakot Headers: OleVariant; var Cancel: WordBool); begin begin frmAbout.Show; if (ExecRegExpr('^http:\/\/|^file:\/\/',URL)) end; and (wikiBrowser.Visible) then wikiBrowser.Hide; procedure TfrmMain.aCmbLekerExecute(Sender: end; TObject); //combat kalkulátor lekérést indíjta el var I : integer; procedure const TfrmMain.wikiBrowserNavigateComplete2(ASender: shortSkill : array[0..7] of string = TObject; //Wiki keresésnél a megjelenítési ('Att','Str','Def','Hp','Rang','Pray','Mage','Sm') elemeket írja bele a kódba ; const pDisp: IDispatch; var URL: OleVariant); begin var I : integer; statLeker(eCmbUsername.Text); htag : IHTMLElement; if adat <> '' then htmlList, root : string; begin begin ! try ! ! cmbStats := StatSet(adat); if(ExecRegExpr('^http:\/\/wiki\.rshun\.hu|^http:\/ finally \/[\w]{2}\.wikipedia\.org|^http:\/\/runescape\.wik ! setCmbStats(cmbStats); ia\.com',wikiBrowser.LocationURL)) then end; begin aSetCmbBoxesExecute(self); GetDir(0,root); ! aCmbShowExecute(self); for I := 0 to ((wikiBrowser.Document as cmbUsrErrMsg.Caption := ''; IHTMLDocument2).all).length do end begin else htag := (((wikiBrowser.Document as begin IHTMLDocument2).all).item(I,'') as IHTMLElement); cmbUsrErrMsg.Caption := 'Nincs ilyen if (htag.tagName = 'HEAD') then karakter.'; begin for I := 2 to 8 do (FindComponent('e' + skills[I]) as htag.insertAdjacentHTML('beforeEnd','<style TEdit).Text := '1';
88
eSummoning.Text := '1'; eCmbLvl.Text := ''; eCmbLvl.Hint := 'Combat lvl||0'; for I := 0 to 7 do (FindComponent('eNext' + shortSkill[I]) as TEdit).Text := '-'; end; end; procedure TfrmMain.aCmbShowExecute(Sender: TObject); //megmutatja a combat szinteket var rem_w, rem_m, rem_r : Currency; attstr, defhp, praysum : integer; const ! base : double = 0.25; spec : double = 0.325; spec2 : double = 0.485; begin try ! ! cmbSks.Attack := StrToInt(eAttack.Text); ! cmbSks.Defence := StrToInt(eDefence.Text); ! cmbSks.Strength := StrToInt(eStrength.Text); ! cmbSks.Hitpoints := StrToInt(eHitpoints.Text); ! cmbSks.Ranged := StrToInt(eRanged.Text); ! cmbSks.Prayer := StrToInt(ePrayer.Text); ! cmbSks.Magic := StrToInt(eMagic.Text); ! cmbSks.Summoning := StrToInt(eSummoning.Text); finally combat; if cmbSks.cmb_lvl_f > 0 then begin eCmbLvl.Text := format('%f + %f' ,[cmbSks.cmb_lvl_f,cmbSks.cmb_lvl_p-cmbSks.cmb_lvl _f]); eCmbLvl.Hint := format('Combat lvl: %f',[cmbSks.cmb_lvl_p]) + '||0' end else begin eCmbLvl.Text := ' - '; eCmbLvl.Hint := ''; end; rem_w := ceil(cmbSks.cmb_lvl_p) - cmbSks.cmb_w; if rem_w = 0 then ! rem_w := 1; rem_m := ceil(cmbSks.cmb_lvl_p) - cmbSks.cmb_m; if rem_m = 0 then ! rem_m := 1; rem_r := ceil(cmbSks.cmb_lvl_p) - cmbSks.cmb_r; if rem_r = 0 then ! rem_r := 1; attstr := ceil(rem_w / spec); defhp := ceil(rem_w / base); praysum := ceil((rem_w*2) / base); if((attstr+cmbSks.Attack)<=99) then ! eNextAtt.Text := IntToStr(attstr) else eNextAtt.Text := '-'; if((defhp+cmbSks.Defence)<=99) then ! eNextDef.Text := IntToStr(defhp) else eNextDef.Text := '-'; if((attstr+cmbSks.Strength)<=99) then ! eNextStr.Text := IntToStr(attstr) else ! eNextStr.Text := '-'; if((defhp+cmbSks.Hitpoints)<=99) then ! eNextHp.Text := IntToStr(defhp) else ! eNextHp.Text := '-'; if((ceil(rem_r/spec2)+cmbSks.Ranged)<=99) then ! eNextRang.Text := IntToStr(ceil(rem_r / spec2)) else ! eNextRang.Text := '-'; if((ceil(rem_w/base)+cmbSks.Prayer)<=99) then begin
! if ((cmbSks.Prayer mod 2) = 0) or (praysum = 1) then ! ! eNextPray.Text := IntToStr(praysum) else ! eNextPray.Text := IntToStr(praysum-1); end ! else ! eNextPray.Text := '-'; if((ceil(rem_m/spec2)+cmbSks.Magic) <= 99) then ! eNextMage.Text := IntToStr(ceil(rem_m / spec2)) else ! eNextMage.Text := '-'; if((ceil(rem_w/base)+cmbSks.Summoning)<=99) then begin ! if ((cmbSks.Summoning mod 2) = 0) or (praysum = 1) then ! ! eNextSm.Text := IntToStr(praysum) else ! eNextSm.Text := IntToStr(praysum-1); end else eNextSm.Text := '-'; end; end; procedure TfrmMain.aFloatOnTopExecute(Sender: TObject); //applikálja a mindig felül beállítást begin //vagy leveszi azt if aFloatOnTop.Checked then begin self.FormStyle := fsNormal; aFloatOnTop.Checked := False; end else begin aFloatOnTop.Checked := True; self.FormStyle := fsStayOnTop; end; end; procedure TfrmMain.aFullscreenExecute(Sender: TObject); //teljes képerny#be teszi az ablakot begin //vagy visszaálltja rendesbe if aFullscreen.Checked then begin self.BorderStyle := bsSizeable; self.WindowState := wsNormal; aFullscreen.Checked := False; end else begin if self.WindowState = wsMaximized then self.WindowState := wsNormal; self.BorderStyle := bsNone; self.WindowState := wsMaximized; aFullscreen.Checked := True; end; end; procedure TfrmMain.aHelpContentExecute(Sender: TObject); //súgó tartalomjegyzéket nyitja meg begin frmSunHelp.Show; end; procedure TfrmMain.aHSLekerExecute(Sender: TObject); //hiscores lekérdezést indítja el, jeleníti meg var I : integer; begin statLeker(eUsername.Text); if adat <> '' then begin try stats := StatSet(adat); finally setCmbStats(stats); for I := 2 to 25 do begin
89
with (panelHS.FindChildControl('st_' + skills[I]) as TStaticText) do begin if stats[I].Lvl <> -1 then Caption := intToStr(stats[I].Lvl) else Caption := ' - '; Hint := skillHintText(I);
if (stats[I].NextLvl > stats[I].Xp) and (stats[I].Xp <> (-1)) then hText := hText + Format('Köv. Lvl: %.0n', [(stats[I].NextLvl + 0.0)] )+ #13#10;
combat(); if(stats[1].Lvl <> -1) then eTotal.Text := intToStr(stats[1].Lvl) else eTotal.Text := ' - '; eTotal.Hint := skillHintText(1); if cmbSks.cmb_lvl_f > 0 then begin eCombat.Text := format('%f + %f' ,[cmbSks.cmb_lvl_f,cmbSks.cmb_lvl_p-cmbSks.cmb_lvl _f]); eCombat.Hint := format('Combat lvl: %f',[cmbSks.cmb_lvl_p]) + '||0' end else begin eCombat.Text := ' - '; eCombat.Hint := ''; end; try searchUser(eUsername.Text); lClansIn.Caption := clansToString; except on exception do lClansIn.Caption := 'Nem megy a Runehead!'; end; hsUsrErrMsg.Caption := ''; end else begin for I := 2 to 25 do begin with (panelHS.FindChildControl('st_' + skills[I]) as TStaticText) do begin Caption := ' - '; Hint := ''; end; end; for I := 0 to High(stats) do begin with stats[I] do begin Rank := 0; Lvl := 0; Xp := 0; NextLvl := 0; Remainder := 0; end; end; eTotal.Text := ''; eTotal.Hint := ''; eCombat.Text := ' - '; eCombat.Hint := ''; lClansIn.Caption := ''; eUsername.Text := ''; hsUsrErrMsg.Caption := 'Nincs ilyen karakter.'; end; end; function TfrmMain.skillHintText(skid : integer):string; //skillek részletes adatait mutatja var hText:string; I : integer; begin I := skid; if stats[I].Lvl <> (-1) then
if (stats[I].Remainder > 0) and (stats[I].Xp <> (-1)) then hText := hText + Format('Maradék: %.0n', [(stats[I].Remainder + 0.0)] )+ #13#10; if stats[I].Rank <> (-1) then hText := hText + Format('Helyezés: %.0n', [(stats[I].Rank + 0.0)]) + #13#10; hText := hText + '|' + IntToStr(I); result := hText; end; procedure TfrmMain.setOneSkillData(stats : TOneSkill); //beállítja egy skill adatait begin if stats.Lvl > 0 then loneSkillName.Caption := Format('%s: %d',[stats.Name,stats.Lvl]) else loneSkillName.Caption := Format('%s: ',[stats.Name]); if stats.Xp > 0 then loneSkillxp.Caption := Format('%.0n', [(stats.Xp + 0.0)] ) else loneSkillxp.Caption := ' - '; if (stats.NextLvl > stats.Xp) and (stats.Xp <> (-1)) then loneSkillNextlvl.Caption := Format('%.0n', [(stats.NextLvl + 0.0)] ) else loneSkillNextlvl.Caption := ' - '; if (stats.Remainder > 0) and (stats.Xp <> (-1)) then loneSkillRemainder.Caption := Format('%.0n', [(stats.Remainder + 0.0)] ) else loneSkillRemainder.Caption := ' - '; if stats.Rank > 0 then loneSkillRank.Caption := Format('%.0n', [(stats.Rank + 0.0)]) else loneSkillRank.Caption := ' - '; end; procedure TfrmMain.oneSkillDetailShow(Sender : TObject); //megjeleníti a skill adatok panelt var st : TStaticText; begin st := (Sender as TStaticText); setOneSkillData(stats[st.Tag]); with pOneSkillData do begin Top := st.Top + st.Height; if (st.Left - 34 + Width) > panelHS.Width then Left := panelHS.Width - Width - 1 else Left := st.Left - 34; Show; BringToFront; end; end;
90
procedure TfrmMain.oneSkillDetailHide(Sender : TObject); //elrejti a skill adatok panelt begin pOneSkillData.Hide; end;
function strOrLine(str : string) : string; var EvHandler:TEventHandlers; dataRequest : TIdHTTP; monsterMatches : array of TMonsterMatch; editForMonster : TEdit; listForMonsters : tlistview;
procedure TfrmMain.navigateBookmark(Sender: TObject); //a menü elem hintjét megnyitja alapértelemeztt böngész#ben begin ShellExecute(Handle, 'open', PWideChar((Sender as TMenuItem).Hint),nil,nil, SW_SHOWNORMAL); end;
procedure TfrmMain.navigateURL(url: string); adott url-t megnyitja az alapértelmezett böngész#ben begin ShellExecute(Handle, 'open', PWideChar(url),nil,nil, SW_SHOWNORMAL); end;
//az procedure _construct; begin dataRequest := TIdHTTP.Create(nil); with dataRequest do begin Request.ContentType := 'application/x-www-form-urlencoded'; HandleRedirects := True; if iSettings.ReadBool('Proxy','sProxy',false) then begin ProxyParams.ProxyServer := iSettings.ReadString('Proxy','sProxyAddress',''); ProxyParams.ProxyPort := iSettings.ReadInteger('Proxy','sProxyPort',0); ConnectTimeout := 5000; end; OnWorkBegin := EvHandler.monsterSearchBegin; OnWorkEnd := EvHandler.monsterSearchEnd; end; end;
function strOrLine(str : string) : string; begin if Length(str) = 0 then result := '-' else result := str; end;
monsterdb unit monsterdb; (* Ez a unit végzi a szörny keresést. A keresett szörny adatait letölti, kifejti azokat egy REGEXP segítségével, majd egy típusos tömbben tárolja el, és így adja a program megjelenít# részének, a main formon/unitban. *) interface
procedure TEventHandlers.monsterSearchBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); begin if Assigned(editForMonster) then editForMonster.Enabled := False; if Assigned(listForMonsters) then listForMonsters.Enabled := False;
end; type TMonsterMatch = record link, img, name : string; members : boolean; combat, hp : integer; location : string; maxHit : integer; race : string; quest, nature, attackStyle, examine, drops, topDrops, tactic, notes : widestring; end; TEventHandlers = class procedure monsterSearchBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64); procedure monsterSearchEnd(ASender: TObject; AWorkMode: TWorkMode); end; procedure _construct; procedure searchForMonster(name : string); procedure getExactMonster(var monster : TMonsterMatch; link : string);
procedure TEventHandlers.monsterSearchEnd(ASender: TObject; AWorkMode: TWorkMode); begin if Assigned(editForMonster) then editForMonster.Enabled := True; if Assigned(listForMonsters) then listForMonsters.Enabled := True; end; procedure getExactMonster(var monster : TMonsterMatch; link : string); var data : widestring; begin if Length(link) > 10 then try data := dataRequest.Get(link); except on exception do begin ShowMessage('Nem megy a Zybez, próbáld kés#bb.'); data := ''; end; end; if Length(data) <> 0 then begin data := ReplaceRegExpr('([a-zA-Z0-9_ \(\)%\-'',\+\*]+)<\/a>',data,'$1',true);
