[D2BS] Scripten

[Diablofarmer]

versteh ich nich wieso willst du scripten , wenn du anschliessend diese scripte nicht nutzen willst ?

hast du Net Framework in windows aktiviert ?

[RezChams]

was meinst du mit aktiviert?

Ich will mir den Bot für Classic umschreiben, 1x hdin 1 x barb, 1 x Sorc Teambot

[Diablofarmer]

lies dir mal die Posts in dem verlinkten Thread da durch
es gibt bereits n cs-bot für d2bs

[SparkZ11]

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

edit ups nich gesehn das es 2 seiten gibt

[RezChams]

Meinst du das???

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

[SparkZ11]

Originally Posted by Daarmy

Meinst du das???

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

[RezChams]

Originally Posted by Diablofarmer

lies dir mal die Posts in dem verlinkten Thread da durch
es gibt bereits n cs-bot für d2bs

deswegen

[SparkZ11]

Originally Posted by Daarmy

deswegen

csbot für bs wird kaum in vb geschrieben sein?

[Diablofarmer]

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

[SparkZ11]

Originally Posted by Diablofarmer

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



e: hehehehe

[Diablofarmer]

du Ar*** , mein Edit kam vor deinem Post