BS2 FIRST NDRMMPO

From FSG Wiki

REMOVETRIGGER PREUPDATESCREEN
ON PREUPDATESCREEN SAVE QUICKSAND 1
ON PREUPDATESCREEN EXEC MoveWorm
REMOVETRIGGER POSTUPDATESCREEN
ON POSTUPDATESCREEN LOAD QUICKSAND 1

Element none AutoElement1 20 15 8
Element none AutoElement2 42 34 36
Element none AutoElement3 62 48 48
Element none AutoElement4 88 57 62
Element none AutoElement5 92 66 64
Element none AutoElement6 206 113 70
Element none AutoElement7 104 74 72
Element none AutoElement8 108 81 80
Element none AutoElement9 132 95 94
Element none AutoElement10 152 110 110
Element none AutoElement11 210 171 112
Element none AutoElement12 152 140 120
Element none AutoElement13 122 117 122
Element none AutoElement14 170 126 124
Element none AutoElement15 194 138 134
Element none AutoElement16 208 154 152
Element none AutoElement17 160 160 160
Element none AutoElement18 224 167 164
Element none AutoElement19 222 169 174
Element none AutoElement20 228 184 184
Element none AutoElement21 194 206 194
Element none AutoElement22 234 205 196
Element none AutoElement23 244 230 230
Element none AutoElement24 214 210 232
Element none AutoElement25 230 231 236
Element none AutoElement26 252 250 246
Element none AutoElement27 252 254 252

INTERACTION GROUP:none Crystal Fire Fire 50%

TRIGGER Worms {
DRAW ELEMENT:Clear OBJECT $0 $1 "!" ELEMENT:AutoElement1 "#" ELEMENT:AutoElement2 "$" ELEMENT:AutoElement3 "%" ELEMENT:AutoElement4 "&" ELEMENT:AutoElement5 "'" ELEMENT:AutoElement6 "(" ELEMENT:AutoElement7 ")" ELEMENT:AutoElement8 "*" ELEMENT:AutoElement9 "+" ELEMENT:AutoElement10 "," ELEMENT:AutoElement11 "-" ELEMENT:AutoElement12 "." ELEMENT:AutoElement13 "/" ELEMENT:AutoElement14 "0" ELEMENT:AutoElement15 "1" ELEMENT:AutoElement16 "2" ELEMENT:AutoElement17 "3" ELEMENT:AutoElement18 "4" ELEMENT:AutoElement19 "5" ELEMENT:AutoElement20 "6" ELEMENT:AutoElement21 "7" ELEMENT:AutoElement22 "8" ELEMENT:AutoElement23 "9" ELEMENT:AutoElement24 ":" ELEMENT:AutoElement25 ";" ELEMENT:AutoElement26 "<" ELEMENT:AutoElement27 {
	"     $%&&%            "
	"   (()**)((($         "
	" $(+033333/)(%        "
	"$(/333333333+($       "
	"()*01(#+333*(         "
	"(*%+1+++13333/(       "
	"(3553587433330(#      "
	"(4<;48<<;43330(       "
	"(1267<-6<73330(       "
	"$+$%8:&<7333/(        "
	" )&!8:%<5333+&        "
	" %.#;8%.<4333)$       "
	"  )9;5:;833,0(        "
	"  $-;38<533'/(        "
	"   (43353333+%        "
	"   )33333333+%        "
	"   (+130*033*()((     "
	"    &(((*13+)033+(    "
	"    $+01333+03331)    "
	"    $+33333333333+%   "
	"    $+333333333330(   "
	"    $+333333333331((% "
	"    $*33333333*0330/)$"
	"     )1333333/(+3333*&"
	"     %)/1331/($*3331*%"
	"      $(((((%  &((((( "

	}
}

TRIGGER MoveWorm {
	SET NewRandom1 0
	SET NewRandom2 0
	IF (((WormToX + 1) == WormX) || (WormToX == WormX) || ((WormToX - 1) == WormX)) <SET NewRandom1 1>
	IF (((WormToY + 1) == WormY) || (WormToY == WormY) || ((WormToY - 1) == WormY)) <SET NewRandom2 1>
	IF ((NewRandom1 == 1) && (NewRandom2 == 1)) {
		SET WormToX (1 RAND WIDTH)
		SET WormToY (1 RAND HEIGHT)
	}
	EXEC GET_ANGLE WormX WormY WormToX WormToY		
	WormMoveX = ((tmpX * -3) / tmp)
	WormMoveY = ((tmpY * -3) / tmp)
	WormX = (WormX + WormMoveX)
	WormY = (WormY + WormMoveY)
	EXEC Worms WormX WormY
}

TRIGGER GET_ANGLE {
	tmpX = ($0 - $2) 
	tmpY = ($1 - $3)
	tmp = (SQRT ((tmpX * tmpX) + (tmpY * tmpY)))
}

TRIGGER PutRandomCircle {
	DRAW $0 FILLEDCIRCLE (0 RAND WIDTH) (0 RAND HEIGHT) (5 RAND 25)
}

FOR i FROM 0 TO 10 DO {
	EXEC PutRandomCircle ELEMENT:TNT
	EXEC PutRandomCircle ELEMENT:Earth
	EXEC PutRandomCircle ELEMENT:Wall
	EXEC PutRandomCircle ELEMENT:Sandsource
	EXEC PutRandomCircle ELEMENT:Saltsource
	EXEC PutRandomCircle ELEMENT:Crystal
	EXEC PutRandomCircle ELEMENT:Fountain
	EXEC PutRandomCircle ELEMENT:Plant
	EXEC PutRandomCircle ELEMENT:Wood
	EXEC PutRandomCircle ELEMENT:Cera
	EXEC PutRandomCircle ELEMENT:Ice
}

BORDER = 1

WormX = 210
WormY = 210
WormToX = 210
WormToY = 210