JoeMaximumTEMP

From FSG Wiki

Contents 1 Usefull Links 1.1 Sprites 2 BS2 image saving 3 Playing with MESSAGE 3.1 Screen Savers

Usefull Links

Sprites

http://www.panelmonkey.org/index.php
http://www.gsarchives.net/index2.php
http://sdb.drshnaps.com/index.htm
http://retrogamezone.co.uk/

BS2 image saving

Testing with Stamp & sandbox saving, to be able to convert normal image and convert it to BS2.

GROUP Red 1 TEXT Colors

REMOVETRIGGER CE3
ON CE3 SET tmpRED 0
ON CE3 WHILE (tmpRED <= 255) CE
ON CE3 IF (tmpRED > 255) DrawRainbow

REMOVETRIGGER CE
ON CE MESSAGE CLEAR
ON CE MESSAGE ADDTEXT "Element "
ON CE IF ((tmpRED % 10) != 0) <MESSAGE ADDTEXT "none R">
ON CE IF ((tmpRED % 10) == 0) <MESSAGE ADDTEXT "Red R">
ON CE MESSAGE ADDNUMBER tmpRED
ON CE MESSAGE ADDTEXT " "
ON CE MESSAGE ADDNUMBER tmpRED
ON CE MESSAGE ADDTEXT " 0 0 0 1 1 1 0 Clear 0 TEXT R"
ON CE MESSAGE ADDNUMBER tmpRED
ON CE MESSAGE SEND
ON CE MESSAGE EXEC
ON CE SET tmpRED (tmpRED + 1)

REMOVETRIGGER KEY_l
ON KEY_l LOAD STAMP icon.bmp 1
ON KEY_l DRAW ELEMENT:Water PASTESTAMP 0 0 WIDTH HEIGHT 1

REMOVETRIGGER KEY_s
ON KEY_s DRAW 0 COPYSTAMP 0 0 WIDTH HEIGHT 1
ON KEY_s SAVE STAMP stamp3.bmp 1

REMOVETRIGGER DrawRainbow
ON DrawRainbow SET tmp 0
ON DrawRainbow WHILE (tmp <= 255) DrawRainbow2

REMOVETRIGGER DrawRainbow2
ON DrawRainbow2 MESSAGE CLEAR
ON DrawRainbow2 MESSAGE ADDNUMBER tmp
ON DrawRainbow2 MESSAGE SEND
ON DrawRainbow2 DRAW (ELEMENT:R0 + tmp) POINT (100 + tmp) 100
ON DrawRainbow2 SET tmp (tmp + 1)

EXEC CE3
EXEC clearscreen
EXEC DrawRainbow

SET ELEMENT1 ELEMENT:R0
EXEC listelements GROUP:Red
EXEC listgroups 

Playing with MESSAGE

This code will create a lot of elements.

REMOVETRIGGER CE1
ON CE1 SET tmpRED 0
ON CE1 FILE OPEN test.txt
ON CE1 WHILE (tmpRED <= 255) CE2
ON CE1 FILE CLOSE

REMOVETRIGGER CE2
ON CE2 SET tmpGREEN 0
ON CE2 WHILE (tmpGREEN <= 255) CE3
ON CE2 SET tmpRED (tmpRED + 10)

REMOVETRIGGER CE3
ON CE3 SET tmpBLUE 0
ON CE3 WHILE (tmpBLUE <= 255) CE
ON CE3 SET tmpGREEN (tmpGREEN + 10)

REMOVETRIGGER CE

ON CE MESSAGE CLEAR
ON CE MESSAGE ADDTEXT "Element none RGB_"
ON CE MESSAGE ADDNUMBER tmpRED
ON CE MESSAGE ADDTEXT "_"
ON CE MESSAGE ADDNUMBER tmpGREEN
ON CE MESSAGE ADDTEXT "_"
ON CE MESSAGE ADDNUMBER tmpBLUE
ON CE MESSAGE ADDTEXT " "
ON CE MESSAGE ADDNUMBER tmpRED
ON CE MESSAGE ADDTEXT " "
ON CE MESSAGE ADDNUMBER tmpGREEN
ON CE MESSAGE ADDTEXT " "
ON CE MESSAGE ADDNUMBER tmpBLUE
ON CE MESSAGE ADDTEXT " 0 1 1 1 0 Clear 0 TEXT none"
// ON CE MESSAGE SAVE
ON CE MESSAGE EXEC

ON CE SET tmpBLUE (tmpBLUE + 10)

Screen Savers

ELEMENT none Red 255 0 0 0 1 1 1 100% Clear 100 TEXT none
ELEMENT none Green 0 255 0 0 1 1 1 100% Clear 100 TEXT none
ELEMENT none Blue 0 0 255 0 1 1 1 100% Clear 100 TEXT none
ELEMENT none Star 200 200 200 0 1 1 1 100% Clear 100 TEXT none

TRIGGER StarFieldSS {
	FOR i FROM 1 TO Etoiles DO {
               
	CoordX[i] = (CoordX[i] - Vitesse[i])
	
	IF (CoordX[i] <= 0) {
		CoordX[i] = (0 RAND (WIDTH + 50))
		CoordY[i] = (0 RAND HEIGHT)
		Couleur[i] = (0 RAND 255)
		Vitesse[i] = ((1 RAND 20) + 5)			
	}
		
		DRAW ELEMENT:Star POINT CoordX[i] CoordY[i]
	}
	
	TIMER 1 FRAMES StarFieldSS
}

TRIGGER Init1 {
	FOR i FROM 1 TO Etoiles DO {    
        CoordX[i] = (0 RAND (WIDTH + 50))
        CoordY[i] = (0 RAND HEIGHT)
        Couleur[i] = (0 RAND 255)
        Vitesse[i] = ((1 RAND 20) + 5)
        
		DRAW ELEMENT:Star POINT CoordX[i] CoordY[i]
    }
}

TRIGGER Init2 {	
	FOR i FROM 0 TO 3 DO {
        X[i] = 210
        Y[i] = 210
    }

    xSpeed[0] = -1
	xSpeed[1] = 2
	xSpeed[2] = -3
	xSpeed[3] = 4
	
    ySpeed[0] = -4
	ySpeed[1] = 3
	ySpeed[2] = -2
	ySpeed[3] = 1
	
    Trails = 50
}

TRIGGER LineSS {
    IF (Trails > 0) {
        Trails = (Trails - 1)
        z = 1
    } ELSE {
        z = 3
	}
    
	FOR i FROM 0 TO z DO {
        X[i] = (X[i] + xSpeed[i])
        Y[i] = (Y[i] + ySpeed[i])
        IF ((X[i] < 0) || (X[i] > WIDTH)) <xSpeed[i] = (xSpeed[i] * -1)>
        IF ((Y[i] < 0) || (Y[i] > HEIGHT)) <ySpeed[i] = (ySpeed[i] * -1)>
    }
	
	DRAW ELEMENT:Red LINE X[0] Y[0] (X[1] - X[0]) (Y[1] - Y[0])
	DRAW ELEMENT:Blue LINE X[2] Y[2] (X[3] - X[2]) (Y[3] - Y[2])
	
	TIMER 1 FRAMES LineSS
}

TRIGGER KEY_1 {
	EXEC clearscreensandbox
	Etoiles = 300
	EXEC Init1
	EXEC StarFieldSS	
}
TRIGGER KEY_2 {
	EXEC clearscreensandbox
	EXEC Init2
	EXEC LineSS
}