Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @name Music - Galactic Repairman
- @persist Section Tick
- @persist Run PreM PreS MI SI
- @persist [SMain SSec]:array [Main Sec]:string Index SoundI
- @persist Logo:array L
- @model models/props_lab/citizenradio.mdl
- if(dupefinished()){
- reset()
- }
- if(first()){
- Main = "X,1 89,0.4 X,0.01 67,0.4 X,0.01 89,0.4 X,0.01 67,0.4 X,0.01 89,0.4 " +
- "X,0.01 67,0.4 X,0.01 101,0.4 X,0.01 67,0.4 X,0.01 84,0.4 X,0.01 67,0.4 " +
- "X,0.01 84,0.4 X,0.01 67,0.4 X,0.01 84,0.4 X,0.01 67,0.4 X,0.01 " +
- "84,0.4 X,0.01 67,0.4 X,0.01 75,0.4 X,0.01 89,0.4 X,0.01 75,0.4 X,0.01 " +
- "89,0.4 X,0.01 75,0.4 X,0.01 101,0.4 X,0.01 112,0.4 X,0.01 67,0.4 X,0.01 " +
- "75,0.4 X,0.01 60,0.4 X,0.01 75,0.4 X,0.01 60,0.4 X,0.01 75,0.4 X,0.01 " +
- "60,0.4 X,0.01 67,0.4 X,0.01 60,1.2 X,0.01 " + #Starting
- "89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 112,1 X,0.01 89,0.2 X,0.01 " +
- "89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 " +
- "101,0.4 X,0.01 134,0.4 X,0.01 112,1 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 " +
- "89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "112,1.4 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "75,0.4 X,0.01 67,1.4 X,0.01 " + #S1P1
- "89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 89,0.6 X,0.01 150,0.4 X,0.01 134,0.2 X,0.01 " +
- "134,0.4 X,0.01 112,0.4 X,0.01 101,0.4 X,0.01 89,0.6 X,0.01 67,0.4 X,0.01 " +
- "150,0.8 X,0.01 134,0.4 X,0.01 134,0.4 X,0.01 112,0.2 X,0.01 101,0.4 X,0.01 " +
- "89,1 X,0.01 67,0.4 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.8 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 101,0.2 X,0.01 89,0.2 X,0.01 " +
- "112,0.4 X,0.01 101,1.2 X,0.01 " + #S1P2
- "75,0.4 X,0.01 75,0.4 X,0.01 89,0.4 X,0.01 75,0.4 X,0.01 112,0.4 X,0.01 " +
- "101,1.2 X,0.01 75,0.4 X,0.01 75,0.4 X,0.01 89,0.4 X,0.01 75,0.4 X,0.01 " +
- "134,0.8 X,0.01 112,0.4 X,0.01 112,0.4 X,0.01 101,0.2 X,0.01 101,0.6 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 112,0.6 X,0.01 134,0.4 X,0.01 112,0.4 X,0.01 " +
- "112,0.4 X,0.01 89,0.2 X,0.01 101,0.6 X,0.01 " + #S1P3
- "89,0.4 X,0.01 101,0.4 X,0.01 112,0.8 X,0.01 134,0.4 X,0.01 121,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "112,0.6 X,0.01 134,0.4 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 101,0.4 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 150,0.6 X,0.01 150,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.4 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "112,0.6 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.4 X,0.01 134,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.2 X,0.01 89,0.4 X,0.01 89,0.4 X,0.01 89,0.4 X,0.01 " +
- "168,0.6 X,0.01 178,0.6 X,0.01 134,1.8 X,0.01 134,0.2 X,0.01 134,0.4 X,0.01 " +
- "112,0.2 X,0.01 101,0.6 X,0.01 112,0.2 X,0.01 101,0.4 X,0.01 89,1.2 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.6 X,0.01 112,0.2 X,0.01 " +
- "101,0.4 X,0.01 89,0.4 X,0.01 89,0.8 X,0.1 112,0.2 X,0.01 121,0.4 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.6 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "101,0.4 X,0.01 101,0.8 X,0.01 89,0.4 X,0.01 134,0.8 X,0.01 150,0.8 X,0.01 " +
- "150,0.8 X,0.01 168,0.8 X,0.01 168,0.8 X,0.01 178,0.8 X,0.01 178,1.6 " +
- "X,0.01 " + #S1P4
- "89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 112,1 X,0.01 89,0.2 X,0.01 " +
- "89,0.2 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 " +
- "101,0.4 X,0.01 134,0.4 X,0.01 112,0.8 X,0.01 89,0.2 X,0.01 89,0.2 X,0.01 " +
- "89,0.2 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "112,0.6 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.6 X,0.01 112,0.2 X,0.01 " +
- "121,0.4 X,0.01 112,0.6 X,0.01 101,0.2 X,0.01 89,0.2 X,0.01 112,0.4 X,0.01 " +
- "101,0.2 X,0.01 89,0.2 X,0.01 75,1 X,0.01 " + #S2P1
- "75,0.2 X,0.01 75,0.4 X,0.01 89,0.4 X,0.01 75,0.4 X,0.01 112,0.2 X,0.01 " +
- "112,0.6 X,0.01 101,0.8 X,0.01 75,0.4 X,0.01 75,0.4 X,0.01 89,0.2 X,0.01 " +
- "75,0.6 X,0.01 134,0.8 X,0.01 112,0.4 X,0.01 112,0.4 X,0.01 101,0.2 X,0.01 " +
- "101,0.6 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 112,0.6 X,0.01 134,0.4 X,0.01 " +
- "112,0.4 X,0.01 112,0.4 X,0.01 101,0.4 X,0.01 112,0.4 X,0.01 " + #S2P2
- "89,0.4 X,0.01 101,0.4 X,0.01 112,0.8 X,0.01 134,0.4 X,0.01 121,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "112,0.6 X,0.01 134,0.4 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 101,0.4 X,0.01 " +
- "89,0.2 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 150,0.6 X,0.01 150,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.4 X,0.01 101,0.4 X,0.01 89,0.2 X,0.01 101,0.4 X,0.01 " +
- "112,0.6 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.4 X,0.01 134,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.2 X,0.01 89,0.4 X,0.01 89,0.4 X,0.01 89,0.4 X,0.01 " +
- "168,0.6 X,0.01 178,0.6 X,0.01 134,1.8 X,0.01 134,0.2 X,0.01 134,0.4 X,0.01 " +
- "112,0.2 X,0.01 101,0.6 X,0.01 112,0.2 X,0.01 101,0.4 X,0.01 89,1.2 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.6 X,0.01 112,0.2 X,0.01 " +
- "101,0.6 X,0.01 89,0.2 X,0.01 89,0.8 X,0.1 112,0.2 X,0.01 121,0.4 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.6 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "101,0.4 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 67,0.4 X,0.01 84,0.4 X,0.01 " +
- "89,0.8 X,0.01 67,0.4 X,0.01 89,0.4 X,0.01 101,0.4 X,0.01 89,0.4 X,0.01 " +
- "67,0.4 X,0.01 84,0.4 X,0.01 89,0.8 X,0.01 101,0.4 X,0.01 112,0.2 X,0.01 " +
- "101,0.2 X,0.01 89,0.2 X,0.01 84,0.2 X,0.01 75,1 X,0.01 " + #S2P3
- "121,0.2 X,0.01 121,0.2 X,0.01 112,0.2 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 " +
- "101,0.2 X,0.01 89,0.2 X,0.01 75,1.4 X,0.01 112,0.2 X,0.01 121,0.2 X,0.01 " +
- "112,0.2 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 101,0.2 X,0.01 89,0.2 X,0.01 " +
- "112,1.2 X,0.01 112,0.4 X,0.01 112,0.2 X,0.01 121,0.6 X,0.01 112,0.4 X,0.01 " +
- "101,0.2 X,0.01 89,0.6 X,0.01 112,0.8 X,0.01 101,1.2 X,0.01 101,0.4 X,0.01 " +
- "101,0.2 X,0.01 89,1.8 X,0.01 121,0.2 X,0.01 112,0.2 X,0.01 121,0.4 X,0.01 " +
- "112,0.4 X,0.01 101,0.2 X,0.01 89,0.2 X,0.01 89,1.6 X,0.01 112,0.2 X,0.01 " +
- "121,0.2 X,0.01 121,0.4 X,0.01 112,0.4 X,0.01 101,0.2 X,0.01 89,0.2 X,0.01 " +
- "112,1.2 X,0.01 121,0.4 X,0.01 112,0.2 X,0.01 121,0.6 X,0.01 112,0.2 X,0.01 " +
- "101,0.6 X,0.01 89,0.2 X,0.01 150,1 X,0.01 134,1.2 X,0.01 " + #S3
- "94,0.4 X,0.01 106,0.4 X,0.01 121,0.8 X,0.01 142,0.4 X,0.01 121,0.4 X,0.01 " +
- "121,0.4 X,0.01 106,0.4 X,0.01 94,0.2 X,0.01 106,0.4 X,0.01 94,0.4 X,0.01 " +
- "121,0.6 X,0.01 142,0.4 X,0.01 121,0.4 X,0.01 121,0.4 X,0.01 106,0.4 X,0.01 " +
- "94,0.2 X,0.01 106,0.4 X,0.01 94,0.4 X,0.01 159,0.6 X,0.01 159,0.4 X,0.01 " +
- "121,0.4 X,0.01 106,0.4 X,0.01 106,0.4 X,0.01 94,0.2 X,0.01 106,0.4 X,0.01 " +
- "121,0.6 X,0.01 126,0.4 X,0.01 121,0.2 X,0.01 126,0.6 X,0.01 142,0.2 X,0.01 " +
- "121,0.4 X,0.01 106,0.2 X,0.01 94,0.4 X,0.01 94,0.4 X,0.01 94,0.4 X,0.01 " +
- "178,0.6 X,0.01 189,0.6 X,0.01 142,1.8 X,0.01 142,0.2 X,0.01 142,0.4 X,0.01 " +
- "121,0.2 X,0.01 106,0.6 X,0.01 121,0.2 X,0.01 106,0.4 X,0.01 94,1.2 X,0.01 " +
- "121,0.2 X,0.01 126,0.4 X,0.01 121,0.2 X,0.01 126,0.6 X,0.01 121,0.2 X,0.01 " +
- "106,0.6 X,0.01 94,0.2 X,0.01 94,0.8 X,0.01 121,0.2 X,0.01 126,0.4 X,0.01 " +
- "121,0.2 X,0.01 126,0.4 X,0.01 121,0.6 X,0.01 106,0.4 X,0.01 94,0.4 X,0.01 " +
- "106,0.4 X,0.01 106,0.8 X,0.01 94,1.6 X,0.01 94,0.4 X,0.01 142,0.8 X,0.01 " +
- "106,2 X,0.01 94,0.4 X,0.01 142,0.4 X,0.01 94,0.4 X,0.01 94,0.6 X,0.01 " +
- "79,1.4 X,0.01 94,0.4 X,0.01 142,0.4 X,0.01 94,0.4 X,0.01 94,0.6 X,0.01 " +
- "79,0.6 X,0.01 94,1.2 X,0.01 106,0.6 X,0.01 106,0.2 X,0.01 94,4.8" #S4
- Sec = "X,1"
- #Sec = "X,1 44,3.2 X,0.08 42,3.2 X,0.08 38,3.2 X,0.08 30,3.2 X,0.08 44,0.8 X,0.01 "
- SMain = Main:explode(" ")
- SSec = Sec:explode(" ")
- runOnTick(1)
- Section = 0
- Tick = 0
- MI = 1
- SI = 1
- Index = 1
- SI = 1
- holoCreate(1,entity():toWorld(vec(6.7,2.5,13.4)),vec(4/12,18/12,4/12),entity():toWorld(ang()))
- holoParent(1,entity())
- for(H = 0,1){
- holoCreate(2 + H,entity():toWorld(vec(0,-4.5 -(4*H),17)),vec(3/12),entity():toWorld(ang()),vec(150,0,0),"hqsphere")
- }
- for(H = 0,3){
- holoCreate(4 + H,entity():toWorld(vec(0,-0.5 +(3*H),17)),vec(2/12),entity():toWorld(ang()),vec(150,0,0),"hqsphere")
- }
- for(H = 2,7){
- holoParent(H,entity())
- }
- }
- else{
- if(Section == 0 | Section == 1 | Section == 2){
- if(changed(time()) & !changed(Section)){
- if(Section == 2){
- print(2,"Tick time per second: " + Tick:toString())
- }
- Section += 1
- }
- if(Section == 2){
- Tick += 1
- }
- }
- elseif(Section == 3){
- if(changed(Section)){
- PreM = SMain[1,string]:explode(",")[2,string]:toNumber()
- PreS = SSec[1,string]:explode(",")[2,string]:toNumber()
- }
- Run += (1/70)
- for(H = 2,7){
- #holoColor(H,vec(150,0,0))
- }
- if(sqrt((floor(Run,2) - PreM)^2) <= 0.01){ # <= blunt range
- if(MI > SMain:count()){
- for(H = 2,3){
- holoColor(H,vec(150,0,0))
- }
- }
- elseif(SMain[MI,string]:explode(",")[1,string] != "X"){
- for(H = 2,3){
- SoundI += 1
- holoEntity(H):soundPlay(SoundI,SMain[MI,string]:explode(",")[2,string]:toNumber(),"synth/tri.wav")
- soundPitch(SoundI,SMain[MI,string]:explode(",")[1,string]:toNumber())
- if(SMain[MI,string]:explode(",")[1,string]:toNumber() > 113){
- if(SMain[MI,string]:explode(",")[1,string]:toNumber() > 135){
- if(SMain[MI,string]:explode(",")[1,string]:toNumber() > 151){
- soundVolume(SoundI,0.4)
- }
- else{
- soundVolume(SoundI,0.5)
- }
- }
- else{
- soundVolume(SoundI,0.6)
- }
- }
- else{
- soundVolume(SoundI,0.9)
- }
- holoColor(H,vec(0,150,0))
- }
- }
- else{
- for(H = 2,3){
- holoColor(H,vec(150,0,0))
- }
- }
- PreM = PreM + SMain[MI,string]:explode(",")[2,string]:toNumber()
- MI += 1
- }
- if(sqrt((floor(Run,2) - PreS)^2) <= 0.01){ # <= blunt range
- if(SI > SSec:count()){
- for(H = 4,7){
- holoColor(H,vec(150,0,0))
- }
- }
- elseif(SSec[SI,string]:explode(",")[1,string] != "X"){
- for(H = 4,7){
- if(3+Index == H){
- SoundI += 1
- holoEntity(H):soundPlay(SoundI,SSec[SI,string]:explode(",")[2,string]:toNumber(),"synth/tri.wav")
- soundPitch(SoundI,SSec[SI,string]:explode(",")[1,string]:toNumber())
- soundVolume(SoundI,0.8)
- holoColor(H,vec(0,150,0))
- }
- else{
- holoColor(H,vec(150,0,0))
- }
- }
- if(Index == 4){
- Index = 1
- }
- else{
- Index += 1
- }
- }
- else{
- for(H = 4,7){
- holoColor(H,vec(150,0,0))
- }
- }
- PreS = PreS + SSec[SI,string]:explode(",")[2,string]:toNumber()
- SI += 1
- }
- if(Run > PreM & Run > PreS){
- Section += 1
- }
- }
- else{
- }
- }
- if(first()){
- Logo = array("",
- "##########################################################################",
- "# #",
- "# ----- #### # #",
- "# --<<<<<<-- # # # #",
- "# -<<<<<<<<<<<-- # # # # #",
- "# |-<<<<<<-#####| # # ### #",
- "# |#-<<-########| # # # #",
- "# |##|##########| # # ### #",
- "# |##|#########= # ## # ## ## #### ## #",
- "# =##|########= # # # # # # # # # # #",
- "# =#|######= # # # ##### ##### #### ##### #",
- "# =#|####= # # # # # # # #",
- "# =|##= # # # # # # # # # # # # #",
- "# == #### # # ### ### #### ### #",
- "# #",
- "##########################################################################")
- timer("L",200)
- }
- if(clk("L")){
- L += 1
- print(2,Logo[L,string])
- if(L < Logo:count()){
- timer("L",200)
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment