-----------------------------------

copthesaint

Tue Jun 15, 2010 2:21 pm


Click Click Defence

-----------------------------------

Well I was bored yesterday and today aswell, so I made this game, which my friends thought was pro :p its a very interactive defence game when you have to click click on every target before they reach the destination :p You need both files to play, and they both must be in the same director

if anyone gets to level 10 without cheat engine, printscreen and show me! lol


-----------------------------------

Cezna

Tue Jun 15, 2010 2:46 pm


RE:Click Click Defence

-----------------------------------

Lags a bit, but has a very cool explosion animation.

You should use View.UpdateArea instead of View.Update (I believe it was actually you who posted the topic where I learned that even if you are using View.UpdateArea to view the whole screen, it goes faster than View.Update, but sorry if I'm wrong)

EDIT: in this section of the code:

particles -> newStar (x - 1 + i, y, o (i).clr)


What does the -> mean, I have seen it before, but have no idea what it does.
Is this how you avoided using a process for the death effect?



-----------------------------------

copthesaint

Tue Jun 15, 2010 2:49 pm


RE:Click Click Defence

-----------------------------------

Lol It doesnt lagg, its just your computer... lol, The computer you used to test it, was it a win 98? or what? No offence, it's just old desktop with win me runs this without lagg.

Also, thanks, but this isnt me asking for help, also the -> is just a reference to the method from the pointer


Too prove no *lagg* replace the code of the loop main program with this where View.Set is and down with this:

The most delay Ill ever get in-game is 7 ms which you will only get if you reach lvl 7! *I dont believe possible lol
plus there is a Time.Delay since last of 24 ms, so there is no lagg

View.Set ("Graphics,OffscreenOnly,NoButtonbar")
particles -> initStarsIDAll
levelTimer := Time.ElapsedCPU - 10000
lvl := 1
var currentTime, prevTime : int := 3
loop
    currentTime := Time.ElapsedCPU
    put "Total Delay: ", (currentTime - prevTime)
    prevTime := Time.ElapsedCPU
    Mouse.Where (mX, mY, mB)
    timer := Time.ElapsedCPU
    if mB = 0 and reset = true then
        reset := false
    end if

    if mB ~= 0 and reset = false then
        clicked := true
        reset := true
    end if

    if levelTimer + 15000 < timer then
        lvl := lvl + 1
        newObject (Rand.Int (1, 4))
        levelTimer := Time.ElapsedCPU
    end if

    for i : lower (o) .. upper (o)
        if (o (i).timeDelay + Time.ElapsedCPU)  drawStars
    View.Update
    %Time.DelaySinceLast (24)
    cls
    %exit when lives  close, then your System NFO file will appear. go to file again -> save, and save the name as whatever, this may take 2 min, then just send the nfo to me or dan or something if they have been following this thread.

Edit Nfos arn't allowed :p just highlight your system summary and paste here lol.
Edit #2 since You cant use my Nfo as a shortcut, either save a textdoc as and .NFO and open it, open msinfo32.exe located in system32 in Windows

This is my labtop, nothing special about it, believe me. lol
[code]OS Name	Microsoft? Windows Vista? Home Premium
Version	6.0.6001 Service Pack 1 Build 6001
Other OS Description 	Not Available
OS Manufacturer	Microsoft Corporation
System Name	CHRISTIAN-PC
System Manufacturer	TOSHIBA
System Model	Satellite L300
System Type	x64-based PC
Processor	Intel(R) Pentium(R) Dual  CPU  T3200  @ 2.00GHz, 2000 Mhz, 2 Core(s), 2 Logical Processor(s)
BIOS Version/Date	INSYDE 1.30, 09/10/2008
SMBIOS Version	2.4
Windows Directory	C:\Windows
System Directory	C:\Windows\system32
Boot Device	\Device\HarddiskVolume2
Locale	Canada
Hardware Abstraction Layer	Version = "6.0.6001.18000"
User Name	Christian-PC\Christian
Time Zone	Eastern Daylight Time
Installed Physical Memory (RAM)	4.00 GB
Total Physical Memory	3.87 GB
Available Physical Memory	2.76 GB
Total Virtual Memory	7.95 GB
Available Virtual Memory	6.45 GB
Page File Space	4.16 GB
Page File	C:\pagefile.sys[/code]


-----------------------------------

copthesaint

Wed Jun 16, 2010 12:56 pm


Re: Click Click Defence

-----------------------------------

Double post because the first one is directed specifically to Cezna

Anyone make it to level 10?
One of my friends made it to lvl 8 XD after half an hour of failed attempts lol.