buchaLL
bez spiny, luźno
- Joined
- Aug 2, 2011
- Messages
- 1,013
- Reaction score
- 68
- Age
- 27
1. Kopiowanie wiadomo?ci gracza 'nick'.
[LUA]auto 100 foreach 'newmessages' $copy if [$copy.sender == 'nick'] {say $copy.content}[/LUA]
2. Zatrzymywanie targetingu w pz.
[LUA]auto 1000 if [$inpz] settargeting off | ifnot [$inpz] settargeting on[/LUA]
3. CZAR gdy na ekranie enemy(blaszka) ma mniej ni? 60% hp.
[LUA]auto 100 set $thp '60' | if [$inpz == 0] {if [$fired] {wait 900} | foreach 'allplayers' $h {if [$h.hppc <= $thp && $h.warbanner==2] {say 'CZAR'}}}[/LUA]
4. PW do wszystkich na ekranie
[LUA]auto 100 set $msg 'PW' | set $cooldown 5000| foreach 'floorplayers' $i if [$i.name != $self.name] {pm $i.name '$msg' | wait $cooldown}[/LUA]
5. Po wpisaniu nicku przez LEADERA posta? b?dzie atakowa?a danego gracza.
[LUA]auto 1 if [ $curmsg.sender == 'LEADER' ] Attack $curmsg.content[/LUA]
6. Zmiana kolor?w outfitu(widok tylko dla Ciebie)
[LUA]auto 100 setoutfitcolor $self $rand.132 $rand.132 $rand.132 $rand.3 | wait 100[/LUA]
7. Zamiana gp na platyny w bp.
[LUA]auto 700 if [$itemcount.3031 > 100] {openitem 3031 2 backpack of holding}[/LUA]
8. Zamiana platyn na cc w bp.
[LUA]auto 700 | listas 'Plat Changer' | if [$itemcount.3035 > 100] {openitem 3035 2 backpack of holding}[/LUA]
9. Anty-push, rzuca tylko 2 itemy i stopuje.
[LUA]auto 100 | listas 'Anti Push: ON' | set $itemid_1 3492 | set $itemid_2 3031 | ifnot [$topitem.$posx.$posy.$posz == $itemid_1] {ifnot [$topitem.$posx.$posy.$posz == $itemid_2] dropitemsxyzamount $posx $posy $posz $itemid_1 1} | ifnot [$topitem.$posx.$posy.$posz == $itemid_2] dropitemsxyzamount $posx $posy $posz $itemid_2 1 |[/LUA]
10. Gdy brak aola wy??cza Cavebota, gdy jest w??cza.
[LUA]auto 100 if [$amuletslot.id == 0 && $caveboton == 1] {setcavebot off} | if [$amuletslot.id == 3057 && $caveboton == 0] {setcavebot on}[/LUA]
11. Po padni?ciu wy??cza Cavebota na 10min
[LUA]auto 200 if [$hp == 0] { xlog | wait 3000 } | if [$connected == 0] { reconnect | wait 500 | setcavebot off | wait 500} | wait 200 | if [$safe == 0 && $caveboton == 0] { wait 600000 | setcavebot on }[/LUA]
12. Rzucanie gp wok?? siebie.
[LUA]auto 1 dropitemsxyz $posx [$posy-1] $posz 3031 | dropitemsxyz $posx [$posy+1] $posz 3031 | dropitemsxyz [$posx -1] $posy $posz 3031 | dropitemsxyz [$posx +1] $posy $posz 3031 | dropitemsxyz [$posx -1] [$posy -1] $posz 3031 | dropitemsxyz [$posx +1] [$posy -1] $posz 3031 | dropitemsxyz [$posx -1] [$posy +1] $posz 3031 | dropitemsxyz [$posx +1] [$posy +1] $posz 3031[/LUA]
13. Rzucanie itema pod target(przydatne gdy na warze enemy chce pushn?? blokera).
[LUA]auto 100 set $px '$target.posx' | set $py '$target.posy' | set $pz '$target.posz' | ifnot [$topitem.$px.$py.$pz == 3031] {if [$target.isonscreen] {dropitemsxyzamount $px $py $pz 3031 1}}[/LUA]
14. Potowanie gdy bot nie otwiera nam cia? potwor?w.
[LUA]auto 200 if [$islooting != 1 && $mp<= '500'] {useoncreature '268' 'self'} | {wait 100}[/LUA]
15. Gdy mniej many ni? X many wy??cza Cavebota, ?aduje do Y i w??cza.
[LUA]auto 200 if [$mp <= X] { if [$waypointson == 1 ] { setfollowwaypoints off }} | if [$mp >= Y] { if [$waypointson == 0 ] { setfollowwaypoints on }}[/LUA]
16. ?apanie item?w dooko?a nas i pod nami.
[LUA]auto 1 moveitemonground $posx [$posy-1] $posz $posx $posy $posz|moveitemonground $posx [$posy+1] $posz $posx $posy $posz|moveitemonground [$posx-1] [$posy-1] $posz $posx $posy $posz|moveitemonground [$posx-1] $posy $posz $posx $posy $posz|moveitemonground [$posx-1] [$posy+1] $posz $posx $posy $posz| moveitemonground [$posx+1] [$posy-1] $posz $posx $posy $posz|moveitemonground [$posx+1] $posy $posz $posx $posy $posz|moveitemonground [$posx+1] [$posy+1] $posz $posx $posy $posz | pickupitems 0[/LUA]
17. Utani hur gdy brak potwora na ekranie.
[LUA]auto 200 isnotonscreen 'monster' haste[/LUA]
18. Exura zale?nie od naszego hp.
[LUA]auto 500 if [$hppc < 85 && $hppc > 60 && $mp >= 20] {say 'exura'} | if [$hppc < 60 && $hppc > 40 && $mp >= 70] {say 'exura gran'} | if [$hppc < 40 && $mp >= 240] {say 'exura vita'}[/LUA]
19. Liczba, enemy, friend i graczy na ekranie
[LUA]say 'Graczy: [$playersaround.20+1] Enemy: [$enemycount] Friends: [$friendcount]'[/LUA]
20. Posta? poruszy si? je?li stoi d?u?ej ni? 30 sekund i nie jest w pz.
[LUA]auto 200 if [$standtime >= 30*1000 && $inpz==0] {movee | moven | moves | movew | movene | movenw | movese | movesw}[/LUA]
21. Gdy X% hp wk?ada energy ringa, gdy Y% hp zdejmuje.
[LUA]auto 100 listas 'Energy Ring' | if [$hppc < X] equipring 3051 | if [$hppc > Y] unequip 'ring' 'empty'[/LUA]
22. Automatyczne parali?owanie blaszki
[LUA]auto 10 foreach 'shootableplayers' $paral {if [$paral.warbanner==2 && $paral.isparalyzed==0] useoncreature 3165 $paral.name}[/LUA]
23. Atakowanie atakuj?cego nas gracza
[LUA]auto 200 if [$atak == 0 && $pattacker.attackedme && $lastdmgtime < 3000] {attack [$pattacker.name]} else {set $atak 1} | if [$atak == 1 && $lastdmgtime > 3000] {stopattack [$pattacker.name]} else {set $atak 0}[/LUA]
24. Anty-parali?
[LUA]auto 200 listas 'Anty-Paralize' | ifnot $hasted if [$hppc > 90] {say 'Utani Gran Hur'} | if [$hppc > 90 && paralyzed == 1] {say 'Utani Gran Hur'} | if [$hppc <= 90 && paralyzed == 1] {say 'Exura Vita'}[/LUA]
25. Kupowanie GMP od npc, kupuje gdy X do Y.
[LUA]auto 200 if [$itemcount.238 <= X] { npcsay 'hi' | wait 10000 | npcsay 'trade' | wait 10000 | loop 10 buyitemsupto 238 Y }[/LUA]
26. Kupowanie GMP d?wigni?(X Y Z - pozycja), kupuje gdy X GMP
[LUA]auto 200 if [$itemcount.238 <= X] usegroundxyz X Y Z[/LUA]
27. Jesli przypadkiem zaznaczysz kogos z danej gildii (lub swojej) to skrypt go odznaczy
[LUA]auto 100 if [$target.haslookinfo && $target.guild == 'NAZWA GILDI'] {stopattack | clear $target}[/LUA]
28. Gdy wiadomo?? na default, bot wy??czy cavebota i targetting, przepisze wiadomo?? w postaci (Nick [lvl]: wiadomo??) oraz wy?le PW do "Nick2".
Gdy Nick2 napisze PW do Nick, Nick przepisze j? i wy?wietli na czacie Default.
Po otrzymaniu wiadomo?ci 'on' od Nick2, bot odpali cavebota oraz targetting.
Wszystkie skrypty nale?y odpali? na jednym koncie w tym przypadku 'Nick'.
[LUA]auto 100 foreach 'newmessages' $copy if [$copy.sender != 'Nick' && $curmsg.isdefault] {settargeting off | setcavebot off | wait 400 | pm 'Nick2' '$copy.formatted'}
auto 100 foreach 'newmessages' $copy2 if [$copy2.sender == 'Nick2' && $curmsg.isprivate && $copy2.content != 'on'] {say '$copy2.content'}
auto 100 foreach 'newmessages' $copy3 if [$copy3.sender == 'Nick2' && $copy3.content == 'on'] {settargeting on | setcavebot on}[/LUA]
29. Otwieranie cia?
[LUA]auto 700 | listas 'Monster Looter' | if [$target.hppc == 0 && $open == 0] {set $open 1 | wait 400 | usegroundxyz $mx $my $mz}
auto 100 | dontlist | if [$target.hppc < 30 && istargeting && $target.posx > 1 && $target.isonscreen 1]{set $mx $target.posx | set $my $target.posy | set $mz $target.posz | set $open 0}[/LUA]
30. Alarm gdy czerwona wiadomo?? w kt?rej znajduje si? s?owa 'Witaj'
[LUA]auto 100 foreach 'newmessages' $sprawdz if [$curmsg.isredtext && $sprawdz.content ? 'Witaj'] {playsound playerattacking.wav}[/LUA]
31. Gdy 3 lub wi?cej potwor?w bije 'exori gran', gdy 2 lub mniej 'exori, gdy gracz na ekranie 'exori hur'.
[LUA]auto 200 isattacking { ifnoplayeronscreen if [$monstersaround.1 <= 2 && $monstersaround.1 >= 1] {say 'Exori' | wait 300} | ifnoplayeronscreen if [$monstersaround.1 >= 3] {say 'Exori Gran' | wait 300} | ifplayeronscreen if [$monstersaround.3 >= 1] {say 'Exori Hur' | wait 300}}[/LUA]
32. Je food gdy przestanie regenerowa? hp/mane
[LUA]auto 10 if [$mp == $mpn && $mppc < 100 || $hp == $hpn && $hppc < 100] {eatfood | wait 1000} | else {set $mpn $mp | set $hpn $hp | wait 10000}[/LUA]
33. Liczenie frag?w
[LUA]auto 200 foreach 'newmessages' $frag if [$frag.isredtext && $frag.content ? 'the murder of'] {set $fragcount [$fragcount+1]}[/LUA]
34. Kr?cenie itemek wok?? siebie
[LUA]auto 1 moveitemonground $posx [$posy-1] $posz [$posx-1] [$posy-1] $posz | moveitemonground [$posx-1] [$posy-1] $posz [$posx-1] $posy $posz | moveitemonground [$posx-1] $posy $posz [$posx-1] [$posy+1] $posz | moveitemonground [$posx-1] [$posy+1] $posz $posx [$posy+1] $posz | moveitemonground $posx [$posy+1] $posz [$posx+1] [$posy+1] $posz | moveitemonground [$posx+1] [$posy+1] $posz [$posx+1] $posy $posz | moveitemonground [$posx+1] $posy $posz [$posx+1] [$posy-1] $posz | moveitemonground [$posx+1] [$posy-1] $posz $posx [$posy-1] $posz
auto 1 moveitemonground [$posx+1] [$posy-1] $posz $posx [$posy-1] $posz[/LUA]
35. Chowanie ca?ego ekwipunku do bp
[LUA]auto 100 set $delay '200' | set $bpid '$backslot.id' | if [$bpid < 0] {xlog | wait $delay} | openbpitem | unequip 'lhand' | unequip 'rhand' | unequip 'helmet' | unequip 'ring' | unequip 'armor' | unequip 'boots' | unequip 'legs' | unequip 'amulet'[/LUA]
[LUA]auto 100 foreach 'newmessages' $copy if [$copy.sender == 'nick'] {say $copy.content}[/LUA]
2. Zatrzymywanie targetingu w pz.
[LUA]auto 1000 if [$inpz] settargeting off | ifnot [$inpz] settargeting on[/LUA]
3. CZAR gdy na ekranie enemy(blaszka) ma mniej ni? 60% hp.
[LUA]auto 100 set $thp '60' | if [$inpz == 0] {if [$fired] {wait 900} | foreach 'allplayers' $h {if [$h.hppc <= $thp && $h.warbanner==2] {say 'CZAR'}}}[/LUA]
4. PW do wszystkich na ekranie
[LUA]auto 100 set $msg 'PW' | set $cooldown 5000| foreach 'floorplayers' $i if [$i.name != $self.name] {pm $i.name '$msg' | wait $cooldown}[/LUA]
5. Po wpisaniu nicku przez LEADERA posta? b?dzie atakowa?a danego gracza.
[LUA]auto 1 if [ $curmsg.sender == 'LEADER' ] Attack $curmsg.content[/LUA]
6. Zmiana kolor?w outfitu(widok tylko dla Ciebie)
[LUA]auto 100 setoutfitcolor $self $rand.132 $rand.132 $rand.132 $rand.3 | wait 100[/LUA]
7. Zamiana gp na platyny w bp.
[LUA]auto 700 if [$itemcount.3031 > 100] {openitem 3031 2 backpack of holding}[/LUA]
8. Zamiana platyn na cc w bp.
[LUA]auto 700 | listas 'Plat Changer' | if [$itemcount.3035 > 100] {openitem 3035 2 backpack of holding}[/LUA]
9. Anty-push, rzuca tylko 2 itemy i stopuje.
[LUA]auto 100 | listas 'Anti Push: ON' | set $itemid_1 3492 | set $itemid_2 3031 | ifnot [$topitem.$posx.$posy.$posz == $itemid_1] {ifnot [$topitem.$posx.$posy.$posz == $itemid_2] dropitemsxyzamount $posx $posy $posz $itemid_1 1} | ifnot [$topitem.$posx.$posy.$posz == $itemid_2] dropitemsxyzamount $posx $posy $posz $itemid_2 1 |[/LUA]
10. Gdy brak aola wy??cza Cavebota, gdy jest w??cza.
[LUA]auto 100 if [$amuletslot.id == 0 && $caveboton == 1] {setcavebot off} | if [$amuletslot.id == 3057 && $caveboton == 0] {setcavebot on}[/LUA]
11. Po padni?ciu wy??cza Cavebota na 10min
[LUA]auto 200 if [$hp == 0] { xlog | wait 3000 } | if [$connected == 0] { reconnect | wait 500 | setcavebot off | wait 500} | wait 200 | if [$safe == 0 && $caveboton == 0] { wait 600000 | setcavebot on }[/LUA]
12. Rzucanie gp wok?? siebie.
[LUA]auto 1 dropitemsxyz $posx [$posy-1] $posz 3031 | dropitemsxyz $posx [$posy+1] $posz 3031 | dropitemsxyz [$posx -1] $posy $posz 3031 | dropitemsxyz [$posx +1] $posy $posz 3031 | dropitemsxyz [$posx -1] [$posy -1] $posz 3031 | dropitemsxyz [$posx +1] [$posy -1] $posz 3031 | dropitemsxyz [$posx -1] [$posy +1] $posz 3031 | dropitemsxyz [$posx +1] [$posy +1] $posz 3031[/LUA]
13. Rzucanie itema pod target(przydatne gdy na warze enemy chce pushn?? blokera).
[LUA]auto 100 set $px '$target.posx' | set $py '$target.posy' | set $pz '$target.posz' | ifnot [$topitem.$px.$py.$pz == 3031] {if [$target.isonscreen] {dropitemsxyzamount $px $py $pz 3031 1}}[/LUA]
14. Potowanie gdy bot nie otwiera nam cia? potwor?w.
[LUA]auto 200 if [$islooting != 1 && $mp<= '500'] {useoncreature '268' 'self'} | {wait 100}[/LUA]
15. Gdy mniej many ni? X many wy??cza Cavebota, ?aduje do Y i w??cza.
[LUA]auto 200 if [$mp <= X] { if [$waypointson == 1 ] { setfollowwaypoints off }} | if [$mp >= Y] { if [$waypointson == 0 ] { setfollowwaypoints on }}[/LUA]
16. ?apanie item?w dooko?a nas i pod nami.
[LUA]auto 1 moveitemonground $posx [$posy-1] $posz $posx $posy $posz|moveitemonground $posx [$posy+1] $posz $posx $posy $posz|moveitemonground [$posx-1] [$posy-1] $posz $posx $posy $posz|moveitemonground [$posx-1] $posy $posz $posx $posy $posz|moveitemonground [$posx-1] [$posy+1] $posz $posx $posy $posz| moveitemonground [$posx+1] [$posy-1] $posz $posx $posy $posz|moveitemonground [$posx+1] $posy $posz $posx $posy $posz|moveitemonground [$posx+1] [$posy+1] $posz $posx $posy $posz | pickupitems 0[/LUA]
17. Utani hur gdy brak potwora na ekranie.
[LUA]auto 200 isnotonscreen 'monster' haste[/LUA]
18. Exura zale?nie od naszego hp.
[LUA]auto 500 if [$hppc < 85 && $hppc > 60 && $mp >= 20] {say 'exura'} | if [$hppc < 60 && $hppc > 40 && $mp >= 70] {say 'exura gran'} | if [$hppc < 40 && $mp >= 240] {say 'exura vita'}[/LUA]
19. Liczba, enemy, friend i graczy na ekranie
[LUA]say 'Graczy: [$playersaround.20+1] Enemy: [$enemycount] Friends: [$friendcount]'[/LUA]
20. Posta? poruszy si? je?li stoi d?u?ej ni? 30 sekund i nie jest w pz.
[LUA]auto 200 if [$standtime >= 30*1000 && $inpz==0] {movee | moven | moves | movew | movene | movenw | movese | movesw}[/LUA]
21. Gdy X% hp wk?ada energy ringa, gdy Y% hp zdejmuje.
[LUA]auto 100 listas 'Energy Ring' | if [$hppc < X] equipring 3051 | if [$hppc > Y] unequip 'ring' 'empty'[/LUA]
22. Automatyczne parali?owanie blaszki
[LUA]auto 10 foreach 'shootableplayers' $paral {if [$paral.warbanner==2 && $paral.isparalyzed==0] useoncreature 3165 $paral.name}[/LUA]
23. Atakowanie atakuj?cego nas gracza
[LUA]auto 200 if [$atak == 0 && $pattacker.attackedme && $lastdmgtime < 3000] {attack [$pattacker.name]} else {set $atak 1} | if [$atak == 1 && $lastdmgtime > 3000] {stopattack [$pattacker.name]} else {set $atak 0}[/LUA]
24. Anty-parali?
[LUA]auto 200 listas 'Anty-Paralize' | ifnot $hasted if [$hppc > 90] {say 'Utani Gran Hur'} | if [$hppc > 90 && paralyzed == 1] {say 'Utani Gran Hur'} | if [$hppc <= 90 && paralyzed == 1] {say 'Exura Vita'}[/LUA]
25. Kupowanie GMP od npc, kupuje gdy X do Y.
[LUA]auto 200 if [$itemcount.238 <= X] { npcsay 'hi' | wait 10000 | npcsay 'trade' | wait 10000 | loop 10 buyitemsupto 238 Y }[/LUA]
26. Kupowanie GMP d?wigni?(X Y Z - pozycja), kupuje gdy X GMP
[LUA]auto 200 if [$itemcount.238 <= X] usegroundxyz X Y Z[/LUA]
27. Jesli przypadkiem zaznaczysz kogos z danej gildii (lub swojej) to skrypt go odznaczy
[LUA]auto 100 if [$target.haslookinfo && $target.guild == 'NAZWA GILDI'] {stopattack | clear $target}[/LUA]
28. Gdy wiadomo?? na default, bot wy??czy cavebota i targetting, przepisze wiadomo?? w postaci (Nick [lvl]: wiadomo??) oraz wy?le PW do "Nick2".
Gdy Nick2 napisze PW do Nick, Nick przepisze j? i wy?wietli na czacie Default.
Po otrzymaniu wiadomo?ci 'on' od Nick2, bot odpali cavebota oraz targetting.
Wszystkie skrypty nale?y odpali? na jednym koncie w tym przypadku 'Nick'.
[LUA]auto 100 foreach 'newmessages' $copy if [$copy.sender != 'Nick' && $curmsg.isdefault] {settargeting off | setcavebot off | wait 400 | pm 'Nick2' '$copy.formatted'}
auto 100 foreach 'newmessages' $copy2 if [$copy2.sender == 'Nick2' && $curmsg.isprivate && $copy2.content != 'on'] {say '$copy2.content'}
auto 100 foreach 'newmessages' $copy3 if [$copy3.sender == 'Nick2' && $copy3.content == 'on'] {settargeting on | setcavebot on}[/LUA]
29. Otwieranie cia?
[LUA]auto 700 | listas 'Monster Looter' | if [$target.hppc == 0 && $open == 0] {set $open 1 | wait 400 | usegroundxyz $mx $my $mz}
auto 100 | dontlist | if [$target.hppc < 30 && istargeting && $target.posx > 1 && $target.isonscreen 1]{set $mx $target.posx | set $my $target.posy | set $mz $target.posz | set $open 0}[/LUA]
30. Alarm gdy czerwona wiadomo?? w kt?rej znajduje si? s?owa 'Witaj'
[LUA]auto 100 foreach 'newmessages' $sprawdz if [$curmsg.isredtext && $sprawdz.content ? 'Witaj'] {playsound playerattacking.wav}[/LUA]
31. Gdy 3 lub wi?cej potwor?w bije 'exori gran', gdy 2 lub mniej 'exori, gdy gracz na ekranie 'exori hur'.
[LUA]auto 200 isattacking { ifnoplayeronscreen if [$monstersaround.1 <= 2 && $monstersaround.1 >= 1] {say 'Exori' | wait 300} | ifnoplayeronscreen if [$monstersaround.1 >= 3] {say 'Exori Gran' | wait 300} | ifplayeronscreen if [$monstersaround.3 >= 1] {say 'Exori Hur' | wait 300}}[/LUA]
32. Je food gdy przestanie regenerowa? hp/mane
[LUA]auto 10 if [$mp == $mpn && $mppc < 100 || $hp == $hpn && $hppc < 100] {eatfood | wait 1000} | else {set $mpn $mp | set $hpn $hp | wait 10000}[/LUA]
33. Liczenie frag?w
[LUA]auto 200 foreach 'newmessages' $frag if [$frag.isredtext && $frag.content ? 'the murder of'] {set $fragcount [$fragcount+1]}[/LUA]
34. Kr?cenie itemek wok?? siebie
[LUA]auto 1 moveitemonground $posx [$posy-1] $posz [$posx-1] [$posy-1] $posz | moveitemonground [$posx-1] [$posy-1] $posz [$posx-1] $posy $posz | moveitemonground [$posx-1] $posy $posz [$posx-1] [$posy+1] $posz | moveitemonground [$posx-1] [$posy+1] $posz $posx [$posy+1] $posz | moveitemonground $posx [$posy+1] $posz [$posx+1] [$posy+1] $posz | moveitemonground [$posx+1] [$posy+1] $posz [$posx+1] $posy $posz | moveitemonground [$posx+1] $posy $posz [$posx+1] [$posy-1] $posz | moveitemonground [$posx+1] [$posy-1] $posz $posx [$posy-1] $posz
auto 1 moveitemonground [$posx+1] [$posy-1] $posz $posx [$posy-1] $posz[/LUA]
35. Chowanie ca?ego ekwipunku do bp
[LUA]auto 100 set $delay '200' | set $bpid '$backslot.id' | if [$bpid < 0] {xlog | wait $delay} | openbpitem | unequip 'lhand' | unequip 'rhand' | unequip 'helmet' | unequip 'ring' | unequip 'armor' | unequip 'boots' | unequip 'legs' | unequip 'amulet'[/LUA]