Blue Bot dice script. Do piekła. Zamknijcie, bo nie aktualne
Skrypt napisany przeze mnie ;)
Wersja darmowa działa od wersji 2.8 i ma kilka ograniczeń.
Jesli ktos ogarnia Blue Bota, będzie potrafił sobie przerobić ten skrypt qg. własnych potrzeb.
Ograniczenia:
-Bot przyjmuje tylko cc i po wygranej wypłaca cc
-Może stać tylko tak jak na obrazku poniżej.
-Musisz stac zawsze po prawej dolnej stronie dp jak na obrazku
http://gmclan.org/uploader/3899/bbdicev1.png
Jak zacząć?
Niektórzy z was zapewne stykają się z Blue Botem po raz pierwszy.
Polecam subforum Tutorials na http://tibiabluebot.pl
Aby skrypt na kostke działał bez problemów, musisz najpierw otworzyc swój bp jako pierwszy ze wszystkich. Potem musisz dać Browse Field na srodek depotu (1 na obrazku)
Min=10k Max=500k
Kasa wyplacana jest odrazu
Jesli masz na depo Lyre, bot bedzie na niej grał.
O to i skrypcik:
(Nowa wersja)
Kod PHP:
{ Casino Gambling Game High/Low }
{ Beta stange. Written by Lord Compi }
const
someconst=100;
var
rolled:integer;
timer:integer;
x,y,z:integer;
function getroll:integer;
var i:integer;
begin
if itemcount(5792)=0 then i:=1;
if itemcount(5793)=0 then i:=2;
if itemcount(5794)=0 then i:=3;
if itemcount(5795)=0 then i:=4;
if itemcount(5796)=0 then i:=5;
if itemcount(5797)=0 then i:=6;
result:=i;
end;
function getplayername:string;
var x,y,z:integer;
begin
x:=getinfo(playerid,44);
y:=getinfo(playerid,40);
z:=getinfo(playerid,36);
result:=getnamebyid(getidonpos(x-2,y,z));
end;
procedure payout;
var x,y,z:integer;
cc,ile:integer;
begin
x:=getinfo(playerid,44);
y:=getinfo(playerid,40);
z:=getinfo(playerid,36);
cc:=itemcount(3043);
ile:=(cc-setup_read_int('cc'));
ile:=ile*2;
say('You win '+inttostr(ile)+'cc');
drop_item(3043,ile,x-1,y+1,z);
end;
function getplayermsg:string;
var s:string;
begin
s:=getlastmsg();
if extractname(s)=getplayername then
result:=extractmsg(s);
end;
begin
setup_write_int('cc',itemcount(3043));
clearhud;
sethud('HIGH LOW GAME by Lord Compi');
sethud('Last roll: '+inttostr(getroll));
sethud('Current player:'+getplayername);
if itemcount(3043)<3 then begin alarm;end;
setup_write_int('timer',setup_read_int('timer')+1);
timer:=setup_read_int('timer');
if timer mod 15 = 0 then begin if itemcount(3043)<3 then say('Out of money!') else say('[Blue Bot] Casino Min=1cc Max=1kk 100% Payout! Accept only CC!');
if itemcount(2949)>-1 then useiteminbp(2949); end;
if (getplayername()<>setup_read('player'))and(getplayername()<>'') then begin
say('Welcome '+getplayername()+'. Put +10k and say low or high. I accept only cc');
setup_write('player',getplayername());
end;
if (getplayermsg='l') or (getplayermsg='low') then begin
loot(3043);
loot(3043);
loot(3043);
wait(1000);
if itemcount(3043)>setup_read_int('cc') then begin
useiteminbp(5791+getroll());
wait(1000);
say('You roll: '+inttostr(getroll));
if getroll<4 then begin payout; end
end else say('First put money');
end;
if (getplayermsg='h') or (getplayermsg='high') then begin
loot(3043);
loot(3043);
loot(3043);
wait(1000);
if itemcount(3043)>setup_read_int('cc') then begin
useiteminbp(5791+getroll());
wait(1000);
say('You roll: '+inttostr(getroll));
if getroll>3 then begin payout; end
end else say('First put money');
end;
end.
NOWE ROZSTAWIENIE:
http://gmclan.org/uploader/3899/bbdicev1.png
