Initial commit: MQL5 Scripts Collection (MetaTrader 5)

2025-06-24 00:33:04 +01:00
commit 60a549d89c
1959 changed files with 31907 additions and 0 deletions
@@ -0,0 +1,71 @@
+#property copyright           "Mokara"
+#property link                "https://www.mql5.com/en/users/mokara"
+#property description         "Coin Toss"
+#property version             "1.0"
+#property script_show_inputs  true
+
+#define MAGIC 5050;
+
+enum TYPE_TRADE
+{
+   TRADE_SELL = 0,
+   TRADE_BUY = 1
+};
+
+input int Range = 500;     //Range in Pips
+input double Lots = 0.01;  //Lots
+
+void DrawHLine(string n, int c, int s, double y)
+{
+   if(ObjectFind(0, n) == 0) ObjectDelete(0, n);
+   ObjectCreate(0, n, OBJ_HLINE, 0, 0, y);
+   ObjectSetInteger(0, n, OBJPROP_COLOR, c);
+   ObjectSetInteger(0, n, OBJPROP_STYLE, s);
+}
+
+void OnStart()
+{
+   MqlTradeRequest tReq = {0};
+   MqlTradeResult tRes = {0};
+   int tType = -1;   
+   
+   MathSrand(GetTickCount());
+   tType = int(MathRand() % 2);
+   
+   ZeroMemory(tReq);
+   tReq.symbol = _Symbol;
+   tReq.volume = Lots;
+   tReq.action = TRADE_ACTION_DEAL;
+   tReq.deviation = 5;
+   tReq.magic = MAGIC;
+   
+   switch(tType)
+   {
+      case TRADE_SELL: 
+            tReq.type = ORDER_TYPE_SELL; 
+            tReq.price = SymbolInfoDouble(_Symbol, SYMBOL_BID); 
+            tReq.tp = tReq.price - NormalizeDouble(Range * _Point, _Digits);
+            tReq.sl = tReq.price + NormalizeDouble(Range * _Point, _Digits);
+            break;
+      case TRADE_BUY: 
+            tReq.type = ORDER_TYPE_BUY; 
+            tReq.price = SymbolInfoDouble(_Symbol, SYMBOL_ASK); 
+            tReq.tp = tReq.price + NormalizeDouble(Range * _Point, _Digits);
+            tReq.sl = tReq.price - NormalizeDouble(Range * _Point, _Digits);
+            break;
+      default: Print("ERROR: order type. " + GetLastError()); return;
+   }
+   
+   if(!OrderSend(tReq, tRes))
+   {
+      Print("ERROR: order send. " + GetLastError());
+      Print(tReq.price);
+      Print(tReq.tp);
+      Print(tReq.sl);
+      return;
+   }
+   
+   DrawHLine("ENTRY", clrAqua, STYLE_DOT, tReq.price);
+   DrawHLine("TP", clrLime, STYLE_SOLID, tReq.tp);
+   DrawHLine("SL", clrRed, STYLE_SOLID, tReq.sl);  
+}