API tools faq
paste
Advertisement
colhaydutu

Untitled

colhaydutu
Jan 9th, 2024 (edited)
34
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.75 KB | None | 0 0
raw download clone embed print report
  1. local diskSide = "right" -- Disk sürücünüzün bağlı olduğu tarafı belirtin
  2.  
  3. while true do
  4. print("TapeWriter for Revelation")
  5. print("Müzik nerede?")
  6. write("URL:")
  7. local url = read()
  8.  
  9. if url == "cancel" then
  10. -- İptal durumunu işleyin, eğer gerekliyse
  11. else
  12. local response = http.get(url, nil, true)
  13.  
  14. if response then
  15. print("İndiriliyor")
  16.  
  17. local data = response.readAll()
  18.  
  19. -- Disk sürücüsünde disk var mı kontrol edelim
  20. if disk.isPresent(diskSide) then
  21. -- Floppy disk içerisinde veri var mı kontrol edelim
  22. if disk.hasData(diskSide) then
  23. -- Diski çıkaralım
  24. disk.eject(diskSide)
  25. end
  26.  
  27. -- Diski tekrar takalım
  28. disk.eject(diskSide)
  29. else
  30. -- Disk sürücüsüne disk takalım
  31. disk.eject(diskSide)
  32. end
  33.  
  34. -- Disk sürücüsüne disk takalım
  35. disk.eject(diskSide)
  36.  
  37. -- Diskin monte edildiği dizini alalım
  38. local diskPath = disk.getMountPath(diskSide)
  39.  
  40. -- Dosyayı disk üzerindeki bir dosyaya yazalım
  41. local file = fs.open(diskPath .. "/data", "w")
  42. file.write(data)
  43. file.close()
  44.  
  45. response.close()
  46.  
  47. print("Bu disk için bir isim var mı?")
  48. write("İsim:")
  49. local name = read()
  50.  
  51. -- Diskin etiketini ayarlayalım
  52. disk.setLabel(diskSide, name)
  53.  
  54. print("Tamamlandı!")
  55. else
  56. print("Verilen URL'den indirme başarısız oldu.")
  57. end
  58. end
  59. end
  60.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!