AutoHotkey Community

#SingleInstance force
#Persistent
Setkeydelay,1,1

;Pajenn's clipboard
Gosub,Msg
SendMode Input
handleClip("clear")

^!1::handleClip("clear")
^!2::handleClip("get")
^!WheelUp::handleClip("roll")
^!WheelDown::handleClip("rollforward")
^!3::Gosub,DuranDuran
^!4::Gosub,Bing
~^x::
~^c::
   ClipWait, 2
   Sleep, 50
   handleClip("save")
return

handleClip(action)
{
   static
   
   if (action = "save")
   {
      AddNextNum:= AddNextNum < 30 ? AddNextNum+1 : 1
      HighestNum+= HighestNum < 30 ? 1 : 0
      GetNextNum:= AddNextNum , ClipArray%AddNextNum% := Clipboard
   }
   else if ((action = "get") || (action = "roll")) && (GetNextNum != 0)
   {
      if (action = "roll")
         Send ^z
      Clipboard := ClipArray%GetNextNum%
      GetNextNum:= GetNextNum > 1 ? GetNextNum-1 : HighestNum   
      Send ^v
   }
   else if ((action = "rollforward") && (GetNextNum != 0))
   {
      Send, ^z
      GetNextNum:= GetNextNum < HighestNum ? GetNextNum+1 : 1
      Clipboard:= ClipArray%GetNextNum%
      Send, ^v
   }
   else if (action = "clear")
      GetNextNum:=0, AddNextNum=HighestNum=0
     else if (action = "write")
       loop, 15
       {
         If A_Index = 1
           FileAppend, `n%A_Now%`n, %A_ScriptDir%\ClipRing.txt
         If content:= ClipArray%A_Index%
           FileAppend, %content%`n, %A_ScriptDir%\ClipRing.txt
       }
}

DuranDuran:
ClipBoard =
Send,^c
Clipwait,1
Fonda = %ClipBoard%
Loop,Parse,Fonda, `n, `r
{
Autotrim,On
If A_LoopField =
Continue
If A_LoopField = %A_Tab%
Continue
Else
Clipboard = %A_LoopField%
handleClip("save")
Msgbox,,,Item added %A_LoopField%,.2
}
Return

Bing:
ClipBoard =
Send,^c
Clipwait,1
Fonda = %ClipBoard%
Loop,Parse,Fonda,`,
{
Autotrim,On
If Clipboard =
Continue
Clipboard = %A_LoopField%
handleClip("save")
Msgbox,,,Item added %A_LoopField%,.2
}
Return

;-------------------------------

^+Insert::Suspend
^!Escape::Exitapp

BigNose:
ClipBoard =
Send,^c
Clipwait,1
Fonda = %ClipBoard%
Loop,Parse,Fonda,`,`n, `r
{
Autotrim,On
If A_LoopField =
Continue
Else
Clipboard = %A_LoopField%
handleClip("save")
Msgbox,,,Item added %A_LoopField%,.2
}
Return

handleClip(action)
{
  static
  if (action = "save")
  {
    AddNextNum:= AddNextNum < 15 ? AddNextNum+1 : 1
    HighestNum+= HighestNum < 15 ? 1 : 0
    Current := ClipboardAll
    GetNextNum:= AddNextNum, ClipArray%AddNextNum% := Current
  }
}

handleClip(action)
{
    global static AddNextNum
    global static GetNextNum
    global static HighestNum
    global static getprevnum
    global static ClipArray
    global static ClipArray1
    global static ClipArray2
    global static ClipArray3
    global static ClipArray4
    global static ClipArray5
    global static ClipArray6
    global static ClipArray7
    global static ClipArray8
    global static ClipArray9
    global static ClipArray10
    global static ClipArray11
    global static ClipArray12
    global static ClipArray13
    global static ClipArray14
    global static ClipArray15
    global static ClipArray16
    global static ClipArray17
    global static ClipArray18
    global static ClipArray19
    global static ClipArray20
    global static ClipArray21
    global static ClipArray22
    global static ClipArray23
    global static ClipArray24
    global static ClipArray25
    global static ClipArray26
    global static ClipArray27
    global static ClipArray28
    global static ClipArray29
    global static ClipArray30
   
    if (action = "save")
    {
    if (AddNextNum < 30)
    {
        AddNextNum += 1 ;
    }
    else
    {
        AddNextNum := 1 ;
    }
   
   
    if (HighestNum < 30)
    {
        HighestNum += 1 ;
    }
   
        GetNextNum := AddNextNum ;
        ClipArray%AddNextNum% := Clipboard
        highest1 := highestnum + 1
        getprevnum := 1
   
    }
    else if ((action = "get") OR (action = "roll"))
    {
    if (GetNextNum != 0)
    {
        if (action = "roll")
        {
            Send, ^z
        }
        Clipboard := ClipArray%GetNextNum%
        if (GetNextNum > 1)
        {
            GetNextNum -= 1 ;
            getprevnum++
        }
        else
        {
            getprevnum := 1
            GetNextNum := HighestNum
       
        }
        Send, ^v
        }
        }
        else if (action = "get-reverse")
        {
            if (GetNextNum != 0)
        {
       
        Clipboard := ClipArray%getprevnum%
        if (GetNextNum > 1)
        {
            GetNextNum -= 1 ;
            getprevnum++
        }
        else
        {
            getprevnum := 1
            GetNextNum := HighestNum
        }
        Send, ^v
        }
    }
   
   
    else if (action = "rollforward")
    {
        if (GetNextNum != 0)
        {
        Send, ^z
        if (GetNextNum < HighestNum)
        {
        GetNextNum += 1 ;
        }
        else
        {
            GetNextNum := 1
        }
            Clipboard := ClipArray%GetNextNum%
            Send, ^v
        }
    }
    else if (action = "clear")
    {
        GetNextNum := 0
        AddNextNum := 0
        HighestNum := 0
        getprevnum := 0
   
        Loop, 30
        {
            ClipArray%A_Index% :=
        }
        MsgBox, ClipboardQueue Cleared!
    }
}
;===================end of main area ========



#0::
^Del::
    handleClip("clear")
return

^c::
^Up::
    suspend on
    Send, ^c
    suspend off
    handleClip("save")

return

#v::
    handleClip("get")
return

#]::
^Down::
    handleClip("get-reverse")
return

#\::
    handleClip("roll")
return

#^\::
    handleClip("rollforward")
return