21 lines
1.3 KiB
Plaintext
21 lines
1.3 KiB
Plaintext
a=20 i=:wpi d=:wpd s=:wps h=:wph l=:wpl n=:wpn goto1+(i+d+s+h+l)>0
|
|
n+=i-d n=n*(n>0andn<=a)+a*(n<1)+1*(n>a) n=h+(1-h)*n :wpn=n k=1000 e=20
|
|
i=:wpi d=:wpd o=n/2-(n/2000*k) j="\n[Loading]" goto4-2*((i+d)>0)
|
|
t=:EDIT+" \nX:"+:x/k*k+" \nY:"+:y/k*k+" \nZ:"+:z/k*k goto 4.5+n/2
|
|
ifothenifsthen:w1=tend w=:w1elseifsthen:w2=tend w=:w2endgotoe
|
|
ifothenifsthen:w3=tend w=:w3elseifsthen:w4=tend w=:w4endgotoe
|
|
ifothenifsthen:w5=tend w=:w5elseifsthen:w6=tend w=:w6endgotoe
|
|
ifothenifsthen:w7=tend w=:w7elseifsthen:w8=tend w=:w8endgotoe
|
|
ifothenifsthen:w9=tend w=:w9elseifsthen:w10=tend w=:w10endgotoe
|
|
ifothenifsthen:w11=tend w=:w11elseifsthen:w12=tend w=:w12endgotoe
|
|
ifothenifsthen:w13=tend w=:w13elseifsthen:w14=tend w=:w14endgotoe
|
|
ifothenifsthen:w15=tend w=:w15elseifsthen:w16=tend w=:w16endgotoe
|
|
ifothenifsthen:w17=tend w=:w17elseifsthen:w18=tend w=:w18endgotoe
|
|
ifothenifsthen:w19=tend w=:w19elseifsthen:w20=tend w=:w20endgotoe
|
|
ifothenifsthen:w21=tend w=:w21elseifsthen:w22=tend w=:w22endgotoe
|
|
ifothenifsthen:w23=tend w=:w23elseifsthen:w24=tend w=:w24endgotoe
|
|
ifothenifsthen:w25=tend w=:w25elseifsthen:w26=tend w=:w26endgotoe
|
|
ifothenifsthen:w27=tend w=:w27elseifsthen:w28=tend w=:w28endgotoe
|
|
ifothenifsthen:w29=tend w=:w29elseifsthen:w30=tend w=:w30endgotoe
|
|
iflthen:wpcn=n :wpc=w :wpu=1 :WIC=w :dtw=j w+=j end :wp=n+"\n"+w goto1
|