metin2 nin tüm hileleri
Navigasyon
  Ticaret hilesi
 

Mrb arkadaşlar ilk olarak adam ticaret atın diyelim dolu +7 alıyonuz 3m yi koydunuz bu arada envanteri açın yere para atma ya tıkla adam kabul demeden atcanız parayı adamın ustune koyun ve çok hızlı olun olmazsanız 3m elden gider  xD

  
  Bugün 2 ziyaretçi (3 klik) kişi burdaydı!  
 
<% '|====================================== '| Forum Kodları Fonksiyonu '| mydesign a.k.a doronty37 '| http://www.mydesign.gen.tr '| mydesign@mydesign.gen.tr '|====================================== Function MesajFormatla(strMesaj) strMesaj = Replace(strMesaj, "<", "&lt;", 1, -1, 1) strMesaj = Replace(strMesaj, ">", "&gt;", 1, -1, 1) strMesaj = Replace(strMesaj, Chr(10), "
", 1, -1, 1) strMesaj = Replace(strMesaj, "[B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ";)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":O", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":))", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":S", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":(", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":'(", "", 1, -1, 1) Do While inStr(strMesaj, "[URL=") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL=", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "]", """ target=""_blank"">", 1, -1, 1) Else strGeciciMesaj = strGeciciMesaj & ">" End If strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[URL]") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL]", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "[/URL]", "", 1, -1, 1) strGeciciMesaj = "" & strGeciciMesaj & "" strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[QUOTE=") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(1, strMesaj, "[QUOTE=", 1) + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "]", 1) If DeyimBaslangici > 6 And DeyimSonu > 0 Then strYazan = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) End If DeyimBaslangici = DeyimBaslangici + Len(strYazan) + 1 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu - DeyimBaslangici =< 0 Then DeyimSonu = DeyimBaslangici + Len(strYazan) If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strYazan = Replace(strYazan, """", "", 1, -1, 1) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı Sahibi: " & strYazan & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]") + 8 If DeyimSonu - DeyimBaslangici =< 7 Then DeyimSonu = DeyimBaslangici + Len(strYazan) + 8 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop Do While inStr(strMesaj, "[QUOTE]") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(strMesaj, "[QUOTE]") + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı:
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) + 8 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop MesajFormatla = strMesaj End Function %>
Bu web sitesi Bedava-Sitem.com ile ücretsiz oluşturuldu. Siz de kendi web sitenizi ister misiniz?
Ücretsiz kayıt ol