From 254cfde5d5c90b9c53ad9dce030ee215013ca460 Mon Sep 17 00:00:00 2001
From: Joaquin Sebastian Ortiz de Zarate <ortizdezarate.joaquin@gmail.com>
Date: Thu, 22 Feb 2024 20:21:46 -0300
Subject: [PATCH] feat: mapa solo para grupos

---
 Codigo/frmMain.frm | 52 +++++++++++++++++++++++++++++++---------------
 git_ignore_case.sh | 30 ++++++++++++++++++++++++++
 2 files changed, 65 insertions(+), 17 deletions(-)
 create mode 100644 git_ignore_case.sh

diff --git a/Codigo/frmMain.frm b/Codigo/frmMain.frm
index 091c2137..84b2adba 100644
--- a/Codigo/frmMain.frm
+++ b/Codigo/frmMain.frm
@@ -4,14 +4,14 @@ Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
 Begin VB.Form FrmMain 
    Appearance      =   0  'Flat
    BackColor       =   &H8000000C&
-   ClientHeight    =   14610
+   ClientHeight    =   14685
    ClientLeft      =   2085
    ClientTop       =   750
    ClientWidth     =   24330
    Icon            =   "frmMain.frx":0000
    KeyPreview      =   -1  'True
    LinkTopic       =   "Form1"
-   ScaleHeight     =   974
+   ScaleHeight     =   979
    ScaleMode       =   3  'Pixel
    ScaleWidth      =   1622
    StartUpPosition =   2  'CenterScreen
@@ -887,7 +887,6 @@ Begin VB.Form FrmMain
       _Version        =   393217
       BackColor       =   0
       BorderStyle     =   0
-      Enabled         =   -1  'True
       TextRTF         =   $"frmMain.frx":9F8A
       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
          Name            =   "Arial"
@@ -911,11 +910,30 @@ Begin VB.Form FrmMain
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
-      Height          =   8055
+      Height          =   8145
       Left            =   22080
       TabIndex        =   107
       Top             =   6480
       Width           =   2175
+      Begin VB.CheckBox MapFlags 
+         BackColor       =   &H80000000&
+         Caption         =   "Solo grupos"
+         BeginProperty Font 
+            Name            =   "Arial"
+            Size            =   8.25
+            Charset         =   0
+            Weight          =   400
+            Underline       =   -1  'True
+            Italic          =   0   'False
+            Strikethrough   =   0   'False
+         EndProperty
+         Height          =   255
+         Index           =   7
+         Left            =   120
+         TabIndex        =   194
+         Top             =   6120
+         Width           =   1935
+      End
       Begin VB.CheckBox MapFlags 
          BackColor       =   &H80000000&
          Caption         =   "Sin mascotas/invocar"
@@ -941,7 +959,7 @@ Begin VB.Form FrmMain
          Left            =   1080
          TabIndex        =   190
          Text            =   "0"
-         Top             =   7155
+         Top             =   7320
          Width           =   495
       End
       Begin VB.TextBox OutX 
@@ -950,7 +968,7 @@ Begin VB.Form FrmMain
          Left            =   600
          TabIndex        =   189
          Text            =   "0"
-         Top             =   7155
+         Top             =   7320
          Width           =   495
       End
       Begin VB.TextBox OutMap 
@@ -959,16 +977,16 @@ Begin VB.Form FrmMain
          Left            =   120
          TabIndex        =   188
          Text            =   "0"
-         Top             =   7155
+         Top             =   7320
          Width           =   495
       End
       Begin VB.TextBox lvlMax 
          Alignment       =   2  'Center
          Height          =   285
-         Left            =   600
+         Left            =   630
          TabIndex        =   185
          Text            =   "0"
-         Top             =   6600
+         Top             =   6840
          Width           =   495
       End
       Begin VB.TextBox lvlMin 
@@ -977,7 +995,7 @@ Begin VB.Form FrmMain
          Left            =   120
          TabIndex        =   184
          Text            =   "0"
-         Top             =   6600
+         Top             =   6840
          Width           =   495
       End
       Begin VB.CheckBox MapFlags 
@@ -1144,7 +1162,7 @@ Begin VB.Form FrmMain
          Height          =   285
          Left            =   120
          TabIndex        =   133
-         Top             =   7680
+         Top             =   7770
          Width           =   1935
       End
       Begin VB.ComboBox txtMapZona 
@@ -1498,7 +1516,7 @@ Begin VB.Form FrmMain
             MaskColor       =   &H00404040&
             TabIndex        =   109
             Top             =   360
-            Width           =   855
+            Width           =   775
          End
       End
       Begin VB.Label Lbl_fuera_del_mapa 
@@ -1516,7 +1534,7 @@ Begin VB.Form FrmMain
          Height          =   255
          Left            =   120
          TabIndex        =   187
-         Top             =   6960
+         Top             =   7140
          Width           =   1215
       End
       Begin VB.Label Lbl_maplvl 
@@ -1532,9 +1550,9 @@ Begin VB.Form FrmMain
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
-         Left            =   120
+         Left            =   90
          TabIndex        =   186
-         Top             =   6150
+         Top             =   6390
          Width           =   1815
       End
       Begin VB.Label Label12 
@@ -1550,9 +1568,9 @@ Begin VB.Form FrmMain
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
-         Left            =   360
+         Left            =   300
          TabIndex        =   132
-         Top             =   7500
+         Top             =   7590
          Width           =   1575
       End
       Begin VB.Label Label11 
diff --git a/git_ignore_case.sh b/git_ignore_case.sh
new file mode 100644
index 00000000..c6cf1cad
--- /dev/null
+++ b/git_ignore_case.sh
@@ -0,0 +1,30 @@
+#!/bin/bash
+
+set -e
+
+#forms, classes and modules
+for file in $(git status --porcelain | grep -E "^.{1}M" | grep -E -v "^R" | cut -c 4-| grep  -e "\.frm" -e "\.bas" -e "\.cls" -e "\.Dsr"); do
+	ORIGFILE=$(mktemp)
+	PATCHFILE=$(mktemp)
+	git cat-file -p :$file > $ORIGFILE
+	diff -i --strip-trailing-cr $ORIGFILE $file > $PATCHFILE || true
+	patch -s $ORIGFILE < $PATCHFILE
+	cp  $ORIGFILE $file
+	rm  $ORIGFILE $PATCHFILE 
+	unix2dos --quiet $file
+done
+
+#projects
+for file in $(git status --porcelain | cut -c 4-| grep -e "\.vbp$"); do
+	echo $file
+	ORIGFILE=$(mktemp)
+	PATCHFILE=$(mktemp)
+	PROCESSEDFILE=$(mktemp)
+	echo $file $ORIGFILE $PATCHFILE $PROCESSEDFILE
+	git cat-file -p :$file > $ORIGFILE
+	cat $ORIGFILE | cut -d "#" -f 1-3 > $PROCESSEDFILE
+	diff -i --strip-trailing-cr $PROCESSEDFILE <(cat $file| cut -d "#" -f 1-3) > $PATCHFILE || true
+	patch -s $ORIGFILE < $PATCHFILE
+	cp $ORIGFILE $file
+	unix2dos --quiet $file
+done
\ No newline at end of file