Annapolis Ultima Online Shard
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Annapolis Ultima Online Shard

Join Our Forum! Save the cheerleader, save the world!
 
HomeSearchLatest imagesRegisterLog inReport Check

Annapolis Ultima Online Shard :: General Discussion Forums :: Development Discussion :: Need Work
 

 We Need Mining Tournament or Not ?

Go down 
4 posters

We Need Mining Tournament or Not ?
yes
We Need Mining Tournament or Not ? Vote_lcap100%We Need Mining Tournament or Not ? Vote_rcap
 100% [ 5 ]
no
We Need Mining Tournament or Not ? Vote_lcap0%We Need Mining Tournament or Not ? Vote_rcap
 0% [ 0 ]
Total Votes : 5
 

AuthorMessage
^TayfuN^
Annapolis Owner
Annapolis Owner
^TayfuN^


Number of posts : 256
Main Character Name : TayfuN
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeFri 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]
Back to top Go down
https://annapolis.forummotion.com/
Marco
Moderator
Moderator
Marco


Number of posts : 837
Main Character Name : Avril
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeFri Jul 13, 2007 1:40 pm
Of course yes.
Back to top Go down
^HiMaTaS^
Moderator
Moderator
^HiMaTaS^


Number of posts : 133
Main Character Name : HiMaTaS
Registration date : 2007-06-30

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSat Jul 14, 2007 9:10 am
Oh yes, we definetly need it! Razz
Back to top Go down
Marco
Moderator
Moderator
Marco


Number of posts : 837
Main Character Name : Avril
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSat Jul 14, 2007 11:58 pm
We need players too. =D
Back to top Go down
^HiMaTaS^
Moderator
Moderator
^HiMaTaS^


Number of posts : 133
Main Character Name : HiMaTaS
Registration date : 2007-06-30

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSun Jul 15, 2007 5:10 am
Oh, here you again are write! lol!
Back to top Go down
Marco
Moderator
Moderator
Marco


Number of posts : 837
Main Character Name : Avril
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSun Jul 15, 2007 12:38 pm
We need something to get players :<
Back to top Go down
^HiMaTaS^
Moderator
Moderator
^HiMaTaS^


Number of posts : 133
Main Character Name : HiMaTaS
Registration date : 2007-06-30

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSun Jul 15, 2007 1:51 pm
Allx today said that he found some poeple who will help us with that! Razz
Back to top Go down
Marco
Moderator
Moderator
Marco


Number of posts : 837
Main Character Name : Avril
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeSun Jul 15, 2007 3:19 pm
Something we could do is add the server in UO Gateway List.

It's the first thing Very Happy
Back to top Go down
^HiMaTaS^
Moderator
Moderator
^HiMaTaS^


Number of posts : 133
Main Character Name : HiMaTaS
Registration date : 2007-06-30

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeMon Jul 16, 2007 12:08 pm
DO you know how to do it? Razz
Back to top Go down
Marco
Moderator
Moderator
Marco


Number of posts : 837
Main Character Name : Avril
Registration date : 2007-06-29

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeMon Jul 16, 2007 4:20 pm
Sure..
Back to top Go down
ASsAs1N
Tester
Tester



Number of posts : 60
Registration date : 2007-07-25

We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitimeWed 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.
Back to top Go down
Sponsored content





We Need Mining Tournament or Not ? Empty
PostSubject: Re: We Need Mining Tournament or Not ?   We Need Mining Tournament or Not ? Icon_minitime
Back to top Go down
 
We Need Mining Tournament or Not ?
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Annapolis Ultima Online Shard :: General Discussion Forums :: Development Discussion :: Need Work-
Jump to: