--[[ @title scryptiX.lua @chdk_version 1.4 @subtitle Im UniVersum fehlt a Byte! @subtitle Wo ist das? Sag was! @subtitle Ist es noch weit? @subtitle :...i....1....;....2....;....3....;....4.. @param s ??? >|< @default s 4 @param T Testschalter @default T 0 ]]-- if s then play_sound(1) end --if (s or 0)<0 then reboot("A/CHDK/SCRIPTS/scriptiX.Lua") end s=s or 4 t=1000 if scriptix~=nil or s==nil then lineal=... end if scriptix~=nil then lineal=lineal or [[3,9,2]] -- D,E,H,T,P,L,F,R,I,J,C,A,Z,G,W,U,Y=... if s==nil and lineal:find(")",1,1)==nil then dostr(0,stf([=[D,E,H,T,P,L,F,R,I,J,C,A,Z,G,W,U,Y=%s]=],lineal)) end print("D=",D," type:",type(D),pc,Li) print("E=",E,"H",H," ß",collectgarbage("count")) print("T",T,"P",P,"L",L,"F",F,"R",R,"I",I,"J",J,"C",C,"A",A,"Z",Z,"G",G,"W",W,"U",U) lineal=":...i....1....;....2....;....3....;....4....;....5....;....6....;....7....;...." if pc==nil then pc="| " else pc="0"..pc end local ex,ret=0,"" if isfile(D) then rC="-"; rem="--- "; print(pc,...) if D~=sX then local D,E=... if E==nil then prompt(t,D) else ex,ret=run(2,...); XXX=1 end k=getkey(z,D,ex or ret); if k<20 then XXX=t end end end if E==nil then D=nil end if D==nil then D=0 end --- 0=/LOGS/ if E==nil then E=0 end --- 2=>>.tXt; =anhängen --ext={".Lua",".bAs",".tXt",".baK",".Tmp",".lOg",".scX",".XxX",".xXx"} if H==nil then H=0 end --- Helfix if T==nil then T=0 end --- Testschalter if P==nil then P=0 end --- 0=>t*t; nur Suche&edit if L==nil then L=-3 end --- edit in_Zeile Nr. if F==nil then F=1 end --- edit out_Textsuche if R==nil then R=2 end --- 2=rems auswerten if I==nil then I=0 end --- *? Zeilen -"- if J==nil then J=0 end --- Vorsicht! if C==nil then C=0 end --- -= ReadOnly if A==nil then A=0 end --- 0=Ohne Zeilenummern if Z==nil then Z=t*t end --- =|0=crLf|-letzte if G==nil then G=0 end --- 0=LOG_get_exp_count().TXT if W==nil then W=4 end --- if U==nil then U=get_exp_count() end if XXX==nil then if UUU==nil then print("D",D,"E",E,"H",H,"T",T,"P",P,"L",L,"F",F,"R",R,"I",I,"ß",collectgarbage("count")) print("J",J,"C",C,"A",A,"Z",Z,"G",G,"W",W,"U",U,"Y",Y,":",type(Y)) end getkey(0,collectgarbage("count")) repeat ex,ret=xpcall(scriptix(),scriptix()) k=getkey(4002,ex or ret); P=1 until k<21 end--XXX else local F=T; collectgarbage() if T==nil then s=4 end -- Da ist Ixus230HS mangels Speichers schon aus dem Rennen... local gsub,err=loadfile("A/CHDK/SCRIPTS/scriptiX.Lua") if not gsub then error(err,2) getkey(0,collectgarbage("count")); s=t end if s< 0 then ex,ret=assert(gsub)(1,-1,0,T,1,-1,F,0,0,0,-1,1,0,10,8,0) elseif --<-RO! -- D,E,H,T,P, L,F,R,I,J,C,A,Z,G,W,U,Y s==0 then ex,ret=assert(gsub)(0,0,0,T,1, 1,F,2,1,0,0,0,0,0,3,0) elseif s==1 then ex,ret=assert(gsub)(0,0,0,T,1,-2,F,2,0,0,0,1,0,0,3,0) elseif s==2 then ex,ret=assert(gsub)(2,8,2,T,1,-2,F,0,0,0,0,0,0,10) elseif s==3 then ex,ret=assert(gsub)(1,1,0,T,1,-2,F,0,0,0,0,0,0) elseif s==4 then ex,ret=assert(gsub)("scriptIX.Lua","feRtiX.Lua",-1,T,1,0,F,2,0,0,0,0,0,G,1,0) elseif s==5 then ex,ret=assert(gsub)("log_0042.tXt",1,-1,T,1, 1,F,2,1) elseif s