Want more features on Pastebin? Sign Up, it's FREE!
Public Pastes
Guest

Untitled

By: a guest on Jan 31st, 2015  |  syntax: None  |  size: 1.33 KB  |  views: 178  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. Process mpang_start();
  2. Begin
  3.         y=650;
  4.         set_start_positions(300,y,450,y,600,y,750,y);
  5.         set_borders(50,1230,650,650);
  6.         set_dinos_shooting(5,30,false);
  7.         set_static_direction(b_up);
  8.         if(players==1)
  9.                 set_countdown(60,ACTION_LOSE);
  10.         else
  11.                 set_countdown(60,ACTION_WIN);
  12.         end
  13.         set_points_hud(board_top);
  14.         set_background(mini_fpgs[1],2);
  15.         set_running_speed(12.0,12.0);
  16.        
  17.         put_dinosaurs();
  18.  
  19.         mpang_bola(300,200,100,1);
  20.         mpang_bola(500,200,100,0);
  21.        
  22.         minigame_ready();
  23.         frame;
  24.         wait_until_ready();
  25.        
  26.         loop
  27.                 if(players==1 and p[1].points=>20)
  28.                         set_winner(1);
  29.                         break;
  30.                 end
  31.                 frame;
  32.         end
  33. End
  34.  
  35. Process mpang_bola(x,y,size,flags);
  36. Private
  37.         id_col;
  38.         height;
  39.         rebote;
  40. Begin
  41.         init_actor();
  42.         graph=1;
  43.         frame;
  44.         wait_until_ready();
  45.         height=graphic_info(file,graph,g_height);
  46.         rebote=700-((height/2)*size/100);
  47.         gravity=-15;
  48.         loop
  49.                 if(flags==1)
  50.                         x+=5;
  51.                 else
  52.                         x-=5;
  53.                 end
  54.                 if(x>1230 and flags==1) flags=0; end
  55.                 if(x<50 and flags==0) flags=1; end
  56.                 if(y>rebote and gravity>0)
  57.                         gravity=-(20+(size/3));
  58.                 else
  59.                         gravity++;
  60.                 end
  61.                 y+=(gravity/2);
  62.                 if(id_col=collision(type dino_shot))
  63.                         id_col.action=-1;
  64.                         add_points(id_col.player,1);
  65.                         explosion(x,y,size/2);
  66.                         if(size>25)
  67.                                 mpang_bola(x,y,size-25,1);
  68.                                 mpang_bola(x,y,size-25,0);
  69.                         end
  70.                         return;
  71.                 end
  72.                 hitter();
  73.                 frame;
  74.         end
  75. End
clone this paste RAW Paste Data