Jump to content

prospeed


jpam
 Share

Recommended Posts

@ Dellairion

it is possible to resize the sprite on the fly, but takes alot work !

you better create smaller sprites and use ChangeSpritePara()

a textballoon can be a sprite too, create a empty textballoon

put it on screen, and add bitmap text as sprite on top of it.

Some more questions where i couldn't find answers for...

How can i resize a sprite without manually editing the size of the image itself?

(It's to resize the character in the thing i'm trying to create.)

And how can i add something like a tekst message on a sprite?

(I'm trying to create something like a textballoon above the characters head.)

Thnx,

Dellairion

Link to comment
Share on other sites

  • Replies 511
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Posted Images

Can anybody help me?

i get a error, loadimage error or so..

#include <GUIConstants.au3>
#include <Prospeed.au3>

Opt("GUIOnEventMode", 1)

$GUI = GUICreate("Prospeed",@desktopwidth, @desktopheight, -1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

LoadImage("dino.jpg", 0, 0, 1)
Blur("",0,0,30)

While 1
sleep(100)
WEnd

Func _exit()
Exit 
EndFunc

what do I wrong?

Link to comment
Share on other sites

#include <GUIConstants.au3>
#include <Prospeed.au3>

Opt("GUIOnEventMode", 1)

$GUI = GUICreate("Prospeed",464, 474, -1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

;$dino = LoadImage("Imagefile", POS X, POS Y, $N_WIDTH, $N_HEIGHT, $S_Onscreen) 
$image = LoadImage("dino.jpg", 0, 0, 464,474,0)

;blur(Alias, Pos X, Pos Y, ValueEffect, Onscreen)
Blur($image,0,0,30,1)

While 1
    sleep(100)
WEnd

Func _exit()
    Exit 
EndFunc

Can anybody help me?

i get a error, loadimage error or so..

#include <GUIConstants.au3>
#include <Prospeed.au3>

Opt("GUIOnEventMode", 1)

$GUI = GUICreate("Prospeed",@desktopwidth, @desktopheight, -1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

LoadImage("dino.jpg", 0, 0, 1)
Blur("",0,0,30)

While 1
sleep(100)
WEnd

Func _exit()
Exit 
EndFunc

what do I wrong?

Link to comment
Share on other sites

@Dellairion

some sprite resize on the fly code

#include <GUIConstants.au3>
#include <Prospeed.au3>

Opt("MouseCoordMode",2)
Opt("GUIOnEventMode", 1)

$GUI = GUICreate("Prospeed",800,600,-1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

$back = Background("path to background pic", 0, 0,800,600)

$loadpic1 = loadsprite("path to sprite picture normal size")
$loadpic2 = loadspriteResize("path to sprite picture with resize function", 75, 50)
$sprite = sprite($loadpic1, 0, 0, 106, 85, 1, 1, 3, 200, 300)

Sleep(1000)

ChangeSpritePara($sprite, 0, $loadpic2)
SetSpriteAnim($sprite, 0, 0, 75, 50, 1, 1, 1)
; if you resize the sprite with lower width and height ,you must repaint your background
PaintNew()

While 1
    Sleep(1000)
WEnd

Func _exit()
    Exit
EndFunc
Edited by jpam
Link to comment
Share on other sites

@peter123

i did not make the dll

it was another german programmer.

psa.dll has very limited fx functions

so i did not make a udf for it

if you want the source, pm your mail adress to me

Edited by jpam
Link to comment
Share on other sites

  • 3 weeks later...
  • 3 weeks later...

hi, i was playing yesterday with prospeed and i noticed that you can't do much if you don't have the SetTiles function. was wondering if you can include it in prospeed.au3, i tried creating a simple game and decided to add some tiles to the background (trees, stones ...) and i tried using setsprite but the script ended up eating way too much cpu.

also could you use the deleteallsprites() function in your examples, cause they crash sometimes.

Edit : this plugin is awesome :)

regards,

Baki

Edited by mrbond007
Link to comment
Share on other sites

  • 2 weeks later...

added some base functions to the udf

CreateExtBmp

CopyExtBmp

InitExtFX

it's for doing a fx from a part of a image

udf updated @ first post

example;

#include <GUIConstants.au3>
#include <Prospeed.au3>
Opt("GUIOnEventMode", 1)
HotKeySet("{Esc}","_Exit")
GUICreate("FX",800,600)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

$pic = LoadImage("autoit_builder_wall.jpg", 0, 0, 800, 600, 1)

$bitmap1 = CreateExtBmp(400, 300)

CopyExtBmp($bitmap1, 0, 0, 400, 300, $hDC, 200, 150)

$fx = InitExtFX($bitmap1)

; comment or uncomment to see the other fx
Darken($fx, 200, 150, 50, 1)

;Lighten($fx, 200, 150, 30, 1)  

;blur($fx, 200, 150, 30, 1)

;Sharpen($fx, 200, 150, 30, 1)

;Grey($fx, 200, 150, 1)

While 1
    Sleep(1000)
WEnd

Func _exit()
    Exit
EndFunc
Link to comment
Share on other sites

added ExchangeColor

added Frame

added Curve

added FillExtBmp

udf updated @ first post :D

examples ;

#include <Prospeed.au3>
Opt("GUIOnEventMode", 1)
HotKeySet("{Esc}", "_Exit")
GUICreate("FillExtBmp", 600, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState()

Background("", 0, 0, 600, 400)

FillExtBmp($hdc, 0, 600, 0, 400, 0xffffff) ; paints the window complete white

FillExtBmp($hdc, 150, 151, 50, 51, 0xff0000) ; 1 pixel color RED at location X 150 , Y 50

FillExtBmp($hdc, 250, 300, 50, 100, 0x00ff00) ; paints cube color GREEN at location X 250 Y 50 ,width 50 height 50

FillExtBmp($hdc, 350, 450, 50, 250, 0x00ffff) ; paints rectangle color purple at location X 350 Y 50 ,width 100 height 200

Frame($hdc, 0x0000ff, 0x0000aa, 30, 50, 130, 100, 4)

Curve($hdc, 400, 200, 420, 300, 450, 200)

While 1
    Sleep(1000)
Wend      

Func _Exit()
    Exit
EndFuncoÝ÷ Ù«­¢+ØÌ(%Q¡¥Ìµ¼½Ý¹±½ÌÁ¥ÑÕÉɽ´¥¹ÑɹÐ(%
¡¹ÍÁ¥¥½±½É̽¸Ñ¡¥µ¹ÁÕХн¸Íɸ((¥¹±Õ±ÐíAɽÍÁ¹ÔÌÐì)=ÁÐ ÅÕ½ÐíU%=¹Ù¹Ñ5½ÅÕ½Ðì°Ä¤)!½Ñ-åMÐ ÅÕ½ÐííÍôÅÕ½Ðì°ÅÕ½Ðí}á¥ÐÅÕ½Ðì¤)U%
ÉÑ ÅÕ½Ðí`ÅÕ½Ðì°ÜÀÀ°ÄÀÀ¤)U%MÑ=¹Ù¹Ð ÀÌØíU%}Y9Q}
1=M°ÅÕ½Ðí}á¥ÐÅÕ½Ðì¤)U%MÑMÑÑ ¤()%¹ÑÐ ÅÕ½Ðí¡ÑÑÀè¼½¡½µ¹½É¹¹¹°½©ÁµÙ¹É½ÕɽÑÍй¥ÅÕ½Ðì°|($%MÉ¥ÁѥȵÀìÅÕ½Ðì½ÑÍй¥ÅÕ½Ðì¤($$(ÀÌØíÁ¥ô1½%µ ÅÕ½ÐíÑÍй¥ÅÕ½Ðì°À°À°ÄÀÀ°ÄÀÀ°Ä¤ì±½¥µÑ()᡹
½±½È ÀÌØí¡°ÄÔÀ°À°ÀÌØíÁ¥°ÁàÀÀÀÁ°Áá¤ì¡¹ÉѼݡ¥Ñ¹½ÁäѼ¡¡Ý¥¹½Ü¤)᡹
½±½È ÀÌØí¡°ÌÀÀ°À°ÀÌØíÁ¥°ÁàÀÁ°Áá¤ì¡¹å±±½ÜѼݡ¥Ñ¹½ÁäѼ¡¡Ý¥¹½Ü¤)᡹
½±½È ÀÌØí¡°ÐÔÀ°À°ÀÌØíÁ¥°ÁáÀÀÀÀ°Áá¤ì¡¹±ÕѼݡ¥Ñ¹½ÁäѼ¡¡Ý¥¹½Ü¤)᡹
½±½È ÀÌØí¡°ØÀÀ°À°ÀÌØíÁ¥°ÁàÀÁÀÀ°Áá¤ì¡¹É¸Ñ¼Ý¡¥Ñ¹½ÁäѼ¡¡Ý¥¹½Ü¤()]¡¥±Ä(%M±À ÄÀÀÀ¤)]¹()Õ¹}á¥Ð ¤(%á¥Ð)¹Õ¹oÝ÷ Ù«­¢+ØÌ(%Q¡¥Ìµ¼½Ý¹±½ÌÁ¥ÑÕÉɽ´Ñ¡Õѽ¥ÐÝÍ¥Ñ(%ÕÐÌäí̽ÕÐ͵±°Á¥¹ÕÍ¥ÐÌÍÁÉ¥Ñ(%ÑÈÑ¡ÍÁɥѥÌÁÕн¸ÍɸͽµÐÌäíÌɽ¹½¸Ñ¡ÍÁÉ¥ÑÁ¥ÑÕÉ((¥¹±Õ±ÐíAɽÍÁ¹ÔÌÐì)=ÁÐ ÅÕ½ÐíU%=¹Ù¹Ñ5½ÅÕ½Ðì°Ä¤)!½Ñ-åMÐ ÅÕ½ÐííÍôÅÕ½Ðì°ÅÕ½Ðí}á¥ÐÅÕ½Ðì¤)U%
ÉÑ ÅÕ½ÐíMÁÉ¥Ñ`ÅÕ½Ðì°ØÀÀ°ÐÀÀ¤)U%MÑ=¹Ù¹Ð ÀÌØíU%}Y9Q}
1=M°ÅÕ½Ðí}á¥ÐÅÕ½Ðì¤)U%MÑMÑÑ ¤()%¹ÑÐ ÅÕ½Ðí¡ÑÑÀè¼½ÝÝܹÕѽ¥ÑÍÉ¥Áй½´½Õѽ¥Ð̽¥±Ì½ÉÁ¡¥Ì½Õѽ¥Ñ}Õ¥±É}ݱ±|àÀÁàØÀÀ¹©ÁÅÕ½Ðì°|($%MÉ¥ÁѥȵÀìÅÕ½Ðì½Õѽ¥Ñ}Õ¥±É}ݱ±|àÀÁàØÀÀ¹©ÁÅÕ½Ðì¤(ÀÌØí¬ô  ­É½Õ¹ ÅÕ½ÐíÕѽ¥Ñ}Õ¥±É}ݱ±|àÀÁàØÀÀ¹©ÁÅÕ½Ðì°À°À°ØÀÀ°ÐÀÀ¤ì­É½Õ¹Á¥ÑÕÉ)M±À ÔÀÀ¤((ÀÌØí¥ÑµÀô
ÉÑáÑ    µÀ ÄÄÀ°ÄÄÀ¤ìÉѵÁÑä¥ÑµÀ¥¸µµµ½Éä)¥±±áÑ  µÀ ÀÌØí¥ÑµÀ°À°ØÀÀ°À°ÐÀÀ°ÁàÀÁ¤ì¥±°µÁÑä¥ÑµÀÝ¥Ñ å±±½Ü½±½È¡å±±½Ü½µÌÑ¡ÍÁÉ¥ÑÑɹÍÁɹн±½È¤)
½ÁåáÑ  µÀ ÀÌØí¥ÑµÀ°Ô°Ô°ÄÀÀ°ÄÀÀ°ÀÌØí¡°ÐÐÔ°ÈÀ¤ì½Áäɽ´ÀÌØí¡¡Ý¥¹½Ü¤ÄÀÀÝ¥Ñ ¹ÄÀÀ¡¥¡ÐѼµÁÑä¥ÑµÀ($$$$$$$$$$$$ìÝ¥Ñ `¹d½ÍнÔÁ¥á±Ì($$$$$$$$$$$$í½ÍХ̹ÕÍÑ¡ÍÁÉ¥Ñչѥ½¸Á¥­ÌѡѽÀ±ÐÁ¥á°($$$$$$$$$$$$íÌÑ¡ÑɹÍÁɹн±½È($$$$$$$$$$$$(ÀÌØíàô%¹¥ÑáÑ` ÀÌØí¥ÑµÀ¤ìÉÑåÑÉÉäɽ´¥ÑµÀ½Èàչѥ½¹Ì((ÀÌØíÍÁÉ¥ÑôÍÁÉ¥Ñ ÀÌØí¥ÑµÀ°À°À°ÄÀÀ°ÄÀÀ°Ä°Ä°Ä°ÔÀ°ÔÀ¤ìÍÐÍÁɥѽ¸ÍÉ¸Ý¥Ñ Ñ¡¥ÑµÀÉÑɽ´Ñ¡($$$$$$$$$$$$$$ì­É½Õ¹Á¥ÑÕÉ)Mѵ½Ù¥¹Iѹ± ÀÌØíÍÁɥѰÀ°À°ÔÀÀ°ÌÀÀ¤ì½¸ÌäíбÐÑ¡ÍÁɥѼ½Íɸ)µ½ÙÍÁÉ¥Ñ ÀÌØíÍÁɥѰØÀÀ°ÐÀÀ¤ìµ½ÙÑ¡ÍÁÉ¥Ñ()]¡¥±Ä(%½ÈÀÌØí¤ôÄQ¼ÄÔÀ$$($%É­¸ ÀÌØí¥ÑµÀ°À°À°ÀÌØíà°Ä°À¤ìµ­Ñ¡ÍÁÉ¥ÑÉ­È($%M±À ÈÀ¤(%9áÐ(%M±À ÄÀÀÀ¤(%½ÈÀÌØí¤ôÄQ¼ÄÔÀ$($%1¥¡Ñ¸ ÀÌØí¥ÑµÀ°À°À°ÀÌØíà°Ä°À¤ìµ­Ñ¡ÍÁɥѱ¥¡ÑÈ$($%M±À ÈÀ¤(%9áÐ(%M±À ÄÀÀÀ¤)]¹()Õ¹}á¥Ð ¤(%á¥Ð)¹Õ¹
Link to comment
Share on other sites

I tried to create a simple script with this and I got this error:

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

AutoIt Error

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

Line 24 (File "C:\Users\Draygoes\Desktop\Prospeed\Prospeed\Demo\Prospeed.au3"):

GUIRegisterMsg($WM_PAINT, "PaintNew")

GUIRegisterMsg(^ ERROR

Error: Variable used without being declared.

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

OK

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

And the code:

#include <GUIConstants.au3>
#include <Prospeed.au3>

HotKeySet("{Esc}","_exit")
Opt("GUIOnEventMode", 1)

$gui = GUICreate("ProSpeed",800,600,-1,-1,$WS_POPUP)
GUISetState()

CreateBlack(500, 600, 0, 0)
While 1
     Sleep(1000)
WEnd

Func _exit()
     exit
EndFunc
Spoiler

 

"If a vegetarian eats vegetables,What the heck does a humanitarian eat?"

"I hear voices in my head, but I ignore them and continue on killing."

"You have forced me to raise the indifference warning to beige, it's a beige alert people. As with all beige alerts please prepare to think about the possibility of caring."

An optimist says that giving someone power DOESN'T immediately turn them into a sadist. A pessimist says that giving someone power doesn't IMMEDIATELY turn them into a sadist.

 

 
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...