minigames backup 09.12.23

--Use w/s to control player one and arrow up/down
--for Player two




--
--periphemu.create("top","speaker",1)
speaker = peripheral.wrap("top")
sound_status="on"
volume=1
--

function startup_menu()
term.setBackgroundColor(colors.black)
term.clear()
headline("Start menu")
button(" Pong",16,6,25,8)
button(" Exit",44,16,51,18)
button(" Update",15,10,26,13)
button("Click me",27,6,37,8)
button("Sounds:",28,10,37,13)
button("Snake",28,14,37,16)
term.setCursorPos(17,12)
term.write("History")
term.setCursorPos(31,12)
term.write(sound_status.." ")
    b_check=false
  while true do
  pull()

    if button_check(28,10,37,13) then
      if sound_status=="on" then
      sound_status="off"
      volume=0
      else
      sound_status="on"
      volume=1
      end
    term.setCursorPos(31,12)
    term.write(sound_status.." ")
    end

    if button_check(28,14,37,16) then
    snake()
    end

    if button_check(16,6,25,8) then
    info_1=0
    player_menu()
    end

    if button_check(44,16,51,18) then
    term.clear()
    term.setCursorPos(-1,1)
    error()
    end

    if button_check(15,10,26,13) then
    update_history()
    end

    if button_check(27,6,37,8) then
    difficulty_menu("Click me")
    end
  end
end



function update_history()
term.clear()
headline("Update History")
term.setCursorPos(1,4)
print("1.0: Completed basic game")
print("1.1: Difficulties, Better Interface, start menu")
print("1.2: Singleplayer mode, Better Interface, bug fixes")
print("1.3: Vs bot mode, Update History, added Score")
button("Home",38,16,50,18)
  while 1==1 do
  pull()
    if button_check(38,16,50,18) then
    info_1=0
    startup_menu()
    end
  end
end



function player_menu()
is_bot=false
term.clear()
headline("Pong")
button(" 1 Player",5,6,17,10)
button(" 2 Players",19,6,31,10)
button("Vs Bot",33,6,45,10)
button("comming soon",19,12,31,16)
b_check=false
  while true do
  pull()
    if button_check(5,6,17,10) then
    info_1=0
    player_count=1
    difficulty_menu("Pong")
    end

    if button_check(19,6,31,10) then
    info_1=0
    player_count=2
    difficulty_menu("Pong")
    end

    if button_check(33,6,45,10) then
    info_1=0
    player_count=2
    is_bot=true
    difficulty_menu("Pong")
    end
  end
end


function difficulty_menu(what_game)
term.clear()
headline(what_game)
button("Normal",22,7,32,11)
button("Easy",8,7,18,11)
button("Hard",36,7,46,11)
button(" Extreme",22,13,32,17)
button("Insane",36,13,46,17)
b_check=false
  while not b_check do
  pull()
  b_check=button_check(22,7,32,11)
    if b_check then
      if what_game=="Pong" then
      info_1=0
      bot_dif=7
      pong(0.1)
      end
      if what_game=="Click me" then
      click_me(0.8)
      end
    end
  b_check=button_check(8,7,18,11)
    if b_check then
      if what_game=="Pong" then
      info_1=0
      bot_dif=6
      pong(0.13)
      end
      if what_game=="Click me" then
      click_me(1)
      end
    end
  b_check=button_check(36,7,46,11)
    if b_check then
      if what_game=="Pong" then
      info_1=0
      bot_dif=8
      pong(0.07)
      end
      if what_game=="Click me" then
      click_me(0.6)
      end
    end
  b_check=button_check(22,13,32,17)
    if b_check then
      if what_game=="Pong" then
      info_1=0
      bot_dif=9
      pong(0.05)
      end
      if what_game=="Click me" then
      click_me(0.5)
      end
    end

    if button_check(36,13,46,17) then
      if what_game=="Pong" then
      info_1=0
      bot_dif=9
      pong(0.04)
      end

      if what_game=="Click me" then
      click_me(0.45)
      end
    end
  end
