AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Anfragen > Funscript
Normale Version: Funscript
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Master-Lucky

04.06.2003, 07:48 Uhr
hi,
ich hoffe mal das ihr helfen könnt, also ich suche nen script wo man im channel z.b. <Hans>!knuddel Petra eingibt und der Bot dan sacht: Hans knuddelt Petra ganz doll.

Ich schätze mal das das nicht grade anspruchsvoll ist, aber ich habe noch keinen Plan davon. das ganz soll dann auch mit !kuss usw. gehn, aber das kann ich schon alleine dazuschreiben, ich brauch nur den Anfang.
thx im vorraus

Master-Lucky

Iwan-

04.06.2003, 10:49 Uhr
schau Dir mal das Hartei-/Weichei-Script an Wink
ich hab mir das um !slap erweitert Smile

guck ma hier: http://www.angelbot-portal.de/modules.ph...hEi-Wörter
er liest den Wert allerdings per Zufall (?) aus einer Textdatei aus, aber dann wird es wenigstens nicht langweilig :D

sWiE

04.06.2003, 11:24 Uhr
Hm Iwan, was hat das damit zu tun? :D
Look:
Code:
Sub Init()
Script "Romantik"
Hook "Chan_msg"
End Sub

Sub chan_Msg(chan, Nick, RegUser, Line)
Select Case LCase(Param(Line, 1))
Case "!knuddel"
If IsOn(Param(Line, 2), Chan) Then
SendLine "PRIVMSG " & Chan & " :" & Nick & " knuddelt " & Param(Line, 2) & " ganz doll", 3
End If
Case "!kuss"
If IsOn(Param(Line, 2), Chan) Then
SendLine "PRIVMSG " & Chan & " :" & Nick & " gibt " & Param(Line,2) & " einen dicken Kuss", 3
End If
End Select
End Sub

Das geht jetzt nur mit Leuten, die auch im Channel sind.. also Petra muss im chan sein, sonst gehts nicht... wenn du das nicht willst sags grad nochmal...

greez

Master-Lucky

04.06.2003, 14:40 Uhr
is so schon total hammer, wär aber besser wen "petra" net im channel sein muss weil man dann auch die abkürzungen der namen schreiben kann...

Master-Lucky

04.06.2003, 15:18 Uhr
hi ihr, hab versucht das weichhartei scriot zu ändern, klappt aber net, also die neue funktion soll mit !flirt abgerufen werden. die text datei heißt flirt.txt vieleicht könnt ihr mir ja helfen.. so sieht das momentan bei mir aus:
Code:
SpruchCmdWeich = "!weich"
SpruchCmdHart = "!hart"
SpruchCmdFlirt = "!flirt"
SpruchFileweich = "filearea\scripts\weich.txt"
SpruchFilehart = "filearea\scripts\hart.txt"
SpruchFileflirt = "filearea\scripts\flirt.txt"
Dim SpruecheWeich(): ReDim SpruecheWeich(0)
Dim SpruecheHart(): ReDim SpruecheHart(0)
Dim SpruecheFlirt(): ReDim SpruecheFlirt(0)

