varios codigos

Autolimpiesa



´Servidor

Creamos un Timer en el Frmain con nombre : Tlimpiar

Y dentro de ese timer ponemos:

Código:

MinutosTLimpiar = MinutosTLimpiar + 1 'By ZeiDon o sonter
If MinutosTLimpiar = 2 Then
Call SendData(ToAll, 0, 0, "||Se realizará una limpieza del Mundo en 30 segundos. Por favor recojan sus items." & FONTTYPE_VENENO)
End If
If MinutosTLimpiar = 3 Then
Call SendData(ToAll, 0, 0, "||Se realizará una limpieza del Mundo en 15 segundos. Por favor recojan sus items." & FONTTYPE_VENENO)
End If
If MinutosTLimpiar = 4 Then
Call LimpiarItemsMundo
MinutosTLimpiar = 1
If MinutosTLimpiar = 0 Then
Call senddata("/LIMPIARMUNDO")
Else
If UCase(rdata) = "/NOT" Then
Call SendData(ToAll, 0, 0, "||El Gm &userlist(userindex).name & Ha cancelado el limpiar mundo" & FONTTYPE_FIGHT)
Cancel ("/LIMPIARMUNDO")
End If
End If
End Sub 'By ZeiDon o sonter

/IR1 para entrenar

Código:

Case "/RESUCITAR"

Y arriba ponemos:

Código:

Case "/IR1"

If UserList(UserIndex).POS.Map = 66 Then
Call SendData(ToIndex, UserIndex, 0, "||No puedes salir de la carcel!!!." & FONTTYPE_VENENO)
Exit Sub
End If

If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estás muerto!" & FONTTYPE_TALK)
Exit Sub
End IF

If UserList(UserIndex).flags.Paralizado = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estás paralizado!!." & FONTTYPE_TALK)
Exit Sub
End If

If userlist(userindex).stat.GLD= < 25000 then
CALL SENDDATA(toindex,userindex,0,"||Te cobramos comicion¡" & Fonttype_talk)
End If
Exit Sub

Call WarpUserChar(UserIndex, 112, 50, 90, True)

El /ulla

Código:

Case "/DENUNCIAR"

Y arriva pones

Código:

Case "/ULLA" '/ULLA by ZeiDon

If UserList(UserIndex).POS.Map = 66 Then
Call SendData(ToIndex, UserIndex, 0, "||No escaparás de la carcel." & FONTTYPE_TALK) ' iL Nolox!
Exit Sub
End If

If UserList(UserIndex).POS.Map = 170 Then
Call SendData(ToIndex, UserIndex, 0, "||No podés usar los comandos desde los rings de agite." & FONTTYPE_TALK)' iL Nolox!
Exit Sub
End If

If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||Estás muerto!" & FONTTYPE_TALK)' iL Nolox!
Exit Sub
End IF

If UserList(UserIndex).Stats.GLD < 300000 Then
Call SendData(ToIndex, UserIndex, 0, "||El viaje cuesta 300000 monedas de oro" & FONTTYPE_TALK)' iL Nolox!
Exit Sub
End If


If UserList(UserIndex).flags.Paralizado = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||No puedes ir a ULLA si estás paralizado." & FONTTYPE_TALK)' iL Nolox!
Exit Sub
End If



Call WarpUserChar(UserIndex, 1, 50, 50, True)

Exit Sub


El /daroro

Buscamo

Código:

/rmsg

y arriva ponemos:

Código:

Select Case UCase$(Left$(rdata, 8))
Case "/DARORO " 'DAR ORO
'¿Esta el user muerto? Si es asi no puede comerciar
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
Exit Sub
End If
'Se asegura que el target es un Usuario
If UserList(UserIndex).flags.TargetUser = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
Exit Sub
End If
rdata = Right$(rdata, Len(rdata) - 8)
If UserList(UserList(UserIndex).flags.TargetUser).flags.Muerto = 1 Then Exit Sub
End If
If CLng(val(rdata)) > 0 And CLng(val(rdata)) <= UserList(UserIndex).Stats.GLD Then
UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(rdata)
UserList(UserList(UserIndex).flags.TargetUser).Stats.GLD = UserList(UserList(UserIndex).flags.TargetUser).Stats.GLD + val(rdata)
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & " No tenes esa cantidad." & "°" & Userlist(UserList(UserIndex).flags.TargetUser).Char.charindex & FONTTYPE_INFO)
End If
Call SendUserStatsBox(UserIndex)
Call SendUserStatsBox(UserList(UserIndex).flags.TargetUser)
Exit Sub
End Select

