Advertisement
Guest User

Untitled

a guest
Jul 31st, 2015
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 0.98 KB | None | 0 0
  1. @name Game
  2. @inputs Up Down Left Right Power EGP:wirelink
  3. @outputs
  4. @persist Res X Y
  5. @trigger
  6.  
  7. if(first())
  8. {
  9.     Res = 512;
  10.         EGP:egpColor(1,vec(255,255,255))
  11. }
  12.  
  13. function update()
  14. {
  15.     interval(1000)    
  16. }
  17.  
  18. function shutDown()
  19. {
  20.     clearScreen()
  21.     X = 0
  22.     Y = 0    
  23.     update()
  24. }
  25.  
  26. function drawPlayer()
  27. {
  28.     EGP:egpBox(1,vec2(X,Y), vec2(X++,Y++))
  29. }
  30.  
  31. function control()
  32. {
  33.     if(Up)
  34.     {
  35.         if(Y > 0)
  36.         {
  37.             Y--  
  38.         }
  39.     }
  40.    
  41.     if(Down)
  42.     {
  43.         if(Y < Res-1)
  44.         {
  45.             Y++
  46.         }
  47.     }
  48.    
  49.     if(Left)
  50.     {
  51.         if(X > 0)
  52.         {
  53.             X--    
  54.         }    
  55.     }
  56.    
  57.     if(Right)
  58.     {
  59.         if(X < Res-1)
  60.         {
  61.             X++
  62.         }
  63.     }
  64. }
  65.  
  66. function gameLoop()
  67. {
  68.     if(Power){
  69.        
  70.         control()
  71.        
  72.         drawPlayer()
  73.            
  74.         update()
  75.     }
  76.     else
  77.     {
  78.         shutDown()    
  79.     }
  80. }
  81.  
  82. gameLoop()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement