AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Development > Waffenkammer *hrhrhr*
Normale Version: Waffenkammer *hrhrhr*
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

sonukog

18.07.2005, 21:47 Uhr
Hi Leutz!
Mein erstes script könnte man sagen ... eigentlich ist es nur eine umänderung des bar scripts..mehr ned...aber als totale newbie find ich das ich das ganz gut gemeistert hab ^^

Code:
'================================================
'Erstellt mit UltraEdit32
'================================================
'Programmiert von ETat|Hell für Hellbot; Modifiziertes Bar Script
'================================================

Sub Init
  Script "Waffenkammer 1.0 by ETat|Hell"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "***Waffenkammer v1.0 by ETat|Hell geladen. Aufruf des Scriptes mit !waffenkammer"
End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line, 1))
    Case "!waffenkammer"
      SendLine "PRIVMSG " & Chan & " :In der Waffenkammer befindet sich: !tnt, !mp40, !thompson, !panzerfaust (kurz: !pf) ein heißes !chick",2
      Case "!tnt"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5brennende 3Stange 5TNT 3und schiebt sie 5& nick & 3in den ****** 5*boom*", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5brennende 3Stange 5TNT 3und schiebt sie 5"& Param(Line, 2) &" 3in den ****** 5*boom*", 2
      End If
      Case "!chick"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt die fertig 5gebackenen Chicken Mc Nuggets 3für 5" & nick,2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt die fertig 5gebackenen Chicken Mc Nuggets 3für 5" & Param(Line, 2), 2
      End If
      Case "!mp40"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5MP40 3und sofort ist & nick & 3mit 5 3 Headshots 3 tot! ", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5MP40 3und sofort ist 5"& Param(Line, 2) &" 3mit 5 3 Headshots 3 tot! ", 2
      End If
      Case "!thompson"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5Thompson 3und sofort ist & nick & 3mit 5 3 Headshots 3 tot! ", 2
        SendLine "Privmsg " & Chan & " :14_\¯\_______________________/\", 2
        SendLine "Privmsg " & Chan & " :14|______|=======|_\_____|____| ====== 7[==> 14*ratta*", 2
        Sendline "Privmsg " & Chan & " :14\______________________|", 2
        Sendline "Privmsg " & Chan & " :1....14|_|1..14)__(¯¯)¯)1.14|__|", 2
        Sendline "Privmsg " & Chan & " :1........14/___/\/_/1..14|__|", 2
        Sendline "Privmsg " & Chan & " :1.......14/___(1.......14|__|", 2
        Sendline "Privmsg " & Chan & " :1......14(___(1........14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5Thompson 3und sofort ist 5"& Param(Line, 2) &" 3mit 5 3 Headshots 3 tot! ", 2
        SendLine "Privmsg " & Chan & " :14_\¯\_______________________/\", 2
        SendLine "Privmsg " & Chan & " :14|______|=======|_\_____|____| ====== 7[==> 14*ratta*", 2
        Sendline "Privmsg " & Chan & " :14\______________________|", 2
        Sendline "Privmsg " & Chan & " :1....14|_|1..14)__(¯¯)¯)1.14|__|", 2
        Sendline "Privmsg " & Chan & " :1........14/___/\/_/1..14|__|", 2
        Sendline "Privmsg " & Chan & " :1.......14/___(1.......14|__|", 2
        Sendline "Privmsg " & Chan & " :1......14(___(1........14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
      End If
      Case "!pf"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 4Panzer5faust 3, richtet sie auf 5& nick & 3und drückt ab... 5*puff*", 2
        SendLine "Privmsg "  & Chan & " :14---------(-)", 2
        SendLine "Privmsg "  & Chan & " :14-------(7-(-)14-)", 2
        SendLine "Privmsg "  & Chan & " :7----(4---(---5)---7)", 2
        SendLine "Privmsg "  & Chan & " :7--(_--5(------4)--7_)", 2
        SendLine "Privmsg "  & Chan & " :7-----|5*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7-----|4*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7----(--5(-----)--7)", 2
        SendLine "Privmsg "  & Chan & " :14--(__(_____)__)", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 4Panzer5faust 3, richtet sie auf 5"& Param(Line, 2) &" 3und drückt ab... 5*puff*", 2
        SendLine "Privmsg "  & Chan & " :14---------(-)", 2
        SendLine "Privmsg "  & Chan & " :14-------(7-(-)14-)", 2
        SendLine "Privmsg "  & Chan & " :7----(4---(---5)---7)", 2
        SendLine "Privmsg "  & Chan & " :7--(_--5(------4)--7_)", 2
        SendLine "Privmsg "  & Chan & " :7-----|5*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7-----|4*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7----(--5(-----)--7)", 2
        SendLine "Privmsg "  & Chan & " :14--(__(_____)__)", 2
      End If
   End Select
