SRL Archive - Delphi/FPC Help and Tutorials

Hermpie - The Game Avoid <– i know it sucks… but
I want to know if it compiles for you guys(and girls)

Source please?

source? is that all the crap around it? xD? i made it but i don't know all the 'fancy' words -.-…

i think you mean this

.exe not included

Yeah, just the code, not an exe ;)

don't trust me? xD i would do the same.

Scan taken on 01 Mar 2008 22:02:44 (GMT)
A-Squared
Found nothing
AntiVir
Found nothing
ArcaVir
Found nothing
Avast
Found nothing
AVG Antivirus
Found nothing
BitDefender
Found nothing
ClamAV
Found nothing
CPsecure
Found nothing
Dr.Web
Found nothing
F-Prot Antivirus
Found nothing
F-Secure Anti-Virus
Found nothing
Fortinet
Found nothing
Ikarus
Found nothing
Kaspersky Anti-Virus
Found nothing
NOD32
Found nothing
Norman Virus Control
Found nothing
Panda Antivirus
Found nothing
Rising Antivirus
Found nothing
Sophos Antivirus
Found nothing
VirusBuster
Found nothing
VBA32
Found nothing

Haha that game is fun! :) It is too hard for newbies like me though :(

lolz heres a picture http://img301.imageshack.us/my.php?image=naamloosjq3.png
buts funnier if you see yourself ;) and get brainwashed like Hy

Cheat/bugs:
- You can maxmise


btw if your good at SRL Scar scripting then this is easy to make
i got 9 tut video's from a site and there good they even learn you how to make a own mp3 player

Lol i noticed the maximize thingo, got 83k when i maximized screen Lol.

Nice game/

only 83k xD? i had 98k.

Nice stuff dude:) Keep it up;)

-Tsn.

From: the scar noob

Nice stuff dude:) Keep it up;)

-Tsn.

that's gets in my sign xD best liar ever.xD

From: hermpie
that's gets in my sign xD best liar ever.xD

That wasn't a lie.. I couldn't make something like that:) I even don't have a Delphi compiler:p

-Tsn.

it's not delphi…












xD kidding

really good

h4x0red :)

begin
writeln('start the game and mazimize it!')
wait(2000)
writeln('Auto start in 7 secs')
wait(7000)
GetApplication.Minimize;
repeat
MoveMouse(9, 40)
wait(200)
MoveMouse(1007, 48)
wait(200)
MoveMouse(15, 714)
wait(200)
MoveMouse(1008, 711)
wait(200)
until({you are gay}false)
end.

lol

Good attempt!

Got 10k without the cheat :)

i thought of that to.. i think it's possible that that works

can someone give me some scar commands that are in delphi to.
can you move the mouse there to?
and how to remove a writeln in a console app(dos)(command)
how to close an console app(dos)(command)
any tips pls pm

oops double xD

begin
repeat
MoveMouse(430, 33)
wait(200)
MoveMouse(7, 33)
wait(200)
MoveMouse(430, 280)
wait(200)
MoveMouse(7, 280)
wait(200)
until(false)
end.

this will do it crosshair the form Whole!
and be sad

111k when maximized. Good job, keep it up.

if you see this and want to make his and your good image designer you can make it even cool as in the tutorial video(its good but they bléh to much)

141k when maximized, very nice :)

Im proud of my score of 768k without the cheat (The mouse is in the wrong place see?) :D

http://i139.photobucket.com/albums/q312/josh075/hahahah-1.jpg

NOT UPDATED!!!(xD)

haha, pretty fun game, I could only get like 80k…but i only tried once :p and i got bored of it, after the first like 10 seconds, but back in the 80's this would have been huge…

lol, thanks!

6688 highscore xD

fantastic!

Tbh, this is the shitest shit i've ever seen.


Edit: I got 57K


:D

You!!!



ARE RIGHT xD

From: hermpie
You!!!



ARE RIGHT xD

TBH, THIS WAS REALLY FUN! Simple, but fun!


Edit: I CANT GET HIGHER THEN 58K FFS! :eek:


-Ashur

haha, lol pff nerd ;)

3dbuzz's 3rd training video ftw! Mine would be awesome like this, excpet I'm too lazy to make the graphics :)

i know i don't got good graphics to, but on the new forum much 3d buzz video's online

Maximized and i got 160856. Just keep moving around in circles pretty fast. I lost when my mouse hit my TV. Oh yeah.

//Zegt 'jij bent dood'
//Als de Enemy de player raakt Result:=True

What language is that? Sounds Swedish?

Omg Swedish my ass! thats finnish or something.

Sweedish is almost like norwegian and i cant understand anything of that…

[/offtopic]

ffs! i cant get higher than 10k!

From: WhoCares357
What language is that? Sounds Swedish?

that's dutch, you know the netherlands(wizzup?, wt-Fawaki,Nielsiej, they come from there)

easy there 3DBuzz program lol, yea i learned from them too they're pretty good, i've seen all the videos the the MP3 player i just wish they would put the rest of it up, their still making them, for anyone else that's looking for what i was talking about here it is:
http://www.youtube.com/watch?v=Zo_DDv7iQi4
there are a series of videos to learn from

