Offline |
Administrator |
|
Registriert: 30 Aug 2005, 19:42 Beiträge: 5306
Postleitzahl: 46047
Land: Deutschland
Wohnort: 46047 Oberhausen
|
Tach malsehn
Hört sich nicht so gut an mit "unangenehmen Pause", hoffe nichts ernstes.
Bei OS4.1 hab ich noch ein paar Sachen die ich noch einstellen muss, die mich aber im Moment nicht so stören, von daher hab ich das noch nach hinten geschoben.
Mit dem Vokabeltrainer hab ich noch weiter probiert, komm aber an der beschriebenen stelle, mit dem das das Hilfefenster erst versteckt ist und bei drücken auf dem Knopf erst sichbar wird nicht weiter. Hab da deinen Tip probiert mit dem "VISIBLE" nach "HIDDEN" tauschen, was aber so nicht funktioniert hat.
Da der Dateityp .hws nicht erlaubt ist häng ich das ganze hier als Code mal mit dran, ist nicht so schön, aber anders gehts im Moment wohl nicht. Sprech da Novamann nochmal drauf an, ob er das noch mit aufnehmen kann.
DebugPrint(VktrainerFehler)
@INCLUDE "ScuiLib.hws"
@BGPIC 1, "flagge-BRD-GB.iff"
@BRUSH 1, "Knopf_start.iff"
@BRUSH 2, "Knopf_info.iff"
@BRUSH 3, "Knopf_über.iff"
@BRUSH 4, "Knopf_beenden.iff"
@BRUSH 6, "Knopf_startGB.iff"
@BRUSH 7, "Knopf_infoGB.iff"
@BRUSH 8, "Knopf_about.iff"
@BRUSH 9, "Knopf_quit.iff"
Global VER$ = "Vokabeltrainer V1.0"
/* clear variables */
Function p_ClearVars()
HollywoodHomepage$ = "http://www.airsoftsoftwair.de/"
HollywoodForum$ = "http://www.amiga-resistance.info/forum/viewforum.php?f=38"
HollywoodUserpage$ = "http://www.Amiga-Resistance.info/homepage/hollywood/index.html"
EndFunction
/* Start Vokabeltrainer */
;Function p_Start()
;EndFunction
Function p_InitWave()
deg = 0
w = GetAttribute(#BRUSH, 1, #ATTRWIDTH)
h = GetAttribute(#BRUSH, 1, #ATTRHEIGHT)
wp = w
w = w + maxwave * 2
cx = 1024 - w
cx = cx \ 2
cy = 768 - h
cy = cy \ 2
EndFunction
Function Sichtbar()
Local Check = scui.Get("Vokabelsicht")
If Check.Value = 0
scui.MultiSet({ "Vokbox2", "Hilfestatus" }, { Visible = #IFO_HIDDEN },1)
scui.RedrawObjects(1)
;DisplayBGPIC(1)
Else
scui.MultiSet({ "Vokbox2", "Hilfestatus" }, { Visible = #IFO_VISIBLE },0)
scui.RedrawObjects(1)
EndIf
EndFunction
Function Vokabeleingabe_Aenderung()
Local eingabe = scui.Get("Vokabeleingabe")
scui.Set("Hilfestatus", { Text = { Content = { Values = { " Du hast gerade das Wort [b]" ..eingabe.Value.. "[/b] eingegeben." }, Lines = 1 }}}, 1)
;scui.NewObject( #IFOCLASS_LABEL, "Statusanz", { x = 300, y = 120 }, { x = 200, y = 20 },
;{ Text = { Alignment = #TEXTALIGN_CENTER } },
;{ Values = { ""}, Lines = 1 } )
If eingabe.Value <Vokchka> 358) Then deg = 0
EndSelect
TextOut(1, 75, j, #LEFT, 0)
EndFunction
;-----Beginn Teil 1------ dank der Benutzung der Scripts von Andreas
sintable = {}
pi! = 3.141592
degrad! = pi! / 180
For i = 0 To 999 Do sintable[i] = Sin(i * degrad! * 2)
maxwave = 20
p_InitWave()
SetFillStyle(#FILLCOLOR)
SetFont("helvetica.font", 15)
SetFontColor($FFFFFF)
ta$ = "[b]Wer übt gerade Englischvokabeln ? [/b]"
TextOut(15, 50, ta$, #LEFT, 0)
SetFont("helvetica.font", 24)
Locate(250,46)
name$ = InKeyStr(#ALPHABETICAL, 15)
SetInterval(1, p_MainLoop, 1000/25) ; 25 fps
Ende = 1
InstallEventHandler({OnMouseUp = Function() Ende = ENDE + 1 EndFunction})
While Ende = 1
WaitEvent
Wend
; -----------Beginn Teil 2
ClearInterval(1)
Vokabel$ = {}
Punkte = 0
OpenFile(1,"Vokabeln.txt") ; laden einer txt-Datei in eine Zeile besteht aus 2 Elementen getrennt durch Pipe | in eine Tabelle
While Not Eof(1) ;
Vokabel$[z] = ReadLine(1)
z = z + 1
Wend
z = z - 1
CloseFile(1)
haupt2 ;Funktionen einbinden
haupt2a
/*%KEYDOWN(1)="A - Z"
%CODE
Label(ONKEYDOWN1)
quit=TRUE
Return */
/* displays about requester */
Function p_AboutD()
SystemRequest(VER$, VER$ .. " geschrieben von Helmut Haake", "OK")
EndFunction
Function p_About()
SystemRequest(VER$, VER$ .. " written by Helmut Haake", "OK")
EndFunction
/* displays info box */
Function p_Info()
SystemRequest(VER$, VER$ .. " läuft zurzeit...\n\nHollywoodhomepage: " .. Hollywoodhomepage$ .. "\nHollywoodForum: " .. HollywoodForum$ .. "\nHollywoodUserpage: " .. HollywoodUserpage$, "OK")
EndFunction
Function p_InfoGB()
SystemRequest(VER$, VER$ .. " is currently playing...\n\nHollywoodHomepage: " .. HollywoodHomepage$ .. "\nHollywoodForum: " .. HollywoodForum$ .. "\nHollywoodUserpage: " .. HollywoodUserpage$, "OK")
EndFunction
/* this is function that will be entered when an event occurs */
Function p_EventFunc(msg)
Switch msg.action
Case "OnMouseOver":
DisplayBrush(msg.id, msg.x, msg.y)
Case "OnMouseUp":
Switch msg.id
Case 1: p_Start()
Case 2: p_Info()
Case 3: p_AboutD()
Case 4: quit = True
Case 5: p_StartGB()
Case 7: p_InfoGB()
Case 8: p_About()
Case 9: quit = True
EndSwitch
EndSwitch
EndFunction
evttable = {OnMouseOver = p_EventFunc, OnMouseUp = p_EventFunc, OnMouseOut = p_EventFunc}
p_ClearVars()
MakeButton(1, #SIMPLEBUTTON, 150, 80, 105, 70, evttable) /* Knopf_start */
MakeButton(2, #SIMPLEBUTTON, 150, 220, 105, 70, evttable) /* Knopf_info */
MakeButton(3, #SIMPLEBUTTON, 150, 315, 105, 70, evttable) /* Knopf_über */
MakeButton(4, #SIMPLEBUTTON, 150, 450, 105, 70, evttable) /* Knopf_beenden */
MakeButton(6, #SIMPLEBUTTON, 550, 80, 105, 70, evttable) /* Knopf_startGB */
MakeButton(7, #SIMPLEBUTTON, 550, 220, 105, 70, evttable) /* Knopf_infoGB */
MakeButton(8, #SIMPLEBUTTON, 550, 315, 105, 70, evttable) /* Knopf_about */
MakeButton(9, #SIMPLEBUTTON, 550, 450, 105, 70, evttable) /* Knopf_quit */
DisplayBrush(1, 150,80)
DisplayBrush(2, 150,220)
DisplayBrush(3, 150,315)
DisplayBrush(4, 150,450)
DisplayBrush(6, 550,80)
DisplayBrush(7, 550,220)
DisplayBrush(8, 550,315)
DisplayBrush(9, 550,450)
/*
** Main loop
*/
While quit = FALSE
WaitEvent
Wend
End
_________________ Gruß Helmut
Amiga 2000, Amiga 500, Amiga One XE, Amiga One X5000
|
|