XProfan

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

09/30/09 ▲

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

}

10/01/09 ▲

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>

11/07/09 ▲

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

12/18/09 ▲

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>

01/18/10 ▲

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>

02/24/10 ▲

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

04/21/10 ▲

H.Brill

Profaninterne Icons Show, without its
names to know.
ex X3 (AddRes)

Declare lever ilist
Declare  Long x, y
ClearList
AddRes %hinstance, 14
x = 50
y = 50
Window 800, 600
ilist = Create("ImageList", 32, 32)

WhileLoop 0, GetCount(0) - 1

    ImageList("AddIcon", ilist, Create("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
    ' or directly with name (WhileLoop 0, GetCount(0) -1)
    'DrawIcon SubStr$(GetString$(0, &LOOP), 2, "|"), x, y

    If x > 500

        x = 50
        Inc y, 100

    Else

        Inc x, 100

    EndIf

EndWhile

WaitKey
DeleteObject ilist
End

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.

08/15/17 ▲

Sub-Topic: GridBOX too to date sort [...]

created.

10/15/17 ▲

Sub-Topic: Rätselspiel [...]

created.

11/05/17 ▲

H.Brill

Program, circa Klassenbilder or Images with Personen
with Tooltips To beschriften. too interestingly, if one
one Image with Artikeln (were) has, circa z.B. whom actually
Price view.