End Sub

und jeder der jetzt sich das durchschaut...ja ich hab ascii art drinnen ^^
ich bastel noch drum herum und mit der zeit hoffe ich das ich mal eine vollstädnige kammer hab :D....
bitte vorschläge hier rein! und ich werd warscheinlich für jede waffe die reinkommt ein ascii dazumachen..außer ihr habt eins..und natürlich wird jeder user im script verewigt ^^ :D ich will ja ned unfreundlich sein :D


cya
sonukog

Old-Crow

19.12.2005, 16:37 Uhr
wäre nett wenn da noch die deagle mit drinn wäre man kann eigentlich alle waffen aus counter-strike schonmal reinnehmen .

MfG

Old-Crow

TRANCETOK

01.04.2006, 19:50 Uhr
ahm......ich glaube da ist was nicht richtig....

da wo & nick & steht sollte da nicht der Nick rein ?? Smile

Zitat:Bot geht in die Waffenkammer und holt eine brennende Stange TNT und schiebt sie & nick & in den ****** *boom*

DevSibwarra

02.04.2006, 06:09 Uhr
einfach das & nick & zu " & nick & " ändern, also mit den ""

littlebee

27.05.2006, 10:18 Uhr
und biste denn jetzt schon weiter?
ich hätte gerne eine M-16 :D

Sunflower

17.06.2006, 23:04 Uhr
DevSibwarra schrieb:einfach das & nick & zu " & nick & " ändern, also mit den ""


alles schön und gut
aber für mich ist dieses "einfach ändern" eine sehr komplizierte sache ^^

ich seh in dem ganzen wirwar nämlich nix ausser komischen zeichen die dennoch irgendwie das machen was sie sollen ^^

Also wenn dann einer so lieb wäre und das alles so ändert das es richtig funzt wäre ich dem schon recht dankbar

lg
Sun

GalaxyFighter

17.06.2006, 23:21 Uhr
So ich habs mal schnell umgeändert...
Changes:
1) & nick & ersetzt mit dem richtigen Nick
2) Man kann die Panzerfaust nun mit !pf und auch mit !panzerfaust aufrufen!


Code:
'================================================
'Erstellt mit UltraEdit32
'================================================
'Programmiert von ETat|Hell für Hellbot; Modifiziertes Bar Script
'================================================

Sub Init
  Script "Waffenkammer 1.0 by ETat|Hell"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "***Waffenkammer v1.0 by ETat|Hell geladen. Aufruf des Scriptes mit !waffenkammer"
End Sub

