Project X Forums http://px.worms2d.info/forum/ |
|
Cool "Panic Tower" and "Crazy RR" Script http://px.worms2d.info/forum/viewtopic.php?f=5&t=11 |
Page 1 of 1 |
Author: | Undefined [ Thu Oct 22, 2009 12:34 pm ] |
Post subject: | Cool "Panic Tower" and "Crazy RR" Script |
Cool Script for Panic Towers or Crazy Rope Races to make mines in all map. Code: procedure InitHooks;
begin RegisterHook('OnInit', ON_INIT); end; procedure OnInit; var I,J, NColumns, NChecks : Integer; ColMine : TWPobj; LastCol : Boolean; begin ColMine := MakeMine(0,0); //temprorary mine for collision checking NColumns := MapX div 50; //50 - distance between mines by X NChecks := MapY div 4; // 4 - checking resolution LastCol := True; for i := 0 to NColumns do begin for j := 0 to NChecks do begin if ColMine.IsCollidesAt(i * 50, j * 4) <> nil then begin if not LastCol then begin LastCol := True; MakeMine(i * 50, (j-1) * 4); end; end else LastCol := False; end; end; end; |
Author: | Entuser [ Thu Oct 22, 2009 12:45 pm ] |
Post subject: | Re: Cool "Panic Tower" and "Crazy RR" Script |
Lol, it's my script which i wrote some time ago |
Author: | Undefined [ Thu Oct 22, 2009 12:46 pm ] |
Post subject: | Re: Cool "Panic Tower" and "Crazy RR" Script |
Idk I didn't said it's my script |
Author: | TwilightShadow [ Mon Nov 09, 2009 3:03 pm ] |
Post subject: | Re: Cool "Panic Tower" and "Crazy RR" Script |
Entuser wrote: Lol, it's my script which i wrote some time ago Yep lol i remember u showed it to me =) |
Page 1 of 1 | All times are UTC |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |