Minulla ainakin kääntyy? Ootko tehny esimerkkiin jotain lisäyksiä tai painanut vahingossa jotain näppäintä niin että jotain roskaa lisännyt sinne testikoodiin?Jani wrote:Mutta tuo 21b ei käänny.
Valittaa kirjoituksesta. Huomaisiko joku ongelmaa?
Akkunamoottori
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
^^
Re: Akkunamoottori
En ole.
Pitää kai vanhaa versiota .
Pitää kai vanhaa versiota .
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
No kokeile ladata uudestaan. Kaikilla muilla joilta olen kysynyt kääntyy ihan hyvin ja itselläni myös.Jani wrote:En ole.
Pitää kai vanhaa versiota .
^^
Re: Akkunamoottori
Tehty... monesti...TheDuck wrote:No kokeile ladata uudestaan. Kaikilla muilla joilta olen kysynyt kääntyy ihan hyvin ja itselläni myös.Jani wrote:En ole.
Pitää kai vanhaa versiota .
Tyydyn ekaan versioon.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Codegolf: 99 bottles of beer (oneliner) - Water map partition
Re: Akkunamoottori
Oota kaks sekkaaTheDuck wrote:Valitettavasti nevssonssin modaus ei ole yhteensopiva nykyisen kanssa Pienellä säädöllä kyllä saa toimivaksi
Koodarina kohtalainen, henkilönä vittumainen
Re: Akkunamoottori
Jani: Oletko laittanut uuden version tiedostot vanhojen tiedostojen päälle? En ole varma onko tällä väliä, mutta älä ylikirjoita vanhoja tiedostoja. Laita aivan eri kansioon.
Teenpäs minäkin pienen modauksen tähän. >:D
Teenpäs minäkin pienen modauksen tähän. >:D
Re: Akkunamoottori
Dadadadaaaaaaaa!
ei kestä kiittä
Code: Select all
Function DrawWindows(n = 0)
If currentid = 1 Then Return False
height = TextHeight("A")
For w.window = Each window
If n = 0 Then
//fill the area black
Color cbblack
If w\hidden=0 Then Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
If w\hidden=0 Then Box w\x,w\y,w\w,w\h,0
If w\hidden=0 Then Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
If w\hidden=1 Then Box w\x-2,w\y-2,w\w+4,TITLE_HEIGHT+3,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
If w\hidden=1 Then Box w\x-1,w\y-1,w\w+2,TITLE_HEIGHT+1,0
If w\hidden=0 Then Box w\x-1,w\y-1,w\w+2,w\h+2,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X buttonbox
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
Color cbdarkgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+2,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+3,w\y+2,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) Then DeleteWindow(w\ID)
EndIf
//hide / unhide button
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2-1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2-1
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 4, TITLE_HEIGHT / 4 * 2+1, 8, 0
EndIf
If MouseX() > w\x + w\w - (TITLE_HEIGHT * 2) And MouseX() < w\x + w\w - TITLE_HEIGHT And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 + 1-3, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 + 1-3
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 1+1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 - 1+1
If MouseUp(1) Then w\hidden = 1 : ClearMouse
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+3, w\y + TITLE_HEIGHT / 2 - 3, TITLE_HEIGHT / 4 * 2-1, 6, 0
If MouseUp(1) Then w\hidden = 0 : ClearMouse
EndIf
EndIf
If w\hidden = 0 Then DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
ElseIf n <> 0 Then
If w\ID = active_window Then
//fill the area black
Color cbblack
If w\hidden=0 Then Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
If w\hidden=0 Then Box w\x,w\y,w\w,w\h,0
If w\hidden=0 Then Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
If w\hidden=1 Then Box w\x-2,w\y-2,w\w+4,TITLE_HEIGHT+3,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
If w\hidden=1 Then Box w\x-1,w\y-1,w\w+2,TITLE_HEIGHT+1,0
If w\hidden=0 Then Box w\x-1,w\y-1,w\w+2,w\h+2,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
Color cbwhite
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X button
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
Color cbdarkgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+2,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+3,w\y+2,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) Then DeleteWindow(w\ID)
EndIf
//hide / unhide button
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2-1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2-1
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 4, TITLE_HEIGHT / 4 * 2+1, 8, 0
EndIf
If MouseX() > w\x + w\w - (TITLE_HEIGHT * 2) And MouseX() < w\x + w\w - TITLE_HEIGHT And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 + 1-3, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 + 1-3
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 1+1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 - 1+1
If MouseUp(1) Then w\hidden = 1 : ClearMouse
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+3, w\y + TITLE_HEIGHT / 2 - 3, TITLE_HEIGHT / 4 * 2-1, 6, 0
If MouseUp(1) Then w\hidden = 0 : ClearMouse
EndIf
EndIf
If w\hidden = 0 Then DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
EndIf
EndIf
Next w
If n = 0 Then DrawWindows(active_window)
EndFunction
Koodarina kohtalainen, henkilönä vittumainen
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
Akkunamoottori 0.52b ulkona! Alkaa pikkuhiljaa jo valmistua kokoversioksi...
ChangeLog:
- Uusi funktio, WindowDisableX()
- Uusi funktio, WindowVisible()
- Uusi funktio, WindowWidth()
- Uusi funktio, WindowHeight()
- Pientä hienosäätöä UpdateWindows() funktioon
- Yksi uusi esimerkki
Valitettavasti nevssons joutuu taas vähän modailemaan modiansa
ChaosWorm: no jos teen jotain ikkunan piirtoon liittyvää niin DrawWindows() funktio muuttuu En mä tahallani tee yhteensopimattomia
ChangeLog:
- Uusi funktio, WindowDisableX()
- Uusi funktio, WindowVisible()
- Uusi funktio, WindowWidth()
- Uusi funktio, WindowHeight()
- Pientä hienosäätöä UpdateWindows() funktioon
- Yksi uusi esimerkki
Valitettavasti nevssons joutuu taas vähän modailemaan modiansa
ChaosWorm: no jos teen jotain ikkunan piirtoon liittyvää niin DrawWindows() funktio muuttuu En mä tahallani tee yhteensopimattomia
Last edited by TheDuck on Mon Mar 09, 2009 9:21 pm, edited 1 time in total.
^^
Re: Akkunamoottori
Tekeekö TheDuck tahallaan uuden, modauksen kanssa yhteensopimattoman version aina kun uusi, yhteensopiva modaus tulee?
Siistiltä näyttää. Uutta, bluescreenitöntä windowsia kehiin
Siistiltä näyttää. Uutta, bluescreenitöntä windowsia kehiin
Re: Akkunamoottori
bluescreenin sijasta tulee MAV. Joku virhe on aina oltava.Chaosworm wrote:Tekeekö TheDuck tahallaan uuden, modauksen kanssa yhteensopimattoman version aina kun uusi, yhteensopiva modaus tulee?
Siistiltä näyttää. Uutta, bluescreenitöntä windowsia kehiin
Tänään en jaksa enää ruveta modailemaan modia.
EDIT:
Niin voistko kertoa mitä muutoksia drawwindow-komentoon tuli? Näin on helpompi alkaa tehdä.
EDIT: #2
Niin ja ennen kokoversion julkaisua, anna mun tehä siihen ulkoasu, niin näyttää PROlta
Koodarina kohtalainen, henkilönä vittumainen
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
DrawWindowiin tuli vähän joka puolelle lisäyksiä Ja kokoversion virallinen ulkoasu tulee olemaan tämä sama, ankea mustavalkoinen. Mutta tarkoituksena olisi, että kotisivuilta voisi ladata valmiita modauksia akkunamoottoriinnevssons wrote:EDIT:Niin voistko kertoa mitä muutoksia drawwindow-komentoon tuli? Näin on helpompi alkaa tehdä.
EDIT: #2
Niin ja ennen kokoversion julkaisua, anna mun tehä siihen ulkoasu, niin näyttää PROlta
^^
Re: Akkunamoottori
Kannattaisin pientä muutosta ID:n toteuttamiseen. Voisit luoda ID:n aina ConvertToIntegerillä, jolloin jokainen ikkuna saisi kyllä yksilöllisen tunnuksensa ja pääsisit eroon yhdestä globaalista muuttujasta. Lisäksi voisit tämän uuden ID:n avulla nostaa pikku funktioiden, kuten WindowX, toimintaa huomattavasti, kun konvertoisit tyypin suoraan ID:stä, eikä olisi näin ollen tarvetta käydä läpi kaikkia ikkunoita.
Ja yksi bugi:
Minulla on iso ikkuna, w1, joka peittää ikkunan w2, silloin kun w1 on valittuna. Jos nyt valitsen ikkunan w3 niin ikkuna w2 hyppää esiin ikkunan w1 takaa, jos w2 on luotu ikkunan w1 jälkeen.
Suosittelisin siirtämään aina aktiivisen ikkunan tyyppi-listan viimeiseksi, jolloin tuo bugi korjautuisi automaattisesti.
Ja yksi bugi:
Minulla on iso ikkuna, w1, joka peittää ikkunan w2, silloin kun w1 on valittuna. Jos nyt valitsen ikkunan w3 niin ikkuna w2 hyppää esiin ikkunan w1 takaa, jos w2 on luotu ikkunan w1 jälkeen.
Suosittelisin siirtämään aina aktiivisen ikkunan tyyppi-listan viimeiseksi, jolloin tuo bugi korjautuisi automaattisesti.
Re: Akkunamoottori
En jaksa tehdä enää uutta modausta, koska tuo modi on ihan yhteensopiva uusimman version kanssa.
EDIT:
Tässä muuten pari parannus ehdotusta:
-Ikkunan voisi aktivoida muualtakin kuin yläpalkista
-Ikkunaa ei voisi sammuttaa toisen ikkunan läpi (korjattu alla olevassa modissa) ja voin sanoa että ei tarvitse paljoa muokata että tämä onnistuu.
Tuossa tämä korjattu modi:
EDIT:
Tässä muuten pari parannus ehdotusta:
-Ikkunan voisi aktivoida muualtakin kuin yläpalkista
-Ikkunaa ei voisi sammuttaa toisen ikkunan läpi (korjattu alla olevassa modissa) ja voin sanoa että ei tarvitse paljoa muokata että tämä onnistuu.
Tuossa tämä korjattu modi:
Code: Select all
Function DrawWindows(n = 0)
If currentid = 1 Then Return False
height = TextHeight("A")
For w.window = Each window
If n = 0 Then
//fill the area black
Color cbblack
If w\hidden=0 Then Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
If w\hidden=0 Then Box w\x,w\y,w\w,w\h,0
If w\hidden=0 Then Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
If w\hidden=1 Then Box w\x-2,w\y-2,w\w+4,TITLE_HEIGHT+3,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
If w\hidden=1 Then Box w\x-1,w\y-1,w\w+2,TITLE_HEIGHT+1,0
If w\hidden=0 Then Box w\x-1,w\y-1,w\w+2,w\h+2,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X buttonbox
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
Color cbdarkgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+2,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+3,w\y+2,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) And w\ID=active_window Then DeleteWindow(w\ID)
EndIf
//hide / unhide button
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2-1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2-1
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 4, TITLE_HEIGHT / 4 * 2+1, 8, 0
EndIf
If MouseX() > w\x + w\w - (TITLE_HEIGHT * 2) And MouseX() < w\x + w\w - TITLE_HEIGHT And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 + 1-3, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 + 1-3
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 1+1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 - 1+1
If MouseUp(1) And w\ID=active_window Then w\hidden = 1 : ClearMouse
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+3, w\y + TITLE_HEIGHT / 2 - 3, TITLE_HEIGHT / 4 * 2-1, 6, 0
If MouseUp(1) And w\ID=active_window Then w\hidden = 0 : ClearMouse
EndIf
EndIf
If w\hidden = 0 Then DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
ElseIf n <> 0 Then
If w\ID = active_window Then
//fill the area black
Color cbblack
If w\hidden=0 Then Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
If w\hidden=0 Then Box w\x,w\y,w\w,w\h,0
If w\hidden=0 Then Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
If w\hidden=1 Then Box w\x-2,w\y-2,w\w+4,TITLE_HEIGHT+3,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
If w\hidden=1 Then Box w\x-1,w\y-1,w\w+2,TITLE_HEIGHT+1,0
If w\hidden=0 Then Box w\x-1,w\y-1,w\w+2,w\h+2,0
If w\hidden=0 Then Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
Color cbwhite
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X button
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
Color cbdarkgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+2,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbgreen
Box w\x+w\w+2-TITLE_HEIGHT-TITLE_HEIGHT+3,w\y+2,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) Then DeleteWindow(w\ID)
EndIf
//hide / unhide button
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2-1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2-1
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 4, TITLE_HEIGHT / 4 * 2+1, 8, 0
EndIf
If MouseX() > w\x + w\w - (TITLE_HEIGHT * 2) And MouseX() < w\x + w\w - TITLE_HEIGHT And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
If w\hidden = 0 Then
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 + 1-3, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 + 1-3
Line w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+2, w\y + TITLE_HEIGHT / 2 - 1+1, w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4 * 3+2, w\y + TITLE_HEIGHT / 2 - 1+1
If MouseUp(1) Then w\hidden = 1 : ClearMouse
Else
Box w\x + w\w - (TITLE_HEIGHT * 2) + TITLE_HEIGHT / 4+3, w\y + TITLE_HEIGHT / 2 - 3, TITLE_HEIGHT / 4 * 2-1, 6, 0
If MouseUp(1) Then w\hidden = 0 : ClearMouse
EndIf
EndIf
If w\hidden = 0 Then DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
EndIf
EndIf
Next w
If n = 0 Then DrawWindows(active_window)
EndFunction
Koodarina kohtalainen, henkilönä vittumainen
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
Oh fuck, kiitos tuosta bugi-ilmoituksesta Lisään nykyiseen koodiin kanssa, niin seuraavassa versiossa on sitten korjattu
^^
Re: Akkunamoottori
Onko projekti enää elossa?
Pitäisi saada selville josko ikkuna id:ltään X on aktiivinen. Moottori tunnistaa aktiivisen ikkunan, näkyy kirkkaampana kuin muut, mutta dokumentaation mukaan kirjasto ei tunne funktiota jolla kysyä tuota mitä sanoin viestin toisessa virkkeessä.
Pitäisi saada selville josko ikkuna id:ltään X on aktiivinen. Moottori tunnistaa aktiivisen ikkunan, näkyy kirkkaampana kuin muut, mutta dokumentaation mukaan kirjasto ei tunne funktiota jolla kysyä tuota mitä sanoin viestin toisessa virkkeessä.
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG
Blogi - Peräpohjola - MERPG
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Akkunamoottori
Tässä:Feuer wrote:Onko projekti enää elossa?
Pitäisi saada selville josko ikkuna id:ltään X on aktiivinen. Moottori tunnistaa aktiivisen ikkunan, näkyy kirkkaampana kuin muut, mutta dokumentaation mukaan kirjasto ei tunne funktiota jolla kysyä tuota mitä sanoin viestin toisessa virkkeessä.
Code: Select all
Function WindowIsActive(_ID)
If _ID = active_window Then Return 1 Else Return 0
EndFunction
^^
Re: Akkunamoottori
Korjaa myös itse paketti?TheDuck wrote:Tässä:Feuer wrote:Onko projekti enää elossa?
Pitäisi saada selville josko ikkuna id:ltään X on aktiivinen. Moottori tunnistaa aktiivisen ikkunan, näkyy kirkkaampana kuin muut, mutta dokumentaation mukaan kirjasto ei tunne funktiota jolla kysyä tuota mitä sanoin viestin toisessa virkkeessä.
Lisäät tuon vaan sinne muiden akkunamottorin funktioiden perään niin toimii.Code: Select all
Function WindowIsActive(_ID) If _ID = active_window Then Return 1 Else Return 0 EndFunction
Re: Akkunamoottori
Kiitän!
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG
Blogi - Peräpohjola - MERPG