| We Need Mining Tournament or Not ? | |
|
|
We Need Mining Tournament or Not ? | yes | | 100% | [ 5 ] | no | | 0% | [ 0 ] |
| Total Votes : 5 | | |
|
Author | Message |
---|
^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: We Need Mining Tournament or Not ? Fri Jul 13, 2007 1:39 pm | |
| - Code:
-
// ============================================================================= // // Ultima OnLine Shard -= NONAME =- // Editing by Breaker. // // Last Date Edit: 10.01.04 // =============================================================================
// -========================= Tournament Event ================================- [EVENTS e_tournir_miner] ON=@ItemDCLICK IF (<ACT.DispID>==i_pickaxe) IF (<EVAL 0<SRC.FINDID.i_access_mine.UID>>==0) SRC.SYSMESSAGE Tournament end.. Please change all ores to points. RETURN 1 ENDIF SRC.SYSMESSAGE Your weight: <EVAL (<SRC.WEIGHT> / (<SRC.STR> / 10))> IF (<SRC.WEIGHT> > 3000) SRC.SYSMESSAGE It is too heavy to mine... RETURN 1 ENDIF ENDIF
ON=@ItemSTEP IF (<ACT.TYPE>==t_rock) && (<ACT.ID>==01ea7) IF (<ACT.TIMER> > 50) ACT.TIMER=50 ENDIF IF (<ACT.AMOUNT>==0) ACT.TIMER=1 ENDIF ENDIF
// ============================= Miner Points ================================== [ITEMDEF i_miner_points] DEFNAME=i_miner_points NAME=miner points ID=01bf2 WEIGHT=0 CATEGORY=Tournaments SUBSECTION=Items DESCRIPTION=Miner Points
ON=@CREATE COLOR=04ab ATTR=attr_newbie|attr_move_never
ON=@DCLICK RETURN 1
// ======================== Miner Resource Changer ============================= [ITEMDEF i_stone_miner] DEFNAME=i_stone_miner NAME=Miner ore changed stone ID=0ed6 CATEGORY=Tournaments SUBSECTION=Stones DESCRIPTION=Mined ore changing stone
ON=@CREATE ATTR=08010 COLOR=color_bronze
ON=@DCLICK IF (<SRC.FINDID.i_ore_iron>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_iron.AMOUNT> SRC.ACT.BOUNCE SRC.FINDID.i_ore_iron.REMOVE ENDIF IF (<SRC.FINDID.i_ore_bronze>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_bronze.AMOUNT> * 2 SRC.ACT.BOUNCE SRC.FINDID.i_ore_bronze.REMOVE ENDIF IF (<SRC.FINDID.i_ore_crystal>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_crystal.AMOUNT> * 4 SRC.ACT.BOUNCE SRC.FINDID.i_ore_crystal.REMOVE ENDIF IF (<SRC.FINDID.i_ore_silver>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_silver.AMOUNT> * 8 SRC.ACT.BOUNCE SRC.FINDID.i_ore_silver.REMOVE ENDIF IF (<SRC.FINDID.i_ore_frozen>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_frozen.AMOUNT> * 10 SRC.ACT.BOUNCE SRC.FINDID.i_ore_frozen.REMOVE ENDIF IF (<SRC.FINDID.i_ore_darkened>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_darkened.AMOUNT> * 25 SRC.ACT.BOUNCE SRC.FINDID.i_ore_darkened.REMOVE ENDIF IF (<SRC.FINDID.i_ore_golden>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_golden.AMOUNT> * 50 SRC.ACT.BOUNCE SRC.FINDID.i_ore_golden.REMOVE ENDIF IF (<SRC.FINDID.i_ore_hell>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_hell.AMOUNT> * 100 SRC.ACT.BOUNCE SRC.FINDID.i_ore_help.REMOVE ENDIF IF (<SRC.FINDID.i_ore_obsidian>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_odsidian.AMOUNT> * 250 SRC.ACT.BOUNCE SRC.FINDID.i_ore_obsidian.REMOVE ENDIF IF (<SRC.FINDID.i_ore_mythrill>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_mythrill.AMOUNT> * 500 SRC.ACT.BOUNCE SRC.FINDID.i_ore_mythrill.REMOVE ENDIF IF (<SRC.FINDID.i_ore_wolfram>) SRC.NEWITEM=i_miner_points SRC.ACT.AMOUNT=<SRC.FINDID.i_ore_wolfram.AMOUNT> * 1000 SRC.ACT.BOUNCE SRC.FINDID.i_ore_wolfram.REMOVE ENDIF RETURN 1
[ITEMDEF i_stone_enter_miner] DEFNAME=i_stone_enter_miner ID=0ed6 NAME=Miner tournament TYPE=T_NORMAL CATEGORY=Add Items SUBSECTION=Stones DESCRIPTION=Miner tournament Stone
ON=@CREATE COLOR=color_obsidian ATTR=8010 MORE=0 MORE2=0
ON=@DCLICK IF (<LINK>==04fffffff) IF (<SRC.IsGM>) TARGET Select a link stone RETURN 1 ENDIF SRC.SYSMESSAGE Miner stone error: call a GM! RETURN 1 ENDIF
IF (<SRC.IsGM>) SRC.GO <MOREP> RETURN 1 ENDIF
IF (<SRC.TARG.TOPOBJ.DISTANCE> > 3) SRC.SYSMESSAGE=You can't reach that. RETURN 1 ENDIF
IF (<SRC.FINDLAYER.25.UID>!=0) SRC.SYSMESSAGE You must leave from animal. RETURN 1 ENDIF
IF (<SRC.FINDLAYER.1.UID>!=0) || (<SRC.FINDLAYER.2.UID>!=0) || (<SRC.FINDLAYER.3.UID>!=0) || (<SRC.FINDLAYER.4.UID>!=0) || (<SRC.FINDLAYER.5.UID>!=0) || (<SRC.FINDLAYER.6.UID>!=0) || (<SRC.FINDLAYER.7.UID>!=0) || (<SRC.FINDLAYER.8.UID>!=0) || (<SRC.FINDLAYER.10.UID>!=0) || (<SRC.FINDLAYER.12.UID>!=0) || (<SRC.FINDLAYER.13.UID>!=0) || (<SRC.FINDLAYER.14.UID>!=0) || (<SRC.FINDLAYER.17.UID>!=0) || (<SRC.FINDLAYER.18.UID>!=0) || (<SRC.FINDLAYER.19.UID>!=0) || (<SRC.FINDLAYER.20.UID>!=0) || (<SRC.FINDLAYER.22.UID>!=0) || (<SRC.FINDLAYER.23.UID>!=0) || (<SRC.FINDLAYER.31.UID>!=0) SRC.SYSMESSAGE You must undress before tournament. RETURN 1 ENDIF
IF (<SRC.FINDLAYER.21.RESCOUNT> > 0) SRC.SYSMESSAGE You must clear your backpack. RETURN 1 ENDIF
// Randomed Place DORAND 4 SRC.GO <EVAL <MOREX>-7>,<EVAL <MOREY>-7>,<MOREZ> SRC.GO <EVAL <MOREX>+7>,<EVAL <MOREY>+7>,<MOREZ> SRC.GO <EVAL <MOREX>+7>,<EVAL <MOREY>-7>,<MOREZ> SRC.GO <EVAL <MOREX>-7>,<EVAL <MOREY>+7>,<MOREZ> ENDDO
// Number of clients LINK.MOREX=<EVAL <LINK.MOREX>> + 1
// Set for unstone alls MORE2=1
// Dress to tournamet clothes SRC.NEWITEM=i_bandana SRC.ACT.COLOR=0482 SRC.ACT.EQUIP SRC.NEWITEM=i_shirt_fancy SRC.ACT.COLOR=0482 SRC.ACT.EQUIP SRC.NEWITEM=i_pants_short SRC.ACT.COLOR=0482 SRC.ACT.EQUIP SRC.NEWITEM=i_pickaxe SRC.ACT.COLOR=RAND(500)+5 SRC.ACT.EQUIP SRC.EVENTS +e_tournir_miner
IF (<SRC.FINDID.i_miner_wait>) SRC.FINDID.i_miner_wait.REMOVE ENDIF SRC.NEWITEM=i_miner_wait SRC.ACT.LINK=<UID> SRC.ACT.EQUIP SRC.ACT.TIMER=1
SRC.SYSMESSAGE You must waiting tournament... SRC.STONE RETURN 1
ON=@TARGON_ITEM IF (<SRC.TARG.BaseID>!=i_stone_out_miner) SRC.SYSMESSAGE Target on the miner stone out! ELSE SRC.SYSMESSAGE Stones Linked. SAY Im Master stone. SRC.TARG.SAY Im slave stone. LINK=<SRC.TARG.UID> ENDIF RETURN 1
[ITEMDEF i_miner_wait] ID=I_MEMORY TYPE=T_EQ_SCRIPT NAME=Tournir miner wait timer
ON=@CREATE ATTR=ATTR_DECAY|ATTR_NEWBIE|ATTR_INVIS
ON=@EQUIP ATTR=ATTR_DECAY|ATTR_NEWBIE|ATTR_INVIS
ON=@UNEQUIP IF (<CONT.FLAGS>&statf_stone) CONT.FLAGS=<CONT.FLAGS>&~statf_stone CONT.FIX CONT.UPDATE CONT.MESSAGE Tournament is begin. CONT.NEWITEM=i_access_mine CONT.ACT.EQUIP ENDIF
ON=@TIMER IF (<EVAL <LINK.MORE2>>==0) REMOVE ENDIF TIMER=0 RETURN 1
[ITEMDEF i_access_mine] ID=I_MEMORY TYPE=T_EQ_SCRIPT NAME=Tournir access mine ores (Not REMOVE)
ON=@CREATE ATTR=ATTR_DECAY|ATTR_NEWBIE|ATTR_INVIS
ON=@EQUIP TIMER=10*60 ATTR=ATTR_DECAY|ATTR_NEWBIE|ATTR_INVIS
ON=@TIMER REMOVE RETURN 1
[ITEMDEF i_stone_out_miner] DEFNAME=i_stone_out_miner ID=0ed6 NAME=To market TYPE=T_NORMAL CATEGORY=Add Items SUBSECTION=Stones DESCRIPTION=From miner tournament stone
ON=@CREATE COLOR=color_BRONZE ATTR=8010 MORE=0 MORE2=0 LINK=0
ON=@DCLICK IF (<SRC.IsGM>) IF (<MOREX>!=0) SAY ~Не все ушли на маркет! RETURN 1 ENDIF IF (<MORE>!=0) && (<MORE2>!=0) && (<LINK>!=0) \\ SRC.SERV.ALLCLIENTS SYSMESSAGE Results of mining tournament: SAY Results for GM: SRC.SERV.ALLCLIENTS SYSMESSAGE First Place: <LINK.NAME> collected <EVAL <LINK.TAG.MINER_POINTS>> points. \\ SAY 1 place: <LINK.NAME> LINK.TAG.MINER_POINTS= LINK=<MORE> \\ SRC.SERV.ALLCLIENTS SYSMESSAGE Second Place: <LINK.NAME> collected <EVAL <LINK.TAG.MINER_POINTS>> points. SAY 2 place: <LINK.NAME> LINK.TAG.MINER_POINTS= LINK=<MORE2> \\ SRC.SERV.ALLCLIENTS SYSMESSAGE Third Place: <LINK.NAME> collected <EVAL <LINK.TAG.MINER_POINTS>> points. SAY 3 place: <LINK.NAME> LINK.TAG.MINER_POINTS=
LINK=0 MORE=0 MORE2=0 ELSE SAY results not ready ! ENDIF RETURN 1 ENDIF
IF (<SRC.TARG.TOPOBJ.DISTANCE> > 3) SRC.SYSMESSAGE=You can't reach that. RETURN 1 ENDIF SRC.EVENTS -e_tournir_miner IF (<EVAL 0<SRC.FINDID.i_miner_points.UID>>!=0)
SRC.TAG.MINER_POINTS=<SRC.FINDID.i_miner_points.AMOUNT> SRC.FINDID.i_miner_points.REMOVE MOREX=<MOREX> + -1 SAY <EVAL <SRC.TAG.MINER_POINTS>> points <SRC.NAME>.
VAR.PLACE1=<LINK> VAR.PLACE2=<MORE> VAR.PLACE3=<MORE2>
LINK=<VAR.PLACE3> IF (<EVAL <SRC.TAG.MINER_POINTS>> > <EVAL <LINK.TAG.MINER_POINTS>>) // test on 3-place LINK.TAG.MINER_POINTS= VAR.PLACE3=<SRC.UID> ENDIF
LINK=<VAR.PLACE2> IF (<EVAL <SRC.TAG.MINER_POINTS>> > <EVAL <LINK.TAG.MINER_POINTS>>) // test on 2-place VAR.PLACE2=<SRC.UID> VAR.PLACE3=<LINK> ENDIF
LINK=<VAR.PLACE1> IF (<EVAL <SRC.TAG.MINER_POINTS>> > <EVAL <LINK.TAG.MINER_POINTS>>) // test on 1-place VAR.PLACE1=<SRC.UID> VAR.PLACE2=<LINK> ENDIF
LINK=<EVAL <VAR.PLACE1>> MORE=<EVAL <VAR.PLACE2>> MORE2=<EVAL <VAR.PLACE3>> ELSE SRC.SYSMESSAGE You not have a points. ENDIF SRC.EVENTS -e_tournir_miner SRC.FINDLAYER.1.REMOVE // pickaxe SRC.FINDLAYER.4.REMOVE // pants SRC.FINDLAYER.5.REMOVE // shirt SRC.FINDLAYER.6.REMOVE // bandana SRC.GO MARKET RETURN 1
[EOF] | |
|
| |
Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: We Need Mining Tournament or Not ? Fri Jul 13, 2007 1:40 pm | |
| | |
|
| |
^HiMaTaS^ Moderator
Number of posts : 133 Main Character Name : HiMaTaS Registration date : 2007-06-30
| Subject: Re: We Need Mining Tournament or Not ? Sat Jul 14, 2007 9:10 am | |
| Oh yes, we definetly need it! | |
|
| |
Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: We Need Mining Tournament or Not ? Sat Jul 14, 2007 11:58 pm | |
| | |
|
| |
^HiMaTaS^ Moderator
Number of posts : 133 Main Character Name : HiMaTaS Registration date : 2007-06-30
| Subject: Re: We Need Mining Tournament or Not ? Sun Jul 15, 2007 5:10 am | |
| Oh, here you again are write! | |
|
| |
Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: We Need Mining Tournament or Not ? Sun Jul 15, 2007 12:38 pm | |
| We need something to get players :< | |
|
| |
^HiMaTaS^ Moderator
Number of posts : 133 Main Character Name : HiMaTaS Registration date : 2007-06-30
| Subject: Re: We Need Mining Tournament or Not ? Sun Jul 15, 2007 1:51 pm | |
| Allx today said that he found some poeple who will help us with that! | |
|
| |
Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: We Need Mining Tournament or Not ? Sun Jul 15, 2007 3:19 pm | |
| Something we could do is add the server in UO Gateway List. It's the first thing | |
|
| |
^HiMaTaS^ Moderator
Number of posts : 133 Main Character Name : HiMaTaS Registration date : 2007-06-30
| Subject: Re: We Need Mining Tournament or Not ? Mon Jul 16, 2007 12:08 pm | |
| DO you know how to do it? | |
|
| |
Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: We Need Mining Tournament or Not ? Mon Jul 16, 2007 4:20 pm | |
| | |
|
| |
ASsAs1N Tester
Number of posts : 60 Registration date : 2007-07-25
| Subject: Re: We Need Mining Tournament or Not ? Wed Jul 25, 2007 5:15 pm | |
| uogateway is a good idea. as i use it for logging on every shard i do play.
and its easy to do. | |
|
| |
Sponsored content
| Subject: Re: We Need Mining Tournament or Not ? | |
| |
|
| |
| We Need Mining Tournament or Not ? | |
|