LOL 22k! It is pretty fun and I like it. It gets really fast and difficult!

noidea

From: noidea
LOL 22k! It is pretty fun and I like it. It gets really fast and difficult!

noidea

Only highscores maybe?

Nice game. I made 314k fullsized…

It definately has potential xD… For example you add items, like bananas, oil, rockets and all stuffs xD. Firing with left or right mouse…

Another Idea would be a multiplayer, where one player is the skull, and the other one the smiley. With a limited mousespeed for the skull-user, that increases with the time that passes.

~caused

From: caused
Nice game. I made 314k fullsized…

It definately has potential xD… For example you add items, like bananas, oil, rockets and all stuffs xD. Firing with left or right mouse…

Another Idea would be a multiplayer, where one player is the skull, and the other one the smiley. With a limited mousespeed for the skull-user, that increases with the time that passes.

~caused

Nah, I first have to finish an 2d game so…(a better one).

echt leuk spelletje:P
// real nice game:P
als je:
// if you:

if Enemy.Left < Player.left  then Enemy.Left := Enemy.left + Level.Tag;
  if Enemy.Left > Player.Left  then Enemy.Left  := Enemy.Left - Level.Tag;
  if Enemy.Top < Player.Top    then Enemy.Top  := Enemy.Top + Level.Tag;
  if Enemy.Top > Player.Top    then Enemy.Top  := Enemy.Top - Level.Tag;

veranderd met een richtings cooficient gaat hij recht streeks naar de player
een richtings cooficent krijg je door verschil van muisy en skully te delen door verschil muisx en skullx dan krijg je hoeveel y hij omhoog of omlaag moet per x opzij:P
dus:
// i don't know how to say some words in english so i wil short it:P
// add something to make i go straigt to the mouse
var:

var
  AvoidForm: TAvoidForm;
   deltax, deltay, Richting, Richtingx: Variant;

deltay:= Player.Top - Enemy.Top;
  deltax:= Enemy.Left - Player.Left;
  richting:= deltay/deltax;
  if(deltax < 0)then
  begin
   richting:=richting*-1
  end;
  if(deltay < 0)then
  begin
   richting:=richting*-1
  end;
  richtingx:= 1;
  if(richting > 1)then
  begin
    richtingx:= 1/richting;
    richting:= 1;
  end;
  if Enemy.Left < Player.left  then Enemy.Left := Enemy.left + Level.Tag*richtingx;
  if Enemy.Left > Player.Left  then Enemy.Left  := Enemy.Left - Level.Tag*richtingx;
  if Enemy.Top < Player.Top    then Enemy.Top  := Enemy.Top + Level.Tag*richting;
  if Enemy.Top > Player.Top    then Enemy.Top  := Enemy.Top - Level.Tag*richting;

zo gaat hij rechtstreeks naar de muis:P
//this way it goes strays to the mouse:P

From: nielskool
echt leuk spelletje:P
// real nice game:P
als je:
// if you:

if Enemy.Left < Player.left  then Enemy.Left := Enemy.left + Level.Tag;
  if Enemy.Left > Player.Left  then Enemy.Left  := Enemy.Left - Level.Tag;
  if Enemy.Top < Player.Top    then Enemy.Top  := Enemy.Top + Level.Tag;
  if Enemy.Top > Player.Top    then Enemy.Top  := Enemy.Top - Level.Tag;

veranderd met een richtings cooficient gaat hij recht streeks naar de player
een richtings cooficent krijg je door verschil van muisy en skully te delen door verschil muisx en skullx dan krijg je hoeveel y hij omhoog of omlaag moet per x opzij:P
dus:
// i don't know how to say some words in english so i wil short it:P
// add something to make i go straigt to the mouse
var:

var
  AvoidForm: TAvoidForm;
   deltax, deltay, Richting, Richtingx: Variant;

deltay:= Player.Top - Enemy.Top;
  deltax:= Enemy.Left - Player.Left;
  richting:= deltay/deltax;
  if(deltax < 0)then
  begin
   richting:=richting*-1
  end;
  if(deltay < 0)then
  begin
   richting:=richting*-1
  end;
  richtingx:= 1;
  if(richting > 1)then
  begin
    richtingx:= 1/richting;
    richting:= 1;
  end;
  if Enemy.Left < Player.left  then Enemy.Left := Enemy.left + Level.Tag*richtingx;
  if Enemy.Left > Player.Left  then Enemy.Left  := Enemy.Left - Level.Tag*richtingx;
  if Enemy.Top < Player.Top    then Enemy.Top  := Enemy.Top + Level.Tag*richting;
  if Enemy.Top > Player.Top    then Enemy.Top  := Enemy.Top - Level.Tag*richting;

zo gaat hij rechtstreeks naar de muis:P
//this way it goes strays to the mouse:P

Hmm, I think it just works fine for now, but thank you for the effort.

W00t 138k :D

This a very good game :)

Edit 223k!! :)

From: antti mies
W00t 138k :D

This a very good game :)

Edit 223k!! :)

In what point? Totally crappy and useless?

From: Hermen
In what point? Totally crappy and useless?

No… It really was fun to play ;)