|
I got blitz for the month trial, then when i actually bought it, i started this straight away, and it took six months to get as far as i did. I hadn't done computing at high school..I wasn't really used to browsing the internet yet even. But to explain the extermity of the code, some code examples fom it: For flora.bush = Each bush If flora\areabush=area If atkR>0 And atkR<4 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordright1,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkR>3 And atkR<9 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordright2,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkL>0 And atkL<4 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordleft1,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkL>3 And atkL<9 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordleft2,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkD>0 And atkD<4 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Sworddown1,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkD>3 And atkD<7 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Sworddown2,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkD>6 And atkD<9 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Sworddown3,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkU>0 And atkU<4 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordup1,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkU>3 And atkU<7 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordup2,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If atkU>6 And atkU<9 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,Swordup3,ox,oy,frame1) flora\cut=1 makenewwhat=1 minran=-1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 ;For z=0 To 16 If spinatkdur>0 And flora\cut=0 And ImagesCollide(abush,flora\bushx,flora\bushy,frame1,spinblade,ox,oy,zspinfrm) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If Ultimaterandom%>98 minran=7 maxran=7 ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 ;Next If flora\cut=0 And hvebomrang=3 And (brangtmr>0 Or brangtmr<0) And ImagesOverlap(abush,flora\bushx,flora\bushy,Brang,brangx#,brangy#) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If firerodtmr>0 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,flameshot,flamex,flamey) flora\cut=1 setfire=1 onfirex=flora\bushx onfirey=flora\bushy makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy dropseed=7;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If icerodtmr>0 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,iceshot,icex,icey) flora\cut=1 setice=1 onicex=flora\bushx onicey=flora\bushy icerodtmr=0 hide=0 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If hamrtime>4 And did=1 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,hamr1U,ox-7,oy-7) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If hamrtime>4 And did=2 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,hamr3L,ox-16,oy-4) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If hamrtime>4 And did=3 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,hamr3R,ox+16,oy-4) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If hamrtime>4 And did=4 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,hamr4D,ox+6,oy+1) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy ;newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 If uselantern>24 And uselantern<39 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,onfire3,onlanternx,onlanterny) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy dropseed=7;newwhat=Rand(1,6) If usehook=1 And flora\cut=0 And ImagesOverlap(potwalk,flora\bushx,flora\bushy,hook,hookx,hooky) If Not ImagesOverlap(potwalk,flora\bushx,flora\bushy,g_zdown, ox, oy) If oy>flora\bushy-4 And oy<flora\bushy+6 If ox<flora\bushx ox=ox+3 movx=movx-3 hookx=flora\bushx hooky=flora\bushy If ImagesCollide(b_walk,w_x,w_y,frame1,g_zdown, ox, oy,frame2) ox=ox-3 movx=movx+3 usehook=0 If oy>flora\bushy-4 And oy<flora\bushy+6 If ox>flora\bushx ox=ox-3 movx=movx+3 hookx=flora\bushx hooky=flora\bushy If ImagesCollide(b_walk,w_x,w_y,frame1,g_zdown, ox, oy,frame2) ox=ox+3 movx=movx-3 usehook=0 If ox>flora\bushx-6 And ox<flora\bushx+6 If oy<flora\bushy oy=oy+3 movy=movy-3 hookx=flora\bushx hooky=flora\bushy If ImagesCollide(b_walk,w_x,w_y,frame1,g_zdown, ox, oy,frame2) oy=oy-3 movy=movy+3 usehook=0 If ox>flora\bushx-6 And ox<flora\bushx+6 If oy>flora\bushy oy=oy-3 movy=movy+3 hookx=flora\bushx hooky=flora\bushy If ImagesCollide(b_walk,w_x,w_y,frame1,g_zdown, ox, oy,frame2) oy=oy+3 movy=movy-3 usehook=0 EndIf If usehook=1 And flora\cut=0 And ImagesOverlap(potwalk,flora\bushx,flora\bushy,g_zdown, ox, oy) usehook=0 If did=4 And flora\bushy>oy oy=oy-2 movy=movy+2 If usetounge>0 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,toungestub,utungx#,utungy#) flora\cut=1 makenewwhat=1 minran=1 maxran=3 newwhatx=flora\bushx newwhaty=flora\bushy If usetounge<30 usetounge=30 If fall>0 And flora\cut=0 And ImagesOverlap(abush,flora\bushx,flora\bushy,g_zdown,ox,oy) flora\cut=1 EndIf Next For flora.bush = Each bush If flora\areabush=area If flora\cut=0 DrawImage potwalk,flora\bushx,flora\bushy DrawImage abush,flora\bushx,flora\bushy If xplode>25 And xplode<31 And ImagesOverlap (abush,flora\bushx,flora\bushy,boom6,bombx,bomby) flora\cut=1 newwhat=Rand(1,6) If newwhat=1 And arupee=1 newwhat=Rand(1,4) ElseIf newwhat=1 And arupee=0 arupee=1 newrupee=1 rupeex=flora\bushx rupeey=flora\bushy ElseIf newwhat=4 And newheart=1 newwhat=Rand(1,4) ElseIf newwhat=4 And newheart=0 newheart=1 newheartx=flora\bushx newhearty=flora\bushy Else If newhat=2 Or newwhat=3 Or newwhat>4 newwhat=0 EndIf If flora\cut=1 If menumov=0 If Not ImagesCollide(potwalk,flora\bushx,flora\bushy,frame1,g_zdown, ox, oy,frame1) And flora\cuttmr>900 flora\cuttmr=flora\cuttmr+1 If flora\cuttmr=1 PlaySound(bushdestroy_sound) If flora\cuttmr>0 And flora\cuttmr<6 DrawImage zbushcut1,flora\bushx,flora\bushy If flora\cuttmr>5 And flora\cuttmr<11 DrawImage zbushcut2,flora\bushx,flora\bushy If flora\cuttmr>10 And flora\cuttmr<16 DrawImage zbushcut3,flora\bushx,flora\bushy If flora\cuttmr>15 And flora\cuttmr<21 DrawImage zbushcut4,flora\bushx,flora\bushy If flora\cuttmr>20 And flora\cuttmr<26 DrawImage zbushcut5,flora\bushx,flora\bushy If flora\cuttmr>25 And flora\cuttmr<31 DrawImage zbushcut6,flora\bushx,flora\bushy If flora\cuttmr>30 And flora\cuttmr<36 DrawImage zbushcut7,flora\bushx,flora\bushy If flora\cuttmr>35 And flora\cuttmr<41 DrawImage zbushcut8,flora\bushx,flora\bushy If flora\cuttmr>900+100*(season-1)*(season-1)*(season-1) And flora\cuttmr<911+100*(season-1)*(season-1)*(season-1) DrawImage bushgrow1,flora\bushx,flora\bushy If flora\cuttmr>910+100*(season-1)*(season-1)*(season-1) And flora\cuttmr<921+100*(season-1)*(season-1)*(season-1) DrawImage bushgrow2,flora\bushx,flora\bushy If flora\cuttmr>920+100*(season-1)*(season-1)*(season-1) And flora\cuttmr<931+100*(season-1)*(season-1)*(season-1) DrawImage bushgrow3,flora\bushx,flora\bushy If flora\cuttmr>930+100*(season-1)*(season-1)*(season-1) And flora\cuttmr<941+100*(season-1)*(season-1)*(season-1) DrawImage bushgrow4,flora\bushx,flora\bushy If flora\cuttmr>940+100*(season-1)*(season-1)*(season-1) flora\cut=0 flora\cuttmr=0 EndIf EndIf If Not flora\areabush=area Delete flora.bush Next
In case you havent guessed already, that, was the code, for one of these: Nowadays such an object would merely be declared belonging to some very general object group, but with specific values, not even having code of its own to require it to run. Something like: Name Bush, image Bush.PNG, HasDeathAnimation True, DeathImage BushSmash.PNG etc, (of course).
Logged
|