Ahahaha!!! At long last I believe I have a non-buggy Portal script! (and yet I promise nothing...) Well, I was gonna make a ridiculously hard Portal demo and make someone beat it to get the password...but then I remembered I don't really like making lots and lots of puzzles. Oh well, whatever, I'll leave the puzzles to you guys. Here it is:
*EDIT* I've edited this to contain all three versions of PORTAL_item. Read below for what each do differently.
EDIT#2 - Here they are at last, at long last. And now i'll be taking a short break from scripting. :brainfried emoticon!!!:
EDIT #3 friggin billion....now you can't get stuck in a wall or warp shooters yada yada enjoy.
Portal item version 3 will recall the portals so you can fire them again
^^*RECOMMENDED*^^
. and portal item 2 will keep one of them active if there are two open portals or let you fire both again or vice-versa, But it's a bit tricky to use. Of coarse practice makes perfect.
(It's fixed now)Here is the Final version:
It's currently set up to use ffc's 28 and 29. These are changable only once, before you compile it. Everything else is noted, just read.Code://D0 Cset of first portal
//D1 Cset of second portal
//D2 speed of portal gun
item script PORTAL_item_ver2{
void run(int cset, int cset2, int speed){
ffc portal1 = Screen->LoadFFC(29); //set hard coded ffc data here
ffc portal2 = Screen->LoadFFC(28); // and here
if(!((portal1->Data >= portal_data) && (portal1->Data <= portal_data+7))){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal1->X = Link->X;
portal1->Y = Link->Y - 16;
portal1->Vy = -speed;
portal1->Vx = 0;
portal1->Data = portal_data;
portal1->CSet = cset;
}
if(Link->Dir == 1) {
portal1->X = Link->X;
portal1->Y = Link->Y + 16;
portal1->Vy = speed;
portal1->Vx = 0;
portal1->Data = portal_data+1;
portal1->CSet = cset;
}
if(Link->Dir == 2) {
portal1->X = Link->X - 16;
portal1->Y = Link->Y;
portal1->Vx = -speed;
portal1->Vy = 0;
portal1->Data = portal_data+2;
portal1->CSet = cset;
}
if(Link->Dir == 3) {
portal1->X = Link->X + 16;
portal1->Y = Link->Y;
portal1->Vx = speed;
portal1->Vy = 0;
portal1->Data = portal_data+3;
portal1->CSet = cset;
}
}
else{
if(!((portal2->Data >= portal_data) && (portal2->Data <= portal_data+7))){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal2->X = Link->X;
portal2->Y = Link->Y - 16;
portal2->Vy = -speed;
portal2->Vx = 0;
portal2->Data = portal_data;
portal2->CSet = cset2;
}
if(Link->Dir == 1) {
portal2->X = Link->X;
portal2->Y = Link->Y + 16;
portal2->Vy = speed;
portal2->Vx = 0;
portal2->Data = portal_data+1;
portal2->CSet = cset2;
}
if(Link->Dir == 2) {
portal2->X = Link->X - 16;
portal2->Y = Link->Y;
portal2->Vx = -speed;
portal2->Vy = 0;
portal2->Data = portal_data+2;
portal2->CSet = cset2;
}
if(Link->Dir == 3) {
portal2->X = Link->X + 16;
portal2->Y = Link->Y;
portal2->Vx = speed;
portal2->Vy = 0;
portal2->Data = portal_data+3;
portal2->CSet = cset2;
}
}
else{ // if both portals are already set fire portal 1 again
if((portal1->Data > portal_data+3) && (portal1->Data <= portal_data+7)&&
(portal2->Data > portal_data+3) && (portal2->Data <= portal_data+7)){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal1->X = Link->X;
portal1->Y = Link->Y - 16;
portal1->Vy = -speed;
portal1->Vx = 0;
portal1->Data = portal_data;
portal1->CSet = cset;
}
if(Link->Dir == 1) {
portal1->X = Link->X;
portal1->Y = Link->Y + 16;
portal1->Vy = speed;
portal1->Vx = 0;
portal1->Data = portal_data+1;
portal1->CSet = cset;
}
if(Link->Dir == 2) {
portal1->X = Link->X - 16;
portal1->Y = Link->Y;
portal1->Vx = -speed;
portal1->Vy = 0;
portal1->Data = portal_data+2;
portal1->CSet = cset;
}
if(Link->Dir == 3) {
portal1->X = Link->X + 16;
portal1->Y = Link->Y;
portal1->Vx = speed;
portal1->Vy = 0;
portal1->Data = portal_data+3;
portal1->CSet = cset;
}
}
else{ // if not then fire portal 2 once more
if((portal2->Data >= portal_data+4) && (portal2->Data <= portal_data+7)){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal2->X = Link->X;
portal2->Y = Link->Y - 16;
portal2->Vy = -speed;
portal2->Vx = 0;
portal2->Data = portal_data;
portal2->CSet = cset2;
}
if(Link->Dir == 1) {
portal2->X = Link->X;
portal2->Y = Link->Y + 16;
portal2->Vy = speed;
portal2->Vx = 0;
portal2->Data = portal_data+1;
portal2->CSet = cset2;
}
if(Link->Dir == 2) {
portal2->X = Link->X - 16;
portal2->Y = Link->Y;
portal2->Vx = -speed;
portal2->Vy = 0;
portal2->Data = portal_data+2;
portal2->CSet = cset2;
}
if(Link->Dir == 3) {
portal2->X = Link->X + 16;
portal2->Y = Link->Y;
portal2->Vx = speed;
portal2->Vy = 0;
portal2->Data = portal_data+3;
portal2->CSet = cset2;
}
}
}
}} // end of else statements
}
}
item script PORTAL_item_ver3{
void run(int cset, int cset2, int speed){
ffc portal1 = Screen->LoadFFC(29); //set hard coded ffc data here
ffc portal2 = Screen->LoadFFC(28); // and here
if(!((portal1->Data >= portal_data) && (portal1->Data <= portal_data+7))){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal1->X = Link->X;
portal1->Y = Link->Y - 16;
portal1->Vy = -speed;
portal1->Vx = 0;
portal1->Data = portal_data;
portal1->CSet = cset;
}
if(Link->Dir == 1) {
portal1->X = Link->X;
portal1->Y = Link->Y + 16;
portal1->Vy = speed;
portal1->Vx = 0;
portal1->Data = portal_data+1;
portal1->CSet = cset;
}
if(Link->Dir == 2) {
portal1->X = Link->X - 16;
portal1->Y = Link->Y;
portal1->Vx = -speed;
portal1->Vy = 0;
portal1->Data = portal_data+2;
portal1->CSet = cset;
}
if(Link->Dir == 3) {
portal1->X = Link->X + 16;
portal1->Y = Link->Y;
portal1->Vx = speed;
portal1->Vy = 0;
portal1->Data = portal_data+3;
portal1->CSet = cset;
}
}
else{
if(!((portal2->Data >= portal_data) && (portal2->Data <= portal_data+7))){
Game->PlaySound(11);
if(Link->Dir == 0) {
portal2->X = Link->X;
portal2->Y = Link->Y - 16;
portal2->Vy = -speed;
portal2->Vx = 0;
portal2->Data = portal_data;
portal2->CSet = cset2;
}
if(Link->Dir == 1) {
portal2->X = Link->X;
portal2->Y = Link->Y + 16;
portal2->Vy = speed;
portal2->Vx = 0;
portal2->Data = portal_data+1;
portal2->CSet = cset2;
}
if(Link->Dir == 2) {
portal2->X = Link->X - 16;
portal2->Y = Link->Y;
portal2->Vx = -speed;
portal2->Vy = 0;
portal2->Data = portal_data+2;
portal2->CSet = cset2;
}
if(Link->Dir == 3) {
portal2->X = Link->X + 16;
portal2->Y = Link->Y;
portal2->Vx = speed;
portal2->Vy = 0;
portal2->Data = portal_data+3;
portal2->CSet = cset2;
}
}
else{
portal2->Data = 1;
portal2->X = 0;
portal2->Y = 0;
portal1->Data = 1;
portal1->X = 0;
portal1->Y = 0;
}
}
}
}
//===================GLOBAL VARIABLES=====================
int portal_warp_delay = 0;
int enemy_portal_warp_delay = 0;
int portal_data = 160; // change this to be the first of 8 block combos for graphics
//make a block of 8 combos, the first 4 being gun projectile up, down, left, right in that order
//then make the next 4 the same used for open portal animation(no combo cycling)
//========================================================
//D0 - this ffc number
//D1 - other ffc number
// Ex: Set ffc 28 D0 to 28 and D1 to 29 then set ffc 29 D0 to 29 and D1 to 28. easy, huh?
ffc script PORTAL_FFC_ver4{ // BUGFIXED VERSION
void run(int this_ffc_number, int other_ffc_number){
ffc this_ffc = Screen->LoadFFC(this_ffc_number);
ffc other_ffc = Screen->LoadFFC(other_ffc_number);
int portal_set = 0;
int portal_position = 0;
bool portal_open = false;
int enemy_number = 0;
npc enemy;
this_ffc->Data = 1;this->Y = 0; this->X = 0;
while(true){
if(this_ffc->X < 14 || this_ffc->X > 226 || this_ffc->Y < 14 || this_ffc->Y > 146 ||
Link->X < 0 || Link->X > 240 || Link->Y < 0 || Link->Y > 160){
this_ffc->Data = 1; this->Y = 0; this->X = 0; portal_open = false;}
if(this_ffc->Data <= portal_data+3){ portal_open = false;}
if(portal_warp_delay > 0){ portal_warp_delay--;}
if(enemy_portal_warp_delay > 0){ enemy_portal_warp_delay--;}
if( (this->Data >= portal_data) && (this->Data <=portal_data+3) ){
if( (this_ffc->Vx < 0) && (Screen->ComboS[ComboAt(this_ffc->X-1, this_ffc->Y+8)] != 0)
&& (Screen->ComboT[ComboAt(this_ffc->X-1, this_ffc->Y+8)] != 3)){ portal_open = true;}
if( (this_ffc->Vx > 0) && (Screen->ComboS[ComboAt(this_ffc->X+16, this_ffc->Y+8)] != 0)
&& (Screen->ComboT[ComboAt(this_ffc->X+16, this_ffc->Y+8)] != 3)){ portal_open = true;}
if( (this_ffc->Vy < 0) && (Screen->ComboS[ComboAt(this_ffc->X+8, this_ffc->Y-1)] != 0)
&& (Screen->ComboT[ComboAt(this_ffc->X+8, this_ffc->Y-1)] != 3)){ portal_open = true;}
if( (this_ffc->Vy > 0) && (Screen->ComboS[ComboAt(this_ffc->X+8, this_ffc->Y+16)] != 0)
&& (Screen->ComboT[ComboAt(this_ffc->X+8, this_ffc->Y+16)] != 3)){ portal_open = true;}
}
if(portal_open){
if(Screen->ComboS[ComboAt(this_ffc->X+8, this_ffc->Y+8)] == 15){ portal_open = false;}
else{ this_ffc->Data = portal_data+4; this_ffc->Vx = 0; this_ffc->Vy = 0;}
}
if(portal_set == 0){
if(other_ffc->Data >= portal_data + 4){
if(portal_warp_delay == 0){
if ( (Link->X <= this_ffc->X + 8)&&(Link->X >= this_ffc->X -8)&&
(Link->Y <= this_ffc->Y + 8)&&(Link->Y >= this_ffc->Y -8) ){
portal_warp_delay = 60;
Link->X = other_ffc->X;
Link->Y = other_ffc->Y;
Game->PlaySound(36);
}
}
if(enemy_portal_warp_delay == 0){
enemy_number = Screen->NumNPCs();
while(enemy_number > 0){
enemy = Screen->LoadNPC(enemy_number);
if ( (this_ffc->X - 10 < enemy->X) && (this_ffc->X + 10 > enemy->X) &&
(this_ffc->Y - 10 < enemy->Y) && (this_ffc->Y + 10 > enemy->Y) &&
!(enemy->Tile==0) ){
enemy->X = other_ffc->X; enemy->Y = other_ffc->Y;
Game->PlaySound(35);enemy_portal_warp_delay = 80;
}
enemy_number--;
}
}
}
}
Waitframe();
}
}
}
Oh, one more thing. This will warp enemies too, as well as being able to cross over water combos. Want to make some nasty puzzles? I suggest using water...alot.;) Any non-walkable combo you don't want to open a portal near in fact. And believe it or not it would be quite easy to make 3 or 4 portals using this code. Only a few things would need to be tweaked.:D I might still do that just for fun. ...or maybe not.
Oops, I threw something together anyways. :) If you have any problems getting it to work, just download this: PORTAL_DEMO-635( use 635 or 655 to play this.NOTE* THIS DEMO DOES NOT HAVE THE BUGFIXED SCRIPT.
...I swear if I have to edit this again i'm gonna go crazy...(crosses fingers and logs off)
Have fun.
