Logische Funktionen: Entriegelung bei Änderung

local Taster,Prop,Empf,Empfindlichkeit,erg,Alt,Neu local function initForm() local value form.addRow(2) form.addLabel({label="Taster wählen"}) form.addInputbox(Taster, true, function(value) Taster=value system.pSave("Taster",value) end) form.addRow(2) form.addLabel({label="Prop wählen"}) form.addInputbox(Prop, true, function(value) Prop=value system.pSave("Prop",value) end) form.addRow(2) form.addLabel({label="Empfindlichkeit"}) form.addIntbox(Empf,0,100,0,0,1,function(value) Empf=value Empfindlichkeit=Empf/100 system.pSave("Empf",value) end) end local function loop() if Taster and Prop and Empf then Neu=system.getInputsVal(Prop) if system.getInputsVal(Taster)==1 then Alt=system.getInputsVal(Prop) if erg then system.setControl(1,1,0) end end if math.abs(Neu-Alt)>Empfindlichkeit then if erg then system.setControl(1,-1,0) end end end end local function init() Taster=system.pLoad("Taster") Prop=system.pLoad("Prop") Empf=system.pLoad("Empf") or 1 Empfindlichkeit=Empf/100 erg = system.registerControl(1,"Schalter","C01") if erg then system.setControl(1,-1,0) end Alt=1 system.registerForm(1,MENU_MAIN,"Schalter",initForm) end return {init=init,loop=loop,author="Ich",version="0.01",name="Schalter"}