Кстате на счёт моего порнографического кода,думаю больше этого точно нет.1496 строк рабочего кода, и я в отличие от некоторых в них не путаюсь.
fond = Image.load("ms0:/psp/game/windows7/menu1/deskportpricomp2.png")
kontext1=Image.load ("ms0:/psp/game/windows7/menu1/kontext.png")
kontext2=Image.load ("ms0:/psp/game/windows7/menu1/kontext2.png")
podsvet=Image.load ("ms0:/psp/game/windows7/menu1/podsvet.png")
mycomputerd= Image.load("ms0:/psp/game/windows7/menu1/mycomputer(d).png")
podsvetvinchdickdpapka1= Image.load("ms0:/psp/game/windows7/menu1/podsvetvinchdickdpapka1.png")
podsvetvinchdickdeboot= Image.load("ms0:/psp/game/windows7/menu1/podsvetvinchdickdeboot.png")
podsvetvinchlev= Image.load("ms0:/psp/game/windows7/menu1/podsvetvinchlev.png")
kontextdiskd= Image.load("ms0:/psp/game/windows7/menu1/kontextdiskd.png")
papka1= Image.load("ms0:/psp/game/windows7/menu1/papka1.png")
papka2= Image.load("ms0:/psp/game/windows7/menu1/papka2.png")
papka3= Image.load("ms0:/psp/game/windows7/menu1/papka3.png")
ebot= Image.load("ms0:/psp/game/windows7/menu1/ebot.png")
kontextdgames= Image.load("ms0:/psp/game/windows7/menu1/kontextdgames.png")
netpapki= Image.load("ms0:/psp/game/windows7/menu1/netpapki.png")
neteboot= Image.load("ms0:/psp/game/windows7/menu1/neteboot.png")
podsvetmenu= Image.load("ms0:/psp/game/windows7/menu1/podsvetmenu.png")
znak= Image.load("ms0:/psp/game/windows7/menu1/znak.png")
podsvetmenu2= Image.load("ms0:/psp/game/windows7/menu1/podsvetmenu2.png")
podsvetmenu3= Image.load("ms0:/psp/game/windows7/menu1/podsvetmenu3.png")
podsvetmenu4= Image.load("ms0:/psp/game/windows7/menu1/podsvetmenu4.png")
logoscan=Image.load("ms0:/psp/game/windows7/menu1/logoscan.png")
function sansAccents (texte)
nomaffiche = string.gsub(texte, "й", "e")
nomaffiche = string.gsub(nomaffiche, "и", "e")
nomaffiche = string.gsub(nomaffiche, "а", "a")
nomaffiche = string.gsub(nomaffiche, "з", "c")
nomaffiche = string.gsub(nomaffiche, "к", "e")
nomaffiche = string.gsub(nomaffiche, "о", "i")
nomaffiche = string.gsub(nomaffiche, "Ђ", "E")
nomaffiche = string.gsub(nomaffiche, "с", "n")
nomaffiche = string.gsub(nomaffiche, "щ", "u")
return nomaffiche
end
Selecteur1 = 1
SelecteurDir1 = 3
System.currentDirectory("ms0:/psp/game/windows7/deskport/1")
Fichiers = System.listDirectory()
comput= sansAccents(Fichiers[SelecteurDir1 ].name)
Selecteur2 = 1
SelecteurDir2 = 3
System.currentDirectory("ms0:/psp/game/windows7/deskport/2")
Fichiers = System.listDirectory()
corzina= sansAccents(Fichiers[SelecteurDir2 ].name)
Selecteur3 = 1
SelecteurDir3 = 3
System.currentDirectory("ms0:/psp/game/windows7/computer")
Fichiers = System.listDirectory()
compot= sansAccents(Fichiers[SelecteurDir3].name)
Selecteur4 = 1
SelecteurDir4 = 3
System.currentDirectory("ms0:/psp/game/windows7/corzina")
Fichiers = System.listDirectory()
corzinas = sansAccents(Fichiers[SelecteurDir4].name)
Selecteur5 = 1
SelecteurDir5 = 3
System.currentDirectory("ms0:/psp/game/windows7/q")
Fichiers = System.listDirectory()
av1 = sansAccents(Fichiers[SelecteurDir5].name)
Selecteur6 = 1
SelecteurDir6 = 3
System.currentDirectory("ms0:/psp/game/windows7/w")
Fichiers = System.listDirectory()
av2 = sansAccents(Fichiers[SelecteurDir6].name)
Selecteur7 = 1
SelecteurDir7 = 3
System.currentDirectory("ms0:/psp/game/windows7/e")
Fichiers = System.listDirectory()
av3 = sansAccents(Fichiers[SelecteurDir7].name)
Selecteur8 = 1
SelecteurDir8 = 3
System.currentDirectory("ms0:/psp/game/windows7/r")
Fichiers = System.listDirectory()
av4 = sansAccents(Fichiers[SelecteurDir8].name)
Selecteur9 = 1
SelecteurDir9 = 3
System.currentDirectory("ms0:/psp/game/windows7/t")
Fichiers = System.listDirectory()
av5 = sansAccents(Fichiers[SelecteurDir9].name)
Selecteur10 = 1
SelecteurDir10 = 3
System.currentDirectory("ms0:/psp/game/windows7/y")
Fichiers = System.listDirectory()
av6 = sansAccents(Fichiers[SelecteurDir10].name)
Selecteur11 = 1
SelecteurDir11 = 3
System.currentDirectory("ms0:/psp/game/windows7/u")
Fichiers = System.listDirectory()
av7 = sansAccents(Fichiers[SelecteurDir11].name)
Selecteur12 = 1
SelecteurDir12 = 3
System.currentDirectory("ms0:/psp/game/windows7/i")
Fichiers = System.listDirectory()
av8 = sansAccents(Fichiers[SelecteurDir12].name)
Selecteur13 = 1
SelecteurDir13 = 3
System.currentDirectory("ms0:/psp/game/windows7/compnet")
Fichiers = System.listDirectory()
compnetyy = sansAccents(Fichiers[SelecteurDir13].name)
Selecteur15 = 1
SelecteurDir15 = 3
System.currentDirectory("ms0:/psp/game/windows7/compnet2")
Fichiers = System.listDirectory()
compnet2 = sansAccents(Fichiers[SelecteurDir15].name)
Selecteur31 = 1
SelecteurDir31 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/1")
Fichiers = System.listDirectory()
papca11 = sansAccents(Fichiers[SelecteurDir31].name)
Selecteur32 = 1
SelecteurDir32 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/2")
Fichiers = System.listDirectory()
papca12 = sansAccents(Fichiers[SelecteurDir32].name)
Selecteur33 = 1
SelecteurDir33 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca2/1")
Fichiers = System.listDirectory()
papca21 = sansAccents(Fichiers[SelecteurDir33].name)
Selecteur34 = 1
SelecteurDir34 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca2/2")
Fichiers = System.listDirectory()
papca22 = sansAccents(Fichiers[SelecteurDir34].name)
Selecteur35 = 1
SelecteurDir35 = 3
System.currentDirectory("ms0:/psp/game/windows7/eboot/1")
Fichiers = System.listDirectory()
eboot1 = sansAccents(Fichiers[SelecteurDir35].name)
Selecteur36 = 1
SelecteurDir36 = 3
System.currentDirectory("ms0:/psp/game/windows7/eboot/2")
Fichiers = System.listDirectory()
eboot2= sansAccents(Fichiers[SelecteurDir36].name)
Selecteur37 = 1
SelecteurDir37 = 3
System.currentDirectory("ms0:/psp/game/windows7/deskport/3")
Fichiers = System.listDirectory()
games= sansAccents(Fichiers[SelecteurDir37].name)
Selecteur38 = 1
SelecteurDir38 = 3
System.currentDirectory("ms0:/psp/game/windows7/deskport/4")
Fichiers = System.listDirectory()
picture= sansAccents(Fichiers[SelecteurDir38].name)
Selecteur30 = 1
SelecteurDir30 = 3
System.currentDirectory("ms0:/psp/game/windows7/diskd")
Fichiers = System.listDirectory()
diskd = sansAccents(Fichiers[SelecteurDir30].name)
Selecteur39 = 1
SelecteurDir39 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/3")
Fichiers = System.listDirectory()
papca13= sansAccents(Fichiers[SelecteurDir39].name)
Selecteur40 = 1
SelecteurDir40 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/4")
Fichiers = System.listDirectory()
papca14= sansAccents(Fichiers[SelecteurDir40].name)
Selecteur41 = 1
SelecteurDir41 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca2/3")
Fichiers = System.listDirectory()
papca23= sansAccents(Fichiers[SelecteurDir41].name)
Selecteur42 = 1
SelecteurDir42 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca2/4")
Fichiers = System.listDirectory()
papca24= sansAccents(Fichiers[SelecteurDir42].name)
Selecteur50 = 1
SelecteurDir50 = 3
System.currentDirectory("ms0:/psp/game/windows7/fon")
Fichiers = System.listDirectory()
fonit= sansAccents(Fichiers[SelecteurDir50].name)
Selecteur100 = 1
SelecteurDir100 = 3
System.currentDirectory("ms0:/psp/game/Windows7/znak")
Fichiers = System.listDirectory()
znaki= sansAccents(Fichiers[SelecteurDir100 ].name)
Selecteur101 = 1
SelecteurDir101 = 3
System.currentDirectory("ms0:/psp/game/windows7/o")
Fichiers = System.listDirectory()
av9 = sansAccents(Fichiers[SelecteurDir101].name)
if compot == av1 then
m=0
n=0
p=20
r=55
end
if compot == av2 then
m=115
p=135
n=0
r=55
end
if compot == av3 then
m=225
p=245
n=0
r=55
end
if compot == av4 then
m=0
p=20
n=80
r=134
end
if compot == av5 then
m=115
p=135
n=80
r=134
end
if compot == av6 then
m=225
p=245
n=80
r=134
end
if compot == av7 then
m=0
p=20
n=160
r=216
end
if compot == av8 then
m=115
p=135
n=160
r=216
end
if compot == av9 then
m=225
p=245
n=160
r=216
end
if corzinas == av1 then
l=0
u=35
k=0
s=55
end
if corzinas == av2 then
l=115
u=150
k=0
s=55
end
if corzinas == av3 then
l=225
u=260
k=0
s=55
end
if corzinas == av4 then
l=0
u=35
k=80
s=137
end
if corzinas == av5 then
l=115
u=150
k=80
s=137
end
if corzinas == av6 then
l=225
u=260
k=80
s=137
end
if corzinas == av7 then
l=0
u=35
k=160
s=216
end
if corzinas == av8 then
l=115
u=150
k=160
s=216
end
if corzinas == av9 then
l=225
u=260
k=160
s=216
end
function Nil_Pictures()
fond = nil
comp = nil
comp2 = nil
corz = nil
corz2 = nil
fone1=nill
souris = nil
souris2 = nil
end
noir = Color.new (0,0,0)
noi = Color.new (255,255,255)
x = 240
y = 136
font = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font:setPixelSizes(10,13)
font2 = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font2:setPixelSizes(40,40)
font3 = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font3:setPixelSizes(13,23)
font4 = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font4:setPixelSizes(11,11)
font5 = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font5:setPixelSizes(12,16)
font6 = Font.load("ms0:/psp/game/windows7/qwe.o.ttf")
font6:setPixelSizes(14,13)
comp3=comp
corz3=corz
kalendar3=kalendar
eee=0
st=0
ts=0
kiss=1
podsvetvinchdickdpapka11=0
podsvetvinchdickdeboot11=0
ink=0
insertc=0
insertc2=0
insertc3=0
insertc4=0
anons=0
asus=0
pinki=0
men=0
manimani=0
nax=0
calk=0
maksimka=0
kapral=0
riad=0
ikibana=0
while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,fone1)
screen:blit(mm,nn,kalendar3)
screen:fontPrint(font2,ll,kk,System.getDate(3),noi)
screen:fontPrint(font,pp,oo,System.getDate(2).."/"..System.getDate(1),noi)
screen:blit(l,k,corz3)
if kalendari4==kalendari7 and kalendari5==kalendari8 and kalendari6==kalendari9 then
screen:blit(mm+80,nn+64,soobch)
end
screen:fontPrint(font,u,s,corzina,noi)
if System.powerIsPowerOnline() then
zaradbat=zaradbat+1
zardana=zardana+1
if zaradbat==1 then bat = bat14 end
if zaradbat==10 then bat = bat15 end
if zaradbat==20 then bat = bat16 end
if zaradbat==30 then bat = bat17 end
if zaradbat==40 then bat = bat18 end
if zaradbat==50 then bat = bat19 end
if zaradbat==60 then bat = bat20 end
if zaradbat==70 then bat = bat21 end
if zaradbat==80 then bat = bat22 end
if zaradbat==90 then bat = bat23 end
if zaradbat==100 then bat = bat24 end
if zaradbat==110 then bat = bat25 end
if zaradbat==120 then bat = bat26 end
if zaradbat>=120 then zaradbat=-9 end
else
zardana=0
if System.powerGetBatteryLifePercent() >= 0 and System.powerGetBatteryLifePercent() 4 then bat = bat1 end
if System.powerGetBatteryLifePercent() > 8 then bat = bat2 end
if System.powerGetBatteryLifePercent() > 16 then bat = bat3 end
if System.powerGetBatteryLifePercent() > 24 then bat = bat4 end
if System.powerGetBatteryLifePercent() > 32 then bat = bat5 end
if System.powerGetBatteryLifePercent() > 40 then bat = bat6 end
if System.powerGetBatteryLifePercent() > 48 then bat = bat7 end
if System.powerGetBatteryLifePercent() > 56 then bat = bat8 end
if System.powerGetBatteryLifePercent() > 64 then bat = bat9 end
if System.powerGetBatteryLifePercent() > 72 then bat = bat10 end
if System.powerGetBatteryLifePercent() > 80 then bat = bat11 end
if System.powerGetBatteryLifePercent() > 88 then bat = bat12 end
if System.powerGetBatteryLifePercent() > 96 then bat = bat13 end
if ts>=161 then
ts=ts
end
end
heures = System.getTime(1) -- heures
mins = System.getTime(2) -- minutes
if compnetyy==compnet2 then
comp3=ydalit
else
screen:fontPrint(font,p,r,comput,noi)
screen:blit(m,n,comp3)
end
if pad:cross() and x>=mxx+10 and x=myy+5 and y=mxx+120 and x=myy+75 and y=mxx+120 and x=myy+149 and y=mxx+310 and x=myy+75 and y=mxx+120 and x=myy+135 and y=mxx+120 and x=myy+165 and y=mxx+280 or x=myy+187 or y=5 then
anons=anons
end
if insertc3==1 then
asus=0
screen:blit(mmmm,nnnn,netpapki)
screen:blit(0,0,fond)
screen:fontPrint(font6,174,260,diskd,noi)
screen:fontPrint(font3,421,265,heures..":"..mins,noi)
screen:blit(380,247,bat)
if pad:cross() and x>=mmmm+10 and x=nnnn+3 and y=mmmm+165 and x=nnnn+3 and y=mmmm+150 and x=nnnn+75 and y=mmmm+50 and x=nnnn+75 and y=4 then
Selecteur32 = 1
SelecteurDir32 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/2")
Fichiers = System.listDirectory()
System.rename(System.currentDirectory().."/"..Fichiers[SelecteurDir32].name,2)
Selecteur40 = 1
SelecteurDir40 = 3
System.currentDirectory("ms0:/psp/game/windows7/papca1/4")
Fichiers = System.listDirectory()
System.rename(System.currentDirectory().."/"..Fichiers[SelecteurDir40].name,1)
dofile("ms0:/psp/game/windows7/scripts/g.lua")
insertc3=0
end
end
end
if nnnn>=220 then
nnnn=220
end
if insertc4==1 then
asus=0
screen:blit(mmmm,nnnn,netpapki)
screen:blit(0,0,fond)
screen:fontPrint(font6,174,260,diskd,noi)
screen:fontPrint(font3,421,265,heures..":"..mins,noi)
screen:blit(380,247,bat)
if pad:cross() and x>=mmmm+10 and x=nnnn+3 and y=mmmm+165 and x=nnnn+3 and y=mmmm+150 and x=nnnn+75 and y=mmmm+50 and x=nnnn+75 and y=mxx+290 and x=myy+166 and y=mxx+290 and x=myy+192 and y=mxx+450 or x=myy+218 or y=mmmm+10 and x=nnnn+3 and y=mmmm+165 and x=nnnn+3 and y=mmmm+90 and x=nnnn+75 and y=10 and x = 230 and y =4 then
nax=nax+1
men=0
else
men=1
end
end
if pad:cross() and x >=10 and x = 230 and y =4 then
manimani=0
nax=0
end
if men==1 then
if pad:cross() and x>=173 and x=218 and y=122 and x218 and y=131 and x0 and y=9 and x130 and y164 and y110 and y90 and y70 and y49 and y19 and y197 and y=5 then
maksimka=1
riad=0
end
end
end
end
if ikibana==1 then
screen:blit(115,175,menu2)
if x>188 or x=240 then
maksimka=0
kapral=0
riad=0
if manimani>=4 then
manimani=0
men=0
end
end
end
if maksimka==1 then
if pad:cross() and x>=173 and x=218 and y=9 and x18 and y36 and y58 and y77 and y98 and y119 and y139 and y159 and y176 and y197 and y=5 then
maksimka=0
kapral=0
end
end
end
end
if ikibana==1 then
screen:blit(115,175,menu2)
if x>188 or x 32 then
x = x + pad:analogX() / 32;
end
if zardana>=1 and zardana=381 and x=240 and y<=272 then
screen:blit(381,213,podsvetbater)
if System.powerIsPowerOnline() then
screen:print(384,224,""..Batterie.. " % (Charged)",grey)
else
screen:print(384,224,""..Batterie.. " % (Used)",grey)
end
end
if pad:r() then
screen:blit(x-25,y-20,naiti)
end
screen:blit(0,0,fader)
if pad:select() then
if alphaValue 0 then
alphaValue = alphaValue - 5
end
end
faderColor = Color.new(0,0,0,alphaValue)
fader:clear(faderColor)
screen.flip()
screen.waitVblankStart()
end
Добавлено спустя 55 секунд:Блын в спойлер всё не влезло

Сообщение отредактировано 15 августа 2011 15:01. Редактировалось 1 раз(а)