ESte es el code /CONSULTA

Buscamos

Código:

Case "/ENCUESTA"

Abajo ponemos:

Código:

Case "/CONSULTA"
If UserList(UserIndex).flags.Muerto = 1 Then
Call senddta(ToIndex, UserIndex, 0, "||Si estas muerto No puedes Ir" & FONTTYPE_TALK)
End If
If UserList(UserIndex).Stats.ELV > 20 Then
Call SendData(ToIndex, UserIndex, 0, "||Ya tienes que aber jugar sos mayor a 20¡¡¡" & FONTTYPE_TALK)
End If
If UserList(UserIndex).Stats.GLD > 5000 Then
Call SendData(ToIndex, UserIndex, 0, "||Tienes que tener 5k para hacer la consulta " & FONTTYPE_TALK)
End If
Call WarpUserChar(UserIndex, X, X, X, True)
Call SendData(ToAdmins, 0, "||Hay un user en sala de espera de consultas " & FONTTYPE_TALK)
Call SendData(ToIndex, UserIndex, 0, "||Espera a que un Gm te atienda,Si un Gm no viene Pon /ulla" & FONTTYPE_TALK)



Exit Sub

En el msn Jugando a X ao



Creas un modulo y pones:

Código:

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As Long
End Type
Private Const WM_COPYDATA = &H4A
Private Sub Form_Load()
Call SetMusicInfoo("Myself", "Debut", "The Song That Never Ends")
End Sub
Public Sub SetMusicInfoO(ByRef r_sArtist As String, ByRef r_sAlbum As String, ByRef r_sTitle As String, Optional ByRef r_sWMContentID As String = vbNullString, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True)
Dim udtData As COPYDATASTRUCT
Dim sBuffer As String
Dim hMSGRUI As Long
sBuffer = "\0Music\0" & Abs(r_bShow) & "\0" & r_sFormat & "\0" & r_sArtist & "\0" & r_sTitle & "\0" & r_sAlbum & "\0" & r_sWMContentID & "\0" & vbNullChar

udtData.dwData = &H547
udtData.lpData = StrPtr(sBuffer)
udtData.cbData = LenB(sBuffer)

Do
hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)

If (hMSGRUI > 0) Then
Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
End If

Loop Until (hMSGRUI = 0)
End Sub

en case logged pones:

Código:

Call SetMusicInfoO("Jugando el ao[" & UserName & "]", " ", "web") 'By ZeiDon!

abajo del case "finok"

Call SetMusicInfo("", "", "", "Music", ", False)

El /sumoneototal (NOTESTED)



Buscamos

Código:

"/Buscar"

Y abajo ponemos

Código:

If UCase$(rdata) = "/SUMALL" Then 'by sonter
If UserList(UserIndex).flags.Privilegios < 3 Then 'Privilegios necesarios
Call SendData(ToIndex, UserIndex, 0, "|| & Username & Tienes que tener 3 Privilegios" & FONTTYPE_TALK)
End If
If UserList(UserIndex).flags.TargetMap > 150 Then 'usuarios maximos
Call SendData(ToAll, 0, 0, "||Se ah cancelado porke Hay mas de 150 usuarios en la sala" & FONTTYPE_TALK)
Call Cancel 'Cancela exesivo
End If
Else
for loopc = 1 to numusers
call warpuserchar(loopc,MAPA,X,Y,true)
next loopc
Call SendData(ToAll, 0, 0, "||Gm's > Han sido transportados a Un sala de conferencias." & FONTTYPE_TALK)
Exit Sub

Saludos

Buen aporte, me fije en el DARORO que pusiste arriva:

Código:

Select Case UCase$(Left$(rdata, 8))

Y eso ya está, lo que hace eso es fijarse en MAYÚSCULA los 8 digitos de la derecha y si cumple con el código realiza lo que sigue.