[D2BS] Scripten

Page 2 of 2 1 2
11/26/2010 02:57 Diablofarmer#16
versteh ich nich :p wieso willst du scripten , wenn du anschliessend diese scripte nicht nutzen willst ?

hast du Net Framework in windows aktiviert ?
11/26/2010 03:17 RezChams#17
was meinst du mit aktiviert?:)

Ich will mir den Bot für Classic umschreiben, 1x hdin 1 x barb, 1 x Sorc Teambot ;)
11/26/2010 05:00 Diablofarmer#18
lies dir mal die Posts in dem verlinkten Thread da durch
es gibt bereits n cs-bot für d2bs :)
11/26/2010 09:55 SparkZ11#19
oog + 3.5 von bs sollte gut laufen ansonsten kannst ja uach mal die 4.0 version testen ist nur per svn erhältlich dazu sollte man noch sagen d2driver hat im mom kein keychange eingebaut er ist nur im gui aber dahinter steckt nix wenn lord den mal os machen würde könnt ich das mal fixen :D

edit ups nich gesehn das es 2 seiten gibt :D
11/26/2010 12:50 RezChams#20
Meinst du das???
Code:
Script("Name") = "logmein"
Script("Author") = "Sveet"
Script("Major") = 1
Script("Minor") = 0
Script("Revision") = 1


Sub Event_Load()

    Set Command = OpenCommand("logmein")
    If Command Is Nothing Then
        Set Command = CreateCommand("logmein")
        With Command
            .Description = "Logs the sender in remotely."
            .RequiredRank = 1
            .Save
        End With
    End If

End Sub

Sub Event_WhisperFromUser(Username, Flags, Message, Ping)

   If Left(Message, Len(BotVars.Trigger)) = BotVars.Trigger Then
      
      If Mid(Message, Len(Botvars.Trigger)+1) = "logmein" Then

         AddQ ".forcelogin " & Username
      End If
   End If

End Sub
ders aber nicht fertig oder
11/28/2010 17:57 SparkZ11#21
Quote:
Originally Posted by Daarmy View Post
Meinst du das???
Code:
Script("Name") = "logmein"
Script("Author") = "Sveet"
Script("Major") = 1
Script("Minor") = 0
Script("Revision") = 1


Sub Event_Load()

    Set Command = OpenCommand("logmein")
    If Command Is Nothing Then
        Set Command = CreateCommand("logmein")
        With Command
            .Description = "Logs the sender in remotely."
            .RequiredRank = 1
            .Save
        End With
    End If

End Sub

Sub Event_WhisperFromUser(Username, Flags, Message, Ping)

   If Left(Message, Len(BotVars.Trigger)) = BotVars.Trigger Then
      
      If Mid(Message, Len(Botvars.Trigger)+1) = "logmein" Then

         AddQ ".forcelogin " & Username
      End If
   End If

End Sub
ders aber nicht fertig oder

warum postest du jetzt vb code? Oo

verwirrent :P
11/28/2010 18:18 RezChams#22
Quote:
Originally Posted by Diablofarmer View Post
lies dir mal die Posts in dem verlinkten Thread da durch
es gibt bereits n cs-bot für d2bs :)
deswegen
11/28/2010 19:27 SparkZ11#23
Quote:
Originally Posted by Daarmy View Post
deswegen
csbot für bs wird kaum in vb geschrieben sein?
11/28/2010 19:57 Diablofarmer#24
das mit dem verlinkten Thread war auf das windows7 Problem mit Net Framework bezogen, war eventuell unklar ausgedrückt.
Das bs cs-script scheint doch nich public geworden zu sein.
Habs aber hier, wenn dein oog iwann mal funktioniert, sag bescheid :)

e: oh gibt doch ne public version , sparkz hats rausgeschnüffelt ;)
11/28/2010 20:32 SparkZ11#25
Quote:
Originally Posted by Diablofarmer View Post
das mit dem verlinkten Thread war auf das windows7 Problem mit Net Framework bezogen, war eventuell unklar ausgedrückt.
Das bs cs-script scheint doch nich public geworden zu sein.
Habs aber hier, wenn dein oog iwann mal funktioniert, sag bescheid :)
doch ist es :P

[Only registered and activated users can see links. Click Here To Register...]

e: hehehehe :D
11/28/2010 22:01 Diablofarmer#26
du Ar*** , mein Edit kam vor deinem Post :p
Page 2 of 2 1 2