'-------------------------------------------------
'für das profan²-homepage-forum angepaßt
'nach dem programm von lidos berlin "worthexe"
'lidos berlin
'http://www.lidos-berlin.de
'-------------------------------------------------
seterrorlevel 0

declare x1%,x2%,x3%,x4%,y1%,y2%,y3%,y4%,b1$,x1$,x2$,x3$,x0%,y0%,z1%,ok%,variante%,ende%,xpos%,ypos%,anzahl%,anz%,löse%,schlafe%,wort$,gesamt%,soviel%,i1$
declare bt0%,bt1%,bt2%,bt3%,bt4%,bt5%,bt6%,bt7%,bt8%,bt9%,bt10%,bt11%,bt12%,bt13%,bt14%,bt15%,wav%,a1%,a2%,a3%,a4%,var%,r1%,g1%,b1%,r2%,g2%,b2%,r3%,g3%,b3%,aaa%
dim% 100
dim$ 500

proc schlafe
let schlafe%=0
whilenot equ(schlafe%,1000)
inc schlafe%
wend
endproc
proc tauschen
parameters i1%,i2%,i0$
let i1$=add$(add$(mid$(list$(i2%),1,sub(i1%,1)),i0$),mid$(list$(i2%),add(i1%,1),sub(25,i1%)))
endproc
proc mauslinie
let wort$="!"
let x1%=div&(%mousex,15)
let y1%=div&(%mousey,15)
let xpos%=0
if lt(x1%,1)
return
elseif lt(y1%,1)
return
elseif gt(x1%,25)
return
elseif gt(y1%,20)
return
endif
let xpos%=x1%
let ypos%=y1%
if equ(sub(y0%,y1%),0)
if gt(x1%,x0%)
let x3%=sub(x1%,x0%)
let x1%=add(mul(x3%,15),12)
else
let x3%=sub(x1%,x0%)
let x1%=mul(x3%,15)
endif
let y1%=12
copybmp X2%,Y2% - x1%,y1% > X2%,Y2%;4
let wort$=""
if gt(xpos%,x0%)
let x3%=sub(x0%,1)
let z1%=0
whilenot z1%
inc x3%
case equ(x3%,xpos%):let z1%=1
let wort$=add$(wort$,mid$(list$(ypos%),x3%,1))
wend
else
let x3%=add(x0%,1)
let z1%=0
whilenot z1%
dec x3%
case equ(x3%,xpos%):let z1%=1
let wort$=add$(wort$,mid$(list$(ypos%),x3%,1))
wend
endif
schlafe
copybmp X2%,Y2% - x1%,y1% > X2%,Y2%;4
elseif equ(sub(x0%,x1%),0)
if gt(y1%,y0%)
let y1%=sub(y1%,y0%)
let y1%=add(mul(y1%,15),12)
else
let y1%=sub(y1%,y0%)
let y1%=mul(y1%,15)
endif
let x1%=12
copybmp X2%,Y2% - x1%,y1% > X2%,Y2%;4
let wort$=""
if gt(ypos%,y0%)
let y3%=add(ypos%,1)
let z1%=0
whilenot z1%
dec y3%
case equ(y3%,y0%):let z1%=1
let wort$=add$(mid$(list$(y3%),xpos%,1),wort$)
wend
else
let y3%=sub(ypos%,1)
let z1%=0
whilenot z1%
inc y3%
case equ(y3%,y0%):let z1%=1
let wort$=add$(mid$(list$(y3%),xpos%,1),wort$)
wend
endif
schlafe
copybmp X2%,Y2% - x1%,y1% > X2%,Y2%;4
elseif equ(sub(x1%,x0%),sub(y0%,y1%))
if lt(x0%,x1%)
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
dec y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
let wort$=""
let x3%=sub(x0%,1)
let y3%=add(y0%,1)
let z1%=0
whilenot z1%
dec y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let wort$=add$(wort$,mid$(list$(y3%),x3%,1))
wend
schlafe
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
dec y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
else
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
inc y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
let wort$=""
let x3%=add(x0%,1)
let y3%=sub(y0%,1)
let z1%=0
whilenot z1%
inc y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let wort$=add$(wort$,mid$(list$(y3%),x3%,1))
wend
schlafe
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
inc y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
endif
elseif equ(sub(x0%,x1%),sub(y0%,y1%))
if lt(x0%,x1%)
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
inc y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
let wort$=""
let x3%=sub(x0%,1)
let y3%=sub(y0%,1)
let z1%=0
whilenot z1%
inc y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let wort$=add$(wort$,mid$(list$(y3%),x3%,1))
wend
schlafe
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
inc y3%
inc x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
else
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
dec y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
let wort$=""
let x3%=add(x0%,1)
let y3%=add(y0%,1)
let z1%=0
whilenot z1%
dec y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let wort$=add$(wort$,mid$(list$(y3%),x3%,1))
wend
schlafe
let x3%=x0%
let y3%=y0%
let z1%=0
whilenot z1%
dec y3%
dec x3%
case equ(y3%,y1%):let z1%=1
let x4%=add(mul(x3%,15),2)
let y4%=add(mul(Y3%,15),2)
copybmp x4% ,y4% - 12,12 > x4%,y4%;4
wend
endif
endif
endproc
proc schreibeworte
case lt(anz%,1):return
let x1%=0
let x2%=20
let y1%=0
whilenot x1%
inc x2%
add y1%,15
case equ(x2%,add(anz%,20)):let x1%=1
wend
add y1%,17
UseBrush 1,@Rgb(31,31,31)
usepen 0,1,@Rgb(0,0,0)
Rectangle 414,14 - 416,y1%
UseBrush 1,@Rgb(r1%,g1%,b1%)
Rectangle 415,15 - 531,y1%
UsePen 0,1,@RGB(31,31,31)
line 412,12 - 533,12
line 412,12 - 412,add(y1%,1)
line 531,12 - 531,add(y1%,2)
UsePen 0,2,@RGB(15,15,15)
line 414,14 - 530,14
line 414,14 - 414,add(y1%,1)
line 533,14 - 533,add(y1%,2)
UseBrush 1,@Rgb(15,0,0)
usepen 0,1,@Rgb(15,0,0)
Rectangle 410,add(y1%,2) - 535,320
UsePen 0,1,@RGB(31,31,31)
line 412,y1% - 531,y1%
UsePen 0,2,@RGB(15,15,15)
line 413,add(y1%,2) - 531,add(y1%,2)
UseFont "System",14,0,1,0,0
TextColor @Rgb(r2%,g2%,b2%),-1
let x1%=0
let x2%=20
let y1%=0
whilenot x1%
inc x2%
add y1%,15
case equ(x2%,add(anz%,20)):let x1%=1
drawtext 420,y1%,list$(x2%)
wend
inc y1%
endproc
proc antworte
case equ(xpos%,0):return
case lt(anz%,1):return
let x1%=0
let x2%=0
let x3%=0
whilenot x1%
inc x2%
case equ(anz%,x2%):let x1%=1
if equ$(wort$,list$(add(20,x2%)))
usepen 0,1,rgb(0,0,31)
line add(mul(x0%,15),7),add(mul(y0%,15),7) - add(mul(xpos%,15),7),add(mul(ypos%,15),7)
dec anz%
let x3%=x2%
let x1%=1
endif
wend
if neq(x3%,0)
if neq(x3%,add(anz%,1))
let x3%=add(x3%,20)
let x1%=0
whilenot x1%
list$ x3% = list$(add(x3%,1))
case equ(x3%,add(anz%,20)):let x1%=1
inc x3%
wend
endif
case neq(anz%,0):schreibeworte
endif
endproc
proc maleaufgabe
schreibeworte
UseFont "System",14,0,1,0,0
TextColor @Rgb(r2%,g2%,b2%),-1
UseBrush 1,@Rgb(r1%,g1%,b1%)
usepen 0,1,@Rgb(0,0,0)
let x1%=0
let y1%=0
whilenot x1%
inc y1%
case equ(y1%,20):let x1%=1
let ypos% =mul(y1%,15)
let x2%=0
let y2%=0
whilenot x2%
inc y2%
case equ(y2%,25):let x2%=1
let x1$=mid$(list$(y1%),y2%,1)
if equ(löse%,1)
if neq$(x1$," ")
TextColor @Rgb(r3%,g3%,b3%),-1
let xpos% =mul(y2%,15)
if @equ$(x1$,"I")
DrawText add(xpos%,5),ypos%,x1$
elseif @equ$(x1$,"W")
DrawText add(xpos%,1),ypos%,x1$
elseif @equ$(x1$,"M")
DrawText add(xpos%,2),ypos%,x1$
else
DrawText add(xpos%,3),ypos%,x1$
endif
endif
else
case equ$(x1$," "):let x1$=chr$(add(rnd(26),65))
let xpos% =mul(y2%,15)
Rectangle xpos%,ypos% - add(xpos%,16),add(ypos%,16)
if @equ$(x1$,"I")
DrawText add(xpos%,5),ypos%,x1$
elseif @equ$(x1$,"W")
DrawText add(xpos%,1),ypos%,x1$
elseif @equ$(x1$,"M")
DrawText add(xpos%,2),ypos%,x1$
else
DrawText add(xpos%,3),ypos%,x1$
endif
endif
wend
wend
endproc
proc erstelleaufgabe
proc zufall
let z1%=add(rnd(variante%),1)
if equ(z1%,1)
let xpos%=rnd(sub(25,y3%))
let ypos%=rnd(20)
elseif equ(z1%,2)
let xpos%=add(rnd(sub(25,y3%)),y3%)
let ypos%=rnd(20)
elseif equ(z1%,3)
let xpos%=rnd(25)
let ypos%=add(rnd(sub(20,y3%)),y3%)
elseif equ(z1%,4)
let xpos%=rnd(25)
let ypos%=rnd(sub(20,y3%))
elseif equ(z1%,5)
let xpos%=rnd(sub(25,y3%))
let ypos%=add(rnd(sub(20,y3%)),y3%)
elseif equ(z1%,6)
let xpos%=add(rnd(sub(25,y3%)),y3%)
let ypos%=add(rnd(sub(20,y3%)),y3%)
elseif equ(z1%,7)
let xpos%=add(rnd(sub(25,y3%)),y3%)
let ypos%=rnd(sub(20,y3%))
elseif equ(z1%,8)
let xpos%=rnd(sub(25,y3%))
let ypos%=rnd(sub(20,y3%))
endif
inc xpos%
inc ypos%
endproc
proc rechne
let ok%=1
if equ(z1%,1)
let a1%=0
let a2%=0
let a3%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(ypos%),add(a3%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen add(a3%,a2%),ypos%,x2$
list$ ypos% = i1$
wend
endif
elseif equ(z1%,2)
let a1%=0
let a2%=0
let a3%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(ypos%),sub(a3%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen sub(a3%,a2%),ypos%,x2$
list$ ypos% = i1$
wend
endif
elseif equ(z1%,3)
let a1%=0
let a2%=0
let a3%=ypos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(sub(a3%,a2%)),xpos%,1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=ypos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen xpos%,sub(a3%,a2%),x2$
list$ sub(a3%,a2%) = i1$
wend
endif
elseif equ(z1%,4)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(add(a3%,a2%)),xpos%,1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen xpos%,add(a3%,a2%),x2$
list$ add(a3%,a2%) = i1$
wend
endif
elseif equ(z1%,5)
let a1%=0
let a2%=0
let a3%=ypos%
let a4%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(sub(a3%,a2%)),add(a4%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=ypos%
let a4%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen add(a4%,a2%),sub(a3%,a2%),x2$
list$ sub(a3%,a2%) = i1$
wend
endif
elseif equ(z1%,6)
let a1%=0
let a2%=0
let a3%=ypos%
let a4%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(sub(a3%,a2%)),sub(a4%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=ypos%
let a4%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen sub(a4%,a2%),sub(a3%,a2%),x2$
list$ sub(a3%,a2%) = i1$
wend
endif
elseif equ(z1%,7)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
let a4%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(add(a3%,a2%)),sub(a4%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
let a4%=xpos%
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen sub(a4%,a2%),add(a3%,a2%),x2$
list$ add(a3%,a2%) = i1$
wend
endif
elseif equ(z1%,8)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
let a4%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
let x3$=mid$(list$(add(a3%,a2%)),add(a4%,a2%),1)
if neq$(x3$," ")
if neq$(x2$,x3$)
let ok%=0
let a1%=1
endif
endif
wend
if equ(ok%,1)
let a1%=0
let a2%=0
let a3%=sub(ypos%,1)
let a4%=sub(xpos%,1)
whilenot a1%
inc a2%
case equ(a2%,y3%):let a1%=1
let x2$=mid$(x1$,a2%,1)
tauschen add(a4%,a2%),add(a3%,a2%),x2$
list$ add(a3%,a2%) = i1$
wend
endif
endif
endproc
usepen 0,2,rgb(15,15,15)
usebrush 1,rgb(15,0,0)
rectangle 50,50 - 350,90
UseFont "System",14,0,1,0,0
textcolor rgb(15,15,15),-1
drawtext 56,54,"erstelle eine neue Aufgabe"
textcolor rgb(31,31,31),-1
drawtext 55,53,"erstelle eine neue Aufgabe"
randomize
let x3% = add(rnd(sub(gesamt%,soviel%)),201)
let x1%=0
let x2%=x3%
let y1%=20
whilenot x1%
inc x2%
inc y1%
case equ(x2%,add(x3%,soviel%)):let x1%=1
list$ y1% = list$(x2%)
list$ add(y1%,100) = list$(x2%)
wend
let anzahl%=soviel%
let anz%=soviel%
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,20):let x1%=1
list$ x2%= "                         "
wend
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,soviel%):let x1%=1
let x1$=list$(add(x2%,20))
let y3%=len(x1$)
usepen 0,1,rgb(15,15,15)
usebrush 1,rgb(0,0,31)
rectangle 55,75 - add(div(mul(280,x2%),soviel%),55),85
let y1%=0
whilenot y1%
zufall
rechne
case equ(ok%,1):let y1%=1
wend
wend
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,20):let x1%=1
list$ add(x2%,100) = list$(x2%)
wend
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,soviel%):let x1%=1
list$ add(x2%,120) = list$(add(x2%,20))
wend
usepen 0,1,rgb(15,0,0)
usebrush 1,rgb(15,0,0)
rectangle 49,49 - 350,90
let löse%=0
case equ(bt2%,-2):let bt2%=-1
endproc
proc ladeworte
let gesamt%=0
let x1%=200
if lt(gesamt%,30)
let r1%=31
let g1%=31
let b1%=31
let r2%=0
let g2%=0
let b2%=0
let r3%=0
let g3%=0
let b3%=31
let soviel%=20
let variante%=4
let var%=2
list$ 201 ="GESTERN"
list$ 202 ="CANASTA"
list$ 203 ="MONTANA"
list$ 204 ="REZEPTE"
list$ 205 ="EINFALL"
list$ 206 ="DEUTSCH"
list$ 207 ="TYPISCH"
list$ 208 ="SORGEN"
list$ 209 ="BELLEN"
list$ 210 ="ALLEIN"
list$ 211 ="SELTEN"
list$ 212 ="KATZEN"
list$ 213 ="KAFFEE"
list$ 214 ="FERTIG"
list$ 215 ="WETTER"
list$ 216 ="HORROR"
list$ 217 ="GRUSEL"
list$ 218 ="SOMMER"
list$ 219 ="WINTER"
list$ 220 ="CLEVER"
list$ 221 ="FEHLER"
list$ 222 ="ZUFALL"
list$ 223 ="SELBER"
list$ 224 ="LIEBE"
list$ 225 ="SAGEN"
list$ 226 ="HEUTE"
list$ 227 ="KEINE"
list$ 228 ="LOGIK"
list$ 229 ="RADIO"
list$ 230 ="SAUER"
let gesamt%=30
endif
let bt12%=createbutton(%hwnd,"Editor",547,154,77,20)
let bt2%=createbutton(%hwnd,"Auflösung",547,250,77,20)
let bt10%=createbutton(%hwnd,"Linie",547,224,77,20)
let bt13%=-1
let bt14%=-1
let bt15%=-1
endproc
proc ladeaufgabe
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,20):let x1%=1
list$ x2% = list$(add(x2%,100))
wend
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,anzahl%):let x1%=1
list$ add(x2%,20) = list$(add(x2%,120))
wend
let anz% = anzahl%
endproc
proc hilfe01
UseBrush 1,@Rgb(15,0,0)
usepen 0,1,@Rgb(15,0,0)
Rectangle 400,10 - 542,330
usepen 0,1,@Rgb(0,0,0)
Rectangle 15,15 - 390,315
Rectangle 425,15 - 521,313
UseFont "Courier New",18,0,0,1,0
TextColor @RGB(0,31,15),-1
DrawText 20,15,list$(51)
TextColor @RGB(31,31,0),-1
DrawText 20,35,list$(52)
DrawText 20,50,list$(53)
DrawText 20,65,list$(54)
DrawText 20,80,list$(55)
DrawText 20,95,list$(56)
TextColor @RGB(0,31,31),-1
DrawText 20,115,list$(57)
DrawText 20,130,list$(58)
TextColor @RGB(31,31,0),-1
DrawText 20,150,list$(59)
DrawText 20,165,list$(60)
DrawText 20,180,list$(61)
DrawText 20,195,list$(62)
TextColor @RGB(0,31,31),-1
DrawText 20,215,list$(63)
TextColor @RGB(31,31,0),-1
DrawText 20,230,list$(64)
DrawText 20,245,list$(65)
DrawText 20,260,list$(66)
DrawText 20,275,list$(67)
DrawText 20,290,list$(68)
setfocus(%hwnd)
waitinput
if getfocus(bt0%)
if equ(löse%,1)
erstelleaufgabe
else
ladeaufgabe
endif
maleaufgabe
return
elseif getfocus(bt3%)
erstelleaufgabe
maleaufgabe
return
elseif getfocus(bt1%)
let ende%=1
return
endif
setfocus(%hwnd)
UseBrush 1,@Rgb(15,0,0)
usepen 0,1,@Rgb(0,0,0)
Rectangle 15,15 - 390,315
UseFont "Courier New",18,0,0,1,0
TextColor @RGB(0,31,15),-1
DrawText 20,15,"Was Sie über die Buttons wissen sollten:"
TextColor @RGB(31,31,0),-1
DrawText 20,35,"wiederhole - die gleiche Aufgabe erneut"
DrawText 20,50,"Aufgabe    - neu stellen, Spiel starten"
DrawText 20,65,"mischen    - des gesamten Datenbestandes"
TextColor @RGB(0,31,31),-1
DrawText 20,85, "x Worte    - müssen Sie finden"
if equ(var%,1)
DrawText 20,100,"leicht     - nur waagerechte Worte"
elseif equ(var%,2)
DrawText 20,100,"mittel     - waage- u. senkrechte Worte"
elseif equ(var%,3)
DrawText 20,100,"schwer     - beliebige Folge der Worte"
endif
DrawText 20,115,"Sound      - ist an oder aus"
textColor @RGB(31,31,0),-1
DrawText 20,135,"Editor     - für neue Suchworte"
TextColor @RGB(0,31,31),-1
DrawText 20,155,"Fläche     - verändert den Hintergrund"
DrawText 20,170,"Schrift    - verändert die Schrift"
DrawText 20,185,"Linie      - verändert die Markierung"
TextColor @RGB(31,31,0),-1
DrawText 20,205,"Auflösung  - der Aufgabe wird gezeigt"
DrawText 20,220,"Hilfe      - haben Sie ja gefunden"
DrawText 20,235,"Ende       - beendet Worthexe"
TextColor @RGB(0,31,15),-1
DrawText 20,265,list$(69)
DrawText 20,280,list$(70)
setfocus(%hwnd)
waitinput
if getfocus(bt0%)
if equ(löse%,1)
erstelleaufgabe
else
ladeaufgabe
endif
maleaufgabe
elseif and(equ(bt12%,-1),getfocus(bt15%))
destroywindow(bt6%)
destroywindow(bt5%)
let var%=3
let variante%=8
let soviel%=20
erstelleaufgabe
let bt2%=-2
let bt5%=createbutton(%hwnd,add$(str$(int(soviel%))," Worte"),547,84,77,20)
let bt6%=createbutton(%hwnd,"schwer",547,106,77,20)
maleaufgabe
elseif getfocus(bt1%)
let ende%=1
else
erstelleaufgabe
maleaufgabe
endif
endproc
list$ 51 ="Was Sie über "Worthexe" wissen sollten:"
list$ 52 ="Sie müssen Worte finden, die die Hexe in"
list$ 53 ="einem "Buchstabensalat" versteckt hat."
list$ 54 ="Diese Wörter können sich senkrecht, waa-"
list$ 55 ="gerecht, diagonal,  sowie auch entgegen-"
list$ 56 ="gesetzt im Spielfeld befinden."
list$ 57 ="Mancher Buchstabe kann auch mehrere Male"
list$ 58 ="benutzt werden, da sich Worte kreuzen."
list$ 59 ="Eine Liste der zu suchenden Worte finden"
list$ 60 ="Sie rechts neben dem Spielfeld. Wieviele"
list$ 61 ="Begriffe zu suchen sind, steht rechts im"
list$ 62 ="Button "x Worte"."
list$ 63 ="Und so funktioniert's:"
list$ 64 ="Den Anfangsbuchstaben anklicken, mit der"
list$ 65 ="gedrückten linken Maustaste bis zum let-"
list$ 66 ="zten Buchstaben ziehen. Loslassen!"
list$ 67 ="Das Wort ist durchgestrichen und gilt so"
list$ 68 ="als gefunden."
list$ 69 ="      Viel Spaß wünscht Ihnen"
list$ 70 ="           Lidos Berlin "
windowtitle "Worthexe"
WindowStyle 84
window div(sub(%maxx,640),2),add(div(sub(%maxy,480),2),60)-640,338
cls rgb(15,0,0)
ladeworte
UsePen 0,1,@RGB(31,31,31)
line 12,12 - 393,12
line 12,12 - 12,316
line 391,12 - 391,317
line 12,316 - 391,316
UsePen 0,2,@RGB(15,15,15)
line 14,14 - 390,14
line 14,14 - 14,314
line 393,14 - 393,318
line 13,318 - 391,318
let bt0%=createbutton(%hwnd,"wiederhole",547,12,77,20)
let bt1%=createbutton(%hwnd,"Ende",547,294,77,20)
let bt3%=createbutton(%hwnd,"Aufgabe",547,34,77,20)
let bt4%=createbutton(%hwnd,"mischen",547,56,77,20)
let bt5%=createbutton(%hwnd,add$(str$(int(soviel%))," Worte"),547,84,77,20)
if equ(var%,1)
let bt6%=createbutton(%hwnd,"leicht",547,106,77,20)
elseif equ(var%,2)
let bt6%=createbutton(%hwnd,"mittel",547,106,77,20)
elseif equ(var%,3)
let bt6%=createbutton(%hwnd,"schwer",547,106,77,20)
endif
let bt7%=createbutton(%hwnd,"Hilfe",547,272,77,20)
let bt8%=createbutton(%hwnd,"Fläche",547,180,77,20)
let bt9%=createbutton(%hwnd,"Schrift",547,202,77,20)
if equ(wav%,1)
let bt11%=createbutton(%hwnd,"Sound an",547,128,77,20)
else
let bt11%=createbutton(%hwnd,"Sound aus",547,128,77,20)
endif
UseFont "System",12,0,1,0,0
TextColor @RGB(15,15,15),-1
DrawText 554,314,"© A. Arzt"
let löse%=1
let ende%=0
erstelleaufgabe
maleaufgabe
case equ(ende%,1):end
whilenot ende%
setfocus(%hwnd)
waitinput
if mouse(15,15 - 390,315)
let x0%=div&(%mousex,15)
let y0%=div&(%mousey,15)
let x2%=add(mul(x0%,15),2)
let y2%=add(mul(y0%,15),2)
usecursor 1
while %mousepressed
copybmp X2%,Y2% - 8,8 > X2%,Y2%;4
mauslinie
copybmp X2%,Y2% - 8,8 > X2%,Y2%;4
wend
case lt(len(wort$),3):let wort$="!"
case neq(instr(" ",wort$),0):let wort$="!"
usecursor 0
case neq$(wort$,"!"):antworte
if equ(anz%,0)
if equ(löse%,0)
messagebox("Herzlichen Glückwunsch!","Auf zur nächsten Runde",48)
endif
erstelleaufgabe
maleaufgabe
endif
elseif getfocus(bt0%)
let löse%=0
ladeaufgabe
maleaufgabe
elseif getfocus(bt1%)
let ende%=1
elseif getfocus(bt2%)
ladeaufgabe
let löse%=1
maleaufgabe
elseif getfocus(bt3%)
erstelleaufgabe
maleaufgabe
elseif getfocus(bt4%)
randomize
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,gesamt%):let x1%=1
let x3%=add(rnd(gesamt%),1)
let x1$=list$(add(x2%,200))
list$ add(x2%,200) = list$(add(x3%,200))
list$ add(x3%,200) = x1$
wend
erstelleaufgabe
maleaufgabe
elseif getfocus(bt5%)
destroywindow(bt5%)
inc soviel%
case equ(soviel%,21):let soviel%=2
let bt5%=createbutton(%hwnd,add$(str$(int(soviel%))," Worte"),547,84,77,20)
erstelleaufgabe
maleaufgabe
elseif getfocus(bt6%)
destroywindow(bt6%)
inc var%
case equ(var%,4):let var%=1
case equ(var%,1):let variante%=2
case equ(var%,2):let variante%=4
case equ(var%,3):let variante%=8
if equ(var%,1)
let bt6%=createbutton(%hwnd,"leicht",547,106,77,20)
elseif equ(var%,2)
let bt6%=createbutton(%hwnd,"mittel",547,106,77,20)
elseif equ(var%,3)
let bt6%=createbutton(%hwnd,"schwer",547,106,77,20)
endif
erstelleaufgabe
maleaufgabe
elseif getfocus(bt7%)
hilfe01
elseif getfocus(bt8%)
add r1%,15
case equ(r1%,30):let r1%=31
if equ(r1%,46)
let r1%=0
add g1%,15
case equ(g1%,30):let g1%=31
if equ(g1%,46)
let g1%=0
add b1%,15
case equ(b1%,30):let b1%=31
case equ(b1%,46):let b1%=0
endif
endif
if equ(löse%,1)
erstelleaufgabe
else
ladeaufgabe
endif
maleaufgabe
elseif getfocus(bt9%)
add r2%,15
case equ(r2%,30):let r2%=31
if equ(r2%,46)
let r2%=0
add g2%,15
case equ(g2%,30):let g2%=31
if equ(g2%,46)
let g2%=0
add b2%,15
case equ(b2%,30):let b2%=31
case equ(b2%,46):let b2%=0
endif
endif
if equ(löse%,1)
erstelleaufgabe
else
ladeaufgabe
endif
maleaufgabe
elseif getfocus(bt10%)
add r3%,15
case equ(r3%,30):let r3%=31
if equ(r3%,46)
let r3%=0
add g3%,15
case equ(g3%,30):let g3%=31
if equ(g3%,46)
let g3%=0
add b3%,15
case equ(b3%,30):let b3%=31
case equ(b3%,46):let b3%=0
endif
endif
let löse%=1
ladeaufgabe
maleaufgabe
elseif getfocus(bt11%)
destroywindow(bt11%)
if equ(wav%,1)
let wav%=0
else
let wav%=1
endif
if equ(wav%,1)
let bt11%=createbutton(%hwnd,"Sound an",547,128,77,20)
else
let bt11%=createbutton(%hwnd,"Sound aus",547,128,77,20)
endif
schlafe
elseif and(equ(bt15%,-1),getfocus(bt12%))
clearlist
let x1%=0
let x2%=0
whilenot x1%
inc x2%
case equ(x2%,gesamt%):let x1%=1
let x1$=list$(add(x2%,200))
addstring x1$
wend
let x1$=str$(int(gesamt%))
let x1$=add$(add$("Editieren Sie Ihre Datenbank mit ",x1$)," Suchwörtern   (pro Zeile immer nur ein Wort!)")
if editbox(x1$,7)
let x1%=0
let x2%=0
whilenot gt(x1%,%getcount)
inc x1%
let x1$=upper$(listboxitem$(sub(x1%,1)))
case gt(len(x1$),10):let x1$="üü"
case lt(len(x1$),3):let x1$="üü"
case gt(x1%,1000):let x1$="üü"
case neq(instr(" ",x1$),0):let x1$="üü"
if neq$(x1$,"üü")
inc x2%
list$ add(x2%,200)=x1$
endif
wend
let gesamt%=x2%
endif
case gt(gesamt%,300):let gesamt%=300
case lt(gesamt%,32):let gesamt%=31
erstelleaufgabe
maleaufgabe
endif
wend
end