Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Text in ewinem Prog
Autor: speziAs10
Datum: 24.12.01 04:03
Hi, kann mir jemand helfen? ich bin absoluter neulibg in vb und hab keine ahnung wie ich das beweltigen soll. ich schreib einfach mal die quelltexte: Quelltext 1 (Vorhanden): Dim iTrigger Dim aTriggers(10,3) Dim sBotName sub Main() aTriggers(0,0) = "lol" aTriggers(0,1) = "Yeah, That was funny %USER%. Haha." aTriggers(1,0) = "Bye" aTriggers(1,1) = "See ya %USER%" aTriggers(2,0) = "vandel" aTriggers(2,1) = "Vandel!?!? WHERE!!!!!" aTriggers(3,0) = "@!#$" aTriggers(3,1) = "Watch IT %USER%! One more line of code and i could kick your ass!" aTriggers(4,0) = "shut up" aTriggers(4,1) = "Make me!" 'aTriggers(5,0) = "> " 'aTriggers(5,1) = "Your a dork if you say: %ECHO_TEXT%" iTrigger = 4 sBotName = "Trig" frmHub.RegisterBotName(CStr(sBotName)) lCountDown = lInterval end sub Private Function fExtrusion(objForm As Form, _ Text As String, iExDepth As Integer, _ ByVal iRed As Integer, ByVal iGreen As Integer, _ ByVal iBlue As Integer, Optional iFont As String = "", _ Optional iSize As Integer = 0, _ Optional fColor As Long = 0) On Error Resume Next Dim iCount As Integer With objForm If iFont <> "" Then .FontName = iFont If iSize > 0 Then .FontSize = iSize For iCount = 0 To iExDepth .CurrentX = iCount .CurrentY = iCount .ForeColor = RGB(iRed, iGreen, iBlue) iRed = iRed + 255 / iExDepth iGreen = iGreen + 255 / iExDepth iBlue = iBlue + 255 / iExDepth objForm.Print Text Next .CurrentX = iCount .CurrentY = iCount If fColor <> 0 Then .ForeColor = fColor objForm.Print Text End With End Function Sub DataArival (curUser, sCurData) 'This event is fired when a user sends data to the hub. curUser is a DCUser object and sCurData is the data they sent. Dim x 'This is a counter variable Dim sFrom If left(sCurdata,1)="<" then 'Message is chat for x = 0 to iTrigger If instr(1, lcase(sCurData), lcase(aTriggers(x,0)))>0 then colUsers.SendChatToAll cstr(sBotName), ReplaceVars(aTriggers(x,1),sCurData) exit for End If next End If End Sub sub NewUserConnected (curUser) 'This event is fired when a new user logs in. curUser.PrivateMessage cstr(sBotName), "dieser teil fehlt!!!!!! Function BeforeFirst(sIn, sFirst) 'These are helper functions and do what their names imply BeforeFirst = Left(sIn, InStr(1, sIn, sFirst) - 1) End Function Function AfterFirst(sIn, sFirst) AfterFirst = Right(sIn, Len(sIn) - InStr(1, sIn, sFirst) - (Len(sFirst) - 1)) End Function Function isCommand(sData) isCommand = (Left(sData,1)="$") End Function Public Function AfterLast(sFrom, sAfterLast) If InStr(1, sFrom, sAfterLast) Then AfterLast = Right(sFrom, Len(sFrom) - InStrRev(sFrom, sAfterLast) - (Len(sAfterLast) - 1)) Else AfterLast = "" End If End Function Public Function sReplace(sIn, sWhat, sWith) sReplace = sIn Do while instr(1,sReplace,sWhat) <> 0 sReplace = BeforeFirst(sReplace,sWhat) & sWith & AfterFirst(sReplace,sWhat) loop End Function Public Function ReplaceVars(sMessage, sCurData) dim sUser dim sText sText = AfterFirst(sCurData,"> ") sUser = BeforeFirst(AfterFirst(sCurData,"<"),">") ReplaceVars = sMessage ReplaceVars = sReplace(ReplaceVars, "%USER%", sUser) ReplaceVars = sReplace(ReplaceVars, "%ECHO_TEXT%", sText) End Function Quelltext 2: Private Function fExtrusion(objForm As Form, _ Text As String, iExDepth As Integer, _ ByVal iRed As Integer, ByVal iGreen As Integer, _ ByVal iBlue As Integer, Optional iFont As String = "", _ Optional iSize As Integer = 0, _ Optional fColor As Long = 0) On Error Resume Next Dim iCount As Integer With objForm If iFont <> "" Then .FontName = iFont If iSize > 0 Then .FontSize = iSize For iCount = 0 To iExDepth .CurrentX = iCount .CurrentY = iCount .ForeColor = RGB(iRed, iGreen, iBlue) iRed = iRed + 255 / iExDepth iGreen = iGreen + 255 / iExDepth iBlue = iBlue + 255 / iExDepth objForm.Print Text Next .CurrentX = iCount .CurrentY = iCount If fColor <> 0 Then .ForeColor = fColor objForm.Print Text End With End Function nun hätte ich es gerne das bei quelltext 1( sub NewUserConnected (curUser) 'This event is fired when a new user logs in. ) als antwort die ausgabe von quelltext 2 kommt. bitte bitte helft mir - ich bin mit meinen latein am ende thx schonmal im voraus frohe weihnachten mfg spezi

Text in ewinem Prog

43

speziAs10

24.12.01 04:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen