Rus Ruleti

Evet beyler bir scple karşınıza geliyorum

Olay şöyle ceryan etti:

Basic <Berkay>:
ya bu slot makinalarını kim icat etti ya uo ya
Basic <Berkay>:
çok iyi sistem
Basic <Berkay>:
 
Basic <Berkay>:
çok yaratıcı
'     - Nexima || www.***.gen.tr:
yok ben hiç sevmem
Basic <Berkay>:
yaratıcı yaw
'     - Nexima || www.***.gen.tr:
hatta gordugum serverda oynamam
'     - Nexima || www.***.gen.tr:
eet yaratıcı
'     - Nexima || www.***.gen.tr:
 
Basic <Berkay>:
rulet yapcam
Basic <Berkay>:
 
Basic <Berkay>:
aslında olabilir rus ruleti
Basic <Berkay>:
r6
Basic <Berkay>:
 
Basic <Berkay>:
6 kurşun var
Basic <Berkay>:
aboo

bundan sonra bir kaç konuşma geçti ve yazmaya başladım ve şu saniyede bitti. Tamamen dalga geçmek amacıyla yapılmış bir sistemdir. istenirse geliştirebilirim işte olasılık azaltmadır fln filan. 2 dakikada hazırlanmıştır. Hatalıysa küfürlerinizi bana etmeyin:)

[itemdef i_rulet]
id i_bow
name Tabanca

on=@click
message @07a1 [<serv.name>]

on=@create
tag.p <p>

on=@dclick
Dorand 6
begin
src.kill
serv.allclients.sysmessage @07a1 <src.name> Rus Ruletinde Olmustur. Sevenlerine Bas Sagligi Dileriz...
message Bam!!
src.newitem i_fx_explode
src.act.p <src.p>
src.act.timer 2
src.act.attr attr_decay
src.newitem i_gravestone_17
src.act.p <src.p>
src.act.timer 180
src.act.attr attr_decay
src.act.name <src.name> Ruhuna El Fatiha!
p <tag.p>
end
begin
message Tik!
p <tag.p>
end
begin
message Tik!
p <tag.p>
end
begin
message Tik!
p <tag.p>
end
begin
message Tik!
p <tag.p>
end
begin
message Tik!
p <tag.p>
end
enddo

,
Bu kadar olay şu .add i_rulet yazıyosunuz çift tıklayınca 6 da 1 oranında sizi vuruyo.

Oluşabilecek Sorunlar:

1)Adam öldükten sonra elindeki bow masaya düşmeye bilir...
2)Bowa tıklandıktan sonra masaya düşmeyebilir.
3)Dorandler düzgün çalışmaya bilir.

Bu kadar öneri ve şikayetlerinizi bu başlık altında belirtiniz...

onlar hayal gücüne kalmış sistemin özü bu:D sırf eylence amaçlıydı dediğim gibi. yapılır ama koaly bişi

hoş olmuş yaa eline sağlık ama bahsedilen para ws. geliştirilebilir.

haha :D:D eline sağlık

<serv.servname> 56b'nin ilk release'lerinde geçerli olan bir şey idi. Artık <serv.name> kullansanız da yeterli.

//////Emsallerinden Sakının Basic Ürünüdür...
///Slothere'ye Teşekkürlerimi Bir Borç Bilirim...
/////İsteyen Herkes Kullanabilir...
//////////////////////////////////////////////////////////////////SCRIPTED BY BASIC

[code][function contchest]
foritems 50
if <baseid> == i_rulet_kasasi
	local.chest = <uid>
endif
endfor
serv.newitem i_bag,1,<dlocal.chest>
local.bag = <new>
forcont <findlayer(29).uid> 25
	cont = <dlocal.bag>
endfor
local.plevel = <account.plevel>
account.plevel 4
trysrv remove 1
account.plevel <dlocal.plevel>

[itemdef i_rulet]
id i_bow
name Tabanca
type t_script

on=@click
message @07a1 [<serv.name>]

on=@create
tag.p <p>
color 01

on=@dclick
Dorand 6
begin
src.kill
src.contchest
serv.allclients sysmessage @07a1 <src.name> Rus Ruletinde Olmustur. Sevenlerine Bas Sagligi Dileriz...
message Bam!!
serv.newitem i_fx_explode
new.p <src.p>
new.timer 2
new.attr attr_decay
serv.newitem i_gravestone_17
new.p ///Serverın mezarlığının kordinatı
new.name <src.name> Ruhuna El Fatiha!
end
begin
message Tik!
serv.allclients sysmessage  @07a1 <src.name> Rus Ruletinde Sans Eseri Kurtulmustur ve 3000 Gumusu Cantaya Atmistir...
src.newitem i_bilet, 3000
new.bounce
end
begin
message Tik!
serv.allclients sysmessage  @07a1 <src.name> Rus Ruletinde Sans Eseri Kurtulmustur ve 3000 Gumusu Cantaya Atmistir...
src.newitem i_bilet, 3000
new.bounce
end
begin
message Tik!
serv.allclients sysmessage  @07a1 <src.name> Rus Ruletinde Sans Eseri Kurtulmustur ve 3000 Gumusu Cantaya Atmistir...
src.newitem i_bilet, 3000
new.bounce
end
begin
message Tik!
serv.allclients sysmessage  @07a1 <src.name> Rus Ruletinde Sans Eseri Kurtulmustur ve 3000 Gumusu Cantaya Atmistir...
src.newitem i_bilet, 3000
new.bounce
end
begin
message Tik!
serv.allclients sysmessage  @07a1 <src.name> Rus Ruletinde Sans Eseri Kurtulmustur ve 3000 Gumusu Cantaya Atmistir...
src.newitem i_bilet, 3000
new.bounce
end
enddo

[itemdef i_rulet_kasasi]
id i_chest_metal
name Rulet Kasasi
type = t_container

on=@create
color 080a
attr 010

on=@click
message [<serv.name>]
message <name>

Ve Buda olayın aldığı en son hal.
Rulet Kasasını 20 Kare içine koyun.
Her oyuncunun 6da1 oranında şansı vardır.
Ölen oyuncunun bankası Rulet Kasasına konur.
Ölen Oyuncunun karakteri silinir.
Ölen oyuncu adının geçtiği mezar taşıyla Serverın mezarlığına defnedilir...

Olay bu kadar. Tekrar Tekrar Slothereye teşekkür ediyorum...

Bu konu Basic tarafından düzenlendi(2008-10-04 00:02, 15 yıl önce)