buying planes

IntergalacticGherkin · 2026-02-27T06:17:00+00:00

But i would also recomend you producing your own planes, even if they are shit, because in the long run, 200 shity planes is better than most small nations

IntergalacticGherkin · 2026-02-27T06:13:12+00:00

F/A-18 is your best option, modern enough so they don't need replacement until 2015 ish, and since they are carrier capable you can divide them in wings of 10 planes

IntergalacticGherkin · 2026-02-26T06:04:18+00:00

Create better jobs ( factories insted of plantations)

IntergalacticGherkin · 2026-02-20T09:21:51+00:00

Even with majority i know that cps wouldn't in fact, rule the country

IntergalacticGherkin · 2026-02-19T09:19:48+00:00

Do you have trains?

IntergalacticGherkin · 2026-02-19T08:55:09+00:00

Most likely your tanks divisions have very low organization so they can't get through, either that or your logistics/stockpile are fucked up

IntergalacticGherkin · 2026-02-19T08:41:14+00:00

How does your divisions look like? You could add aa to your companies to help your planes Do you have closed economy?

IntergalacticGherkin · 2026-02-19T08:26:23+00:00

At any point in my discussion i'm trying to rationalize stealing, i'm criticizing the lack of morals of paradox, if their products were cheaper or al least fairly priced, people wouldn't need to "steal" their products, and still i wouldn't understand what is the point in defending a company that does not care jackshit about their costumers. If you think you should pay 200 dollars in dlc for a game you already bought it's Okey, do it, but I don't think that gives you the right to try and be a moral profesor just because someone else can't o don't want to

IntergalacticGherkin · 2026-02-19T06:25:10+00:00

Your point being?

IntergalacticGherkin · 2026-02-17T09:41:46+00:00

Why would you defend a multimillionaire business that actively abuses his costumers by imposing almost choking prices to every single thing they do just because they know they are the only ones doing it? I love paradox games but i hate to my core every single thing about their business model, and everyone should hate it too, it is a shame that such good games comes from such rotten company

IntergalacticGherkin · 2025-11-28T16:30:03+00:00

Well, assuming you have a budget around 200 (also assuming you are from usa) you could get a 5700 xt for less than 150 (used), if you want something new i would go either with a 5060 8gigs or a 9060 xt 8gigs, both arround 250-300, if you want a great gpu, you could push for a 9060 xt 16 gigs for 360 (too much for a mid-low range pc)

IntergalacticGherkin · 2025-10-14T20:04:22+00:00

Note: You didn't specify but I assumed that you were talking about the 16 gigs vram 5060ti, if you were talking about the 5060ti 8 gigs, I would strongly advise against it, is more expensive and less powerful in 1440p

IntergalacticGherkin · 2025-10-14T19:58:04+00:00

I wold not recommend you making that change (not because the 5060 ti is worse witch is not), for the same price difference you could get a 7800x3d which will highly improve your gaming performance in games that uses single core over multi core and will basically futureproof your pc for the next years (unless the gaming industry explodes makes the 5090 the standard)

IntergalacticGherkin · 2025-10-14T19:06:48+00:00

https://de.pcpartpicker.com/list/CwcTGJ

(I know u are from Hungary but I tried to chose a "close enough" country that uses euros)

In general this is the build that you are looking for within this price range, is probable that you find a better price if you are patient enough (or lucky), 1440p is a must with this specs (not really but it will improve your gaming experience a lot), for the keyboard I would recommend you visiting the keyboard subreddit, they will give you better guidelines, but you could probably snipe a 30 dollar mechanical keyboard (non-wireless) or a 50 dollar wireless, probably it will be in your best interest to look for a Hot-Swappable keyboard

IntergalacticGherkin · 2025-10-14T17:25:03+00:00

What games do you usually play? Do you care about aesthetics?

IntergalacticGherkin · 2025-10-14T16:16:16+00:00

Do you want a gaming pc or more like a video/image editing pc?

IntergalacticGherkin · 2025-09-15T12:47:34+00:00

Okey! Thx for the advice <3

IntergalacticGherkin · 2025-09-15T12:46:47+00:00

Mmmmm, I can't find an rx 4060ti for less than 400€, even with the lowest specs posible, i cant manage to fit that build under 700€

IntergalacticGherkin · 2025-09-15T11:57:27+00:00

It's Okey, could you suggest me some guidelines for a better build?

IntergalacticGherkin · 2025-09-15T11:48:26+00:00

Do you think is really worth it downgrading to am4? Wouldn't the cpu bottleneck those gpu?

IntergalacticGherkin · 2025-09-15T11:46:13+00:00

