Akkunamoottori

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Mon Mar 09, 2009 5:35 pm

Jani wrote:Mutta tuo 21b ei käänny. :(

Valittaa kirjoituksesta. Huomaisiko joku ongelmaa?
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?
^^

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Akkunamoottori

Post by Jani » Mon Mar 09, 2009 5:44 pm

En ole.
Pitää kai vanhaa versiota :(.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Mon Mar 09, 2009 5:46 pm

Jani wrote:En ole.
Pitää kai vanhaa versiota :(.
No kokeile ladata uudestaan. Kaikilla muilla joilta olen kysynyt kääntyy ihan hyvin ja itselläni myös.
^^

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Akkunamoottori

Post by Jani » Mon Mar 09, 2009 5:54 pm

TheDuck wrote:
Jani wrote:En ole.
Pitää kai vanhaa versiota :(.
No kokeile ladata uudestaan. Kaikilla muilla joilta olen kysynyt kääntyy ihan hyvin ja itselläni myös.
Tehty... monesti...

Tyydyn ekaan versioon.
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Akkunamoottori

Post by nevssons » Mon Mar 09, 2009 6:18 pm

TheDuck wrote:Valitettavasti nevssonssin modaus ei ole yhteensopiva nykyisen kanssa :( Pienellä säädöllä kyllä saa toimivaksi ;)
Oota kaks sekkaa ;)
Koodarina kohtalainen, henkilönä vittumainen
Image

User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Akkunamoottori

Post by Viltzu » Mon Mar 09, 2009 7:34 pm

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. :P
Teenpäs minäkin pienen modauksen tähän. >:D

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Akkunamoottori

Post by nevssons » Mon Mar 09, 2009 7:52 pm

Dadadadaaaaaaaa!

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
ei kestä kiittä
Koodarina kohtalainen, henkilönä vittumainen
Image

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Mon Mar 09, 2009 9:39 pm

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

ChaosWorm: no jos teen jotain ikkunan piirtoon liittyvää niin DrawWindows() funktio muuttuu :) En mä tahallani tee yhteensopimattomia :D
Last edited by TheDuck on Mon Mar 09, 2009 10:21 pm, edited 1 time in total.
^^

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Akkunamoottori

Post by Awaclus » Mon Mar 09, 2009 10:07 pm

Tekeekö TheDuck tahallaan uuden, modauksen kanssa yhteensopimattoman version aina kun uusi, yhteensopiva modaus tulee?

Siistiltä näyttää. Uutta, bluescreenitöntä windowsia kehiin :)

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Akkunamoottori

Post by nevssons » Mon Mar 09, 2009 10:39 pm

Chaosworm wrote:Tekeekö TheDuck tahallaan uuden, modauksen kanssa yhteensopimattoman version aina kun uusi, yhteensopiva modaus tulee?

Siistiltä näyttää. Uutta, bluescreenitöntä windowsia kehiin :)
bluescreenin sijasta tulee MAV. Joku virhe on aina oltava.

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

Koodarina kohtalainen, henkilönä vittumainen
Image

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Mon Mar 09, 2009 11:44 pm

nevssons 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 8-)

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

User avatar
Dande
Active Member
Posts: 193
Joined: Tue Aug 28, 2007 4:30 pm

Re: Akkunamoottori

Post by Dande » Mon Mar 09, 2009 11:52 pm

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.

User avatar
nevssons
Devoted Member
Posts: 503
Joined: Sun Jan 13, 2008 6:02 pm

Re: Akkunamoottori

Post by nevssons » Tue Mar 10, 2009 3:43 pm

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:

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
Image

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Tue Mar 10, 2009 5:29 pm

Oh fuck, kiitos tuosta bugi-ilmoituksesta :) Lisään nykyiseen koodiin kanssa, niin seuraavassa versiossa on sitten korjattu :)
^^

User avatar
Feuer
Devoted Member
Posts: 520
Joined: Tue Jun 16, 2009 11:13 am
Contact:

Re: Akkunamoottori

Post by Feuer » Thu Apr 22, 2010 12:28 pm

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ä.
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Thu Apr 22, 2010 2:21 pm

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ä.
Tässä:

Code: Select all

Function WindowIsActive(_ID)
    If _ID = active_window Then Return 1 Else Return 0
EndFunction 
Lisäät tuon vaan sinne muiden akkunamottorin funktioiden perään niin toimii.
^^

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Akkunamoottori

Post by esa94 » Thu Apr 22, 2010 3:57 pm

TheDuck wrote:
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ä.
Tässä:

Code: Select all

Function WindowIsActive(_ID)
    If _ID = active_window Then Return 1 Else Return 0
EndFunction 
Lisäät tuon vaan sinne muiden akkunamottorin funktioiden perään niin toimii.
Korjaa myös itse paketti?

User avatar
TheDuck
Devoted Member
Posts: 632
Joined: Sun Aug 26, 2007 3:51 pm
Location: C:\Program Files\Tuusula\

Re: Akkunamoottori

Post by TheDuck » Thu Apr 22, 2010 4:28 pm

esa94 wrote:Korjaa myös itse paketti?
Katsoo nyt kun kerkeää / jaksaa
^^

User avatar
Feuer
Devoted Member
Posts: 520
Joined: Tue Jun 16, 2009 11:13 am
Contact:

Re: Akkunamoottori

Post by Feuer » Thu Apr 22, 2010 7:14 pm

Kiitän!
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG

Post Reply