end


function snake()
score=0
game_running=true
lives=1
snake_len=2
snake_dir="up"
snake_head_x=15
snake_head_y=7
snake_field_x1=1
snake_field_y1=1
snake_field_x2=30
snake_field_y2=14
snake_x={0}
snake_y={0}
--snake_x={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
--snake_y={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
do_gen_point=true
term.clear()
square(snake_field_x1,snake_field_y1,snake_field_x2,snake_field_y2,colors.gray," "," ")
button(" Home",44,16,51,18)
print_snake()
write_lives_s()
write_score()
os.sleep(1.5)
  while game_running do
    if do_gen_point then
    gen_point()
    end
  print_snake()
  os.startTimer(0.1)
  info_1=0
  check_snake()
  i=snake_len
    while i>0 do
    snake_x[i] = snake_x[i-1]
    snake_y[i] = snake_y[i-1]
    i=i-1
    end
  snake_x[1] = snake_head_x
  snake_y[1] = snake_head_y
  write_score()
    while info_1~="timer" do
    pull()

      if button_check(44,16,51,18) then
      startup_menu()
      end

      if w_key() and snake_dir~="down" then
      snake_dir="up"
      end

      if s_key() and snake_dir~="up" then
      snake_dir="down"
      end

      if a_key() and snake_dir~="right" then
      snake_dir="left"
      end

      if d_key() and snake_dir~="left" then
      snake_dir="right"
      end
    end

    if snake_dir=="up" then
    snake_head_y=snake_head_y-1
    end

    if snake_dir=="down" then
    snake_head_y=snake_head_y+1
    end

    if snake_dir=="left" then
    snake_head_x=snake_head_x-1
    end

    if snake_dir=="right" then
    snake_head_x=snake_head_x+1
    end

   if snake_head_x==snake_field_x1 then
   snake_head_x=snake_field_x2-1
   end


   if snake_head_x==snake_field_x2 then
   snake_head_x=snake_field_x1+1
   end


   if snake_head_y==snake_field_y1 then
   snake_head_y=snake_field_y2-1
   end


   if snake_head_y==snake_field_y2 then
   snake_head_y=snake_field_y1+1
   end
  --check_snake()
  write_lives_s()
  clear_snake()
  end

end



function write_lives_s()
term.setBackgroundColor(colors.black)
term.setCursorPos(1,16)
term.setTextColor(colors.red)
  if lives > 1 or lives==0 then
  term.write(lives.." lives left")
  else
  term.write(lives.." live left  ")
  end
term.setTextColor(colors.white)
end


function gen_point()
do_for=1
  while do_for>0 do
  point_pos_x=math.random(2,29)
  point_pos_y=math.random(2,13)
  i=snake_len
    while i>0 do
      if point_pos_x==snake_x[i] and point_pos_y==snake_y[i] then
      do_for=do_for+2
      end
    i=i-1
    end
  do_for=do_for-1
  end
term.setBackgroundColor(colors.yellow)
term.setCursorPos(point_pos_x,point_pos_y)
term.write(" ")
do_gen_point=false
end




function check_snake()
i=2
  while i<snake_len+1 do
    if snake_head_x==snake_x[i] and snake_head_y==snake_y[i] then
    lives=lives-1
    game_running=false
    end
  i=i+1
  end

  if snake_head_x==point_pos_x and snake_head_y==point_pos_y then
  snake_len=snake_len+1
  do_gen_point=true
  score=score+5
  end
end


function clear_snake()
term.setBackgroundColor(colors.black)
term.setCursorPos(snake_x[snake_len],snake_y[snake_len])
term.write(" ")
end


function print_snake()
term.setCursorPos(snake_head_x,snake_head_y)
term.setBackgroundColor(colors.green)
term.write(" ")
end

function click_me(game_speed)
term.clear()
click_speed=game_speed
game_time=10
score=0


  while game_time~=0 do
  filled_square(3,3,9,6,colors.lightGray)
  filled_square(11,3,17,6,colors.lightGray)
  filled_square(19,3,25,6,colors.lightGray)
  filled_square(3,8,9,11,colors.lightGray)
  filled_square(11,8,17,11,colors.lightGray)
  filled_square(19,8,25,11,colors.lightGray)
  filled_square(3,13,9,16,colors.lightGray)
  filled_square(11,13,17,16,colors.lightGray)
  filled_square(19,13,25,16,colors.lightGray)

  old_cw=cw
    while old_cw==cw do
    cw=math.random(1,9)
    end
  ct=0

    if cw==1 then
    filled_square(3,3,9,6,colors.green)
    end

    if cw==2 then
    filled_square(11,3,17,6,colors.green)
    end

    if cw==3 then
    filled_square(19,3,25,6,colors.green)
    end

    if cw==4 then
    filled_square(3,8,9,11,colors.green)
    end

    if cw==5 then
    filled_square(11,8,17,11,colors.green)
    end

    if cw==6 then
    filled_square(19,8,25,11,colors.green)
    end

    if cw==7 then
    filled_square(3,13,9,16,colors.green)
    end

    if cw==8 then
    filled_square(11,13,17,16,colors.green)
    end

    if cw==9 then
    filled_square(19,13,25,16,colors.green)
    end
  write_score()
  write_lives_c()
  timer_number=os.startTimer(game_speed)

    while info_1~="timer" and ct==0 do
    pull()

      if button_check(3,3,9,6) then
      ct=1
      end

      if button_check(11,3,17,6) then
      ct=2
      end

      if button_check(19,3,25,6) then
      ct=3
      end

      if button_check(3,8,9,11) then
      ct=4
      end

      if button_check(11,8,17,11) then
      ct=5
      end

      if button_check(19,8,25,11) then
      ct=6
      end

      if button_check(3,13,9,16) then
      ct=7
      end

      if button_check(11,13,17,16) then
      ct=8
      end

      if button_check(19,13,25,16) then
      ct=9
      end
    end

    if ct==cw then
    score=score+10
    speaker.playNote("bit",volume/2.5,20)
    else
    game_time=game_time-1
    write_lives_c()
      if cw==1 then
      filled_square(3,3,9,6,colors.red)
      end

      if cw==2 then
      filled_square(11,3,17,6,colors.red)
      end

      if cw==3 then
      filled_square(19,3,25,6,colors.red)
      end

      if cw==4 then
      filled_square(3,8,9,11,colors.red)
      end

      if cw==5 then
      filled_square(11,8,17,11,colors.red)
      end

      if cw==6 then
      filled_square(19,8,25,11,colors.red)
      end

      if cw==7 then
      filled_square(3,13,9,16,colors.red)
      end

      if cw==8 then
      filled_square(11,13,17,16,colors.red)
      end

      if cw==9 then
      filled_square(19,13,25,16,colors.red)
      end
    speaker.playNote("bit",volume,0)
    sleep(0.3)
    end
  os.cancelTimer(timer_number)
  info_1=0
  end
sleep(0.8)
term.clear()
term.setCursorPos(13,9)
term.write(" Your Score is: "..score)
term.setTextColor(colors.white)
square(11,7,34,11,colors.black,"-","|")
button(" Home",44,16,51,18)
button(" Play again",1,16,14,18)
  while 1==1 do
  pull()

    if button_check(45,16,51,18) then
    startup_menu()
    end

    if button_check(1,16,13,18) then
    click_me(click_speed)
    end
  end
end



function write_lives_c()
term.setBackgroundColor(colors.black)
term.setTextColor(colors.red)
term.setCursorPos(10,1)
  if game_time>1 then
  term.write(game_time.." ".."Lives left  ")
  else
  term.write(game_time.." ".."Live left  ")
  end
end



function filled_square(fill_x1,fill_y1,fill_x2,fill_y2,fill_color)
term.setBackgroundColor(fill_color)
curr_fill_pos_x=fill_x1
curr_fill_pos_y=fill_y1
  while curr_fill_pos_y~=fill_y2+1 do
    while curr_fill_pos_x~=fill_x2+1 do
    term.setCursorPos(curr_fill_pos_x,curr_fill_pos_y)
    term.write(" ")
    curr_fill_pos_x=curr_fill_pos_x+1
    end
  curr_fill_pos_x=fill_x1
  curr_fill_pos_y=curr_fill_pos_y+1
  end
term.setBackgroundColor(colors.black)
end





function button_check(b_check_x1,b_check_y1,b_check_x2,b_check_y2)
  if info_1=="mouse_click" and info_3 > b_check_x1-1 and info_3 < b_check_x2+1 and info_4 > b_check_y1-1 and info_4 < b_check_y2+1 then
  return true
  else
  return false
  end
end



function button(button_text,button_pos_x1,button_pos_y1,button_pos_x2,button_pos_y2)
term.setTextColor(colors.green)
square(button_pos_x1,button_pos_y1,button_pos_x2,button_pos_y2,colors.black,"-","|")
term.setCursorPos(button_pos_x1-string.len(button_text)/2+(button_pos_x2-button_pos_x1)/2,button_pos_y1+(button_pos_y2-button_pos_y1)/2)
term.write(button_text)
end






function headline(headline)
headline_lenght=string.len("   "..headline.."   ")
headline_pos=27-headline_lenght/2
term.setCursorPos(headline_pos,1)
term.setBackgroundColor(colors.yellow)
term.setTextColor(colors.blue)
term.write("   "..headline.."   ")
term.setBackgroundColor(colors.black)
term.setTextColor(colors.white)
end



function reset_players()
player_clear=2
  for i=1,12 do
  term.setCursorPos(2,player_clear)
  term.write(" ")
  term.setCursorPos(39,player_clear)
  term.write(" ")
  player_clear=player_clear+1
  end
pla1_a=6
pla1_b=9
pla2_a=6
pla2_b=9
player_1_pos(0)
  if player_count>1 then
  bot_reset=true
  player_2_pos(0)
  end
end



function reset_player_data()
player_1_lives=3
player_2_lives=3

player_1_pos_a=6
player_1_pos_b=8
pla1_a=player_1_pos_a
pla1_b=player_1_pos_b

player_2_pos_a=6
player_2_pos_b=8
pla2_a=player_2_pos_a
pla2_b=player_2_pos_b
end



function write_lives_p()
term.setCursorPos(1,16)
term.setTextColor(colors.red)
  if player_1_lives > 1 then
  term.write("Player 1: "..player_1_lives.." lives")
  else
  term.write("Player 1: "..player_1_lives.." live")
  end
  if player_count>1 then
  term.setCursorPos(1,17)
    if player_2_lives > 1 then
    term.write("Player 2: "..player_2_lives.." lives")
    else
    term.write("Player 2: "..player_2_lives.." live")
    end
  end
term.setTextColor(colors.white)
end



function check_ball_pos()
  if pos_x==pong_field_x1+2 then
    if pos_y==pla1_a or pos_y==pla1_a+1 or pos_y==pla1_a+2 then
    return true
    end
  end

  if player_count>1 then
    if pos_x==pong_field_x2-2 then
      if pos_y==pla2_a or pos_y==pla2_a+1 or pos_y==pla2_a+2 then
      return true
      end
    end
  end
end



function player_bot_pos(plus_min2)
if math.random(0,10) < bot_dif+1 or bot_reset then
  if plus_min2==1 then
    if pla2_a~=11 then
    term.setCursorPos(39,pla2_a)
     print(" ")
     end
  else
    if pla2_a~=2 then
    term.setCursorPos(39,pla2_b-1)
    print(" ")
    end
  end
term.setTextColor(colors.green)
  if pla2_a~=2 or plus_min2~=-1 then
    if pla2_a~=11 or plus_min2~=1 then
    pla2_a=pla2_a+plus_min2
    pla2_b=pla2_b+plus_min2
    pos2_a=pla2_a
      for i=1,3 do
      term.setCursorPos(39,pos2_a)
      term.write("|")
      pos2_a=pos2_a+1
      end
    end
  end
term.setTextColor(colors.white)
end
bot_reset=false
end



function player_2_pos(plus_min2)
  if is_bot then
    if do_bot_move then
    do_bot_move=false
    player_bot_pos(plus_min2)
    end
  else

  if plus_min2==1 then
    if pla2_a~=11 then
    term.setCursorPos(39,pla2_a)
     print(" ")
     end
  else
    if pla2_a~=2 then
    term.setCursorPos(39,pla2_b-1)
    print(" ")
    end
  end
term.setTextColor(colors.green)
  if pla2_a~=2 or plus_min2~=-1 then
    if pla2_a~=11 or plus_min2~=1 then
    pla2_a=pla2_a+plus_min2
    pla2_b=pla2_b+plus_min2
    pos2_a=pla2_a
      for i=1,3 do
      term.setCursorPos(39,pos2_a)
      term.write("|")
      pos2_a=pos2_a+1
      end
    end
  end
term.setTextColor(colors.white)
end
end



function player_1_pos(plus_min)
  if plus_min==1 then
    if pla1_a~=11 then
    term.setCursorPos(2,pla1_a)
    print(" ")
    end
  else
    if pla1_a~=2 then
    term.setCursorPos(2,pla1_b-1)
    print(" ")
    end
  end
term.setTextColor(colors.green)
  if pla1_a~=2 or plus_min~=-1 then
    if pla1_a~=11 or plus_min~=1 then
    pla1_a=pla1_a+plus_min
    pla1_b=pla1_b+plus_min
    pos1_a=pla1_a
      for i=1,3 do
      term.setCursorPos(2,pos1_a)
      term.write("|")
      pos1_a=pos1_a+1
      end
    end
  end
term.setTextColor(colors.white)
end



function square(x1,y1,x2,y2,back_color_square,symbol_square_x,symbol_square_y)

x_1=x1
y_1=y1
x_2=x2
y_2=y2
  while x_1~=x2+1 do
  term.setBackgroundColor(back_color_square)
  term.setCursorPos(x_1,y_1)
  term.write(symbol_square_x)
  x_1=x_1+1
  end

  while y_1~=y2-1 do
  term.setCursorPos(x_1-1,y_1+1)
  term.write(symbol_square_y)
  y_1=y_1+1
  end
x2=x2-1
  while x_2~=x1-1 do
  term.setCursorPos(x_2,y_2)
  term.write(symbol_square_x)
  x_2=x_2-1
  end

  while y_2~=y1+1 do
  term.setCursorPos(x_2+1,y_2-1)
  term.write(symbol_square_y)
  y_2=y_2-1
  end
term.setBackgroundColor(colors.black)
end



function ball()
  if ball_test~=1 then
  pos_x=20
  pos_y=7
  term.setCursorPos(pos_x,pos_y)
  term.write("o")
  reset_players()
  sleep(1)
  speaker.playNote("bit",volume*2,22)
  dir_x=math.random(0,1)
  dir_y=math.random(0,1)
  ball_test=1
  end
old_dir_x=dir_x
old_x=pos_x
old_y=pos_y

  if dir_x==0 then
  pos_x=pos_x+1
  else
  pos_x=pos_x-1
  end

  if dir_y==0 then
  pos_y=pos_y+1
  else
  pos_y=pos_y-1
  end

  if pos_x==pong_field_x2-2 and player_count>1 or pos_x==pong_field_x1+2 then

    if check_ball_pos() then
      if dir_x==0 then
      dir_x=1
      else
      dir_x=0
      end
    end
  end

  if pos_y==13 or pos_y==2 then
    if dir_y==0 then
    dir_y=1
    else
    dir_y=0
    end
  end
term.setCursorPos(pos_x,pos_y)
term.write("o")

  if pos_x==pong_field_x2-1 then
    if player_count>1 then
    clear_ball()
    player_2_lives=player_2_lives-1
    speaker.playNote("bit",volume,3)
    sleep(0.1)
    speaker.playNote("bit",volume,2)
    sleep(0.1)
    speaker.playNote("bit",volume,0)
    ball_test=0
    else
      if dir_x==0 then
      dir_x=1
      else
      dir_x=0
      end
    end
  end

  if pos_x==pong_field_x1+1 then
  clear_ball()
  player_1_lives=player_1_lives-1
  ball_test=0
  speaker.playNote("bit",volume,3)
  sleep(0.1)
  speaker.playNote("bit",volume,2)
  sleep(0.1)
  speaker.playNote("bit",volume,0)
  end

if old_dir_x~=dir_x then
speaker.playNote("bit",volume,18)
end
end



function pull()
info_1,info_2,info_3,info_4=os.pullEvent()
end



function clear_ball()
term.setCursorPos(old_x,old_y)
term.write(" ")
end



function write_score()
term.setBackgroundColor(colors.black)
term.setTextColor(colors.green)
term.setCursorPos(42,2)
term.write("Score:")
term.setTextColor(colors.red)
term.setCursorPos(44,4)
term.write(score)
term.setTextColor(colors.white)
end



function s_key()
  if info_1=="key" and (info_2==83 or info_2==31) then
  return true
  end
end



function w_key()
  if info_1=="key" and (info_2==87 or info_2==17) then
  return true
  end
end



function arrow_down_key()
  if info_1=="key" and (info_2==265 or info_2==200) then
  return true
  end
end



function arrow_up_key()
  if info_1=="key" and (info_2==264 or info_2==208) then
  return true
  end
end



function a_key()
  if info_1=="key" and info_2==30 then
  return true
  end
end



function d_key()
  if info_1=="key" and info_2==32 then
  return true
  end
end


function pong(ball_speed)
term.clear()

score=0
pong_field_x1=1
pong_field_y1=1
do_bot_move=true

  if player_count==2 then
  pong_field_x2=40
  pong_field_y2=14
  end

  if player_count==1 then
  pong_field_x2=30
  pong_field_y2=14
  end


current_ball_speed=ball_speed
reset_player_data()
square(pong_field_x1,pong_field_y1,pong_field_x2,pong_field_y2,colors.white," "," ")
player_1_pos(0)
write_score()
  if player_count>1 then
  player_2_pos(0)
  end

  while player_1_lives>0 and player_2_lives>0 do
  do_bot_move=true
  write_lives_p()
  ball()
  clear_ball()
  info_1=0
  write_score()
  os.startTimer(ball_speed)
    while info_1~="timer" do
    info_1=0
    pull()

      if w_key() then
      player_1_pos(-1)
      player_1_pos(-1)
      end

      if s_key() then
      player_1_pos(1)
      player_1_pos(1)
      end

      if player_count>1 and not is_bot then
        if arrow_down_key() then
        player_2_pos(-1)
        player_2_pos(-1)
        end

        if arrow_up_key() then
        player_2_pos(1)
        player_2_pos(1)
        end
      end

      if is_bot then
        if pla2_a+1 > pos_y then
        player_2_pos(-1)
        do_check=true
        check_ball_for_bot=pos_y
        end

        if pla2_a+1 < pos_y then
        player_2_pos(1)
        check_ball_for_bot=pos_y
        end
      end
    end
    score=score+1
  end
write_lives_p()
sleep(1)
term.clear()
square(13,8,35,12,colors.black,"-","|")
term.setTextColor(colors.red)
term.setCursorPos(14,10)
if player_1_lives~=0 then
term.write("   Player 1 wins")
else
term.write("   Player 2 wins")
end
button("Home",1,16,16,18)
button(" Play again",38,16,51,18)
b_check=false
  while not b_check do
  pull()
  b_check=button_check(1,16,16,18)
    if b_check then
    startup_menu()
    end
  b_check=button_check(38,16,51,18)
    if b_check then
    pong(current_ball_speed)
    end
  end
end


startup_menu()