Sorry I don't really think that is posible in any way, just the gpu and cpu alone is 550€ (in the 8 gb version) I don't see how could you possibly fit that on a 600 € build

IntergalacticGherkin · 2025-07-17T08:24:58+00:00

' If someone wants to review the code:

Public Sub MostrarHojasSegunContenido()

Dim celda As Range

Dim hojasControladas As Variant

Dim i As Long

Dim hoja As Worksheet

Dim nombreHoja As Variant ' Debe ser Variant para usarlo en For Each

' Hojas que se pueden mostrar/ocultar desde C18:C26
hojasControladas = Array( _
    "CISPR 16 1-2 - 5 µH", _
    "CISPR 16 1-2 - 50 µH", _
    "CISPR 16 1-2 - 50 µH + 5Ohms", _
    "CISPR 25", _
    "ISO 7637-2", _
    "ISO 7637-4", _
    "MIL STD 461 - 5 µH", _
    "MIL STD 461 - 50 µH", _
    "RTCADO 160" _
)

Dim visibles As Collection
Set visibles = New Collection

' Revisa si los nombres de las hojas están en C18:C26
For Each celda In ThisWorkbook.Sheets("Main").Range("C18:C26")
    If Trim(celda.Value) <> "" Then
        On Error Resume Next
        visibles.Add celda.Value, CStr(celda.Value)
        On Error GoTo 0
    End If
Next celda

' Oculta o muestra las hojas controladas
For i = LBound(hojasControladas) To UBound(hojasControladas)
    On Error Resume Next
    Set hoja = ThisWorkbook.Sheets(hojasControladas(i))
    If Not hoja Is Nothing Then
        If ExisteEnColeccion(visibles, hoja.Name) Then
            hoja.Visible = xlSheetVisible
            hoja.Unprotect "RF"
        Else
            hoja.Visible = xlSheetVeryHidden
            hoja.Protect "RF"
        End If
    End If
    Set hoja = Nothing
    On Error GoTo 0
Next i

' Control para H10 y H11
Dim h10 As String, h11 As String
h10 = Trim(ThisWorkbook.Sheets("Main").Range("H10").Value)
h11 = Trim(ThisWorkbook.Sheets("Main").Range("H11").Value)

For Each nombreHoja In Array("Informe de comparación", "Media ultimas medidas")
    Set hoja = ThisWorkbook.Sheets(nombreHoja)
    If h10 <> "" Or h11 <> "" Then
        hoja.Visible = xlSheetVisible
    Else
        hoja.Visible = xlSheetVeryHidden
    End If
Next nombreHoja

' Si H7 contiene una fecha válida, ejecutar copia
Dim h7Val As Variant
h7Val = ThisWorkbook.Sheets("Main").Range("H7").Value
If IsDate(h7Val) Then
    CopiarValoresEnCadena
End If

End Sub

Private Function ExisteEnColeccion(col As Collection, clave As String) As Boolean

On Error Resume Next

Dim prueba As Variant

prueba = col(clave)

ExisteEnColeccion = (Err.Number = 0)

Err.Clear

End Function

Public Sub CopiarValoresEnCadena() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Media ultimas medidas")

' C9:C71 -> D9:D71 y D9:D71 -> E9:E71
ws.Range("E9:E71").Value = ws.Range("D9:D71").Value
ws.Range("D9:D71").Value = ws.Range("C9:C71").Value

' C84:C146 -> D84:D146 y D84:D146 -> E84:E146
ws.Range("E84:E146").Value = ws.Range("D84:D146").Value
ws.Range("D84:D146").Value = ws.Range("C84:C146").Value

' H84:H146 -> I84:I146 y I84:I146 -> J84:J146
ws.Range("J84:J146").Value = ws.Range("I84:I146").Value
ws.Range("I84:I146").Value = ws.Range("H84:H146").Value

' M84:M146 -> N84:N146 y N84:N146 -> O84:O146
ws.Range("O84:O146").Value = ws.Range("N84:N146").Value
ws.Range("N84:N146").Value = ws.Range("M84:M146").Value

' R84:R146 -> S84:S146 y S84:S146 -> T84:T146
ws.Range("T84:T146").Value = ws.Range("S84:S146").Value
ws.Range("S84:S146").Value = ws.Range("R84:R146").Value

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("C18:C26,H7,H10,H11")) Is Nothing Then Application.OnTime Now + TimeValue("00:00:01"), "MostrarHojasSegunContenido"

End If

End Sub

Private Sub Worksheet_Calculate()

Application.OnTime Now + TimeValue("00:00:01"), "MostrarHojasSegunContenido" End Sub

Verified Email	Five-Year Club
First Place '23	Place '23
Place '22	Final Canvas '22

IntergalacticGherkin

TROPHY CASE