Sub Chan_Msg (Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line, 1))
    Case "!waffenkammer"
      SendLine "PRIVMSG " & Chan & " :In der Waffenkammer befindet sich: !tnt, !mp40, !thompson, !panzerfaust (kurz: !pf) ein heißes !chick",2
      Case "!tnt"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5brennende 3Stange 5TNT 3und schiebt sie 5"& nick &" 3in den ****** 5*boom*", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5brennende 3Stange 5TNT 3und schiebt sie 5"& Param(Line, 2) &" 3in den ****** 5*boom*", 2
      End If
      Case "!chick"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt die fertig 5gebackenen Chicken Mc Nuggets 3für 5" & nick,2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt die fertig 5gebackenen Chicken Mc Nuggets 3für 5" & Param(Line, 2), 2
      End If
      Case "!mp40"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5MP40 3und sofort ist " & nick & "3 mit5 3 Headshots3 tot! ", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5MP40 3und sofort ist 5"& Param(Line, 2) &" 3mit5 3 Headshots3 tot! ", 2
      End If
      Case "!thompson"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5Thompson 3und sofort ist " & nick & " 3mit5 3 Headshots3 tot! ", 2
        SendLine "Privmsg " & Chan & " :14_\¯\_______________________/\", 2
        SendLine "Privmsg " & Chan & " :14|______|=======|_\_____|____| ====== 7[==> 14*ratta*", 2
        Sendline "Privmsg " & Chan & " :14\______________________|", 2
        Sendline "Privmsg " & Chan & " :1....14|_|1..14)__(¯¯)¯)1.14|__|", 2
        Sendline "Privmsg " & Chan & " :1........14/___/\/_/1..14|__|", 2
        Sendline "Privmsg " & Chan & " :1.......14/___(1.......14|__|", 2
        Sendline "Privmsg " & Chan & " :1......14(___(1........14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 5Thompson 3und sofort ist 5"& Param(Line, 2) &" 3mit5 3 Headshots3 tot! ", 2
        SendLine "Privmsg " & Chan & " :14_\¯\_______________________/\", 2
        SendLine "Privmsg " & Chan & " :14|______|=======|_\_____|____| ====== 7[==> 14*ratta*", 2
        Sendline "Privmsg " & Chan & " :14\______________________|", 2
        Sendline "Privmsg " & Chan & " :1....14|_|1..14)__(¯¯)¯)1.14|__|", 2
        Sendline "Privmsg " & Chan & " :1........14/___/\/_/1..14|__|", 2
        Sendline "Privmsg " & Chan & " :1.......14/___(1.......14|__|", 2
        Sendline "Privmsg " & Chan & " :1......14(___(1........14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
        Sendline "Privmsg " & Chan & " :1....................14|__|", 2
      End If
      Case "!pf", "!panzerfaust"
      If Param(Line, 2) = "" Then
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 4Panzer5faust 3, richtet sie auf 5"& nick & " 3und drückt ab... 5*puff*", 2
        SendLine "Privmsg "  & Chan & " :14---------(-)", 2
        SendLine "Privmsg "  & Chan & " :14-------(7-(-)14-)", 2
        SendLine "Privmsg "  & Chan & " :7----(4---(---5)---7)", 2
        SendLine "Privmsg "  & Chan & " :7--(_--5(------4)--7_)", 2
        SendLine "Privmsg "  & Chan & " :7-----|5*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7-----|4*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7----(--5(-----)--7)", 2
        SendLine "Privmsg "  & Chan & " :14--(__(_____)__)", 2
      Else
        SendLine "PRIVMSG " & Chan & " : 5" & MyNick & " 3geht in die Waffenkammer und holt eine 4Panzer5faust 3, richtet sie auf 5"& Param(Line, 2) &" 3und drückt ab... 5*puff*", 2
        SendLine "Privmsg "  & Chan & " :14---------(-)", 2
        SendLine "Privmsg "  & Chan & " :14-------(7-(-)14-)", 2
        SendLine "Privmsg "  & Chan & " :7----(4---(---5)---7)", 2
        SendLine "Privmsg "  & Chan & " :7--(_--5(------4)--7_)", 2
        SendLine "Privmsg "  & Chan & " :7-----|5*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7-----|4*pufff*7|", 2
        SendLine "Privmsg "  & Chan & " :7----(--5(-----)--7)", 2
        SendLine "Privmsg "  & Chan & " :14--(__(_____)__)", 2
      End If
   End Select
End Sub

Viel Spass damit!

f0s

11.07.2008, 21:07 Uhr
coole script, haste noch mehr waffen? :D
AnGelBot-Portal² > Scripting > Development > Waffenkammer *hrhrhr*
Referenz-URLs