Sub Init()
  Scriptname = "HartEi- und WeichEiWörter by PyleCrunch (orig. script by Andreas Normann(Witze))"
  Script Scriptname
  Hook "Chan_Msg"
  Randomize
  SpreadFlagMessage 0, "+m", "14*** " & Scriptname & " loaded."
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If Param(LCase(Line), 1) = SpruchCmdWeich Then
    If ParamCount(line) = 2 Then
      FileNum = FileOpen(SpruchFileWeich, FA_Read)
      While Not FileEoF(filenum)
        ReDim Preserve SpruecheWeich(UBound(SpruecheWeich) + 1)
        SpruecheWeich(UBound(SpruecheWeich)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & spruecheweich(int(rnd*ubound(spruecheweich))+1) & ".", 3
      ReDim SpruecheWeich(0)
    Else
      FileNum = FileOpen(SpruchFileWeich, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum
    End If
  ElseIf Param(LCase(Line), 1) = SpruchCmdHart Then
    If ParamCount(Line) = 2 Then
      FileNum = FileOpen(SpruchFileHart, FA_Read)
      While Not FileEoF(FileNum)
        ReDim Preserve SpruecheHart(UBound(SpruecheHart) + 1)
        SpruecheHart(UBound(SpruecheHart)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & SpruecheHart(Int(Rnd * UBound(SpruecheHart))+1) & ".", 3
      ReDim SpruecheHart(0)
    Else
      FileNum = FileOpen(SpruchFileHart, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum

  ElseIf Param(LCase(Line), 1) = SpruchCmdFlirt Then
    If ParamCount(Line) = 2 Then
      FileNum = FileOpen(SpruchFileFlirt, FA_Read)
      While Not FileEoF(FileNum)
        ReDim Preserve SpruecheFlirt(UBound(SpruecheFlirt) + 1)
        SpruecheFlirt(UBound(SpruecheFlirt)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & SpruecheHart(Int(Rnd * UBound(SpruecheHart))+1) & ".", 3
      ReDim SpruecheHart(0)
    Else
      FileNum = FileOpen(SpruchFileFlirt, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum
    End If
  End If
End If
End Sub

danke im vorraus

sWiE

04.06.2003, 19:32 Uhr
hm sorry aber warum ne text datei auslesen?
Hier mal das Script ohne das "Petra" im chan sein muss:
Code:
Sub Init()
Script "Romantik"
Hook "Chan_msg"
End Sub

Sub chan_Msg(chan, Nick, RegUser, Line)
Select Case LCase(Param(Line, 1))
Case "!knuddel"
SendLine "PRIVMSG " & Chan & " :" & Nick & " knuddelt " & Param(Line, 2) & " ganz doll", 3
Case "!kuss"
SendLine "PRIVMSG " & Chan & " :" & Nick & " gibt " & Param(Line,2) & " einen dicken Kuss", 3
End Select
End Sub

Master-Lucky

04.06.2003, 21:04 Uhr
ich meine das mit der .txt datei so das ich da wenn !flirt der verschiedne flirt sprüche labert

Iwan-

05.06.2003, 06:46 Uhr
schau ma Deine If-Flirts nach, denn da verstecken sich noch ein paar Hart-Sprueche Wink
Code:
SpruchCmdWeich = "!weich"
SpruchCmdHart = "!hart"
SpruchCmdFlirt = "!flirt"
SpruchFileweich = "filearea\scripts\weich.txt"
SpruchFilehart = "filearea\scripts\hart.txt"
SpruchFileflirt = "filearea\scripts\flirt.txt"
Dim SpruecheWeich(): ReDim SpruecheWeich(0)
Dim SpruecheHart(): ReDim SpruecheHart(0)
Dim SpruecheFlirt(): ReDim SpruecheFlirt(0)

Sub Init()
  Scriptname = "HartEi- und WeichEiWörter by PyleCrunch (orig. script by Andreas Normann(Witze))"
  Script Scriptname
  Hook "Chan_Msg"
  Randomize
  SpreadFlagMessage 0, "+m", "14*** " & Scriptname & " loaded."
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  If Param(LCase(Line), 1) = SpruchCmdWeich Then
    If ParamCount(line) = 2 Then
      FileNum = FileOpen(SpruchFileWeich, FA_Read)
      While Not FileEoF(filenum)
        ReDim Preserve SpruecheWeich(UBound(SpruecheWeich) + 1)
        SpruecheWeich(UBound(SpruecheWeich)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & spruecheweich(int(rnd*ubound(spruecheweich))+1) & ".", 3
      ReDim SpruecheWeich(0)
    Else
      FileNum = FileOpen(SpruchFileWeich, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum
    End If

  ElseIf Param(LCase(Line), 1) = SpruchCmdHart Then
    If ParamCount(Line) = 2 Then
      FileNum = FileOpen(SpruchFileHart, FA_Read)
      While Not FileEoF(FileNum)
        ReDim Preserve SpruecheHart(UBound(SpruecheHart) + 1)
        SpruecheHart(UBound(SpruecheHart)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & SpruecheHart(Int(Rnd * UBound(SpruecheHart))+1) & ".", 3
      ReDim SpruecheHart(0)
    Else
      FileNum = FileOpen(SpruchFileHart, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum

  ElseIf Param(LCase(Line), 1) = SpruchCmdFlirt Then
    If ParamCount(Line) = 2 Then
      FileNum = FileOpen(SpruchFileFlirt, FA_Read)
      While Not FileEoF(FileNum)
        ReDim Preserve SpruecheFlirt(UBound(SpruecheFlirt) + 1)
        SpruecheFlirt(UBound(SpruecheFlirt)) = FileReadLn(FileNum)
      Wend
      FileClose FileNum
      SendLine "PRIVMSG " & Chan & " :14" & Nick & " meint,14 " & Param(Line,2) & " ist ein4 " & SpruecheFlirt(Int(Rnd * UBound(SpruecheFlirt))+1) & ".", 3
      ReDim SpruecheFlirt(0)
    Else
      FileNum = FileOpen(SpruchFileFlirt, FA_Append)
      FileWriteLn FileNum, GetRest(Line, 2)
      FileClose FileNum
    End If
  End If
End If
End Sub
denk dran, das Du auch eine FLirt.txt haben musst, in der mind. 2 Sachen drinstehen Smile
AnGelBot-Portal² > Scripting > Anfragen > Funscript
Referenz-URLs