Leo_V117

obj_mouse+scr_txt_read

May 7th, 2012
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //scr_txt_read
  2. //read from text file with random number
  3. exedir=working_directory;
  4. puzzlefile=string(irandom_range(1,2)) + ".txt";
  5. puzzledir=string(exedir)+"\puzzle\"+string(puzzlefile);
  6. puzzleopen = file_text_open_read(puzzledir);
  7. //setting initial line for array_read
  8. vblock = 1
  9. hblock = 1
  10. //
  11. do
  12. {array_read[vblock]=file_text_read_real(puzzleopen)
  13. vblock +=1
  14. file_text_readln(puzzleopen);
  15. } until(file_text_eof(puzzleopen));
  16. file_text_close(puzzlefile);
  17. global.array_grid[hblock,vblock] = string_char_at(hblock,array_read[vblock])
  18.  
  19. //obj_mouse step
  20. x=mouse_x
  21. y=mouse_y
  22. move_snap(16,16)
  23. if y<16 {depth = -5}
  24. else {depth = 0}
  25.  
  26. //obj_mouse global left mouse pressed
  27. if y>=16 instance_create(x,y,obj_num_disp) else {}
Advertisement
Add Comment
Please, Sign In to add comment