XProfan

Source wurde am 26.09.2009 in die Babyklappe auf XProfan.Com abgelegt:
ENd7yY  <a href=http://fwsyfqtjdjwd.com/>fwsyfqtjdjwd</a>, [url=https://jipfmezqzxgb.com/]jipfmezqzxgb[/url], [link=https://pzmzfjbnmgee.com/]pzmzfjbnmgee[/link], https://jsapmlcdmoob.com/e>

26.09.2009 ▲

Source wurde am 30.09.2009 in die Babyklappe auf XProfan.Com abgelegt:
 {$cleq}
longs x,y
cls
long xx=width(hwnd),yy=height(hwnd),c
mcls xx,yy

whileLoop 0,200

    x[loop]=xx*0.5
    y[loop]=yy*0.5

wend

while 1

    startpaint -1
    cls
    usebrush 6,$FFAA00
    ellipse (mousex-30),(mousey-30) - (mousex+30),(mousey+30)

    whileLoop 0,sizeOf(x)-1

        x[loop]=x[loop]-2+rnd(5)
        y[loop]=y[loop]-2+rnd(5)
        setPixel x[loop]-cos(getTickCount*0.001)*30,y[loop]-sin(getTickCount*0.001)*30,loop

    wend

    endPaint
    mcopyBmp 0,0 - xx,yy > 0,0;0

wend

waitinput
end

30.09.2009 ▲

Source wurde am 01.10.2009 in die Babyklappe auf XProfan.Com abgelegt:
 {$cleq}
#include c:p00xlistbox.inc
cls
long xx=320,yy=240,c,d,p,cl,mx,my
long flies=lb.create()
long fliesToDie=lb.create()
mcls xx,yy

whileLoop 1

    flie.add(xx*0.5-100+loop,yy*0.5)

wend

long fliesDirtPic=create(hNewPic,xx,yy,$FFFFFF)
long bgPic=create(hPic,-1,1.bmp)
long tme=getTickCount+1000

while 1

    waitinput 1
    mx=mousex/width(hwnd)*xx
    my=mousey/height(hwnd)*yy

    if getTickCount>tme

        tme=tme+100
        //case getCount(flies)<50 : flie.add(rnd(xx),rnd(yy-50),0)
        case getCount(flies)<150 : flie.add(mx,my,0)

    endif

    settext hwnd,Fliegen: +str$(getCount(flies))+ Kollisionen: +str$(cl)
    cl=0
    c=getCount(fliesToDie)

    if c

        whileLoop c

            flie.die(val(getString$(fliesToDie,loop-1))-(loop-1))

        wend

        clearList fliesToDie

    endif

    startpaint -1
    cls
    usepen 0,,256
    usebrush 6,$FFAA00
    ellipse (mousex-30),(mousey-30) - (mousex+30),(mousey+30)
    usepen 0,,0
    line 0, (yy-10) - xx,(yy-10)
    drawPic fliesDirtPic,0,0;-1
    drawPic bgPic,0,0;-1

    whileLoop getCount(flies)

        p=flie.fly(loop)

    wend

    if mousepressed

        whileLoop getCount(flies)

            flie.localBang(loop,mx,my)

        wend

    endif

    endPaint
    mcopysizedBmp 0,0 - xx,yy > 0,0 - width(hwnd),height(Hwnd);0

wend

deleteObject fliesDirtPic
waitinput
end

dist(float x,y,xx,yy){

    float xd=xx-x
    float yd=yy-y
    return sqrt(xd*xd+yd*yd)

}

flie.localBang(long n,x,y){

    long h=val(getString$(flies,n-1))
    case dist(long(h,4),long(h,8),x,y)<30 : long h&,0=1

}

flie.add(long x,y,m){

    long h=globalAlloc(gPTR,16)
    long h&,0=m
    long h&,4=x
    long h&,8=y
    addstring(flies,str$(h))

}

flie.fly(long n){

    long 	h=val(getString$(flies,n-1)),
    m=long(h,0),
    x=long(h,4),
    y=long(h,8),
    ox=x,
    oy=y,
    c,d

    select m

        caseof 0

        x=x-1+rnd(3)
        y=y-1+rnd(3)

        if getPixel(x,y)==$FFFFFF

            long h&,4=x
            long h&,8=y

        else

            x=ox
            y=oy
            cl+

        endif

        setPixel x,y,256

        caseof 1

        if getPixel(x,y+1)==$FFFFFF

            y+
            long h&,8=y
            setPixel x,y,0
            long h&,12=long(h&,12)+3

        else

            long h&,12=long(h,12)*0.5

            if rnd(2)

                if getPixel(x-1,y+1)=$FFFFFF

                    x-
                    y+
                    long h&,12=long(h,12)+2

                elseif getPixel(x+1,y+1)=$FFFFFF

                    x+
                    y+
                    long h&,12=long(h,12)+2

                endif

            else

                if getPixel(x+1,y+1)=$FFFFFF

                    x+
                    y+
                    long h&,12=long(h,12)+2

                elseif getPixel(x-1,y+1)=$FFFFFF

                    x-
                    y+
                    long h&,12=long(h,12)+2

                endif

            endif

            ox=x
            oy=y
            long h&,4=x
            long h&,8=y
            long h&,12=long(h,12)-1

            if long(h,12)<1

                flie.ToDie(n)

            endif

            setPixel ox,oy,0

        endif

        /*c=getPixel(x,y)
        if (c==$FFFFFF)
        else
        if long(h,12)>6
        endif
        endif*/

    endSelect

}

flie.toDie(long n){

    addString(fliesToDie,str$(n))

}

flie.die(long n){

    long h=val(getString$(flies,n-1))
    long x=long(h,4),y=long(h,8)
    globalFree(h)
    deleteString(flies,n-1)
    startpaint fliesDirtPic
    setPixel x,y,0
    endPaint

}

01.10.2009 ▲

Source wurde am 07.11.2009 in die Babyklappe auf XProfan.Com abgelegt:
qxC1EQ  <a href=http://ewgsgkufwcki.com/>ewgsgkufwcki</a>, [url=https://utjseqofoowk.com/]utjseqofoowk[/url], [link=https://eallwftfuknk.com/]eallwftfuknk[/link], https://bnzjzusmrbzr.com/e>

07.11.2009 ▲

Source wurde am 18.12.2009 in die Babyklappe auf XProfan.Com abgelegt:
http://livven.bplaced.com/xda-devs/Pics/Colors.pnge>

18.12.2009 ▲

Source wurde am 18.01.2010 in die Babyklappe auf XProfan.Com abgelegt:
bATGo2  <a href=http://crlmoaqmjnsm.com/>crlmoaqmjnsm</a>, [url=https://zncstmhhxhbr.com/]zncstmhhxhbr[/url], [link=https://uvckrrxdiohh.com/]uvckrrxdiohh[/link], https://aledqrvmnugu.com/e>

18.01.2010 ▲

Source wurde am 24.02.2010 in die Babyklappe auf XProfan.Com abgelegt:
88X2V8  <a href=http://wiatgwbteciy.com/>wiatgwbteciy</a>, [url=https://hvyutrvgcodw.com/]hvyutrvgcodw[/url], [link=https://jkzlpggyzalz.com/]jkzlpggyzalz[/link], https://fxtnpsvkadqi.com/e>

24.02.2010 ▲

- page 3 -

Source wurde am 21.04.2010 in die Babyklappe auf XProfan.Com abgelegt:
ZNjr4X  <a href=http://jlcjzsfwyniy.com/>jlcjzsfwyniy</a>, [url=https://xlsfpbrpysyw.com/]xlsfpbrpysyw[/url], [link=https://ghkrkzebwqrm.com/]ghkrkzebwqrm[/link], https://ybsungdnogix.com/e>

21.04.2010 ▲

H.Brill

Profaninterne Icônes Montrer, sans en
Namen trop savons.
Ab X3 (AddRes)

Déclarer Handle ilist
Déclarer  Long x, y
ClearList
AddRes %HINSTANCE, 14
x = 50
y = 50
Fenêtre 800, 600
ilist = Créer("ImageList", 32, 32)

WhileLoop 0, GetCount(0) - 1

    ImageList("AddIcon", ilist, Créer("hIcon", $ Substr(GetString$(0, &LOOP), 2, "|")))

Endwhile

WhileLoop 0, GetCount(ilist) - 1

    DrawText x, y - 20, $ Substr(GetString$(0, &LOOP), 2, "|"), 0
    DrawIcon ImageList("GetIcon", ilist, &LOOP), x, y
    ' ou bien direct avec nom (WhileLoop 0, GetCount(0) -1)
    'DrawIcon Substr$(GetString$(0, &LOOP), 2, "|"), x, y

    Si x > 500

        x = 50
        Inc y, 100

    D'autre

        Inc x, 100

    EndIf

Endwhile

WaitKey
DeleteObject ilist
Fin

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

15.08.2017 ▲

Unterthema: Gridbox aussi pour date sortieren [...]

erzeugt.

15.10.2017 ▲

Unterthema: Rätselspiel [...]

erzeugt.

05.11.2017 ▲

H.Brill

Programme, um Klassenbilder ou bien Bilder avec Personen
avec Tooltips trop beschriften. aussi intéressant, si on
un Bild avec Artikeln (étions) hat, um z.B. den aktuellen
Preis anzuzeigen.